diff --git a/plutus-core/untyped-plutus-core/src/UntypedPlutusCore/Transform/Certify/Trace.hs b/plutus-core/untyped-plutus-core/src/UntypedPlutusCore/Transform/Certify/Trace.hs index d1474d20706..f58fcd737dd 100644 --- a/plutus-core/untyped-plutus-core/src/UntypedPlutusCore/Transform/Certify/Trace.hs +++ b/plutus-core/untyped-plutus-core/src/UntypedPlutusCore/Transform/Certify/Trace.hs @@ -17,13 +17,14 @@ This means that these passes are formalized as part of the certifier, and adding a new pass constructor to this type means that it is expected the pass will be also certified in the same PR. -IMPORTANT: the order of the constructors MUST be the same as the order +WARNING: the order of the constructors MUST be the same as the order of their counterparts in 'VerifiedCompilation.Trace'. -} data CertifiedOptStage = FloatDelay | ForceDelay | ForceCaseDelay | Inline + | CSE | ApplyToCase deriving stock (Show, Generic) deriving anyclass (NFData) @@ -31,7 +32,7 @@ data CertifiedOptStage {-| Datatype which represents optimization passes which are not yet certified. -IMPORTANT: the order of the constructors MUST be the same as the order +WARNING: the order of the constructors MUST be the same as the order of their counterparts in 'VerifiedCompilation.Trace'. IMPORTANT: if you add a new pass, or modify an existing pass, without @@ -42,7 +43,6 @@ data UncertifiedOptStage = CaseOfCase | LetFloatOut | CaseReduce - | CSE deriving stock (Show, Generic) deriving anyclass (NFData) @@ -64,7 +64,7 @@ pattern InlineStage :: OptStage pattern InlineStage = Right Inline pattern CseStage :: OptStage -pattern CseStage = Left CSE +pattern CseStage = Right CSE pattern ApplyToCaseStage :: OptStage pattern ApplyToCaseStage = Right ApplyToCase diff --git a/plutus-metatheory/changelog.d/20260427_230550_ana.pantilie95_fix_cse_certifier.md b/plutus-metatheory/changelog.d/20260427_230550_ana.pantilie95_fix_cse_certifier.md new file mode 100644 index 00000000000..ffc75c2fcfd --- /dev/null +++ b/plutus-metatheory/changelog.d/20260427_230550_ana.pantilie95_fix_cse_certifier.md @@ -0,0 +1,3 @@ +### Fixed + +- Fixed the CSE translation relation in the certifier and re-enabled it. diff --git a/plutus-metatheory/plutus-metatheory.cabal b/plutus-metatheory/plutus-metatheory.cabal index f938f010348..15d181d0647 100644 --- a/plutus-metatheory/plutus-metatheory.cabal +++ b/plutus-metatheory/plutus-metatheory.cabal @@ -367,6 +367,7 @@ library MAlonzo.Code.Untyped.Purity MAlonzo.Code.Untyped.Reduction MAlonzo.Code.Untyped.RenamingSubstitution + MAlonzo.Code.Untyped.Strictness MAlonzo.Code.Utils MAlonzo.Code.Utils.Decidable MAlonzo.Code.Utils.List @@ -377,6 +378,8 @@ library MAlonzo.Code.VerifiedCompilation.Trace MAlonzo.Code.VerifiedCompilation.UApplyToCase MAlonzo.Code.VerifiedCompilation.UCaseOfCase + MAlonzo.Code.VerifiedCompilation.UCaseReduce + MAlonzo.Code.VerifiedCompilation.UCSE MAlonzo.Code.VerifiedCompilation.UFloatDelay MAlonzo.Code.VerifiedCompilation.UForceCaseDelay MAlonzo.Code.VerifiedCompilation.UForceDelay diff --git a/plutus-metatheory/src/CertifierReport.lagda.md b/plutus-metatheory/src/CertifierReport.lagda.md index 40cacb12100..47899867151 100644 --- a/plutus-metatheory/src/CertifierReport.lagda.md +++ b/plutus-metatheory/src/CertifierReport.lagda.md @@ -40,13 +40,13 @@ showCertifiedOptTag floatDelayT = "Float Delay" showCertifiedOptTag forceDelayT = "Force-Delay Cancellation" showCertifiedOptTag forceCaseDelayT = "Float Force into Case Branches" showCertifiedOptTag inlineT = "Inlining" +showCertifiedOptTag cseT = "Common Subexpression Elimination" showCertifiedOptTag applyToCaseT = "Transform multi-argument applications into case-constr form" showUncertifiedOptTag : UncertifiedOptTag → String showUncertifiedOptTag caseOfCaseT = "Case-of-Case" showUncertifiedOptTag letFloatOutT = "Float bindings outwards" showUncertifiedOptTag caseReduceT = "Case-Constr and Case-Constant Cancellation" -showUncertifiedOptTag cseT = "Common Subexpression Elimination" showTag : OptTag → String showTag (inj₁ tag) = showUncertifiedOptTag tag ++ " ⚠ (certifier unavailable)" @@ -116,6 +116,7 @@ numSitesInlineᵖʷ (x Pointwise.∷ xs) = numSitesInline x + numSitesInlineᵖ numSites : {M N : 0 ⊢} (tag : CertifiedOptTag) → RelationOf (inj₂ tag) M N → ℕ numSites forceDelayT p = numSites′ p numSites floatDelayT p = numSites′ p +numSites cseT p = numSites′ p numSites inlineT p = numSitesInline p numSites forceCaseDelayT p = numSites′ p numSites applyToCaseT p = numSites′ p diff --git a/plutus-metatheory/src/FFI/AgdaUnparse.hs b/plutus-metatheory/src/FFI/AgdaUnparse.hs index 925ab38db1f..a306fb5739f 100644 --- a/plutus-metatheory/src/FFI/AgdaUnparse.hs +++ b/plutus-metatheory/src/FFI/AgdaUnparse.hs @@ -55,13 +55,13 @@ instance AgdaUnparse CertifiedOptStage where agdaUnparse ForceDelay = "forceDelayT" agdaUnparse ForceCaseDelay = "forceCaseDelayT" agdaUnparse Inline = "inlineT" + agdaUnparse CSE = "cseT" agdaUnparse ApplyToCase = "applyToCaseT" instance AgdaUnparse UncertifiedOptStage where agdaUnparse CaseOfCase = "caseOfCaseT" agdaUnparse LetFloatOut = "letFloatOutT" agdaUnparse CaseReduce = "caseReduceT" - agdaUnparse CSE = "cseT" instance AgdaUnparse Hints.Hints where agdaUnparse = \case diff --git a/plutus-metatheory/src/MAlonzo/Code/Certifier.hs b/plutus-metatheory/src/MAlonzo/Code/Certifier.hs index c92bf875e27..c303ec5e780 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Certifier.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Certifier.hs @@ -33,7 +33,7 @@ d_runCertifier_2 :: [MAlonzo.Code.Utils.T__'215'__428 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) (MAlonzo.Code.Utils.T__'215'__428 MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_72 (MAlonzo.Code.Utils.T__'215'__428 @@ -77,7 +77,7 @@ runCertifierMain :: (MAlonzo.Code.Utils.T__'215'__428 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) (MAlonzo.Code.Utils.T__'215'__428 MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_72 (MAlonzo.Code.Utils.T__'215'__428 @@ -94,7 +94,7 @@ d_runCertifierMain_12 :: [MAlonzo.Code.Utils.T__'215'__428 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) (MAlonzo.Code.Utils.T__'215'__428 MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_72 (MAlonzo.Code.Utils.T__'215'__428 @@ -121,7 +121,7 @@ d_runCertifierMain_12 v0 v1 MAlonzo.Code.Utils.C__'44'__442 (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) (coe - MAlonzo.Code.CertifierReport.d_makeReport_282 (coe v2) (coe v1))) + MAlonzo.Code.CertifierReport.d_makeReport_284 (coe v2) (coe v1))) MAlonzo.Code.VerifiedCompilation.C_abort_10 v4 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 @@ -129,7 +129,7 @@ d_runCertifierMain_12 v0 v1 MAlonzo.Code.Utils.C__'44'__442 (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) (coe - MAlonzo.Code.CertifierReport.d_makeReport_282 (coe v2) (coe v1))) + MAlonzo.Code.CertifierReport.d_makeReport_284 (coe v2) (coe v1))) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Utils.C_inj'8322'_14 v3 -> coe @@ -140,5 +140,5 @@ d_runCertifierMain_12 v0 v1 MAlonzo.Code.Utils.C__'44'__442 (coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10) (coe - MAlonzo.Code.CertifierReport.d_makeReport_282 (coe v2) (coe v1)))) + MAlonzo.Code.CertifierReport.d_makeReport_284 (coe v2) (coe v1)))) _ -> MAlonzo.RTE.mazUnreachableError) diff --git a/plutus-metatheory/src/MAlonzo/Code/CertifierReport.hs b/plutus-metatheory/src/MAlonzo/Code/CertifierReport.hs index ec5b434e584..22beba453b5 100644 --- a/plutus-metatheory/src/MAlonzo/Code/CertifierReport.hs +++ b/plutus-metatheory/src/MAlonzo/Code/CertifierReport.hs @@ -51,18 +51,20 @@ d_hl_8 Data.Text.Text) -- CertifierReport.showCertifiedOptTag d_showCertifiedOptTag_10 :: - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 d_showCertifiedOptTag_10 v0 = case coe v0 of - MAlonzo.Code.VerifiedCompilation.Trace.C_floatDelayT_16 + MAlonzo.Code.VerifiedCompilation.Trace.C_floatDelayT_14 -> coe ("Float Delay" :: Data.Text.Text) - MAlonzo.Code.VerifiedCompilation.Trace.C_forceDelayT_18 + MAlonzo.Code.VerifiedCompilation.Trace.C_forceDelayT_16 -> coe ("Force-Delay Cancellation" :: Data.Text.Text) - MAlonzo.Code.VerifiedCompilation.Trace.C_forceCaseDelayT_20 + MAlonzo.Code.VerifiedCompilation.Trace.C_forceCaseDelayT_18 -> coe ("Float Force into Case Branches" :: Data.Text.Text) - MAlonzo.Code.VerifiedCompilation.Trace.C_inlineT_22 + MAlonzo.Code.VerifiedCompilation.Trace.C_inlineT_20 -> coe ("Inlining" :: Data.Text.Text) + MAlonzo.Code.VerifiedCompilation.Trace.C_cseT_22 + -> coe ("Common Subexpression Elimination" :: Data.Text.Text) MAlonzo.Code.VerifiedCompilation.Trace.C_applyToCaseT_24 -> coe ("Transform multi-argument applications into case-constr form" @@ -82,14 +84,12 @@ d_showUncertifiedOptTag_12 v0 MAlonzo.Code.VerifiedCompilation.Trace.C_caseReduceT_10 -> coe ("Case-Constr and Case-Constant Cancellation" :: Data.Text.Text) - MAlonzo.Code.VerifiedCompilation.Trace.C_cseT_12 - -> coe ("Common Subexpression Elimination" :: Data.Text.Text) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.showTag d_showTag_14 :: MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 d_showTag_14 v0 = case coe v0 of @@ -559,35 +559,37 @@ d_numSitesInline_140 v0 v1 v2 v3 v4 v5 v6 v7 d_numSites_178 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> Integer d_numSites_178 v0 v1 v2 v3 = case coe v2 of - MAlonzo.Code.VerifiedCompilation.Trace.C_floatDelayT_16 + MAlonzo.Code.VerifiedCompilation.Trace.C_floatDelayT_14 -> coe du_numSites'8242'_26 v0 v1 v3 - MAlonzo.Code.VerifiedCompilation.Trace.C_forceDelayT_18 + MAlonzo.Code.VerifiedCompilation.Trace.C_forceDelayT_16 -> coe du_numSites'8242'_26 v0 v1 v3 - MAlonzo.Code.VerifiedCompilation.Trace.C_forceCaseDelayT_20 + MAlonzo.Code.VerifiedCompilation.Trace.C_forceCaseDelayT_18 -> coe du_numSites'8242'_26 v0 v1 v3 - MAlonzo.Code.VerifiedCompilation.Trace.C_inlineT_22 + MAlonzo.Code.VerifiedCompilation.Trace.C_inlineT_20 -> coe d_numSitesInline_140 (coe (0 :: Integer)) erased (coe MAlonzo.Code.VerifiedCompilation.UInline.C_'9633'_32) (coe MAlonzo.Code.VerifiedCompilation.UInline.C_'9633'_32) (coe MAlonzo.Code.VerifiedCompilation.UInline.C_'9633'_106) (coe v0) (coe v1) (coe v3) + MAlonzo.Code.VerifiedCompilation.Trace.C_cseT_22 + -> coe du_numSites'8242'_26 v0 v1 v3 MAlonzo.Code.VerifiedCompilation.Trace.C_applyToCaseT_24 -> coe du_numSites'8242'_26 v0 v1 v3 _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.showSites -d_showSites_196 :: +d_showSites_198 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_showSites_196 v0 v1 v2 v3 +d_showSites_198 v0 v1 v2 v3 = case coe v2 of MAlonzo.Code.Utils.C_inj'8321'_12 v4 -> coe ("" :: Data.Text.Text) MAlonzo.Code.Utils.C_inj'8322'_14 v4 @@ -601,59 +603,59 @@ d_showSites_196 v0 v1 v2 v3 (d_numSites_178 (coe v0) (coe v1) (coe v4) (coe v3)))) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.termSize -d_termSize_204 :: +d_termSize_206 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> Integer -d_termSize_204 v0 v1 +d_termSize_206 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe (1 :: Integer) MAlonzo.Code.Untyped.C_ƛ_20 v2 -> coe addInt (coe (1 :: Integer)) (coe - d_termSize_204 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) + d_termSize_206 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) MAlonzo.Code.Untyped.C__'183'__22 v2 v3 -> coe addInt (coe - addInt (coe (1 :: Integer)) (coe d_termSize_204 (coe v0) (coe v2))) - (coe d_termSize_204 (coe v0) (coe v3)) + addInt (coe (1 :: Integer)) (coe d_termSize_206 (coe v0) (coe v2))) + (coe d_termSize_206 (coe v0) (coe v3)) MAlonzo.Code.Untyped.C_force_24 v2 -> coe - addInt (coe (1 :: Integer)) (coe d_termSize_204 (coe v0) (coe v2)) + addInt (coe (1 :: Integer)) (coe d_termSize_206 (coe v0) (coe v2)) MAlonzo.Code.Untyped.C_delay_26 v2 -> coe - addInt (coe (1 :: Integer)) (coe d_termSize_204 (coe v0) (coe v2)) + addInt (coe (1 :: Integer)) (coe d_termSize_206 (coe v0) (coe v2)) MAlonzo.Code.Untyped.C_con_28 v2 -> coe (1 :: Integer) MAlonzo.Code.Untyped.C_constr_34 v2 v3 -> coe addInt (coe (1 :: Integer)) - (coe d_termSize'7510''695'_208 (coe v0) (coe v3)) + (coe d_termSize'7510''695'_210 (coe v0) (coe v3)) MAlonzo.Code.Untyped.C_case_40 v2 v3 -> coe addInt (coe addInt (coe (1 :: Integer)) - (coe d_termSize'7510''695'_208 (coe v0) (coe v3))) - (coe d_termSize_204 (coe v0) (coe v2)) + (coe d_termSize'7510''695'_210 (coe v0) (coe v3))) + (coe d_termSize_206 (coe v0) (coe v2)) MAlonzo.Code.Untyped.C_builtin_44 v2 -> coe (1 :: Integer) MAlonzo.Code.Untyped.C_error_46 -> coe (1 :: Integer) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.termSizeᵖʷ -d_termSize'7510''695'_208 :: +d_termSize'7510''695'_210 :: Integer -> [MAlonzo.Code.Untyped.T__'8866'_14] -> Integer -d_termSize'7510''695'_208 v0 v1 +d_termSize'7510''695'_210 v0 v1 = case coe v1 of [] -> coe (0 :: Integer) (:) v2 v3 -> coe - addInt (coe d_termSize'7510''695'_208 (coe v0) (coe v3)) - (coe d_termSize_204 (coe v0) (coe v2)) + addInt (coe d_termSize'7510''695'_210 (coe v0) (coe v3)) + (coe d_termSize_206 (coe v0) (coe v2)) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.showEvalResult -d_showEvalResult_230 :: +d_showEvalResult_232 :: MAlonzo.Code.VerifiedCompilation.Trace.T_EvalResult_134 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_showEvalResult_230 v0 +d_showEvalResult_232 v0 = case coe v0 of MAlonzo.Code.VerifiedCompilation.Trace.C_success_136 v1 v2 -> coe @@ -686,10 +688,10 @@ d_showEvalResult_230 v0 (coe MAlonzo.Code.Data.Nat.Show.d_show_56 v3)))))) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.showCostPair -d_showCostPair_242 :: +d_showCostPair_244 :: [MAlonzo.Code.VerifiedCompilation.Trace.T_EvalResult_134] -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_showCostPair_242 v0 +d_showCostPair_244 v0 = let v1 = "" :: Data.Text.Text in coe (case coe v0 of @@ -698,7 +700,7 @@ d_showCostPair_242 v0 (:) v4 v5 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_showEvalResult_230 (coe v2)) + (d_showEvalResult_232 (coe v2)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" (before)" :: Data.Text.Text) @@ -706,26 +708,26 @@ d_showCostPair_242 v0 MAlonzo.Code.Data.String.Base.d__'43''43'__20 d_nl_6 (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_showEvalResult_230 (coe v4)) (" (after)" :: Data.Text.Text)))) + (d_showEvalResult_232 (coe v4)) (" (after)" :: Data.Text.Text)))) _ -> coe v1 _ -> coe v1) -- CertifierReport.tail -d_tail_250 :: () -> [AgdaAny] -> [AgdaAny] -d_tail_250 ~v0 v1 = du_tail_250 v1 -du_tail_250 :: [AgdaAny] -> [AgdaAny] -du_tail_250 v0 +d_tail_252 :: () -> [AgdaAny] -> [AgdaAny] +d_tail_252 ~v0 v1 = du_tail_252 v1 +du_tail_252 :: [AgdaAny] -> [AgdaAny] +du_tail_252 v0 = case coe v0 of [] -> coe v0 (:) v1 v2 -> coe v2 _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.reportPasses -d_reportPasses_260 :: +d_reportPasses_262 :: Integer -> MAlonzo.Code.VerifiedCompilation.Trace.T_Trace_80 -> AgdaAny -> [MAlonzo.Code.VerifiedCompilation.Trace.T_EvalResult_134] -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_reportPasses_260 v0 v1 v2 v3 +d_reportPasses_262 v0 v1 v2 v3 = case coe v1 of MAlonzo.Code.VerifiedCompilation.Trace.C_step_84 v4 v5 v6 v7 -> case coe v2 of @@ -753,7 +755,7 @@ d_reportPasses_260 v0 v1 v2 v3 MAlonzo.Code.Data.String.Base.d__'43''43'__20 (coe MAlonzo.Code.Data.Nat.Show.d_show_56 - (d_termSize_204 (coe (0 :: Integer)) (coe v6))) + (d_termSize_206 (coe (0 :: Integer)) (coe v6))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" (before)" :: Data.Text.Text) @@ -767,7 +769,7 @@ d_reportPasses_260 v0 v1 v2 v3 MAlonzo.Code.Data.String.Base.d__'43''43'__20 (coe MAlonzo.Code.Data.Nat.Show.d_show_56 - (d_termSize_204 + (d_termSize_206 (coe (0 :: Integer)) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_head_90 @@ -780,13 +782,13 @@ d_reportPasses_260 v0 v1 v2 v3 d_nl_6 (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_showCostPair_242 (coe v3)) + (d_showCostPair_244 (coe v3)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 d_nl_6 (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_showSites_196 + (d_showSites_198 (coe v6) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_head_90 @@ -795,14 +797,14 @@ d_reportPasses_260 v0 v1 v2 v3 (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 d_nl_6 - (d_reportPasses_260 + (d_reportPasses_262 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v7) (coe v9) (coe - du_tail_250 + du_tail_252 (coe v3)))))))))))))))))))) _ -> MAlonzo.RTE.mazUnreachableError @@ -810,10 +812,10 @@ d_reportPasses_260 v0 v1 v2 v3 -> coe ("" :: Data.Text.Text) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.reportFailure -d_reportFailure_276 :: +d_reportFailure_278 :: MAlonzo.Code.VerifiedCompilation.T_Error_2 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_reportFailure_276 v0 +d_reportFailure_278 v0 = case coe v0 of MAlonzo.Code.VerifiedCompilation.C_emptyDump_4 -> coe @@ -857,24 +859,24 @@ d_reportFailure_276 v0 (" \10060 FAILED" :: Data.Text.Text) d_hl_8))) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.makeReport -d_makeReport_282 :: +d_makeReport_284 :: MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.T_Error_2 MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> [MAlonzo.Code.VerifiedCompilation.Trace.T_EvalResult_134] -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_makeReport_282 v0 v1 +d_makeReport_284 v0 v1 = coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("UPLC OPTIMIZATION: CERTIFIER REPORT" :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 d_nl_6 (coe - MAlonzo.Code.Utils.du_either_22 (coe v0) (coe d_reportFailure_276) + MAlonzo.Code.Utils.du_either_22 (coe v0) (coe d_reportFailure_278) (coe (\ v2 -> case coe v2 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v3 v4 -> coe - d_reportPasses_260 (coe (1 :: Integer)) (coe v3) (coe v4) (coe v1) + d_reportPasses_262 (coe (1 :: Integer)) (coe v3) (coe v4) (coe v1) _ -> MAlonzo.RTE.mazUnreachableError)))) diff --git a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs index 6bb649d8f93..4cb482a86de 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs @@ -205,7 +205,7 @@ d_parseUPLC_62 v0 MAlonzo.Code.Utils.du_withE_344 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe - MAlonzo.Code.Untyped.d_scopeCheckU0_276 (coe d_convPU_32 v1)))) + MAlonzo.Code.Untyped.d_scopeCheckU0_282 (coe d_convPU_32 v1)))) -- Evaluator.Program.typeCheckPLC d_typeCheckPLC_70 :: MAlonzo.Code.Scoped.T_ScopedTm_522 -> @@ -297,7 +297,7 @@ d_executePLC_80 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Evaluator.Base.d_prettyPrintUTm_10 - (MAlonzo.Code.Untyped.d_extricateU0_214 + (MAlonzo.Code.Untyped.d_extricateU0_220 (coe MAlonzo.Code.Untyped.CEK.d_discharge_126 (coe v7)))) @@ -516,7 +516,7 @@ d_showUPLCResult_138 v0 MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Evaluator.Base.d_prettyPrintUTm_10 - (MAlonzo.Code.Untyped.d_extricateU0_214 + (MAlonzo.Code.Untyped.d_extricateU0_220 (coe MAlonzo.Code.Untyped.CEK.d_discharge_126 (coe v2)))) MAlonzo.Code.Untyped.CEK.C_'9670'_228 -> coe diff --git a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Term.hs b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Term.hs index 0731576eef1..b8aabbef0da 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Term.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Term.hs @@ -861,7 +861,7 @@ d_runU_194 v0 MAlonzo.Code.Utils.du_withE_344 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe - MAlonzo.Code.Untyped.d_scopeCheckU0_276 (coe d_convTmU_46 v0))) + MAlonzo.Code.Untyped.d_scopeCheckU0_282 (coe d_convTmU_46 v0))) (coe (\ v1 -> coe @@ -872,7 +872,7 @@ d_runU_194 v0 MAlonzo.Code.Utils.C_inj'8322'_14 (coe d_unconvTmU_48 - (MAlonzo.Code.Untyped.d_extricateU0_214 + (MAlonzo.Code.Untyped.d_extricateU0_220 (coe MAlonzo.Code.Untyped.CEK.d_discharge_126 (coe v2)))))))) -- Evaluator.Term.runUCounting runUCountingAgda :: @@ -1299,7 +1299,7 @@ d_runUCounting_202 v0 v1 MAlonzo.Code.Utils.du_withE_344 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe - MAlonzo.Code.Untyped.d_scopeCheckU0_276 (coe d_convTmU_46 v1))) + MAlonzo.Code.Untyped.d_scopeCheckU0_282 (coe d_convTmU_46 v1))) (coe (\ v6 -> coe @@ -1337,7 +1337,7 @@ d_runUCounting_202 v0 v1 MAlonzo.Code.Utils.C__'44'__442 (coe d_unconvTmU_48 - (MAlonzo.Code.Untyped.d_extricateU0_214 + (MAlonzo.Code.Untyped.d_extricateU0_220 (coe MAlonzo.Code.Untyped.CEK.d_discharge_126 (coe v9)))) @@ -1554,7 +1554,7 @@ d_alphaU_406 v0 v1 -> case coe v7 of MAlonzo.Code.Utils.C_inj'8322'_14 v9 -> coe - MAlonzo.Code.Untyped.d_decUTm_284 + MAlonzo.Code.Untyped.d_decUTm_290 (coe d_convTmU_46 v8) (coe d_convTmU_46 v9) _ -> coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 _ -> coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped.hs index 3221586d027..b329dc1d971 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped.hs @@ -48,17 +48,17 @@ data T__'8866'_14 C_case_40 T__'8866'_14 [T__'8866'_14] | C_builtin_44 MAlonzo.Code.Builtin.T_Builtin_2 | C_error_46 -- Untyped.uglyDATA -d_uglyDATA_64 :: +d_uglyDATA_70 :: MAlonzo.Code.Utils.T_DATA_610 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_uglyDATA_64 ~v0 = du_uglyDATA_64 -du_uglyDATA_64 :: MAlonzo.Code.Agda.Builtin.String.T_String_6 -du_uglyDATA_64 = coe ("(DATA)" :: Data.Text.Text) +d_uglyDATA_70 ~v0 = du_uglyDATA_70 +du_uglyDATA_70 :: MAlonzo.Code.Agda.Builtin.String.T_String_6 +du_uglyDATA_70 = coe ("(DATA)" :: Data.Text.Text) -- Untyped.uglyTmCon -d_uglyTmCon_68 :: +d_uglyTmCon_74 :: MAlonzo.Code.RawU.T_TmCon_202 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_uglyTmCon_68 v0 +d_uglyTmCon_74 v0 = case coe v0 of MAlonzo.Code.RawU.C_tmCon_206 v1 v2 -> case coe v1 of @@ -88,7 +88,7 @@ d_uglyTmCon_68 v0 then coe ("(bool true)" :: Data.Text.Text) else coe ("(bool false)" :: Data.Text.Text) MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 - -> coe du_uglyDATA_64 + -> coe du_uglyDATA_70 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 -> coe ("(bls12-381-g1-element ???)" :: Data.Text.Text) MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 @@ -102,7 +102,7 @@ d_uglyTmCon_68 v0 ("(list [ " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyTmConList_72 (coe v4) (coe v2)) (" ])" :: Data.Text.Text)) + (d_uglyTmConList_78 (coe v4) (coe v2)) (" ])" :: Data.Text.Text)) MAlonzo.Code.Builtin.Signature.C_array_20 v4 -> coe ("(array [ something ])" :: Data.Text.Text) MAlonzo.Code.Builtin.Signature.C_pair_24 v4 v5 @@ -113,52 +113,52 @@ d_uglyTmCon_68 v0 ("(pair (" :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyTmCon_68 + (d_uglyTmCon_74 (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v4) (coe v6))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" , " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyTmCon_68 + (d_uglyTmCon_74 (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v5) (coe v7))) (") )" :: Data.Text.Text)))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.uglyTmConList -d_uglyTmConList_72 :: +d_uglyTmConList_78 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Utils.T_List_446 AgdaAny -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_uglyTmConList_72 v0 v1 +d_uglyTmConList_78 v0 v1 = case coe v1 of MAlonzo.Code.Utils.C_'91''93'_450 -> coe ("" :: Data.Text.Text) MAlonzo.Code.Utils.C__'8759'__452 v2 v3 -> case coe v3 of MAlonzo.Code.Utils.C_'91''93'_450 -> coe - d_uglyTmCon_68 + d_uglyTmCon_74 (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v0) (coe v2)) MAlonzo.Code.Utils.C__'8759'__452 v4 v5 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyTmCon_68 + (d_uglyTmCon_74 (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v0) (coe v2))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (" , " :: Data.Text.Text) (d_uglyTmConList_72 (coe v0) (coe v3))) + (" , " :: Data.Text.Text) (d_uglyTmConList_78 (coe v0) (coe v3))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.showNat -d_showNat_118 :: +d_showNat_124 :: Integer -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_showNat_118 = T.pack . show +d_showNat_124 = T.pack . show -- Untyped.uglyBuiltin -d_uglyBuiltin_120 :: +d_uglyBuiltin_126 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_uglyBuiltin_120 v0 +d_uglyBuiltin_126 v0 = let v1 = "other" :: Data.Text.Text in coe (case coe v0 of @@ -166,36 +166,36 @@ d_uglyBuiltin_120 v0 -> coe ("addInteger" :: Data.Text.Text) _ -> coe v1) -- Untyped.uglyList -d_uglyList_124 :: +d_uglyList_130 :: Integer -> [T__'8866'_14] -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_uglyList_124 v0 v1 +d_uglyList_130 v0 v1 = coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("[" :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyList''_128 (coe v0) (coe v1)) ("]" :: Data.Text.Text)) + (d_uglyList''_134 (coe v0) (coe v1)) ("]" :: Data.Text.Text)) -- Untyped.uglyList' -d_uglyList''_128 :: +d_uglyList''_134 :: Integer -> [T__'8866'_14] -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_uglyList''_128 v0 v1 +d_uglyList''_134 v0 v1 = case coe v1 of [] -> coe ("" :: Data.Text.Text) (:) v2 v3 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_132 (coe v0) (coe v2)) + (d_ugly_138 (coe v0) (coe v2)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (" , " :: Data.Text.Text) (d_uglyList''_128 (coe v0) (coe v3))) + (" , " :: Data.Text.Text) (d_uglyList''_134 (coe v0) (coe v3))) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.ugly -d_ugly_132 :: +d_ugly_138 :: Integer -> T__'8866'_14 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_ugly_132 v0 v1 +d_ugly_138 v0 v1 = case coe v1 of C_'96'_18 v2 -> coe ("(` var )" :: Data.Text.Text) C_ƛ_20 v2 @@ -204,7 +204,7 @@ d_ugly_132 v0 v1 ("(\411 " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_132 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) + (d_ugly_138 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) (")" :: Data.Text.Text)) C__'183'__22 v2 v3 -> coe @@ -212,34 +212,34 @@ d_ugly_132 v0 v1 ("( " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_132 (coe v0) (coe v2)) + (d_ugly_138 (coe v0) (coe v2)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" \183 " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_132 (coe v0) (coe v3)) (")" :: Data.Text.Text)))) + (d_ugly_138 (coe v0) (coe v3)) (")" :: Data.Text.Text)))) C_force_24 v2 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("(force " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_132 (coe v0) (coe v2)) (")" :: Data.Text.Text)) + (d_ugly_138 (coe v0) (coe v2)) (")" :: Data.Text.Text)) C_delay_26 v2 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("(delay " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_132 (coe v0) (coe v2)) (")" :: Data.Text.Text)) + (d_ugly_138 (coe v0) (coe v2)) (")" :: Data.Text.Text)) C_con_28 v2 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("(con " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyTmCon_68 (coe v2)) (")" :: Data.Text.Text)) + (d_uglyTmCon_74 (coe v2)) (")" :: Data.Text.Text)) C_constr_34 v2 v3 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 @@ -249,58 +249,58 @@ d_ugly_132 v0 v1 (coe MAlonzo.Code.Data.Nat.Show.d_show_56 v2) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyList_124 (coe v0) (coe v3)) (")" :: Data.Text.Text))) + (d_uglyList_130 (coe v0) (coe v3)) (")" :: Data.Text.Text))) C_case_40 v2 v3 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("(case " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_132 (coe v0) (coe v2)) + (d_ugly_138 (coe v0) (coe v2)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyList_124 (coe v0) (coe v3)) (")" :: Data.Text.Text)))) + (d_uglyList_130 (coe v0) (coe v3)) (")" :: Data.Text.Text)))) C_builtin_44 v2 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("(builtin " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyBuiltin_120 (coe v2)) (")" :: Data.Text.Text)) + (d_uglyBuiltin_126 (coe v2)) (")" :: Data.Text.Text)) C_error_46 -> coe ("error" :: Data.Text.Text) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.extG -d_extG_166 :: +d_extG_172 :: () -> (AgdaAny -> Integer) -> Maybe AgdaAny -> Integer -d_extG_166 ~v0 v1 v2 = du_extG_166 v1 v2 -du_extG_166 :: (AgdaAny -> Integer) -> Maybe AgdaAny -> Integer -du_extG_166 v0 v1 +d_extG_172 ~v0 v1 v2 = du_extG_172 v1 v2 +du_extG_172 :: (AgdaAny -> Integer) -> Maybe AgdaAny -> Integer +du_extG_172 v0 v1 = case coe v1 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v2 -> coe addInt (coe (1 :: Integer)) (coe v0 v2) MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe (0 :: Integer) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.extricateUList -d_extricateUList_176 :: +d_extricateUList_182 :: Integer -> [T__'8866'_14] -> MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.RawU.T_Untyped_208 -d_extricateUList_176 v0 v1 +d_extricateUList_182 v0 v1 = case coe v1 of [] -> coe MAlonzo.Code.Utils.C_'91''93'_450 (:) v2 v3 -> coe MAlonzo.Code.Utils.C__'8759'__452 - (coe d_extricateU_180 (coe v0) (coe v2)) - (coe d_extricateUList_176 (coe v0) (coe v3)) + (coe d_extricateU_186 (coe v0) (coe v2)) + (coe d_extricateUList_182 (coe v0) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.extricateU -d_extricateU_180 :: +d_extricateU_186 :: Integer -> T__'8866'_14 -> MAlonzo.Code.RawU.T_Untyped_208 -d_extricateU_180 v0 v1 +d_extricateU_186 v0 v1 = case coe v1 of C_'96'_18 v2 -> coe @@ -310,21 +310,21 @@ d_extricateU_180 v0 v1 -> coe MAlonzo.Code.RawU.C_ULambda_212 (coe - d_extricateU_180 (coe addInt (coe (1 :: Integer)) (coe v0)) + d_extricateU_186 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) C__'183'__22 v2 v3 -> coe MAlonzo.Code.RawU.C_UApp_214 - (coe d_extricateU_180 (coe v0) (coe v2)) - (coe d_extricateU_180 (coe v0) (coe v3)) + (coe d_extricateU_186 (coe v0) (coe v2)) + (coe d_extricateU_186 (coe v0) (coe v3)) C_force_24 v2 -> coe MAlonzo.Code.RawU.C_UForce_224 - (coe d_extricateU_180 (coe v0) (coe v2)) + (coe d_extricateU_186 (coe v0) (coe v2)) C_delay_26 v2 -> coe MAlonzo.Code.RawU.C_UDelay_222 - (coe d_extricateU_180 (coe v0) (coe v2)) + (coe d_extricateU_186 (coe v0) (coe v2)) C_con_28 v2 -> coe MAlonzo.Code.RawU.C_UCon_216 @@ -340,24 +340,24 @@ d_extricateU_180 v0 v1 MAlonzo.Code.RawU.C_UConstr_226 (coe v2) (coe MAlonzo.Code.Utils.C__'8759'__452 - (coe d_extricateU_180 (coe v0) (coe v4)) - (coe d_extricateUList_176 (coe v0) (coe v5))) + (coe d_extricateU_186 (coe v0) (coe v4)) + (coe d_extricateUList_182 (coe v0) (coe v5))) _ -> MAlonzo.RTE.mazUnreachableError C_case_40 v2 v3 -> coe MAlonzo.Code.RawU.C_UCase_228 - (coe d_extricateU_180 (coe v0) (coe v2)) - (coe d_extricateUList_176 (coe v0) (coe v3)) + (coe d_extricateU_186 (coe v0) (coe v2)) + (coe d_extricateUList_182 (coe v0) (coe v3)) C_builtin_44 v2 -> coe MAlonzo.Code.RawU.C_UBuiltin_220 (coe v2) C_error_46 -> coe MAlonzo.Code.RawU.C_UError_218 _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.extricateU0 -d_extricateU0_214 :: +d_extricateU0_220 :: T__'8866'_14 -> MAlonzo.Code.RawU.T_Untyped_208 -d_extricateU0_214 v0 - = coe d_extricateU_180 (coe (0 :: Integer)) (coe v0) +d_extricateU0_220 v0 + = coe d_extricateU_186 (coe (0 :: Integer)) (coe v0) -- Untyped.extG' -d_extG''_220 :: +d_extG''_226 :: () -> (Integer -> MAlonzo.Code.Utils.T_Either_6 @@ -365,15 +365,15 @@ d_extG''_220 :: Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 (Maybe AgdaAny) -d_extG''_220 ~v0 v1 v2 = du_extG''_220 v1 v2 -du_extG''_220 :: +d_extG''_226 ~v0 v1 v2 = du_extG''_226 v1 v2 +du_extG''_226 :: (Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 AgdaAny) -> Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 (Maybe AgdaAny) -du_extG''_220 v0 v1 +du_extG''_226 v0 v1 = case coe v1 of 0 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 @@ -385,12 +385,12 @@ du_extG''_220 v0 v1 (coe MAlonzo.Code.Utils.du_EitherP_336) (coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16) (coe v0 v2)) -- Untyped.scopeCheckUList -d_scopeCheckUList_230 :: +d_scopeCheckUList_236 :: Integer -> MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.RawU.T_Untyped_208 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 [T__'8866'_14] -d_scopeCheckUList_230 v0 v1 +d_scopeCheckUList_236 v0 v1 = case coe v1 of MAlonzo.Code.Utils.C_'91''93'_450 -> coe @@ -399,12 +399,12 @@ d_scopeCheckUList_230 v0 v1 MAlonzo.Code.Utils.C__'8759'__452 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckU_234 (coe v0) (coe v2)) + (coe d_scopeCheckU_240 (coe v0) (coe v2)) (coe (\ v4 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckUList_230 (coe v0) (coe v3)) + (coe d_scopeCheckUList_236 (coe v0) (coe v3)) (coe (\ v5 -> coe @@ -413,12 +413,12 @@ d_scopeCheckUList_230 v0 v1 MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe v4) (coe v5)))))) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.scopeCheckU -d_scopeCheckU_234 :: +d_scopeCheckU_240 :: Integer -> MAlonzo.Code.RawU.T_Untyped_208 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 T__'8866'_14 -d_scopeCheckU_234 v0 v1 +d_scopeCheckU_240 v0 v1 = case coe v1 of MAlonzo.Code.RawU.C_UVar_210 v2 -> coe @@ -433,17 +433,17 @@ d_scopeCheckU_234 v0 v1 MAlonzo.Code.Utils.du_fmap_284 (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_ƛ_20) (coe - d_scopeCheckU_234 (coe addInt (coe (1 :: Integer)) (coe v0)) + d_scopeCheckU_240 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) MAlonzo.Code.RawU.C_UApp_214 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckU_234 (coe v0) (coe v2)) + (coe d_scopeCheckU_240 (coe v0) (coe v2)) (coe (\ v4 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckU_234 (coe v0) (coe v3)) + (coe d_scopeCheckU_240 (coe v0) (coe v3)) (coe (\ v5 -> coe @@ -462,26 +462,26 @@ d_scopeCheckU_234 v0 v1 -> coe MAlonzo.Code.Utils.du_fmap_284 (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_delay_26) - (coe d_scopeCheckU_234 (coe v0) (coe v2)) + (coe d_scopeCheckU_240 (coe v0) (coe v2)) MAlonzo.Code.RawU.C_UForce_224 v2 -> coe MAlonzo.Code.Utils.du_fmap_284 (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_force_24) - (coe d_scopeCheckU_234 (coe v0) (coe v2)) + (coe d_scopeCheckU_240 (coe v0) (coe v2)) MAlonzo.Code.RawU.C_UConstr_226 v2 v3 -> coe MAlonzo.Code.Utils.du_fmap_284 (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_constr_34 (coe v2)) - (coe d_scopeCheckUList_230 (coe v0) (coe v3)) + (coe d_scopeCheckUList_236 (coe v0) (coe v3)) MAlonzo.Code.RawU.C_UCase_228 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckU_234 (coe v0) (coe v2)) + (coe d_scopeCheckU_240 (coe v0) (coe v2)) (coe (\ v4 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckUList_230 (coe v0) (coe v3)) + (coe d_scopeCheckUList_236 (coe v0) (coe v3)) (coe (\ v5 -> coe @@ -489,17 +489,17 @@ d_scopeCheckU_234 v0 v1 (coe C_case_40 (coe v4) (coe v5)))))) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.scopeCheckU0 -d_scopeCheckU0_276 :: +d_scopeCheckU0_282 :: MAlonzo.Code.RawU.T_Untyped_208 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 T__'8866'_14 -d_scopeCheckU0_276 v0 - = coe d_scopeCheckU_234 (coe (0 :: Integer)) (coe v0) +d_scopeCheckU0_282 v0 + = coe d_scopeCheckU_240 (coe (0 :: Integer)) (coe v0) -- Untyped.decUTm -d_decUTm_284 :: +d_decUTm_290 :: MAlonzo.Code.RawU.T_Untyped_208 -> MAlonzo.Code.RawU.T_Untyped_208 -> Bool -d_decUTm_284 v0 v1 +d_decUTm_290 v0 v1 = let v2 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v0 of @@ -514,15 +514,15 @@ d_decUTm_284 v0 v1 MAlonzo.Code.RawU.C_ULambda_212 v3 -> case coe v1 of MAlonzo.Code.RawU.C_ULambda_212 v4 - -> coe d_decUTm_284 (coe v3) (coe v4) + -> coe d_decUTm_290 (coe v3) (coe v4) _ -> coe v2 MAlonzo.Code.RawU.C_UApp_214 v3 v4 -> case coe v1 of MAlonzo.Code.RawU.C_UApp_214 v5 v6 -> coe MAlonzo.Code.Data.Bool.Base.d__'8743'__24 - (coe d_decUTm_284 (coe v3) (coe v5)) - (coe d_decUTm_284 (coe v4) (coe v6)) + (coe d_decUTm_290 (coe v3) (coe v5)) + (coe d_decUTm_290 (coe v4) (coe v6)) _ -> coe v2 MAlonzo.Code.RawU.C_UCon_216 v3 -> case coe v1 of @@ -544,29 +544,29 @@ d_decUTm_284 v0 v1 MAlonzo.Code.RawU.C_UDelay_222 v3 -> case coe v1 of MAlonzo.Code.RawU.C_UDelay_222 v4 - -> coe d_decUTm_284 (coe v3) (coe v4) + -> coe d_decUTm_290 (coe v3) (coe v4) _ -> coe v2 MAlonzo.Code.RawU.C_UForce_224 v3 -> case coe v1 of MAlonzo.Code.RawU.C_UForce_224 v4 - -> coe d_decUTm_284 (coe v3) (coe v4) + -> coe d_decUTm_290 (coe v3) (coe v4) _ -> coe v2 _ -> coe v2) -- Untyped.buildDebruijnEncoding -d_buildDebruijnEncoding_320 :: +d_buildDebruijnEncoding_326 :: () -> Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 (Maybe AgdaAny) -d_buildDebruijnEncoding_320 ~v0 v1 - = du_buildDebruijnEncoding_320 v1 -du_buildDebruijnEncoding_320 :: +d_buildDebruijnEncoding_326 ~v0 v1 + = du_buildDebruijnEncoding_326 v1 +du_buildDebruijnEncoding_326 :: Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 (Maybe AgdaAny) -du_buildDebruijnEncoding_320 v0 +du_buildDebruijnEncoding_326 v0 = coe - du_extG''_220 + du_extG''_226 (coe (\ v1 -> coe @@ -574,18 +574,18 @@ du_buildDebruijnEncoding_320 v0 (coe MAlonzo.Code.Scoped.C_deBError_578))) (coe v0) -- Untyped.make-integer -d_make'45'integer_326 :: +d_make'45'integer_332 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -d_make'45'integer_326 +d_make'45'integer_332 = coe MAlonzo.Code.RawU.du_tag2TyTag_232 (coe MAlonzo.Code.RawU.C_integer_30) -- Untyped.con-integer -d_con'45'integer_330 :: Integer -> Integer -> T__'8866'_14 -d_con'45'integer_330 ~v0 v1 = du_con'45'integer_330 v1 -du_con'45'integer_330 :: Integer -> T__'8866'_14 -du_con'45'integer_330 v0 +d_con'45'integer_336 :: Integer -> Integer -> T__'8866'_14 +d_con'45'integer_336 ~v0 v1 = du_con'45'integer_336 v1 +du_con'45'integer_336 :: Integer -> T__'8866'_14 +du_con'45'integer_336 v0 = coe C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 (coe d_make'45'integer_326) (coe v0)) + MAlonzo.Code.RawU.C_tmCon_206 (coe d_make'45'integer_332) (coe v0)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Strictness.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Strictness.hs new file mode 100644 index 00000000000..713259f90ff --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Strictness.hs @@ -0,0 +1,8988 @@ +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE EmptyCase #-} +{-# LANGUAGE EmptyDataDecls #-} +{-# LANGUAGE ExistentialQuantification #-} +{-# LANGUAGE NoMonomorphismRestriction #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE ScopedTypeVariables #-} + +{-# OPTIONS_GHC -Wno-overlapping-patterns #-} + +module MAlonzo.Code.Untyped.Strictness where + +import MAlonzo.RTE (coe, erased, AgdaAny, addInt, subInt, mulInt, + quotInt, remInt, geqInt, ltInt, eqInt, add64, sub64, mul64, quot64, + rem64, lt64, eq64, word64FromNat, word64ToNat) +import qualified MAlonzo.RTE +import qualified Data.Text +import qualified MAlonzo.Code.Agda.Builtin.Bool +import qualified MAlonzo.Code.Agda.Builtin.Sigma +import qualified MAlonzo.Code.Data.Fin.Base +import qualified MAlonzo.Code.Data.Fin.Properties +import qualified MAlonzo.Code.Data.List.Relation.Unary.Any +import qualified MAlonzo.Code.Relation.Nullary.Decidable.Core +import qualified MAlonzo.Code.Relation.Nullary.Reflects +import qualified MAlonzo.Code.Untyped +import qualified MAlonzo.Code.VerifiedCompilation.UntypedViews + +-- Untyped.Strictness._∈↓_ +d__'8712''8595'__10 a0 a1 a2 = () +data T__'8712''8595'__10 + = C_var_14 | C__'183''8343'_20 T__'8712''8595'__10 | + C_'183''7523'__26 T__'8712''8595'__10 | + C_force_30 T__'8712''8595'__10 | + C_constr_38 MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 | + C_scrut_44 T__'8712''8595'__10 | C_let'45'in_50 T__'8712''8595'__10 +-- Untyped.Strictness._any-∈↓?_ +d__any'45''8712''8595''63'__58 :: + Integer -> + MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d__any'45''8712''8595''63'__58 v0 v1 v2 + = case coe v2 of + [] + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + (:) v3 v4 + -> let v5 + = \ v5 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108 in + coe + (case coe v3 of + MAlonzo.Code.Untyped.C_'96'_18 v6 + -> let v7 = coe v5 v6 in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> let v11 + = seq + (coe v10) + (let v11 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe v1) (coe v6) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then coe + seq (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_var_14))) + else coe + seq (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then case coe v13 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v14)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v13) + (let v14 + = d__any'45''8712''8595''63'__58 + (coe v0) (coe v1) + (coe v4) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else (let v10 + = seq + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_'96''33'_864 v15 + -> let v16 + = seq + (coe v15) + (let v16 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe v1) + (coe + v6) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe + v17 + then coe + seq + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_var_14))) + else coe + seq + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe v18) + (let v19 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v13 + = seq + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v13 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v14 v15 + -> if coe v14 + then case coe v15 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v16 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v16)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v15) + (let v16 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v6 + -> coe + seq (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (let v7 + = d__any'45''8712''8595''63'__58 (coe v0) (coe v1) (coe v4) in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v10)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + MAlonzo.Code.Untyped.C__'183'__22 v6 v7 + -> case coe v6 of + MAlonzo.Code.Untyped.C_'96'_18 v8 + -> let v9 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then case coe v11 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> let v15 + = seq + (coe v13) + (case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v16 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe v6) in + coe + (let v17 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v7) in + coe + (let v18 + = case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> coe + seq + (coe + v18) + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> let v21 + = case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> case coe + v21 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> coe + v18 + _ -> coe + v18 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v22)) + _ -> coe + v21 + else (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> coe + v21 + else (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v21 + _ -> coe + v21) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v12 + = seq + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v12 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v13 v14 + -> if coe v13 + then case coe v14 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v15 + -> case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v18 v19 + -> let v20 + = seq + (coe v18) + (case coe + v19 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v21 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v6) in + coe + (let v22 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (let v23 + = case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> coe + seq + (coe + v23) + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v25)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> let v26 + = case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v28)) + _ -> coe + v23 + _ -> coe + v23 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v27)) + _ -> coe + v26 + else (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v29)) + _ -> coe + v26 + else (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v26 + _ -> coe + v26) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v22) + (let v23 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v15 + = seq + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v8 + -> let v9 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then case coe v11 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> let v15 + = seq + (coe v13) + (coe + seq (coe v14) + (let v15 + = d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + v1) + (coe v8) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe + v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_let'45'in_50 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v17) + (let v18 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v12 + = seq + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v12 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v13 v14 + -> if coe v13 + then case coe v14 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v15 + -> case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_Let'33'_In'33'__996 v18 v19 + -> let v20 + = seq + (coe v18) + (coe + seq + (coe v19) + (let v20 + = d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + v1) + (coe + v8) in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_let'45'in_50 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v22) + (let v23 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) in + coe + (case coe v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v22) + (let v23 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v15 + = seq + (coe v14) + (coe + seq (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26))) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C__'183'__22 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v14 v15 + -> let v16 + = seq + (coe v14) + (case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v17 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe v6) in + coe + (let v18 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v7) in + coe + (let v19 + = case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> coe + seq + (coe + v19) + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> let v22 + = case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> case coe + v22 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> coe + v19 + _ -> coe + v19 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v23)) + _ -> coe + v22 + else (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v25)) + _ -> coe + v22 + else (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v22 + _ -> coe + v22) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v18) + (let v19 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v13 + = seq + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v13 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v14 v15 + -> if coe v14 + then case coe v15 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v16 + -> case coe v16 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v19 v20 + -> let v21 + = seq + (coe v19) + (case coe + v20 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v22 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v6) in + coe + (let v23 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (let v24 + = case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> coe + seq + (coe + v24) + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> let v27 + = case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> case coe + v27 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v29)) + _ -> coe + v24 + _ -> coe + v24 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v28)) + _ -> coe + v27 + else (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v30)) + _ -> coe + v27 + else (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v27 + _ -> coe + v27) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v24)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v23) + (let v24 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v27)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v16 + = seq + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v18) + (let v19 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_force_24 v8 + -> let v9 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then case coe v11 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> let v15 + = seq + (coe v13) + (case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v16 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe v6) in + coe + (let v17 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v7) in + coe + (let v18 + = case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> coe + seq + (coe + v18) + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> let v21 + = case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> case coe + v21 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> coe + v18 + _ -> coe + v18 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v22)) + _ -> coe + v21 + else (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> coe + v21 + else (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v21 + _ -> coe + v21) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v12 + = seq + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v12 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v13 v14 + -> if coe v13 + then case coe v14 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v15 + -> case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v18 v19 + -> let v20 + = seq + (coe v18) + (case coe + v19 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v21 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v6) in + coe + (let v22 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (let v23 + = case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> coe + seq + (coe + v23) + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v25)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> let v26 + = case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v28)) + _ -> coe + v23 + _ -> coe + v23 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v27)) + _ -> coe + v26 + else (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v29)) + _ -> coe + v26 + else (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v26 + _ -> coe + v26) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v22) + (let v23 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v15 + = seq + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_delay_26 v8 + -> let v9 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then case coe v11 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> let v15 + = seq + (coe v13) + (case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v16 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe v6) in + coe + (let v17 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v7) in + coe + (let v18 + = case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> coe + seq + (coe + v18) + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> let v21 + = case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> case coe + v21 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> coe + v18 + _ -> coe + v18 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v22)) + _ -> coe + v21 + else (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> coe + v21 + else (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v21 + _ -> coe + v21) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v12 + = seq + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v12 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v13 v14 + -> if coe v13 + then case coe v14 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v15 + -> case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v18 v19 + -> let v20 + = seq + (coe v18) + (case coe + v19 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v21 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v6) in + coe + (let v22 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (let v23 + = case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> coe + seq + (coe + v23) + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v25)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> let v26 + = case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v28)) + _ -> coe + v23 + _ -> coe + v23 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v27)) + _ -> coe + v26 + else (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v29)) + _ -> coe + v26 + else (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v26 + _ -> coe + v26) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v22) + (let v23 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v15 + = seq + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_con_28 v8 + -> let v9 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then case coe v11 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> let v15 + = seq + (coe v13) + (case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v16 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe v6) in + coe + (let v17 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v7) in + coe + (let v18 + = case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> coe + seq + (coe + v18) + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> let v21 + = case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> case coe + v21 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> coe + v18 + _ -> coe + v18 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v22)) + _ -> coe + v21 + else (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> coe + v21 + else (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v21 + _ -> coe + v21) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v12 + = seq + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v12 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v13 v14 + -> if coe v13 + then case coe v14 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v15 + -> case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v18 v19 + -> let v20 + = seq + (coe v18) + (case coe + v19 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v21 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v6) in + coe + (let v22 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (let v23 + = case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> coe + seq + (coe + v23) + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v25)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> let v26 + = case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v28)) + _ -> coe + v23 + _ -> coe + v23 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v27)) + _ -> coe + v26 + else (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v29)) + _ -> coe + v26 + else (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v26 + _ -> coe + v26) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v22) + (let v23 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v15 + = seq + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_constr_34 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v14 v15 + -> let v16 + = seq + (coe v14) + (case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v17 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe v6) in + coe + (let v18 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v7) in + coe + (let v19 + = case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> coe + seq + (coe + v19) + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> let v22 + = case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> case coe + v22 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> coe + v19 + _ -> coe + v19 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v23)) + _ -> coe + v22 + else (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v25)) + _ -> coe + v22 + else (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v22 + _ -> coe + v22) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v18) + (let v19 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v13 + = seq + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v13 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v14 v15 + -> if coe v14 + then case coe v15 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v16 + -> case coe v16 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v19 v20 + -> let v21 + = seq + (coe v19) + (case coe + v20 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v22 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v6) in + coe + (let v23 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (let v24 + = case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> coe + seq + (coe + v24) + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> let v27 + = case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> case coe + v27 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v29)) + _ -> coe + v24 + _ -> coe + v24 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v28)) + _ -> coe + v27 + else (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v30)) + _ -> coe + v27 + else (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v27 + _ -> coe + v27) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v24)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v23) + (let v24 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v27)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v16 + = seq + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v18) + (let v19 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v14 v15 + -> let v16 + = seq + (coe v14) + (case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v17 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe v6) in + coe + (let v18 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v7) in + coe + (let v19 + = case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> coe + seq + (coe + v19) + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> let v22 + = case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> case coe + v22 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> coe + v19 + _ -> coe + v19 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v23)) + _ -> coe + v22 + else (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v25)) + _ -> coe + v22 + else (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v22 + _ -> coe + v22) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v18) + (let v19 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v13 + = seq + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v13 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v14 v15 + -> if coe v14 + then case coe v15 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v16 + -> case coe v16 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v19 v20 + -> let v21 + = seq + (coe v19) + (case coe + v20 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v22 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v6) in + coe + (let v23 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (let v24 + = case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> coe + seq + (coe + v24) + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> let v27 + = case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> case coe + v27 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v29)) + _ -> coe + v24 + _ -> coe + v24 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v28)) + _ -> coe + v27 + else (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v30)) + _ -> coe + v27 + else (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v27 + _ -> coe + v27) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v24)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v23) + (let v24 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v27)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v16 + = seq + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v18) + (let v19 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v8 + -> let v9 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then case coe v11 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> let v15 + = seq + (coe v13) + (case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v16 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe v6) in + coe + (let v17 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v7) in + coe + (let v18 + = case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> coe + seq + (coe + v18) + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> let v21 + = case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> case coe + v21 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> coe + v18 + _ -> coe + v18 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v22)) + _ -> coe + v21 + else (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> coe + v21 + else (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v21 + _ -> coe + v21) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v12 + = seq + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v12 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v13 v14 + -> if coe v13 + then case coe v14 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v15 + -> case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v18 v19 + -> let v20 + = seq + (coe v18) + (case coe + v19 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v21 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v6) in + coe + (let v22 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (let v23 + = case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> coe + seq + (coe + v23) + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v25)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> let v26 + = case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v28)) + _ -> coe + v23 + _ -> coe + v23 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v27)) + _ -> coe + v26 + else (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v29)) + _ -> coe + v26 + else (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v26 + _ -> coe + v26) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v22) + (let v23 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v15 + = seq + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v17) + (let v18 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_error_46 + -> let v8 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v8 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v9 v10 + -> if coe v9 + then case coe v10 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> let v14 + = seq + (coe v12) + (case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v15 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe v6) in + coe + (let v16 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v7) in + coe + (let v17 + = case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> coe + seq + (coe + v17) + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> let v20 + = case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> case coe + v20 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v22)) + _ -> coe + v17 + _ -> coe + v17 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v21)) + _ -> coe + v20 + else (case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> coe + v20 + else (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v20 + _ -> coe + v20) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (let v17 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v11 + = seq + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then case coe v13 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v17 v18 + -> let v19 + = seq + (coe v17) + (case coe + v18 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v20 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v6) in + coe + (let v21 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v7) in + coe + (let v22 + = case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> coe + seq + (coe + v22) + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> let v25 + = case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> case coe + v25 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v27)) + _ -> coe + v22 + _ -> coe + v22 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v26)) + _ -> coe + v25 + else (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v28)) + _ -> coe + v25 + else (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v25 + _ -> coe + v25) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (let v22 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v25)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v14 + = seq + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (let v17 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe + v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.C_force_24 v6 + -> let v7 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108 in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> let v11 + = seq + (coe v10) + (let v11 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) (coe v6) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then case coe v13 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_force_30 + v14)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then case coe v13 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v14)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v13) + (let v14 + = d__any'45''8712''8595''63'__58 + (coe v0) (coe v1) + (coe v4) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else (let v10 + = seq + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_force'33'_906 v15 + -> let v16 + = seq + (coe v15) + (let v16 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v6) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe + v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_force_30 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe v18) + (let v19 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v13 + = seq + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v13 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v14 v15 + -> if coe v14 + then case coe v15 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v16 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v16)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v15) + (let v16 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_delay_26 v6 + -> coe + seq (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (let v7 + = d__any'45''8712''8595''63'__58 (coe v0) (coe v1) (coe v4) in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v10)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + MAlonzo.Code.Untyped.C_con_28 v6 + -> coe + seq (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (let v7 + = d__any'45''8712''8595''63'__58 (coe v0) (coe v1) (coe v4) in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v10)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + MAlonzo.Code.Untyped.C_constr_34 v6 v7 + -> let v8 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v8 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v9 v10 + -> if coe v9 + then case coe v10 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> let v14 + = seq + (coe v13) + (let v14 + = d__any'45''8712''8595''63'__58 + (coe v0) (coe v1) + (coe v7) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_constr_38 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (let v17 + = d__any'45''8712''8595''63'__58 + (coe v0) (coe v1) + (coe v4) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v11 + = seq + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then case coe v13 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v17 v18 + -> let v19 + = seq + (coe v18) + (let v19 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe + v7) in + coe + (case coe v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_constr_38 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe v21) + (let v22 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v25)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v14 + = seq + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (let v17 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v6 v7 + -> let v8 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v8 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v9 v10 + -> if coe v9 + then case coe v10 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> let v14 + = seq + (coe v12) + (let v14 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v6) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_scrut_44 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (let v17 + = d__any'45''8712''8595''63'__58 + (coe v0) (coe v1) + (coe v4) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v11 + = seq + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then case coe v13 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_case'33'_936 v17 v18 + -> let v19 + = seq + (coe v17) + (let v19 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v6) in + coe + (case coe v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_scrut_44 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe v21) + (let v22 + = d__any'45''8712''8595''63'__58 + (coe + v0) + (coe + v1) + (coe + v4) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v25)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v14 + = seq + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (let v17 + = d__any'45''8712''8595''63'__58 + (coe v0) + (coe v1) + (coe v4) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v6 + -> coe + seq (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (let v7 + = d__any'45''8712''8595''63'__58 (coe v0) (coe v1) (coe v4) in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v10)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + MAlonzo.Code.Untyped.C_error_46 + -> coe + seq (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (let v6 + = d__any'45''8712''8595''63'__58 (coe v0) (coe v1) (coe v4) in + coe + (case coe v6 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v7 v8 + -> if coe v7 + then case coe v8 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v9 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 + v9)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Strictness._∈↓?_ +d__'8712''8595''63'__64 :: + Integer -> + MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d__'8712''8595''63'__64 v0 v1 v2 + = let v3 + = \ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108 in + coe + (case coe v2 of + MAlonzo.Code.Untyped.C_'96'_18 v4 + -> let v5 = coe v3 v4 in + coe + (case coe v5 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v6 v7 + -> if coe v6 + then case coe v7 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v8 + -> coe + seq (coe v8) + (let v9 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe v1) (coe v4) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then coe + seq (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_var_14))) + else coe + seq (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + else (let v8 + = seq + (coe v7) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v8 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v9 v10 + -> if coe v9 + then case coe v10 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v11 + -> case coe v11 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_'96''33'_864 v13 + -> coe + seq (coe v13) + (let v14 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe v1) (coe v4) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then coe + seq (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_var_14))) + else coe + seq (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v4 + -> let v5 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v4 v5 + -> case coe v4 of + MAlonzo.Code.Untyped.C_'96'_18 v6 + -> let v7 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + seq (coe v11) + (case coe v12 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v14 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (let v15 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v5) in + coe + (let v16 + = case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> coe + seq (coe v16) + (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> let v19 + = case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v21)) + _ -> coe + v16 + _ -> coe + v16 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v20)) + _ -> coe + v19 + else (case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v22)) + _ -> coe + v19 + else (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v19 + _ -> coe + v19) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v10 + = seq + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v16 v17 + -> coe + seq (coe v16) + (case coe v17 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v19 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v4) in + coe + (let v20 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v5) in + coe + (let v21 + = case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> coe + seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> let v24 + = case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> case coe + v24 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v26)) + _ -> coe + v21 + _ -> coe + v21 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v25)) + _ -> coe + v24 + else (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v27)) + _ -> coe + v24 + else (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v24 + _ -> coe + v24) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v6 + -> let v7 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + seq (coe v11) + (coe + seq (coe v12) + (let v13 + = d__'8712''8595''63'__64 + (coe + addInt (coe (1 :: Integer)) + (coe v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + v1) + (coe v6) in + coe + (case coe v13 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v14 v15 + -> if coe v14 + then case coe v15 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v16 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_let'45'in_50 + v16)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v15) + (let v16 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe v5) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v10 + = seq + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_Let'33'_In'33'__996 v16 v17 + -> coe + seq (coe v16) + (coe + seq (coe v17) + (let v18 + = d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + v1) + (coe v6) in + coe + (case coe v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_let'45'in_50 + v21)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v20) + (let v21 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v5) in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v12) + (coe + seq (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26))) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C__'183'__22 v6 v7 + -> let v8 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v8 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v9 v10 + -> if coe v9 + then case coe v10 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + seq (coe v12) + (case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v15 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (let v16 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v5) in + coe + (let v17 + = case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> coe + seq (coe v17) + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> let v20 + = case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> case coe + v20 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v22)) + _ -> coe + v17 + _ -> coe + v17 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v21)) + _ -> coe + v20 + else (case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> coe + v20 + else (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v20 + _ -> coe + v20) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v11 + = seq + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then case coe v13 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v17 v18 + -> coe + seq (coe v17) + (case coe v18 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v20 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v4) in + coe + (let v21 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v5) in + coe + (let v22 + = case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> coe + seq + (coe + v22) + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> let v25 + = case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> case coe + v25 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v27)) + _ -> coe + v22 + _ -> coe + v22 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v26)) + _ -> coe + v25 + else (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v28)) + _ -> coe + v25 + else (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v25 + _ -> coe + v25) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_force_24 v6 + -> let v7 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + seq (coe v11) + (case coe v12 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v14 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (let v15 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v5) in + coe + (let v16 + = case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> coe + seq (coe v16) + (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> let v19 + = case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v21)) + _ -> coe + v16 + _ -> coe + v16 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v20)) + _ -> coe + v19 + else (case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v22)) + _ -> coe + v19 + else (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v19 + _ -> coe + v19) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v10 + = seq + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v16 v17 + -> coe + seq (coe v16) + (case coe v17 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v19 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v4) in + coe + (let v20 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v5) in + coe + (let v21 + = case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> coe + seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> let v24 + = case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> case coe + v24 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v26)) + _ -> coe + v21 + _ -> coe + v21 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v25)) + _ -> coe + v24 + else (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v27)) + _ -> coe + v24 + else (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v24 + _ -> coe + v24) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_delay_26 v6 + -> let v7 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + seq (coe v11) + (case coe v12 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v14 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (let v15 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v5) in + coe + (let v16 + = case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> coe + seq (coe v16) + (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> let v19 + = case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v21)) + _ -> coe + v16 + _ -> coe + v16 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v20)) + _ -> coe + v19 + else (case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v22)) + _ -> coe + v19 + else (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v19 + _ -> coe + v19) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v10 + = seq + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v16 v17 + -> coe + seq (coe v16) + (case coe v17 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v19 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v4) in + coe + (let v20 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v5) in + coe + (let v21 + = case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> coe + seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> let v24 + = case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> case coe + v24 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v26)) + _ -> coe + v21 + _ -> coe + v21 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v25)) + _ -> coe + v24 + else (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v27)) + _ -> coe + v24 + else (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v24 + _ -> coe + v24) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_con_28 v6 + -> let v7 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + seq (coe v11) + (case coe v12 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v14 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (let v15 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v5) in + coe + (let v16 + = case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> coe + seq (coe v16) + (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> let v19 + = case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v21)) + _ -> coe + v16 + _ -> coe + v16 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v20)) + _ -> coe + v19 + else (case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v22)) + _ -> coe + v19 + else (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v19 + _ -> coe + v19) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v10 + = seq + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v16 v17 + -> coe + seq (coe v16) + (case coe v17 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v19 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v4) in + coe + (let v20 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v5) in + coe + (let v21 + = case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> coe + seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> let v24 + = case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> case coe + v24 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v26)) + _ -> coe + v21 + _ -> coe + v21 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v25)) + _ -> coe + v24 + else (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v27)) + _ -> coe + v24 + else (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v24 + _ -> coe + v24) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_constr_34 v6 v7 + -> let v8 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v8 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v9 v10 + -> if coe v9 + then case coe v10 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + seq (coe v12) + (case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v15 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (let v16 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v5) in + coe + (let v17 + = case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> coe + seq (coe v17) + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> let v20 + = case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> case coe + v20 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v22)) + _ -> coe + v17 + _ -> coe + v17 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v21)) + _ -> coe + v20 + else (case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> coe + v20 + else (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v20 + _ -> coe + v20) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v11 + = seq + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then case coe v13 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v17 v18 + -> coe + seq (coe v17) + (case coe v18 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v20 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v4) in + coe + (let v21 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v5) in + coe + (let v22 + = case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> coe + seq + (coe + v22) + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> let v25 + = case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> case coe + v25 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v27)) + _ -> coe + v22 + _ -> coe + v22 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v26)) + _ -> coe + v25 + else (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v28)) + _ -> coe + v25 + else (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v25 + _ -> coe + v25) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v6 v7 + -> let v8 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v8 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v9 v10 + -> if coe v9 + then case coe v10 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + seq (coe v12) + (case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v15 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (let v16 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v5) in + coe + (let v17 + = case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> coe + seq (coe v17) + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v19)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> let v20 + = case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> case coe + v20 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v22)) + _ -> coe + v17 + _ -> coe + v17 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v21)) + _ -> coe + v20 + else (case coe + v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> coe + v20 + else (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v20 + _ -> coe + v20) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v11 + = seq + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then case coe v13 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v17 v18 + -> coe + seq (coe v17) + (case coe v18 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v20 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v4) in + coe + (let v21 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v5) in + coe + (let v22 + = case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> coe + seq + (coe + v22) + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v24)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> let v25 + = case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> case coe + v25 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v27)) + _ -> coe + v22 + _ -> coe + v22 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v26)) + _ -> coe + v25 + else (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v28)) + _ -> coe + v25 + else (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v25 + _ -> coe + v25) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v6 + -> let v7 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v7 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v8 v9 + -> if coe v8 + then case coe v9 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + seq (coe v11) + (case coe v12 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v14 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (let v15 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v5) in + coe + (let v16 + = case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> coe + seq (coe v16) + (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> let v19 + = case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v21)) + _ -> coe + v16 + _ -> coe + v16 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v20)) + _ -> coe + v19 + else (case coe + v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v22)) + _ -> coe + v19 + else (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v19 + _ -> coe + v19) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v10 + = seq + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v10 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 + -> if coe v11 + then case coe v12 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v13 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v16 v17 + -> coe + seq (coe v16) + (case coe v17 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v19 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v4) in + coe + (let v20 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v5) in + coe + (let v21 + = case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> coe + seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v23)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> let v24 + = case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> case coe + v24 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v26)) + _ -> coe + v21 + _ -> coe + v21 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v25)) + _ -> coe + v24 + else (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v27)) + _ -> coe + v24 + else (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v24 + _ -> coe + v24) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v12) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_error_46 + -> let v6 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v6 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v7 v8 + -> if coe v7 + then case coe v8 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v9 + -> case coe v9 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v10 v11 + -> coe + seq (coe v10) + (case coe v11 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v13 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (let v14 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v5) in + coe + (let v15 + = case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> coe + seq (coe v15) + (case coe + v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v7) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe v13 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> let v18 + = case coe + v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> case coe + v18 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v20)) + _ -> coe + v15 + _ -> coe + v15 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe v16 + then case coe + v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v19)) + _ -> coe + v18 + else (case coe + v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v21)) + _ -> coe + v18 + else (case coe + v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v18 + _ -> coe + v18) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v9 + = seq + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then case coe v11 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 + -> case coe v12 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v15 v16 + -> coe + seq (coe v15) + (case coe v16 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v18 + = d__'8712''8595''63'__64 + (coe v0) + (coe v1) + (coe + v4) in + coe + (let v19 + = d__'8712''8595''63'__64 + (coe + v0) + (coe + v1) + (coe + v5) in + coe + (let v20 + = case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> coe + seq + (coe + v20) + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> let v23 + = case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> case coe + v23 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v25)) + _ -> coe + v20 + _ -> coe + v20 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C__'183''8343'_20 + v24)) + _ -> coe + v23 + else (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_'183''7523'__26 + v26)) + _ -> coe + v23 + else (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v23 + _ -> coe + v23) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.C_force_24 v4 + -> let v5 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108 in + coe + (case coe v5 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v6 v7 + -> if coe v6 + then case coe v7 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v8 + -> coe + seq (coe v8) + (let v9 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) (coe v4) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then case coe v11 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_force_30 v12)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + else (let v8 + = seq + (coe v7) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v8 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v9 v10 + -> if coe v9 + then case coe v10 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v11 + -> case coe v11 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_force'33'_906 v13 + -> coe + seq (coe v13) + (let v14 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (case coe v14 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v15 v16 + -> if coe v15 + then case coe v16 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v17 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_force_30 + v17)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_delay_26 v4 + -> let v5 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v4 + -> let v5 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_constr_34 v4 v5 + -> let v6 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v6 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v7 v8 + -> if coe v7 + then case coe v8 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v9 + -> case coe v9 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v10 v11 + -> coe + seq (coe v11) + (let v12 + = d__any'45''8712''8595''63'__58 + (coe v0) (coe v1) (coe v5) in + coe + (case coe v12 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v13 v14 + -> if coe v13 + then case coe v14 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v15 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_constr_38 v15)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v9 + = seq + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then case coe v11 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 + -> case coe v12 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v15 v16 + -> coe + seq (coe v16) + (let v17 + = d__any'45''8712''8595''63'__58 + (coe v0) (coe v1) + (coe v5) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_constr_38 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v4 v5 + -> let v6 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v6 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v7 v8 + -> if coe v7 + then case coe v8 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v9 + -> case coe v9 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v10 v11 + -> coe + seq (coe v10) + (let v12 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) (coe v4) in + coe + (case coe v12 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v13 v14 + -> if coe v13 + then case coe v14 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v15 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_scrut_44 v15)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v13) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v9 + = seq + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v9 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 + -> if coe v10 + then case coe v11 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 + -> case coe v12 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_case'33'_936 v15 v16 + -> coe + seq (coe v15) + (let v17 + = d__'8712''8595''63'__64 + (coe v0) (coe v1) + (coe v4) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_scrut_44 + v20)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v4 + -> let v5 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_error_46 + -> let v4 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v4) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation.hs index bfec8fb207c..566fa96b583 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation.hs @@ -27,6 +27,7 @@ import qualified MAlonzo.Code.VerifiedCompilation.Certificate import qualified MAlonzo.Code.VerifiedCompilation.NotImplemented import qualified MAlonzo.Code.VerifiedCompilation.Trace import qualified MAlonzo.Code.VerifiedCompilation.UApplyToCase +import qualified MAlonzo.Code.VerifiedCompilation.UCSE import qualified MAlonzo.Code.VerifiedCompilation.UFloatDelay import qualified MAlonzo.Code.VerifiedCompilation.UForceCaseDelay import qualified MAlonzo.Code.VerifiedCompilation.UForceDelay @@ -38,13 +39,13 @@ data T_Error_2 = C_emptyDump_4 | C_illScoped_6 | C_counterExample_8 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) | + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) | C_abort_10 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) -- VerifiedCompilation.tagToRelation d_tagToRelation_12 :: - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> () d_tagToRelation_12 = erased @@ -52,7 +53,7 @@ d_tagToRelation_12 = erased d_RelationOf_14 :: MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> () d_RelationOf_14 = erased @@ -60,14 +61,14 @@ d_RelationOf_14 = erased d_hasRelation_18 :: MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> Bool d_hasRelation_18 = coe MAlonzo.Code.Utils.du_is'45'inj'8322'_46 -- VerifiedCompilation.certifyPass d_certifyPass_26 :: MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_72 -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -81,25 +82,25 @@ d_certifyPass_26 v0 v1 MAlonzo.Code.VerifiedCompilation.NotImplemented.du_certNotImplemented_22) MAlonzo.Code.Utils.C_inj'8322'_14 v2 -> case coe v2 of - MAlonzo.Code.VerifiedCompilation.Trace.C_floatDelayT_16 + MAlonzo.Code.VerifiedCompilation.Trace.C_floatDelayT_14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.du_decider_192 (coe MAlonzo.Code.VerifiedCompilation.UFloatDelay.d_isFloatDelay'63'_488 (coe (0 :: Integer))) - MAlonzo.Code.VerifiedCompilation.Trace.C_forceDelayT_18 + MAlonzo.Code.VerifiedCompilation.Trace.C_forceDelayT_16 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.du_decider_192 (coe MAlonzo.Code.VerifiedCompilation.UForceDelay.d_isForceDelay'63'_178 (coe (0 :: Integer))) - MAlonzo.Code.VerifiedCompilation.Trace.C_forceCaseDelayT_20 + MAlonzo.Code.VerifiedCompilation.Trace.C_forceCaseDelayT_18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.du_decider_192 (coe MAlonzo.Code.VerifiedCompilation.UForceCaseDelay.d_isForceCaseDelay'63'_94 (coe (0 :: Integer))) - MAlonzo.Code.VerifiedCompilation.Trace.C_inlineT_22 + MAlonzo.Code.VerifiedCompilation.Trace.C_inlineT_20 -> case coe v1 of MAlonzo.Code.VerifiedCompilation.Trace.C_inline_74 v3 -> coe @@ -112,6 +113,12 @@ d_certifyPass_26 v0 v1 MAlonzo.Code.VerifiedCompilation.Certificate.C_abort_32 (coe MAlonzo.Code.VerifiedCompilation.Trace.d_InlineT_34) _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.VerifiedCompilation.Trace.C_cseT_22 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.du_decider_192 + (coe + MAlonzo.Code.VerifiedCompilation.UCSE.d_isUntypedCSE'63'_22 + (coe (0 :: Integer))) MAlonzo.Code.VerifiedCompilation.Trace.C_applyToCaseT_24 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.du_decider_192 @@ -176,7 +183,7 @@ d_checkScope_100 :: d_checkScope_100 v0 = coe MAlonzo.Code.Utils.du_eitherToMaybe_104 - (coe MAlonzo.Code.Untyped.d_scopeCheckU0_276 (coe v0)) + (coe MAlonzo.Code.Untyped.d_scopeCheckU0_282 (coe v0)) -- VerifiedCompilation.checkScopeᵗ d_checkScope'7511'_102 :: MAlonzo.Code.VerifiedCompilation.Trace.T_Trace_80 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Certificate.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Certificate.hs index be82b70e5bf..75f7bdc10c4 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Certificate.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Certificate.hs @@ -33,11 +33,11 @@ data T_CertResult_12 = C_proof_18 AgdaAny | C_ce_26 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) AgdaAny AgdaAny | C_abort_32 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) AgdaAny AgdaAny -- VerifiedCompilation.Certificate.ProofOrCE d_ProofOrCE_38 a0 a1 = () @@ -45,7 +45,7 @@ data T_ProofOrCE_38 = C_proof_44 AgdaAny | C_ce_52 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) AgdaAny AgdaAny -- VerifiedCompilation.Certificate.isProof? d_isProof'63'_56 :: @@ -74,7 +74,7 @@ data T_Proof'63'_66 = C_proof_72 AgdaAny | C_abort_78 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) AgdaAny AgdaAny -- VerifiedCompilation.Certificate._>>=_ d__'62''62''61'__88 :: @@ -145,14 +145,14 @@ d_decToPCE_234 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -> AgdaAny -> AgdaAny -> T_ProofOrCE_38 d_decToPCE_234 ~v0 ~v1 v2 v3 v4 v5 = du_decToPCE_234 v2 v3 v4 v5 du_decToPCE_234 :: MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -> AgdaAny -> AgdaAny -> T_ProofOrCE_38 du_decToPCE_234 v0 v1 v2 v3 @@ -195,7 +195,7 @@ d_matchOrCE_262 :: (AgdaAny -> AgdaAny -> ()) -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> (AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> @@ -205,7 +205,7 @@ d_matchOrCE_262 ~v0 ~v1 ~v2 ~v3 v4 v5 v6 v7 du_matchOrCE_262 :: MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> (AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> @@ -230,7 +230,7 @@ d_pcePointwise_304 :: (AgdaAny -> AgdaAny -> ()) -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> (AgdaAny -> AgdaAny -> T_ProofOrCE_38) -> [AgdaAny] -> [AgdaAny] -> T_ProofOrCE_38 d_pcePointwise_304 ~v0 ~v1 ~v2 ~v3 v4 v5 v6 v7 @@ -238,7 +238,7 @@ d_pcePointwise_304 ~v0 ~v1 ~v2 ~v3 v4 v5 v6 v7 du_pcePointwise_304 :: MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> (AgdaAny -> AgdaAny -> T_ProofOrCE_38) -> [AgdaAny] -> [AgdaAny] -> T_ProofOrCE_38 du_pcePointwise_304 v0 v1 v2 v3 diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Trace.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Trace.hs index 30419baf8d0..5bded2c762d 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Trace.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Trace.hs @@ -32,47 +32,47 @@ type T_UncertifiedOptTag_4 = UncertifiedOptStage pattern C_caseOfCaseT_6 = CaseOfCase pattern C_letFloatOutT_8 = LetFloatOut pattern C_caseReduceT_10 = CaseReduce -pattern C_cseT_12 = CSE check_caseOfCaseT_6 :: T_UncertifiedOptTag_4 check_caseOfCaseT_6 = CaseOfCase check_letFloatOutT_8 :: T_UncertifiedOptTag_4 check_letFloatOutT_8 = LetFloatOut check_caseReduceT_10 :: T_UncertifiedOptTag_4 check_caseReduceT_10 = CaseReduce -check_cseT_12 :: T_UncertifiedOptTag_4 -check_cseT_12 = CSE cover_UncertifiedOptTag_4 :: UncertifiedOptStage -> () cover_UncertifiedOptTag_4 x = case x of CaseOfCase -> () LetFloatOut -> () CaseReduce -> () - CSE -> () -- VerifiedCompilation.Trace.CertifiedOptTag -d_CertifiedOptTag_14 = () -type T_CertifiedOptTag_14 = CertifiedOptStage -pattern C_floatDelayT_16 = FloatDelay -pattern C_forceDelayT_18 = ForceDelay -pattern C_forceCaseDelayT_20 = ForceCaseDelay -pattern C_inlineT_22 = Inline +d_CertifiedOptTag_12 = () +type T_CertifiedOptTag_12 = CertifiedOptStage +pattern C_floatDelayT_14 = FloatDelay +pattern C_forceDelayT_16 = ForceDelay +pattern C_forceCaseDelayT_18 = ForceCaseDelay +pattern C_inlineT_20 = Inline +pattern C_cseT_22 = CSE pattern C_applyToCaseT_24 = ApplyToCase -check_floatDelayT_16 :: T_CertifiedOptTag_14 -check_floatDelayT_16 = FloatDelay -check_forceDelayT_18 :: T_CertifiedOptTag_14 -check_forceDelayT_18 = ForceDelay -check_forceCaseDelayT_20 :: T_CertifiedOptTag_14 -check_forceCaseDelayT_20 = ForceCaseDelay -check_inlineT_22 :: T_CertifiedOptTag_14 -check_inlineT_22 = Inline -check_applyToCaseT_24 :: T_CertifiedOptTag_14 +check_floatDelayT_14 :: T_CertifiedOptTag_12 +check_floatDelayT_14 = FloatDelay +check_forceDelayT_16 :: T_CertifiedOptTag_12 +check_forceDelayT_16 = ForceDelay +check_forceCaseDelayT_18 :: T_CertifiedOptTag_12 +check_forceCaseDelayT_18 = ForceCaseDelay +check_inlineT_20 :: T_CertifiedOptTag_12 +check_inlineT_20 = Inline +check_cseT_22 :: T_CertifiedOptTag_12 +check_cseT_22 = CSE +check_applyToCaseT_24 :: T_CertifiedOptTag_12 check_applyToCaseT_24 = ApplyToCase -cover_CertifiedOptTag_14 :: CertifiedOptStage -> () -cover_CertifiedOptTag_14 x +cover_CertifiedOptTag_12 :: CertifiedOptStage -> () +cover_CertifiedOptTag_12 x = case x of FloatDelay -> () ForceDelay -> () ForceCaseDelay -> () Inline -> () + CSE -> () ApplyToCase -> () -- VerifiedCompilation.Trace.OptTag d_OptTag_26 :: () @@ -80,54 +80,54 @@ d_OptTag_26 = erased -- VerifiedCompilation.Trace.FloatDelayT d_FloatDelayT_28 :: MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12 d_FloatDelayT_28 - = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_floatDelayT_16) + = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_floatDelayT_14) -- VerifiedCompilation.Trace.ForceDelayT d_ForceDelayT_30 :: MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12 d_ForceDelayT_30 - = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_forceDelayT_18) + = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_forceDelayT_16) -- VerifiedCompilation.Trace.ForceCaseDelayT d_ForceCaseDelayT_32 :: MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12 d_ForceCaseDelayT_32 - = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_forceCaseDelayT_20) + = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_forceCaseDelayT_18) -- VerifiedCompilation.Trace.InlineT d_InlineT_34 :: MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12 d_InlineT_34 - = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_inlineT_22) + = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_inlineT_20) -- VerifiedCompilation.Trace.CseT d_CseT_36 :: MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14 -d_CseT_36 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_cseT_12) + T_UncertifiedOptTag_4 T_CertifiedOptTag_12 +d_CseT_36 = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_cseT_22) -- VerifiedCompilation.Trace.ApplyToCaseT d_ApplyToCaseT_38 :: MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12 d_ApplyToCaseT_38 = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_applyToCaseT_24) -- VerifiedCompilation.Trace.CaseOfCaseT d_CaseOfCaseT_40 :: MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12 d_CaseOfCaseT_40 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_caseOfCaseT_6) -- VerifiedCompilation.Trace.LetFloatOutT d_LetFloatOutT_42 :: MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12 d_LetFloatOutT_42 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_letFloatOutT_8) -- VerifiedCompilation.Trace.CaseReduceT d_CaseReduceT_44 :: MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12 d_CaseReduceT_44 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_caseReduceT_10) -- VerifiedCompilation.Trace.InlineHints @@ -208,7 +208,7 @@ cover_Hints_72 x d_Trace_80 a0 = () data T_Trace_80 = C_step_84 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) T_Hints_72 AgdaAny T_Trace_80 | C_done_86 AgdaAny -- VerifiedCompilation.Trace.head @@ -225,7 +225,7 @@ d_Dump_96 = erased d_toTrace_98 :: [MAlonzo.Code.Utils.T__'215'__428 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) (MAlonzo.Code.Utils.T__'215'__428 T_Hints_72 (MAlonzo.Code.Utils.T__'215'__428 @@ -244,7 +244,7 @@ d_toTrace_98 v0 d_go_108 :: MAlonzo.Code.Utils.T__'215'__428 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) (MAlonzo.Code.Utils.T__'215'__428 T_Hints_72 (MAlonzo.Code.Utils.T__'215'__428 @@ -252,7 +252,7 @@ d_go_108 :: MAlonzo.Code.RawU.T_Untyped_208)) -> [MAlonzo.Code.Utils.T__'215'__428 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) (MAlonzo.Code.Utils.T__'215'__428 T_Hints_72 (MAlonzo.Code.Utils.T__'215'__428 @@ -260,7 +260,7 @@ d_go_108 :: MAlonzo.Code.RawU.T_Untyped_208))] -> MAlonzo.Code.Utils.T__'215'__428 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) (MAlonzo.Code.Utils.T__'215'__428 T_Hints_72 (MAlonzo.Code.Utils.T__'215'__428 @@ -268,7 +268,7 @@ d_go_108 :: MAlonzo.Code.RawU.T_Untyped_208)) -> [MAlonzo.Code.Utils.T__'215'__428 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) (MAlonzo.Code.Utils.T__'215'__428 T_Hints_72 (MAlonzo.Code.Utils.T__'215'__428 @@ -279,7 +279,7 @@ d_go_108 ~v0 ~v1 v2 v3 = du_go_108 v2 v3 du_go_108 :: MAlonzo.Code.Utils.T__'215'__428 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) (MAlonzo.Code.Utils.T__'215'__428 T_Hints_72 (MAlonzo.Code.Utils.T__'215'__428 @@ -287,7 +287,7 @@ du_go_108 :: MAlonzo.Code.RawU.T_Untyped_208)) -> [MAlonzo.Code.Utils.T__'215'__428 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) (MAlonzo.Code.Utils.T__'215'__428 T_Hints_72 (MAlonzo.Code.Utils.T__'215'__428 diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UApplyToCase.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UApplyToCase.hs index f73cd58b456..dee8bbcab0f 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UApplyToCase.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UApplyToCase.hs @@ -55,21 +55,21 @@ d_a2c'63'_32 :: d_a2c'63'_32 v0 v1 v2 = let v3 = coe - MAlonzo.Code.VerifiedCompilation.UntypedViews.du_constr'63'_1572 + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_constr'63'_1590 (coe MAlonzo.Code.Data.Nat.Properties.d__'8799'__2796 (coe (0 :: Integer))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__1910 + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2138 (\ v3 -> - coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_1880) + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) (\ v3 -> coe - MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_1880)) in + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108)) in coe (let v4 = coe - MAlonzo.Code.VerifiedCompilation.UntypedViews.du_singleton'63'_1970 in + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_singleton'63'_2198 in coe (case coe v2 of MAlonzo.Code.Untyped.C_'96'_18 v5 @@ -118,13 +118,13 @@ d_a2c'63'_32 v0 v1 v2 -> case coe v5 of MAlonzo.Code.Untyped.C_constr_34 v17 v18 -> case coe v16 of - MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__1902 v21 v22 + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2130 v21 v22 -> coe seq (coe v21) (coe seq (coe v22) (case coe v12 of - MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__1902 v25 v26 + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2130 v25 v26 -> case coe v6 of (:) v27 v28 -> coe @@ -185,7 +185,7 @@ d_a2c'63'_32 v0 v1 v2 -> case coe v5 of MAlonzo.Code.Untyped.C_constr_34 v22 v23 -> case coe v21 of - MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__1902 v26 v27 + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2130 v26 v27 -> coe seq (coe v26) @@ -195,7 +195,7 @@ d_a2c'63'_32 v0 v1 v2 v27) (case coe v17 of - MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__1902 v30 v31 + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2130 v30 v31 -> case coe v6 of (:) v32 v33 @@ -276,7 +276,7 @@ d_'46'extendedlambda1_94 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> T_ApplyToCase_4 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCSE.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCSE.hs new file mode 100644 index 00000000000..4514881f46e --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCSE.hs @@ -0,0 +1,12207 @@ +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE EmptyCase #-} +{-# LANGUAGE EmptyDataDecls #-} +{-# LANGUAGE ExistentialQuantification #-} +{-# LANGUAGE NoMonomorphismRestriction #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE ScopedTypeVariables #-} + +{-# OPTIONS_GHC -Wno-overlapping-patterns #-} + +module MAlonzo.Code.VerifiedCompilation.UCSE where + +import MAlonzo.RTE (coe, erased, AgdaAny, addInt, subInt, mulInt, + quotInt, remInt, geqInt, ltInt, eqInt, add64, sub64, mul64, quot64, + rem64, lt64, eq64, word64FromNat, word64ToNat) +import qualified MAlonzo.RTE +import qualified Data.Text +import qualified MAlonzo.Code.Agda.Builtin.Bool +import qualified MAlonzo.Code.Agda.Builtin.List +import qualified MAlonzo.Code.Agda.Builtin.Sigma +import qualified MAlonzo.Code.Data.Fin.Base +import qualified MAlonzo.Code.Data.Fin.Properties +import qualified MAlonzo.Code.Data.Irrelevant +import qualified MAlonzo.Code.Relation.Nullary.Decidable.Core +import qualified MAlonzo.Code.Relation.Nullary.Reflects +import qualified MAlonzo.Code.Untyped +import qualified MAlonzo.Code.Untyped.RenamingSubstitution +import qualified MAlonzo.Code.Untyped.Strictness +import qualified MAlonzo.Code.Utils +import qualified MAlonzo.Code.VerifiedCompilation.Certificate +import qualified MAlonzo.Code.VerifiedCompilation.Trace +import qualified MAlonzo.Code.VerifiedCompilation.UntypedTranslation +import qualified MAlonzo.Code.VerifiedCompilation.UntypedViews + +-- VerifiedCompilation.UCSE.UCSE +d_UCSE_6 a0 a1 a2 = () +data T_UCSE_6 + = C_cse_14 MAlonzo.Code.Untyped.Strictness.T__'8712''8595'__10 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 +-- VerifiedCompilation.UCSE.UntypedCSE +d_UntypedCSE_20 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_UntypedCSE_20 = erased +-- VerifiedCompilation.UCSE.isUntypedCSE? +d_isUntypedCSE'63'_22 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_isUntypedCSE'63'_22 v0 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_164 + (coe v0) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36) + (coe d_isUCSE'63'_24) +-- VerifiedCompilation.UCSE.isUCSE? +d_isUCSE'63'_24 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_isUCSE'63'_24 v0 v1 v2 + = let v3 + = \ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108 in + coe + (let v4 + = \ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108 in + coe + (case coe v2 of + MAlonzo.Code.Untyped.C_'96'_18 v5 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_ƛ_20 v5 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C__'183'__22 v5 v6 + -> case coe v5 of + MAlonzo.Code.Untyped.C_'96'_18 v7 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_ƛ_20 v7 + -> let v8 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v3 v6) (coe v4 v7) in + coe + (case coe v8 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v9 v10 + -> if coe v9 + then case coe v10 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + seq (coe v12) + (coe + seq (coe v13) + (case coe v7 of + MAlonzo.Code.Untyped.C_'96'_18 v14 + -> let v15 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108 in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> let v19 + = seq + (coe + v18) + (let v19 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_var_14))) + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> let v23 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v23 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v24 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v22 + v24) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v27 v28 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v27 + v28 + v29 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else (let v18 + = seq + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> case coe + v21 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_'96''33'_864 v23 + -> let v24 + = seq + (coe + v23) + (let v24 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then coe + seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_var_14))) + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> let v28 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v27 + v29) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v32 v33 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v32 + v33 + v34 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v21 + = seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> let v25 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v25 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v26 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v24 + v26) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v29 v30 v31 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v29 + v30 + v31 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v23) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v14 + -> coe + seq + (coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + MAlonzo.Code.Untyped.C__'183'__22 v14 v15 + -> case coe v14 of + MAlonzo.Code.Untyped.C_'96'_18 v16 + -> let v17 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> case coe + v20 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v21 v22 + -> let v23 + = seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v24 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v25 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v26 + = case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> coe + seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v28)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> let v29 + = case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> case coe + v29 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v31)) + _ -> coe + v26 + _ -> coe + v26 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v30)) + _ -> coe + v29 + else (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v32)) + _ -> coe + v29 + else (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v29 + _ -> coe + v29) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v20 + = seq + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> case coe + v23 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v26 v27 + -> let v28 + = seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v31 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> coe + seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> let v34 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> case coe + v34 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v31 + _ -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v35)) + _ -> coe + v34 + else (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v34 + else (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v34 + _ -> coe + v34) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v23 + = seq + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v16 + -> let v17 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> case coe + v20 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v21 v22 + -> let v23 + = seq + (coe + v21) + (coe + seq + (coe + v22) + (let v23 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (2 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12)) + (coe + v16) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_let'45'in_50 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (let v26 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v29)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v20 + = seq + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> case coe + v23 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_Let'33'_In'33'__996 v26 v27 + -> let v28 + = seq + (coe + v26) + (coe + seq + (coe + v27) + (let v28 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (2 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12)) + (coe + v16) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_let'45'in_50 + v31)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (let v31 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v34 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v34)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v23 + = seq + (coe + v22) + (coe + seq + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26))) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C__'183'__22 v16 v17 + -> let v18 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> case coe + v21 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v22 v23 + -> let v24 + = seq + (coe + v22) + (case coe + v23 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v25 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v26 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v27 + = case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> coe + seq + (coe + v27) + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v29)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> let v30 + = case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> case coe + v30 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v32)) + _ -> coe + v27 + _ -> coe + v27 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v31)) + _ -> coe + v30 + else (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> if coe + v31 + then case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> coe + v30 + else (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v30 + _ -> coe + v30) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> let v28 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v27 + v29) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v32 v33 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v32 + v33 + v34 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v21 + = seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> case coe + v24 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v27 v28 + -> let v29 + = seq + (coe + v27) + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v31 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v32 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> coe + seq + (coe + v32) + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v34 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v34)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> let v35 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> case coe + v35 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v32 + _ -> coe + v32 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v36)) + _ -> coe + v35 + else (case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> if coe + v36 + then case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> coe + v35 + else (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v35 + _ -> coe + v35) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v24 + = seq + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> let v28 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v27 + v29) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v32 v33 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v32 + v33 + v34 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_force_24 v16 + -> let v17 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> case coe + v20 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v21 v22 + -> let v23 + = seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v24 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v25 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v26 + = case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> coe + seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v28)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> let v29 + = case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> case coe + v29 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v31)) + _ -> coe + v26 + _ -> coe + v26 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v30)) + _ -> coe + v29 + else (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v32)) + _ -> coe + v29 + else (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v29 + _ -> coe + v29) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v20 + = seq + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> case coe + v23 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v26 v27 + -> let v28 + = seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v31 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> coe + seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> let v34 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> case coe + v34 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v31 + _ -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v35)) + _ -> coe + v34 + else (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v34 + else (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v34 + _ -> coe + v34) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v23 + = seq + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_delay_26 v16 + -> let v17 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> case coe + v20 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v21 v22 + -> let v23 + = seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v24 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v25 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v26 + = case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> coe + seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v28)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> let v29 + = case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> case coe + v29 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v31)) + _ -> coe + v26 + _ -> coe + v26 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v30)) + _ -> coe + v29 + else (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v32)) + _ -> coe + v29 + else (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v29 + _ -> coe + v29) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v20 + = seq + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> case coe + v23 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v26 v27 + -> let v28 + = seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v31 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> coe + seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> let v34 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> case coe + v34 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v31 + _ -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v35)) + _ -> coe + v34 + else (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v34 + else (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v34 + _ -> coe + v34) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v23 + = seq + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_con_28 v16 + -> let v17 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> case coe + v20 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v21 v22 + -> let v23 + = seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v24 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v25 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v26 + = case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> coe + seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v28)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> let v29 + = case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> case coe + v29 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v31)) + _ -> coe + v26 + _ -> coe + v26 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v30)) + _ -> coe + v29 + else (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v32)) + _ -> coe + v29 + else (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v29 + _ -> coe + v29) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v20 + = seq + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> case coe + v23 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v26 v27 + -> let v28 + = seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v31 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> coe + seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> let v34 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> case coe + v34 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v31 + _ -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v35)) + _ -> coe + v34 + else (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v34 + else (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v34 + _ -> coe + v34) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v23 + = seq + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_constr_34 v16 v17 + -> let v18 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> case coe + v21 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v22 v23 + -> let v24 + = seq + (coe + v22) + (case coe + v23 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v25 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v26 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v27 + = case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> coe + seq + (coe + v27) + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v29)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> let v30 + = case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> case coe + v30 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v32)) + _ -> coe + v27 + _ -> coe + v27 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v31)) + _ -> coe + v30 + else (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> if coe + v31 + then case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> coe + v30 + else (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v30 + _ -> coe + v30) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> let v28 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v27 + v29) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v32 v33 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v32 + v33 + v34 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v21 + = seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> case coe + v24 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v27 v28 + -> let v29 + = seq + (coe + v27) + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v31 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v32 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> coe + seq + (coe + v32) + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v34 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v34)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> let v35 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> case coe + v35 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v32 + _ -> coe + v32 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v36)) + _ -> coe + v35 + else (case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> if coe + v36 + then case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> coe + v35 + else (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v35 + _ -> coe + v35) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v24 + = seq + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> let v28 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v27 + v29) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v32 v33 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v32 + v33 + v34 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v16 v17 + -> let v18 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> case coe + v21 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v22 v23 + -> let v24 + = seq + (coe + v22) + (case coe + v23 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v25 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v26 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v27 + = case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> coe + seq + (coe + v27) + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v29)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> let v30 + = case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> case coe + v30 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v32)) + _ -> coe + v27 + _ -> coe + v27 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v31)) + _ -> coe + v30 + else (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> if coe + v31 + then case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> coe + v30 + else (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v30 + _ -> coe + v30) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> let v28 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v27 + v29) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v32 v33 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v32 + v33 + v34 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v21 + = seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> case coe + v24 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v27 v28 + -> let v29 + = seq + (coe + v27) + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v31 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v32 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> coe + seq + (coe + v32) + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v34 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v34)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> let v35 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> case coe + v35 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v32 + _ -> coe + v32 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v36)) + _ -> coe + v35 + else (case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> if coe + v36 + then case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> coe + v35 + else (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v35 + _ -> coe + v35) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v24 + = seq + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> let v28 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v27 + v29) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v32 v33 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v32 + v33 + v34 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v16 + -> let v17 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v17 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v18 v19 + -> if coe v18 + then case coe + v19 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v20 + -> case coe + v20 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v21 v22 + -> let v23 + = seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v24 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v25 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v26 + = case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> coe + seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v28)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> let v29 + = case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> case coe + v29 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v31)) + _ -> coe + v26 + _ -> coe + v26 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v30)) + _ -> coe + v29 + else (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v32)) + _ -> coe + v29 + else (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v29 + _ -> coe + v29) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v20 + = seq + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> case coe + v23 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v26 v27 + -> let v28 + = seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v31 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> coe + seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> let v34 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> case coe + v34 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v31 + _ -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v35)) + _ -> coe + v34 + else (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v34 + else (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v34 + _ -> coe + v34) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v23 + = seq + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> let v27 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v28 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v26 + v28) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v31 v32 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v31 + v32 + v33 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v25) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_error_46 + -> let v16 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe + v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v20 v21 + -> let v22 + = seq + (coe + v20) + (case coe + v21 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v23 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v24 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v25 + = case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> coe + seq + (coe + v25) + (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v27)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> let v28 + = case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> case coe + v28 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v30)) + _ -> coe + v25 + _ -> coe + v25 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v29)) + _ -> coe + v28 + else (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v31)) + _ -> coe + v28 + else (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v28 + _ -> coe + v28) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> let v26 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v26 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v27 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v25 + v27) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v30 v31 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v30 + v31 + v32 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v19 + = seq + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v25 v26 + -> let v27 + = seq + (coe + v25) + (case coe + v26 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v28 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (let v30 + = case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> coe + seq + (coe + v30) + (case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v32)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> let v33 + = case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> case coe + v33 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v35)) + _ -> coe + v30 + _ -> coe + v30 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v31 + then case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v34 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v34)) + _ -> coe + v33 + else (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> if coe + v34 + then case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v33 + else (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v33 + _ -> coe + v33) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> let v31 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v30 + v32) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v35 v36 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v35 + v36 + v37 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v22 + = seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> let v26 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v26 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v27 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v25 + v27) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v30 v31 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v30 + v31 + v32 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.C_force_24 v14 + -> let v15 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108 in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then case coe v17 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v18 + -> let v19 + = seq + (coe + v18) + (let v19 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_force_30 + v22)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> let v23 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v23 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v24 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v22 + v24) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v27 v28 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v27 + v28 + v29 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v21) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else (let v18 + = seq + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v18 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v19 v20 + -> if coe + v19 + then case coe + v20 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v21 + -> case coe + v21 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_force'33'_906 v23 + -> let v24 + = seq + (coe + v23) + (let v24 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_force_30 + v27)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> let v28 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v27 + v29) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v32 v33 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v32 + v33 + v34 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v21 + = seq + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v19) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> let v25 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v25 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v26 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v24 + v26) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v29 v30 v31 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v29 + v30 + v31 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v23) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_delay_26 v14 + -> coe + seq + (coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + MAlonzo.Code.Untyped.C_con_28 v14 + -> coe + seq + (coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + MAlonzo.Code.Untyped.C_constr_34 v14 v15 + -> let v16 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v20 v21 + -> let v22 + = seq + (coe + v21) + (let v22 + = MAlonzo.Code.Untyped.Strictness.d__any'45''8712''8595''63'__58 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_constr_38 + v25)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> let v26 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v26 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v27 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v25 + v27) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v30 v31 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v30 + v31 + v32 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v19 + = seq + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v25 v26 + -> let v27 + = seq + (coe + v26) + (let v27 + = MAlonzo.Code.Untyped.Strictness.d__any'45''8712''8595''63'__58 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v15) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_constr_38 + v30)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> let v31 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v30 + v32) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v35 v36 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v35 + v36 + v37 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v22 + = seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> let v26 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v26 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v27 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v25 + v27) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v30 v31 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v30 + v31 + v32 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v14 v15 + -> let v16 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe v16 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v17 v18 + -> if coe v17 + then case coe v18 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v19 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v20 v21 + -> let v22 + = seq + (coe + v20) + (let v22 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_scrut_44 + v25)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> let v26 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v26 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v27 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v25 + v27) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v30 v31 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v30 + v31 + v32 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v19 + = seq + (coe + v18) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v19 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v20 v21 + -> if coe + v20 + then case coe + v21 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v22 + -> case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_case'33'_936 v25 v26 + -> let v27 + = seq + (coe + v25) + (let v27 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v14) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_scrut_44 + v30)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> let v31 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v30 + v32) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v35 v36 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v35 + v36 + v37 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v22 + = seq + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v20) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> let v26 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v26 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v27 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v25 + v27) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v30 v31 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v30 + v31 + v32 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v24) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v14 + -> coe + seq + (coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + MAlonzo.Code.Untyped.C_error_46 + -> coe + seq + (coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v11 + = seq + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe v11 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v12 v13 + -> if coe v12 + then case coe v13 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_Let'33'_In'33'__996 v17 v18 + -> coe + seq (coe v17) + (coe + seq (coe v18) + (case coe v7 of + MAlonzo.Code.Untyped.C_'96'_18 v19 + -> let v20 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108 in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> let v24 + = seq + (coe + v23) + (let v24 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then coe + seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_var_14))) + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> let v28 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v27 + v29) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v32 v33 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v32 + v33 + v34 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else (let v23 + = seq + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> case coe + v26 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_'96''33'_864 v28 + -> let v29 + = seq + (coe + v28) + (let v29 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then coe + seq + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_var_14))) + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v26 + = seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> let v30 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v30 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v31 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v29 + v31) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v34 v35 v36 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v34 + v35 + v36 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v28) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v19 + -> coe + seq (coe v9) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + MAlonzo.Code.Untyped.C__'183'__22 v19 v20 + -> case coe + v19 of + MAlonzo.Code.Untyped.C_'96'_18 v21 + -> let v22 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> case coe + v25 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v26 v27 + -> let v28 + = seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v31 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> coe + seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> let v34 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> case coe + v34 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v31 + _ -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v35)) + _ -> coe + v34 + else (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v34 + else (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v34 + _ -> coe + v34) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v25 + = seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v31 v32 + -> let v33 + = seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v34 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v35 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v36 + = case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> coe + seq + (coe + v36) + (case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v37 v38 + -> let v39 + = case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v39 v40 + -> case coe + v39 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v40 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v41 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v39) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v41)) + _ -> coe + v36 + _ -> coe + v36 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v37 + then case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v40 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v37) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v40)) + _ -> coe + v39 + else (case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v40 v41 + -> if coe + v40 + then case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v42 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v42)) + _ -> coe + v39 + else (case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v39 + _ -> coe + v39) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> if coe + v34 + then case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> let v37 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v37 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v36 + v38) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v41 v42 v43 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v41 + v42 + v43 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v35) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v28 + = seq + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v21 + -> let v22 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> case coe + v25 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v26 v27 + -> let v28 + = seq + (coe + v26) + (coe + seq + (coe + v27) + (let v28 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (2 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12)) + (coe + v21) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_let'45'in_50 + v31)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (let v31 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v34 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v34)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v25 + = seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_Let'33'_In'33'__996 v31 v32 + -> let v33 + = seq + (coe + v31) + (coe + seq + (coe + v32) + (let v33 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (2 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12)) + (coe + v21) in + coe + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> if coe + v34 + then case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_let'45'in_50 + v36)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v35) + (let v36 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (case coe + v36 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v37 v38 + -> if coe + v37 + then case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v39 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v37) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v39)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v38) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v37) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) in + coe + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> if coe + v34 + then case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> let v37 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v37 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v36 + v38) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v41 v42 v43 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v41 + v42 + v43 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v35) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v28 + = seq + (coe + v27) + (coe + seq + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26))) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C__'183'__22 v21 v22 + -> let v23 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v27 v28 + -> let v29 + = seq + (coe + v27) + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v31 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v32 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> coe + seq + (coe + v32) + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v34 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v34)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> let v35 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> case coe + v35 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v32 + _ -> coe + v32 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v36)) + _ -> coe + v35 + else (case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> if coe + v36 + then case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> coe + v35 + else (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v35 + _ -> coe + v35) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v26 + = seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> case coe + v29 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v32 v33 + -> let v34 + = seq + (coe + v32) + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v35 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v36 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v37 + = case coe + v36 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v37 v38 + -> coe + seq + (coe + v37) + (case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v39 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v39)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v38 v39 + -> let v40 + = case coe + v36 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v40 v41 + -> case coe + v40 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v42 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v42)) + _ -> coe + v37 + _ -> coe + v37 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v38 + then case coe + v39 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v41 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v38) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v41)) + _ -> coe + v40 + else (case coe + v36 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v41 v42 + -> if coe + v41 + then case coe + v42 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v43 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v41) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v43)) + _ -> coe + v40 + else (case coe + v39 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v42 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v41) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v40 + _ -> coe + v40) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> let v38 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v38 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v37 + v39) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v42 v43 v44 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v42 + v43 + v44 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v36) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v29 + = seq + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_force_24 v21 + -> let v22 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> case coe + v25 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v26 v27 + -> let v28 + = seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v31 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> coe + seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> let v34 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> case coe + v34 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v31 + _ -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v35)) + _ -> coe + v34 + else (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v34 + else (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v34 + _ -> coe + v34) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v25 + = seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v31 v32 + -> let v33 + = seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v34 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v35 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v36 + = case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> coe + seq + (coe + v36) + (case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v37 v38 + -> let v39 + = case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v39 v40 + -> case coe + v39 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v40 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v41 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v39) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v41)) + _ -> coe + v36 + _ -> coe + v36 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v37 + then case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v40 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v37) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v40)) + _ -> coe + v39 + else (case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v40 v41 + -> if coe + v40 + then case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v42 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v42)) + _ -> coe + v39 + else (case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v39 + _ -> coe + v39) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> if coe + v34 + then case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> let v37 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v37 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v36 + v38) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v41 v42 v43 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v41 + v42 + v43 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v35) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v28 + = seq + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_delay_26 v21 + -> let v22 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> case coe + v25 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v26 v27 + -> let v28 + = seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v31 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> coe + seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> let v34 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> case coe + v34 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v31 + _ -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v35)) + _ -> coe + v34 + else (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v34 + else (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v34 + _ -> coe + v34) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v25 + = seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v31 v32 + -> let v33 + = seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v34 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v35 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v36 + = case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> coe + seq + (coe + v36) + (case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v37 v38 + -> let v39 + = case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v39 v40 + -> case coe + v39 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v40 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v41 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v39) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v41)) + _ -> coe + v36 + _ -> coe + v36 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v37 + then case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v40 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v37) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v40)) + _ -> coe + v39 + else (case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v40 v41 + -> if coe + v40 + then case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v42 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v42)) + _ -> coe + v39 + else (case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v39 + _ -> coe + v39) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> if coe + v34 + then case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> let v37 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v37 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v36 + v38) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v41 v42 v43 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v41 + v42 + v43 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v35) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v28 + = seq + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_con_28 v21 + -> let v22 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> case coe + v25 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v26 v27 + -> let v28 + = seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v31 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> coe + seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> let v34 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> case coe + v34 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v31 + _ -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v35)) + _ -> coe + v34 + else (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v34 + else (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v34 + _ -> coe + v34) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v25 + = seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v31 v32 + -> let v33 + = seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v34 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v35 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v36 + = case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> coe + seq + (coe + v36) + (case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v37 v38 + -> let v39 + = case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v39 v40 + -> case coe + v39 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v40 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v41 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v39) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v41)) + _ -> coe + v36 + _ -> coe + v36 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v37 + then case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v40 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v37) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v40)) + _ -> coe + v39 + else (case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v40 v41 + -> if coe + v40 + then case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v42 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v42)) + _ -> coe + v39 + else (case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v39 + _ -> coe + v39) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> if coe + v34 + then case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> let v37 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v37 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v36 + v38) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v41 v42 v43 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v41 + v42 + v43 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v35) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v28 + = seq + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_constr_34 v21 v22 + -> let v23 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v27 v28 + -> let v29 + = seq + (coe + v27) + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v31 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v32 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> coe + seq + (coe + v32) + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v34 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v34)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> let v35 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> case coe + v35 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v32 + _ -> coe + v32 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v36)) + _ -> coe + v35 + else (case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> if coe + v36 + then case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> coe + v35 + else (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v35 + _ -> coe + v35) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v26 + = seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> case coe + v29 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v32 v33 + -> let v34 + = seq + (coe + v32) + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v35 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v36 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v37 + = case coe + v36 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v37 v38 + -> coe + seq + (coe + v37) + (case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v39 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v39)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v38 v39 + -> let v40 + = case coe + v36 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v40 v41 + -> case coe + v40 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v42 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v42)) + _ -> coe + v37 + _ -> coe + v37 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v38 + then case coe + v39 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v41 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v38) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v41)) + _ -> coe + v40 + else (case coe + v36 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v41 v42 + -> if coe + v41 + then case coe + v42 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v43 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v41) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v43)) + _ -> coe + v40 + else (case coe + v39 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v42 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v41) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v40 + _ -> coe + v40) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> let v38 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v38 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v37 + v39) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v42 v43 v44 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v42 + v43 + v44 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v36) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v29 + = seq + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v21 v22 + -> let v23 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v27 v28 + -> let v29 + = seq + (coe + v27) + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v31 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v32 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> coe + seq + (coe + v32) + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v34 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v34)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> let v35 + = case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> case coe + v35 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v32 + _ -> coe + v32 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v36)) + _ -> coe + v35 + else (case coe + v31 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> if coe + v36 + then case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> coe + v35 + else (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v35 + _ -> coe + v35) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v26 + = seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> case coe + v29 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v32 v33 + -> let v34 + = seq + (coe + v32) + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v35 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v36 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v37 + = case coe + v36 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v37 v38 + -> coe + seq + (coe + v37) + (case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v39 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v39)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v38 v39 + -> let v40 + = case coe + v36 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v40 v41 + -> case coe + v40 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v42 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v42)) + _ -> coe + v37 + _ -> coe + v37 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v38 + then case coe + v39 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v41 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v38) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v41)) + _ -> coe + v40 + else (case coe + v36 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v41 v42 + -> if coe + v41 + then case coe + v42 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v43 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v41) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v43)) + _ -> coe + v40 + else (case coe + v39 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v42 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v41) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v40 + _ -> coe + v40) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> let v38 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v38 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v37 + v39) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v42 v43 v44 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v42 + v43 + v44 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v36) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v29 + = seq + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v21 + -> let v22 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v22 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v23 v24 + -> if coe + v23 + then case coe + v24 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v25 + -> case coe + v25 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v26 v27 + -> let v28 + = seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v30 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v31 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> coe + seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v33 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v33)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v32 v33 + -> let v34 + = case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> case coe + v34 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v31 + _ -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v32 + then case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v32) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v35)) + _ -> coe + v34 + else (case coe + v30 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> if coe + v35 + then case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> coe + v34 + else (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v35) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v34 + _ -> coe + v34) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v25 + = seq + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v25 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v26 v27 + -> if coe + v26 + then case coe + v27 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v28 + -> case coe + v28 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v31 v32 + -> let v33 + = seq + (coe + v31) + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v34 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v35 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v36 + = case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> coe + seq + (coe + v36) + (case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v38 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v38)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v37 v38 + -> let v39 + = case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v39 v40 + -> case coe + v39 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v40 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v41 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v39) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v41)) + _ -> coe + v36 + _ -> coe + v36 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v37 + then case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v40 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v37) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v40)) + _ -> coe + v39 + else (case coe + v35 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v40 v41 + -> if coe + v40 + then case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v42 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v42)) + _ -> coe + v39 + else (case coe + v38 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v41 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v40) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v39 + _ -> coe + v39) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> if coe + v34 + then case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> let v37 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v37 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v36 + v38) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v41 v42 v43 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v41 + v42 + v43 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v35) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v28 + = seq + (coe + v27) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v29 v30 + -> if coe + v29 + then case coe + v30 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v31 + -> let v32 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v32 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v33 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v31 + v33) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v36 v37 v38 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v36 + v37 + v38 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v30) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_error_46 + -> let v21 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> case coe + v24 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v25 v26 + -> let v27 + = seq + (coe + v25) + (case coe + v26 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v28 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v30 + = case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> coe + seq + (coe + v30) + (case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v32)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v28 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v31 v32 + -> let v33 + = case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> case coe + v33 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v35)) + _ -> coe + v30 + _ -> coe + v30 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v31 + then case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v34 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v34)) + _ -> coe + v33 + else (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v34 v35 + -> if coe + v34 + then case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v36 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v36)) + _ -> coe + v33 + else (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v35 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v33 + _ -> coe + v33) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> let v31 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v30 + v32) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v35 v36 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v35 + v36 + v37 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v24 + = seq + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v30 v31 + -> let v32 + = seq + (coe + v30) + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_match'33'_2104 + -> let v33 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (let v34 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (let v35 + = case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v35 v36 + -> coe + seq + (coe + v35) + (case coe + v36 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v37 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v37)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (case coe + v33 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v36 v37 + -> let v38 + = case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v38 v39 + -> case coe + v38 of + MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + -> case coe + v39 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v40 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v38) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v40)) + _ -> coe + v35 + _ -> coe + v35 + _ -> MAlonzo.RTE.mazUnreachableError in + coe + (if coe + v36 + then case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v39 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v36) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C__'183''8343'_20 + v39)) + _ -> coe + v38 + else (case coe + v34 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v39 v40 + -> if coe + v39 + then case coe + v40 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v41 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v39) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_'183''7523'__26 + v41)) + _ -> coe + v38 + else (case coe + v37 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> case coe + v40 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v39) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> coe + v38 + _ -> coe + v38) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError) in + coe + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> let v36 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v36 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v35 + v37) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v40 v41 v42 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v40 + v41 + v42 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v34) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v27 + = seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> let v31 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v30 + v32) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v35 v36 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v35 + v36 + v37 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.C_force_24 v19 + -> let v20 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108 in + coe + (case coe + v20 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v21 v22 + -> if coe + v21 + then case coe + v22 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v23 + -> let v24 + = seq + (coe + v23) + (let v24 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_force_30 + v27)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> let v28 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v28 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v29 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v27 + v29) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v32 v33 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v32 + v33 + v34 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v26) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else (let v23 + = seq + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v21) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v23 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v24 v25 + -> if coe + v24 + then case coe + v25 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v26 + -> case coe + v26 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_force'33'_906 v28 + -> let v29 + = seq + (coe + v28) + (let v29 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_force_30 + v32)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v30) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v29 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v30 v31 + -> if coe + v30 + then case coe + v31 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v32 + -> let v33 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v33 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v34 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v32 + v34) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v37 v38 v39 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v37 + v38 + v39 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v31) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v26 + = seq + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v24) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v26 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v27 v28 + -> if coe + v27 + then case coe + v28 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v29 + -> let v30 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v30 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v31 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v29 + v31) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v34 v35 v36 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v34 + v35 + v36 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v28) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_delay_26 v19 + -> coe + seq (coe v9) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + MAlonzo.Code.Untyped.C_con_28 v19 + -> coe + seq (coe v9) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + MAlonzo.Code.Untyped.C_constr_34 v19 v20 + -> let v21 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> case coe + v24 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v25 v26 + -> let v27 + = seq + (coe + v26) + (let v27 + = MAlonzo.Code.Untyped.Strictness.d__any'45''8712''8595''63'__58 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_constr_38 + v30)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> let v31 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v30 + v32) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v35 v36 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v35 + v36 + v37 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v24 + = seq + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v30 v31 + -> let v32 + = seq + (coe + v31) + (let v32 + = MAlonzo.Code.Untyped.Strictness.d__any'45''8712''8595''63'__58 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v20) in + coe + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_constr_38 + v35)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> let v36 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v36 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v35 + v37) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v40 v41 v42 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v40 + v41 + v42 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v34) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v27 + = seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> let v31 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v30 + v32) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v35 v36 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v35 + v36 + v37 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v19 v20 + -> let v21 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2108) in + coe + (case coe + v21 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v22 v23 + -> if coe + v22 + then case coe + v23 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v24 + -> case coe + v24 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v25 v26 + -> let v27 + = seq + (coe + v25) + (let v27 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_scrut_44 + v30)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v28) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> let v31 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v30 + v32) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v35 v36 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v35 + v36 + v37 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v24 + = seq + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v24 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v25 v26 + -> if coe + v25 + then case coe + v26 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v27 + -> case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_case'33'_936 v30 v31 + -> let v32 + = seq + (coe + v30) + (let v32 + = MAlonzo.Code.Untyped.Strictness.d__'8712''8595''63'__64 + (coe + addInt + (coe + (1 :: + Integer)) + (coe + v0)) + (coe + MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + v19) in + coe + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + MAlonzo.Code.Untyped.Strictness.C_scrut_44 + v35)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v34) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v33) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) in + coe + (case coe + v32 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v33 v34 + -> if coe + v33 + then case coe + v34 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v35 + -> let v36 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v36 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v35 + v37) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v40 v41 v42 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v40 + v41 + v42 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v34) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v27 + = seq + (coe + v26) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v25) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) in + coe + (case coe + v27 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v28 v29 + -> if coe + v28 + then case coe + v29 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v30 + -> let v31 + = coe + d_isUntypedCSE'63'_22 + v0 + v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe + v0) + (coe + v7) + (coe + v6)) in + coe + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v32 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_cse_14 + v30 + v32) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v35 v36 v37 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v35 + v36 + v37 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq + (coe + v29) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v19 + -> coe + seq (coe v9) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + MAlonzo.Code.Untyped.C_error_46 + -> coe + seq (coe v9) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v13) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 + v1 v2) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C__'183'__22 v7 v8 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_force_24 v7 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_delay_26 v7 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_con_28 v7 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_constr_34 v7 v8 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_case_40 v7 v8 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_builtin_44 v7 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.C_force_24 v5 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_delay_26 v5 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_con_28 v5 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_constr_34 v5 v6 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_case_40 v5 v6 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_builtin_44 v5 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + MAlonzo.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36 v1 v2 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCSE..extendedlambda0 +d_'46'extendedlambda0_40 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + (MAlonzo.Code.VerifiedCompilation.UntypedViews.T_Let'7510'_In'7510'__986 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + T_UCSE_6 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda0_40 = erased +-- VerifiedCompilation.UCSE..extendedlambda1 +d_'46'extendedlambda1_68 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + (MAlonzo.Code.Untyped.Strictness.T__'8712''8595'__10 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + T_UCSE_6 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda1_68 = erased +-- VerifiedCompilation.UCSE..extendedlambda2 +d_'46'extendedlambda2_106 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> + () -> + () -> + MAlonzo.Code.Utils.T_Either_6 + MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> + AgdaAny -> + AgdaAny -> + MAlonzo.Code.Untyped.Strictness.T__'8712''8595'__10 -> + T_UCSE_6 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda2_106 = erased +-- VerifiedCompilation.UCSE.M₁ +d_M'8321'_124 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_M'8321'_124 + = coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)) + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)) +-- VerifiedCompilation.UCSE.N₁ +d_N'8321'_126 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_N'8321'_126 + = coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)))) + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)) +-- VerifiedCompilation.UCSE.M₂ +d_M'8322'_130 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_M'8322'_130 + = coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))) + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)) +-- VerifiedCompilation.UCSE.N₂ +d_N'8322'_132 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_N'8322'_132 + = coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))) + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)) +-- VerifiedCompilation.UCSE.M₃ +d_M'8323'_136 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_M'8323'_136 + = coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) +-- VerifiedCompilation.UCSE.N₃ +d_N'8323'_138 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_N'8323'_138 + = coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16))) + (coe MAlonzo.Code.Untyped.C_error_46) diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs index d08b4b86363..96c9f998783 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs @@ -867,7 +867,7 @@ d_'46'extendedlambda6_444 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -890,7 +890,7 @@ d_'46'extendedlambda7_524 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> [MAlonzo.Code.Untyped.T__'8866'_14] -> @@ -914,7 +914,7 @@ d_'46'extendedlambda8_608 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> [MAlonzo.Code.Untyped.T__'8866'_14] -> diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce.hs new file mode 100644 index 00000000000..a098018e16f --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce.hs @@ -0,0 +1,350 @@ +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE EmptyCase #-} +{-# LANGUAGE EmptyDataDecls #-} +{-# LANGUAGE ExistentialQuantification #-} +{-# LANGUAGE NoMonomorphismRestriction #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE ScopedTypeVariables #-} + +{-# OPTIONS_GHC -Wno-overlapping-patterns #-} + +module MAlonzo.Code.VerifiedCompilation.UCaseReduce where + +import MAlonzo.RTE (coe, erased, AgdaAny, addInt, subInt, mulInt, + quotInt, remInt, geqInt, ltInt, eqInt, add64, sub64, mul64, quot64, + rem64, lt64, eq64, word64FromNat, word64ToNat) +import qualified MAlonzo.RTE +import qualified Data.Text +import qualified MAlonzo.Code.Agda.Builtin.Equality +import qualified MAlonzo.Code.Agda.Builtin.List +import qualified MAlonzo.Code.Agda.Builtin.Maybe +import qualified MAlonzo.Code.Builtin +import qualified MAlonzo.Code.Data.Fin.Base +import qualified MAlonzo.Code.Data.Irrelevant +import qualified MAlonzo.Code.Data.List.Base +import qualified MAlonzo.Code.Relation.Nullary.Decidable.Core +import qualified MAlonzo.Code.Relation.Nullary.Reflects +import qualified MAlonzo.Code.Untyped +import qualified MAlonzo.Code.Untyped.CEK +import qualified MAlonzo.Code.Untyped.Reduction +import qualified MAlonzo.Code.Utils +import qualified MAlonzo.Code.VerifiedCompilation.Certificate +import qualified MAlonzo.Code.VerifiedCompilation.Trace +import qualified MAlonzo.Code.VerifiedCompilation.UntypedTranslation +import qualified MAlonzo.Code.VerifiedCompilation.UntypedViews + +-- VerifiedCompilation.UCaseReduce.CaseReduce +d_CaseReduce_4 a0 a1 a2 = () +data T_CaseReduce_4 + = C_casereduce_18 MAlonzo.Code.Untyped.T__'8866'_14 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 +-- VerifiedCompilation.UCaseReduce.isCaseReduce? +d_isCaseReduce'63'_26 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_isCaseReduce'63'_26 v0 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_164 + (coe v0) + (coe MAlonzo.Code.VerifiedCompilation.Trace.d_CaseReduceT_44) + (coe d_isCR'63'_42) +-- VerifiedCompilation.UCaseReduce.justEq +d_justEq_34 :: + () -> + AgdaAny -> + AgdaAny -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_justEq_34 = erased +-- VerifiedCompilation.UCaseReduce.isCR? +d_isCR'63'_42 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_isCR'63'_42 v0 v1 v2 + = let v3 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_isCase'63'_600 + (coe v0) + (coe + (\ v3 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_isConstr'63'_498 + (coe v3) + (\ v4 v5 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_allTerms'63'_800))) + (\ v3 v4 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_allTerms'63'_800) + (coe v1) in + coe + (case coe v3 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v4 v5 + -> if coe v4 + then case coe v5 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v6 + -> case coe v6 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_iscase_588 v9 v10 + -> case coe v1 of + MAlonzo.Code.Untyped.C_case_40 v11 v12 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_isconstr_490 v15 + -> case coe v11 of + MAlonzo.Code.Untyped.C_constr_34 v16 v17 + -> coe + seq (coe v15) + (coe + seq (coe v10) + (let v18 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe v16) (coe v12) in + coe + (case coe v18 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v19 + -> let v20 + = coe + d_isCaseReduce'63'_26 + v0 + (coe + MAlonzo.Code.Untyped.Reduction.du_iterApp_242 + (coe v19) + (coe v17)) + v2 in + coe + (case coe v20 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v21 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe + C_casereduce_18 + v19 v21) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v24 v25 v26 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v24 v25 v26 + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CaseReduceT_44 + v1 v2 + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v5) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + MAlonzo.Code.VerifiedCompilation.Trace.d_CaseReduceT_44 v1 v2) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.UCaseReduce..extendedlambda0 +d_'46'extendedlambda0_58 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + (MAlonzo.Code.VerifiedCompilation.UntypedViews.T_isCase_576 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + T_CaseReduce_4 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda0_58 = erased +-- VerifiedCompilation.UCaseReduce..extendedlambda1 +d_'46'extendedlambda1_86 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + Integer -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + T_CaseReduce_4 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda1_86 = erased +-- VerifiedCompilation.UCaseReduce..extendedlambda2 +d_'46'extendedlambda2_90 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + Integer -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda2_90 = erased +-- VerifiedCompilation.UCaseReduce..extendedlambda3 +d_'46'extendedlambda3_142 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> + () -> + () -> + MAlonzo.Code.Utils.T_Either_6 + MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> + AgdaAny -> + AgdaAny -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + Integer -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + T_CaseReduce_4 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda3_142 = erased +-- VerifiedCompilation.UCaseReduce.UCaseReduce +d_UCaseReduce_150 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_UCaseReduce_150 = erased +-- VerifiedCompilation.UCaseReduce.ast₁ +d_ast'8321'_152 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_ast'8321'_152 + = coe + MAlonzo.Code.Untyped.C_case_40 + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: Integer)) + (coe + MAlonzo.Code.Data.List.Base.du_'91'_'93'_270 + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (99 :: Integer))))) + (coe + MAlonzo.Code.Data.List.Base.du_'91'_'93'_270 + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))) +-- VerifiedCompilation.UCaseReduce.ast₁' +d_ast'8321'''_154 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_ast'8321'''_154 + = coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (99 :: Integer))) +-- VerifiedCompilation.UCaseReduce.ast +d_ast_158 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_ast_158 + = coe + MAlonzo.Code.Untyped.C_case_40 + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (1 :: Integer)) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (12 :: Integer))) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (42 :: Integer))) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)))) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))))) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C_case_40 + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: Integer)) + (coe + MAlonzo.Code.Data.List.Base.du_'91'_'93'_270 + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (99 :: Integer))))) + (coe + MAlonzo.Code.Data.List.Base.du_'91'_'93'_270 + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)))))) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16))) +-- VerifiedCompilation.UCaseReduce.ast' +d_ast''_160 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_ast''_160 + = coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (42 :: Integer))) + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (99 :: Integer))) +-- VerifiedCompilation.UCaseReduce.ex1 +d_ex1_162 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_ex1_162 + = coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_builtin_44 + (coe MAlonzo.Code.Builtin.C_subtractInteger_6)) + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))) + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)))))) + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (2 :: Integer)))) + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (3 :: Integer))) +-- VerifiedCompilation.UCaseReduce.ex2 +d_ex2_164 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_ex2_164 + = coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C_builtin_44 + (coe MAlonzo.Code.Builtin.C_subtractInteger_6)) + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)))) + (coe + MAlonzo.Code.Untyped.C_'96'_18 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))))) + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (3 :: Integer)))) + (coe + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (2 :: Integer))) diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UFloatDelay.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UFloatDelay.hs index 048f2a7a446..a38a629d4d5 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UFloatDelay.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UFloatDelay.hs @@ -773,7 +773,7 @@ d_'46'extendedlambda10_582 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -791,7 +791,7 @@ d_'46'extendedlambda11_630 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Untyped.T__'8866'_14 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceCaseDelay.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceCaseDelay.hs index 256b8a64df2..cf88bb5ae59 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceCaseDelay.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceCaseDelay.hs @@ -382,7 +382,7 @@ d_'46'extendedlambda4_228 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> [MAlonzo.Code.Untyped.T__'8866'_14] -> @@ -401,7 +401,7 @@ d_'46'extendedlambda5_280 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Untyped.T__'8866'_14 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs index b3d0a1c28ae..47dd24d61f3 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs @@ -421,11 +421,11 @@ d_forceDelaySimpleBefore_144 MAlonzo.Code.Untyped.C_'96'_18 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))))))))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (1 :: Integer))))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (1 :: Integer))))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (2 :: Integer))))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (2 :: Integer))))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (3 :: Integer))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (3 :: Integer))) -- VerifiedCompilation.UForceDelay.forceDelaySimpleAfter d_forceDelaySimpleAfter_146 :: MAlonzo.Code.Untyped.T__'8866'_14 d_forceDelaySimpleAfter_146 @@ -445,11 +445,11 @@ d_forceDelaySimpleAfter_146 MAlonzo.Code.Untyped.C_'96'_18 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (1 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (1 :: Integer)))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (2 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (2 :: Integer)))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (3 :: Integer))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (3 :: Integer))) -- VerifiedCompilation.UForceDelay.forceDelaySimple d_forceDelaySimple_148 :: T_FD_112 d_forceDelaySimple_148 @@ -485,17 +485,17 @@ d_forceDelaySimple_148 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 (coe (0 :: Integer)) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (1 :: Integer)))))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (1 :: Integer)))))) (coe MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 (coe (0 :: Integer)) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (2 :: Integer)))))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (2 :: Integer)))))) (coe MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 (coe (0 :: Integer)) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (3 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (3 :: Integer)))) -- VerifiedCompilation.UForceDelay.lastDelayBreak d_lastDelayBreak_150 :: T_FD_112 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 @@ -521,15 +521,15 @@ d_ast0_170 MAlonzo.Code.Untyped.C_builtin_44 (coe MAlonzo.Code.Builtin.C_ifThenElse_60))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (1 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (1 :: Integer)))) (coe MAlonzo.Code.Untyped.C_delay_26 (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (1 :: Integer))))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (1 :: Integer))))) (coe MAlonzo.Code.Untyped.C_delay_26 (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (2 :: Integer))))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (2 :: Integer))))) -- VerifiedCompilation.UForceDelay.ast1 d_ast1_172 :: MAlonzo.Code.Untyped.T__'8866'_14 d_ast1_172 @@ -545,11 +545,11 @@ d_ast1_172 MAlonzo.Code.Untyped.C_builtin_44 (coe MAlonzo.Code.Builtin.C_ifThenElse_60))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (1 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (1 :: Integer)))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (1 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (1 :: Integer)))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (2 :: Integer))) + MAlonzo.Code.Untyped.du_con'45'integer_336 (coe (2 :: Integer))) -- VerifiedCompilation.UForceDelay.ifThenElseProof d_ifThenElseProof_174 :: T_FD_112 d_ifThenElseProof_174 @@ -2255,7 +2255,7 @@ d_'46'extendedlambda2_246 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> T_FD_112 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 d_'46'extendedlambda2_246 = erased @@ -2273,7 +2273,7 @@ d_'46'extendedlambda3_320 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> (MAlonzo.Code.VerifiedCompilation.UntypedViews.T_isForce_270 -> @@ -2292,7 +2292,7 @@ d_'46'extendedlambda4_348 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> @@ -2322,7 +2322,7 @@ d_'46'extendedlambda6_476 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -2334,7 +2334,7 @@ d_'46'extendedlambda6_476 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> T_FD_112 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 d_'46'extendedlambda6_476 = erased @@ -2354,7 +2354,7 @@ d_'46'extendedlambda7_518 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> T_FD_112 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 d_'46'extendedlambda7_518 = erased @@ -2381,7 +2381,7 @@ d_'46'extendedlambda8_634 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> @@ -2410,7 +2410,7 @@ d_'46'extendedlambda9_688 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> @@ -2434,7 +2434,7 @@ d_'46'extendedlambda10_750 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> @@ -2446,7 +2446,7 @@ d_'46'extendedlambda10_750 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> @@ -2470,7 +2470,7 @@ d_'46'extendedlambda11_814 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> @@ -2481,7 +2481,7 @@ d_'46'extendedlambda11_814 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> @@ -2506,7 +2506,7 @@ d_'46'extendedlambda12_880 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Builtin.T_Builtin_2 -> @@ -2516,7 +2516,7 @@ d_'46'extendedlambda12_880 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> @@ -2546,7 +2546,7 @@ d_'46'extendedlambda13_1034 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> @@ -2567,7 +2567,7 @@ d_'46'extendedlambda14_1074 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> @@ -2584,7 +2584,7 @@ d_'46'extendedlambda15_1190 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> (T_FD_112 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> @@ -2592,7 +2592,7 @@ d_'46'extendedlambda15_1190 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> (MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> @@ -2610,7 +2610,7 @@ d_'46'extendedlambda16_1214 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> (MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> @@ -2629,7 +2629,7 @@ d_'46'extendedlambda17_1238 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> (MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> @@ -2661,7 +2661,7 @@ d_'46'extendedlambda19_1340 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> (MAlonzo.Code.VerifiedCompilation.UntypedViews.T_isDelay_356 -> @@ -2681,7 +2681,7 @@ d_'46'extendedlambda20_1454 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> (T_FD_112 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> @@ -2689,7 +2689,7 @@ d_'46'extendedlambda20_1454 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -2706,7 +2706,7 @@ d_'46'extendedlambda21_1480 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -2724,7 +2724,7 @@ d_'46'extendedlambda22_1506 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -2742,7 +2742,7 @@ d_'46'extendedlambda23_1574 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> (MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> @@ -2780,7 +2780,7 @@ d_'46'extendedlambda25_1698 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> (MAlonzo.Code.VerifiedCompilation.UntypedViews.T_isForce_270 -> @@ -2803,7 +2803,7 @@ d_'46'extendedlambda26_1732 :: () -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedTranslation.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedTranslation.hs index e5406553a0c..95286113883 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedTranslation.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedTranslation.hs @@ -87,7 +87,7 @@ d_translation'63'_164 :: MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -101,7 +101,7 @@ du_translation'63'_164 :: Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -2927,7 +2927,7 @@ d_decPointwiseTranslation'63'_176 :: MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -2941,7 +2941,7 @@ du_decPointwiseTranslation'63'_176 :: Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs index 8909eaaf35c..95b576b95cb 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs @@ -985,21 +985,25 @@ newtype T_builtin'7510'_968 = C_builtin'33'_974 AgdaAny -- VerifiedCompilation.UntypedViews.errorᵖ d_error'7510'_976 a0 a1 = () data T_error'7510'_976 = C_error'33'_978 +-- VerifiedCompilation.UntypedViews.Letᵖ_Inᵖ_ +d_Let'7510'_In'7510'__986 a0 a1 a2 a3 = () +data T_Let'7510'_In'7510'__986 + = C_Let'33'_In'33'__996 AgdaAny AgdaAny -- VerifiedCompilation.UntypedViews.`? -d_'96''63'_982 :: +d_'96''63'_1000 :: Integer -> (MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> ()) -> (MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_'96''63'_982 ~v0 ~v1 v2 v3 = du_'96''63'_982 v2 v3 -du_'96''63'_982 :: +d_'96''63'_1000 ~v0 ~v1 v2 v3 = du_'96''63'_1000 v2 v3 +du_'96''63'_1000 :: (MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_'96''63'_982 v0 v1 +du_'96''63'_1000 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> let v3 = coe v0 v2 in @@ -1070,20 +1074,20 @@ du_'96''63'_982 v0 v1 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.ƛ? -d_ƛ'63'_1082 :: +d_ƛ'63'_1100 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> (MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_ƛ'63'_1082 ~v0 ~v1 v2 v3 = du_ƛ'63'_1082 v2 v3 -du_ƛ'63'_1082 :: +d_ƛ'63'_1100 ~v0 ~v1 v2 v3 = du_ƛ'63'_1100 v2 v3 +du_ƛ'63'_1100 :: (MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_ƛ'63'_1082 v0 v1 +du_ƛ'63'_1100 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe @@ -1154,7 +1158,7 @@ du_ƛ'63'_1082 v0 v1 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews._·?_ -d__'183''63'__1184 :: +d__'183''63'__1202 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> @@ -1164,16 +1168,16 @@ d__'183''63'__1184 :: MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d__'183''63'__1184 ~v0 ~v1 ~v2 v3 v4 v5 - = du__'183''63'__1184 v3 v4 v5 -du__'183''63'__1184 :: +d__'183''63'__1202 ~v0 ~v1 ~v2 v3 v4 v5 + = du__'183''63'__1202 v3 v4 v5 +du__'183''63'__1202 :: (MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> (MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du__'183''63'__1184 v0 v1 v2 +du__'183''63'__1202 v0 v1 v2 = case coe v2 of MAlonzo.Code.Untyped.C_'96'_18 v3 -> coe @@ -1250,20 +1254,20 @@ du__'183''63'__1184 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.force? -d_force'63'_1298 :: +d_force'63'_1316 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> (MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_force'63'_1298 ~v0 ~v1 v2 v3 = du_force'63'_1298 v2 v3 -du_force'63'_1298 :: +d_force'63'_1316 ~v0 ~v1 v2 v3 = du_force'63'_1316 v2 v3 +du_force'63'_1316 :: (MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_force'63'_1298 v0 v1 +du_force'63'_1316 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe @@ -1334,20 +1338,20 @@ du_force'63'_1298 v0 v1 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.delay? -d_delay'63'_1376 :: +d_delay'63'_1394 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> (MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_delay'63'_1376 ~v0 ~v1 v2 v3 = du_delay'63'_1376 v2 v3 -du_delay'63'_1376 :: +d_delay'63'_1394 ~v0 ~v1 v2 v3 = du_delay'63'_1394 v2 v3 +du_delay'63'_1394 :: (MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_delay'63'_1376 v0 v1 +du_delay'63'_1394 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe @@ -1418,7 +1422,7 @@ du_delay'63'_1376 v0 v1 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.case? -d_case'63'_1456 :: +d_case'63'_1474 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> ([MAlonzo.Code.Untyped.T__'8866'_14] -> ()) -> @@ -1428,15 +1432,15 @@ d_case'63'_1456 :: MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_case'63'_1456 ~v0 ~v1 ~v2 v3 v4 v5 = du_case'63'_1456 v3 v4 v5 -du_case'63'_1456 :: +d_case'63'_1474 ~v0 ~v1 ~v2 v3 v4 v5 = du_case'63'_1474 v3 v4 v5 +du_case'63'_1474 :: (MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> ([MAlonzo.Code.Untyped.T__'8866'_14] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_case'63'_1456 v0 v1 v2 +du_case'63'_1474 v0 v1 v2 = case coe v2 of MAlonzo.Code.Untyped.C_'96'_18 v3 -> coe @@ -1513,7 +1517,7 @@ du_case'63'_1456 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.constr? -d_constr'63'_1572 :: +d_constr'63'_1590 :: Integer -> (Integer -> ()) -> ([MAlonzo.Code.Untyped.T__'8866'_14] -> ()) -> @@ -1523,16 +1527,16 @@ d_constr'63'_1572 :: MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_constr'63'_1572 ~v0 ~v1 ~v2 v3 v4 v5 - = du_constr'63'_1572 v3 v4 v5 -du_constr'63'_1572 :: +d_constr'63'_1590 ~v0 ~v1 ~v2 v3 v4 v5 + = du_constr'63'_1590 v3 v4 v5 +du_constr'63'_1590 :: (Integer -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> ([MAlonzo.Code.Untyped.T__'8866'_14] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_constr'63'_1572 v0 v1 v2 +du_constr'63'_1590 v0 v1 v2 = case coe v2 of MAlonzo.Code.Untyped.C_'96'_18 v3 -> coe @@ -1609,20 +1613,20 @@ du_constr'63'_1572 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.con? -d_con'63'_1686 :: +d_con'63'_1704 :: Integer -> (MAlonzo.Code.RawU.T_TmCon_202 -> ()) -> (MAlonzo.Code.RawU.T_TmCon_202 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_con'63'_1686 ~v0 ~v1 v2 v3 = du_con'63'_1686 v2 v3 -du_con'63'_1686 :: +d_con'63'_1704 ~v0 ~v1 v2 v3 = du_con'63'_1704 v2 v3 +du_con'63'_1704 :: (MAlonzo.Code.RawU.T_TmCon_202 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_con'63'_1686 v0 v1 +du_con'63'_1704 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe @@ -1693,20 +1697,20 @@ du_con'63'_1686 v0 v1 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.builtin? -d_builtin'63'_1764 :: +d_builtin'63'_1782 :: Integer -> (MAlonzo.Code.Builtin.T_Builtin_2 -> ()) -> (MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_builtin'63'_1764 ~v0 ~v1 v2 v3 = du_builtin'63'_1764 v2 v3 -du_builtin'63'_1764 :: +d_builtin'63'_1782 ~v0 ~v1 v2 v3 = du_builtin'63'_1782 v2 v3 +du_builtin'63'_1782 :: (MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_builtin'63'_1764 v0 v1 +du_builtin'63'_1782 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe @@ -1777,15 +1781,15 @@ du_builtin'63'_1764 v0 v1 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.error? -d_error'63'_1840 :: +d_error'63'_1858 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_error'63'_1840 ~v0 v1 = du_error'63'_1840 v1 -du_error'63'_1840 :: +d_error'63'_1858 ~v0 v1 = du_error'63'_1858 v1 +du_error'63'_1858 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_error'63'_1840 v0 +du_error'63'_1858 v0 = case coe v0 of MAlonzo.Code.Untyped.C_'96'_18 v1 -> coe @@ -1840,28 +1844,172 @@ du_error'63'_1840 v0 MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 (coe C_error'33'_978)) _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UntypedViews.Let?_In?_ +d_Let'63'_In'63'__1890 :: + Integer -> + (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + (MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_Let'63'_In'63'__1890 ~v0 ~v1 ~v2 v3 v4 v5 + = du_Let'63'_In'63'__1890 v3 v4 v5 +du_Let'63'_In'63'__1890 :: + (MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + (MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_Let'63'_In'63'__1890 v0 v1 v2 + = case coe v2 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> case coe v3 of + MAlonzo.Code.Untyped.C_'96'_18 v5 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_ƛ_20 v5 + -> let v6 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v0 v4) (coe v1 v5) in + coe + (case coe v6 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v7 v8 + -> if coe v7 + then case coe v8 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v9 + -> case coe v9 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v10 v11 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_Let'33'_In'33'__996 v10 v11)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C__'183'__22 v5 v6 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_force_24 v5 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_delay_26 v5 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_con_28 v5 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_constr_34 v5 v6 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_case_40 v5 v6 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_builtin_44 v5 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_con_28 v3 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_builtin_44 v3 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.match -d_match_1870 a0 a1 = () -data T_match_1870 = C_match'33'_1876 +d_match_2098 a0 a1 = () +data T_match_2098 = C_match'33'_2104 -- VerifiedCompilation.UntypedViews.⋯ -d_'8943'_1880 :: +d_'8943'_2108 :: () -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_'8943'_1880 ~v0 ~v1 = du_'8943'_1880 -du_'8943'_1880 :: +d_'8943'_2108 ~v0 ~v1 = du_'8943'_2108 +du_'8943'_2108 :: MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_'8943'_1880 +du_'8943'_2108 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10) (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 - (coe C_match'33'_1876)) + (coe C_match'33'_2104)) -- VerifiedCompilation.UntypedViews._∷ᵖ_ -d__'8759''7510'__1890 a0 a1 a2 a3 = () -data T__'8759''7510'__1890 = C__'8759''33'__1902 AgdaAny AgdaAny +d__'8759''7510'__2118 a0 a1 a2 a3 = () +data T__'8759''7510'__2118 = C__'8759''33'__2130 AgdaAny AgdaAny -- VerifiedCompilation.UntypedViews._∷?_ -d__'8759''63'__1910 :: +d__'8759''63'__2138 :: () -> (AgdaAny -> ()) -> ([AgdaAny] -> ()) -> @@ -1870,15 +2018,15 @@ d__'8759''63'__1910 :: ([AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> [AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d__'8759''63'__1910 ~v0 ~v1 ~v2 v3 v4 v5 - = du__'8759''63'__1910 v3 v4 v5 -du__'8759''63'__1910 :: +d__'8759''63'__2138 ~v0 ~v1 ~v2 v3 v4 v5 + = du__'8759''63'__2138 v3 v4 v5 +du__'8759''63'__2138 :: (AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> ([AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> [AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du__'8759''63'__1910 v0 v1 v2 +du__'8759''63'__2138 v0 v1 v2 = case coe v2 of [] -> coe @@ -1903,7 +2051,7 @@ du__'8759''63'__1910 v0 v1 v2 (coe v6) (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 - (coe C__'8759''33'__1902 v9 v10)) + (coe C__'8759''33'__2130 v9 v10)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError else coe @@ -1915,16 +2063,16 @@ du__'8759''63'__1910 v0 v1 v2 _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.[]ᵖ -d_'91''93''7510'_1958 a0 a1 = () -data T_'91''93''7510'_1958 = C_'91''93''33'_1962 +d_'91''93''7510'_2186 a0 a1 = () +data T_'91''93''7510'_2186 = C_'91''93''33'_2190 -- VerifiedCompilation.UntypedViews.[]? -d_'91''93''63'_1966 :: +d_'91''93''63'_2194 :: () -> [AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_'91''93''63'_1966 ~v0 v1 = du_'91''93''63'_1966 v1 -du_'91''93''63'_1966 :: +d_'91''93''63'_2194 ~v0 v1 = du_'91''93''63'_2194 v1 +du_'91''93''63'_2194 :: [AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_'91''93''63'_1966 v0 +du_'91''93''63'_2194 v0 = case coe v0 of [] -> coe @@ -1938,214 +2086,232 @@ du_'91''93''63'_1966 v0 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.singleton? -d_singleton'63'_1970 :: +d_singleton'63'_2198 :: () -> [AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_singleton'63'_1970 ~v0 = du_singleton'63'_1970 -du_singleton'63'_1970 :: +d_singleton'63'_2198 ~v0 = du_singleton'63'_2198 +du_singleton'63'_2198 :: [AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_singleton'63'_1970 +du_singleton'63'_2198 = coe - du__'8759''63'__1910 (\ v0 -> coe du_'8943'_1880) - (coe du_'91''93''63'_1966) + du__'8759''63'__2138 (\ v0 -> coe du_'8943'_2108) + (coe du_'91''93''63'_2194) -- VerifiedCompilation.UntypedViews.Inhabited -d_Inhabited_1980 a0 = () -newtype T_Inhabited_1980 = C_inh_1988 AgdaAny +d_Inhabited_2208 a0 = () +newtype T_Inhabited_2208 = C_inh_2216 AgdaAny -- VerifiedCompilation.UntypedViews.Inhabited.inhabitant -d_inhabitant_1986 :: T_Inhabited_1980 -> AgdaAny -d_inhabitant_1986 v0 +d_inhabitant_2214 :: T_Inhabited_2208 -> AgdaAny +d_inhabitant_2214 v0 = case coe v0 of - C_inh_1988 v1 -> coe v1 + C_inh_2216 v1 -> coe v1 _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews._.inhabitant -d_inhabitant_1992 :: T_Inhabited_1980 -> AgdaAny -d_inhabitant_1992 v0 = coe d_inhabitant_1986 (coe v0) +d_inhabitant_2220 :: T_Inhabited_2208 -> AgdaAny +d_inhabitant_2220 v0 = coe d_inhabitant_2214 (coe v0) -- VerifiedCompilation.UntypedViews.inh-var -d_inh'45'var_1998 :: +d_inh'45'var_2226 :: MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> (MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> ()) -> - T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45'var_1998 ~v0 ~v1 v2 = du_inh'45'var_1998 v2 -du_inh'45'var_1998 :: T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45'var_1998 v0 - = coe C_inh_1988 (coe C_'96''33'_864 (d_inhabitant_1986 (coe v0))) + T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45'var_2226 ~v0 ~v1 v2 = du_inh'45'var_2226 v2 +du_inh'45'var_2226 :: T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45'var_2226 v0 + = coe C_inh_2216 (coe C_'96''33'_864 (d_inhabitant_2214 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-lam -d_inh'45'lam_2010 :: +d_inh'45'lam_2238 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> - T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45'lam_2010 ~v0 ~v1 ~v2 v3 = du_inh'45'lam_2010 v3 -du_inh'45'lam_2010 :: T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45'lam_2010 v0 - = coe C_inh_1988 (coe C_ƛ'33'_876 (d_inhabitant_1986 (coe v0))) + T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45'lam_2238 ~v0 ~v1 ~v2 v3 = du_inh'45'lam_2238 v3 +du_inh'45'lam_2238 :: T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45'lam_2238 v0 + = coe C_inh_2216 (coe C_ƛ'33'_876 (d_inhabitant_2214 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-app -d_inh'45'app_2022 :: +d_inh'45'app_2250 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - T_Inhabited_1980 -> T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45'app_2022 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 - = du_inh'45'app_2022 v5 v6 -du_inh'45'app_2022 :: - T_Inhabited_1980 -> T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45'app_2022 v0 v1 + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45'app_2250 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 + = du_inh'45'app_2250 v5 v6 +du_inh'45'app_2250 :: + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45'app_2250 v0 v1 = coe - C_inh_1988 + C_inh_2216 (coe - C__'183''33'__894 (d_inhabitant_1986 (coe v0)) - (d_inhabitant_1986 (coe v1))) + C__'183''33'__894 (d_inhabitant_2214 (coe v0)) + (d_inhabitant_2214 (coe v1))) -- VerifiedCompilation.UntypedViews.inh-force -d_inh'45'force_2030 :: +d_inh'45'force_2258 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> MAlonzo.Code.Untyped.T__'8866'_14 -> - T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45'force_2030 ~v0 ~v1 ~v2 v3 = du_inh'45'force_2030 v3 -du_inh'45'force_2030 :: T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45'force_2030 v0 - = coe C_inh_1988 (coe C_force'33'_906 (d_inhabitant_1986 (coe v0))) + T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45'force_2258 ~v0 ~v1 ~v2 v3 = du_inh'45'force_2258 v3 +du_inh'45'force_2258 :: T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45'force_2258 v0 + = coe C_inh_2216 (coe C_force'33'_906 (d_inhabitant_2214 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-delay -d_inh'45'delay_2038 :: +d_inh'45'delay_2266 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> MAlonzo.Code.Untyped.T__'8866'_14 -> - T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45'delay_2038 ~v0 ~v1 ~v2 v3 = du_inh'45'delay_2038 v3 -du_inh'45'delay_2038 :: T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45'delay_2038 v0 - = coe C_inh_1988 (coe C_delay'33'_918 (d_inhabitant_1986 (coe v0))) + T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45'delay_2266 ~v0 ~v1 ~v2 v3 = du_inh'45'delay_2266 v3 +du_inh'45'delay_2266 :: T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45'delay_2266 v0 + = coe C_inh_2216 (coe C_delay'33'_918 (d_inhabitant_2214 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-case -d_inh'45'case_2050 :: +d_inh'45'case_2278 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> ([MAlonzo.Code.Untyped.T__'8866'_14] -> ()) -> MAlonzo.Code.Untyped.T__'8866'_14 -> [MAlonzo.Code.Untyped.T__'8866'_14] -> - T_Inhabited_1980 -> T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45'case_2050 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 - = du_inh'45'case_2050 v5 v6 -du_inh'45'case_2050 :: - T_Inhabited_1980 -> T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45'case_2050 v0 v1 + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45'case_2278 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 + = du_inh'45'case_2278 v5 v6 +du_inh'45'case_2278 :: + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45'case_2278 v0 v1 = coe - C_inh_1988 + C_inh_2216 (coe - C_case'33'_936 (d_inhabitant_1986 (coe v0)) - (d_inhabitant_1986 (coe v1))) + C_case'33'_936 (d_inhabitant_2214 (coe v0)) + (d_inhabitant_2214 (coe v1))) -- VerifiedCompilation.UntypedViews.inh-constr -d_inh'45'constr_2062 :: +d_inh'45'constr_2290 :: Integer -> (Integer -> ()) -> ([MAlonzo.Code.Untyped.T__'8866'_14] -> ()) -> Integer -> [MAlonzo.Code.Untyped.T__'8866'_14] -> - T_Inhabited_1980 -> T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45'constr_2062 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 - = du_inh'45'constr_2062 v5 v6 -du_inh'45'constr_2062 :: - T_Inhabited_1980 -> T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45'constr_2062 v0 v1 + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45'constr_2290 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 + = du_inh'45'constr_2290 v5 v6 +du_inh'45'constr_2290 :: + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45'constr_2290 v0 v1 = coe - C_inh_1988 + C_inh_2216 (coe - C_constr'33'_954 (d_inhabitant_1986 (coe v0)) - (d_inhabitant_1986 (coe v1))) + C_constr'33'_954 (d_inhabitant_2214 (coe v0)) + (d_inhabitant_2214 (coe v1))) -- VerifiedCompilation.UntypedViews.inh-builtin -d_inh'45'builtin_2070 :: +d_inh'45'builtin_2298 :: Integer -> (MAlonzo.Code.Builtin.T_Builtin_2 -> ()) -> MAlonzo.Code.Builtin.T_Builtin_2 -> - T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45'builtin_2070 ~v0 ~v1 ~v2 v3 = du_inh'45'builtin_2070 v3 -du_inh'45'builtin_2070 :: T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45'builtin_2070 v0 + T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45'builtin_2298 ~v0 ~v1 ~v2 v3 = du_inh'45'builtin_2298 v3 +du_inh'45'builtin_2298 :: T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45'builtin_2298 v0 = coe - C_inh_1988 (coe C_builtin'33'_974 (d_inhabitant_1986 (coe v0))) + C_inh_2216 (coe C_builtin'33'_974 (d_inhabitant_2214 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-con -d_inh'45'con_2078 :: +d_inh'45'con_2306 :: Integer -> (MAlonzo.Code.RawU.T_TmCon_202 -> ()) -> MAlonzo.Code.RawU.T_TmCon_202 -> - T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45'con_2078 ~v0 ~v1 ~v2 v3 = du_inh'45'con_2078 v3 -du_inh'45'con_2078 :: T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45'con_2078 v0 - = coe C_inh_1988 (coe C_con'33'_964 (d_inhabitant_1986 (coe v0))) + T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45'con_2306 ~v0 ~v1 ~v2 v3 = du_inh'45'con_2306 v3 +du_inh'45'con_2306 :: T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45'con_2306 v0 + = coe C_inh_2216 (coe C_con'33'_964 (d_inhabitant_2214 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-error -d_inh'45'error_2082 :: Integer -> T_Inhabited_1980 -d_inh'45'error_2082 ~v0 = du_inh'45'error_2082 -du_inh'45'error_2082 :: T_Inhabited_1980 -du_inh'45'error_2082 = coe C_inh_1988 (coe C_error'33'_978) +d_inh'45'error_2310 :: Integer -> T_Inhabited_2208 +d_inh'45'error_2310 ~v0 = du_inh'45'error_2310 +du_inh'45'error_2310 :: T_Inhabited_2208 +du_inh'45'error_2310 = coe C_inh_2216 (coe C_error'33'_978) +-- VerifiedCompilation.UntypedViews.inh-let +d_inh'45'let_2322 :: + Integer -> + (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45'let_2322 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 + = du_inh'45'let_2322 v5 v6 +du_inh'45'let_2322 :: + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45'let_2322 v0 v1 + = coe + C_inh_2216 + (coe + C_Let'33'_In'33'__996 (d_inhabitant_2214 (coe v0)) + (d_inhabitant_2214 (coe v1))) -- VerifiedCompilation.UntypedViews.inh-match -d_inh'45'match_2088 :: () -> AgdaAny -> T_Inhabited_1980 -d_inh'45'match_2088 ~v0 ~v1 = du_inh'45'match_2088 -du_inh'45'match_2088 :: T_Inhabited_1980 -du_inh'45'match_2088 = coe C_inh_1988 (coe C_match'33'_1876) +d_inh'45'match_2328 :: () -> AgdaAny -> T_Inhabited_2208 +d_inh'45'match_2328 ~v0 ~v1 = du_inh'45'match_2328 +du_inh'45'match_2328 :: T_Inhabited_2208 +du_inh'45'match_2328 = coe C_inh_2216 (coe C_match'33'_2104) -- VerifiedCompilation.UntypedViews.inh-× -d_inh'45''215'_2094 :: +d_inh'45''215'_2334 :: () -> - () -> T_Inhabited_1980 -> T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45''215'_2094 ~v0 ~v1 v2 v3 = du_inh'45''215'_2094 v2 v3 -du_inh'45''215'_2094 :: - T_Inhabited_1980 -> T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45''215'_2094 v0 v1 + () -> T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45''215'_2334 ~v0 ~v1 v2 v3 = du_inh'45''215'_2334 v2 v3 +du_inh'45''215'_2334 :: + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45''215'_2334 v0 v1 = coe - C_inh_1988 + C_inh_2216 (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 - (coe d_inhabitant_1986 (coe v0)) (coe d_inhabitant_1986 (coe v1))) + (coe d_inhabitant_2214 (coe v0)) (coe d_inhabitant_2214 (coe v1))) -- VerifiedCompilation.UntypedViews.inh-≡ -d_inh'45''8801'_2100 :: () -> AgdaAny -> T_Inhabited_1980 -d_inh'45''8801'_2100 ~v0 ~v1 = du_inh'45''8801'_2100 -du_inh'45''8801'_2100 :: T_Inhabited_1980 -du_inh'45''8801'_2100 = coe C_inh_1988 erased +d_inh'45''8801'_2340 :: () -> AgdaAny -> T_Inhabited_2208 +d_inh'45''8801'_2340 ~v0 ~v1 = du_inh'45''8801'_2340 +du_inh'45''8801'_2340 :: T_Inhabited_2208 +du_inh'45''8801'_2340 = coe C_inh_2216 erased -- VerifiedCompilation.UntypedViews.inh-∷ᵖ -d_inh'45''8759''7510'_2112 :: +d_inh'45''8759''7510'_2352 :: () -> AgdaAny -> [AgdaAny] -> (AgdaAny -> ()) -> ([AgdaAny] -> ()) -> - T_Inhabited_1980 -> T_Inhabited_1980 -> T_Inhabited_1980 -d_inh'45''8759''7510'_2112 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 - = du_inh'45''8759''7510'_2112 v5 v6 -du_inh'45''8759''7510'_2112 :: - T_Inhabited_1980 -> T_Inhabited_1980 -> T_Inhabited_1980 -du_inh'45''8759''7510'_2112 v0 v1 + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +d_inh'45''8759''7510'_2352 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 + = du_inh'45''8759''7510'_2352 v5 v6 +du_inh'45''8759''7510'_2352 :: + T_Inhabited_2208 -> T_Inhabited_2208 -> T_Inhabited_2208 +du_inh'45''8759''7510'_2352 v0 v1 = coe - C_inh_1988 + C_inh_2216 (coe - C__'8759''33'__1902 (d_inhabitant_1986 (coe v0)) - (d_inhabitant_1986 (coe v1))) + C__'8759''33'__2130 (d_inhabitant_2214 (coe v0)) + (d_inhabitant_2214 (coe v1))) -- VerifiedCompilation.UntypedViews.inh-[]ᵖ -d_inh'45''91''93''7510'_2116 :: () -> T_Inhabited_1980 -d_inh'45''91''93''7510'_2116 ~v0 = du_inh'45''91''93''7510'_2116 -du_inh'45''91''93''7510'_2116 :: T_Inhabited_1980 -du_inh'45''91''93''7510'_2116 = coe C_inh_1988 erased +d_inh'45''91''93''7510'_2356 :: () -> T_Inhabited_2208 +d_inh'45''91''93''7510'_2356 ~v0 = du_inh'45''91''93''7510'_2356 +du_inh'45''91''93''7510'_2356 :: T_Inhabited_2208 +du_inh'45''91''93''7510'_2356 = coe C_inh_2216 erased -- VerifiedCompilation.UntypedViews.AddComm -d_AddComm_2118 a0 a1 a2 = () -data T_AddComm_2118 = C_addComm_2124 +d_AddComm_2358 a0 a1 a2 = () +data T_AddComm_2358 = C_addComm_2364 -- VerifiedCompilation.UntypedViews.addComm? -d_addComm'63'_2130 :: +d_addComm'63'_2370 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_addComm'63'_2130 v0 v1 v2 +d_addComm'63'_2370 v0 v1 v2 = let v3 = coe - du__'183''63'__1184 + du__'183''63'__1202 (coe - du_builtin'63'_1764 + du_builtin'63'_1782 (coe MAlonzo.Code.Builtin.d_decBuiltin_440 (coe MAlonzo.Code.Builtin.C_addInteger_4))) - (\ v3 -> coe du_'8943'_1880) in + (\ v3 -> coe du_'8943'_2108) in coe - (let v4 = \ v4 -> coe du_'8943'_1880 in + (let v4 = \ v4 -> coe du_'8943'_2108 in coe (case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v5 @@ -2211,9 +2377,9 @@ d_addComm'63'_2130 v0 v1 v2 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 (coe - du__'183''63'__1184 + du__'183''63'__1202 (coe - du_builtin'63'_1764 + du_builtin'63'_1782 (coe MAlonzo.Code.Builtin.d_decBuiltin_440 (coe @@ -2257,7 +2423,7 @@ d_addComm'63'_2130 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 (coe - C_addComm_2124))) + C_addComm_2364))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -2297,7 +2463,7 @@ d_addComm'63'_2130 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 (coe - C_addComm_2124))) + C_addComm_2364))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -2436,9 +2602,9 @@ d_addComm'63'_2130 v0 v1 v2 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 (coe - du__'183''63'__1184 + du__'183''63'__1202 (coe - du_builtin'63'_1764 + du_builtin'63'_1782 (coe MAlonzo.Code.Builtin.d_decBuiltin_440 (coe @@ -2484,7 +2650,7 @@ d_addComm'63'_2130 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 (coe - C_addComm_2124))) + C_addComm_2364))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -2524,7 +2690,7 @@ d_addComm'63'_2130 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 (coe - C_addComm_2124))) + C_addComm_2364))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/Untyped.lagda.md b/plutus-metatheory/src/Untyped.lagda.md index 92859514d39..4648f23a520 100644 --- a/plutus-metatheory/src/Untyped.lagda.md +++ b/plutus-metatheory/src/Untyped.lagda.md @@ -59,6 +59,9 @@ data _⊢ (n : ℕ) : Set where case : (t : n ⊢) → (ts : L.List (n ⊢)) → n ⊢ builtin : (b : Builtin) → n ⊢ error : n ⊢ + +pattern Let_In_ rhs body = ƛ body · rhs +infix 2 Let_In_ ``` ``` diff --git a/plutus-metatheory/src/Untyped/Strictness.lagda.md b/plutus-metatheory/src/Untyped/Strictness.lagda.md index 4b571fb4d27..44cb702bfb0 100644 --- a/plutus-metatheory/src/Untyped/Strictness.lagda.md +++ b/plutus-metatheory/src/Untyped/Strictness.lagda.md @@ -11,11 +11,12 @@ module Untyped.Strictness where ## Imports ``` -open import Untyped using (_⊢; case; builtin; _·_; force; `; ƛ; delay; con; constr; error) +open import Untyped using (_⊢; case; builtin; _·_; force; `; ƛ; delay; con; constr; error; Let_In_) +open import VerifiedCompilation.UntypedViews open import Relation.Nullary using (Dec; yes; no; ¬_) -open import Data.Fin using (Fin) +open import Data.Fin using (Fin; suc) import Data.Fin as Fin using (_≟_) -open import Data.Nat using (ℕ) +open import Data.Nat using (ℕ; suc) open import Data.List using (List; _∷_; []) open import Data.List.Relation.Unary.Any using (Any; here; there) open import Agda.Builtin.Equality using (_≡_; refl) @@ -23,51 +24,116 @@ open import Agda.Builtin.Equality using (_≡_; refl) ## Relation -A variable is strict in a term, if at least one occurrence of the variable does not appear inside any `delay`, `lambda` or `case` branch. -The Haskell implementation is used by the UPLC inliner. +A variable is strict in a term, if at least one occurrence of the variable does not appear inside any `delay`, `lambda` or `case` branch, +with the exception of when a lambda forms a `Let_In_` structure. +The Haskell implementation is used by the UPLC inliner and the UPLC CSE optimizer. This is a sound approximation. Completeness is undecidable. ``` +private variable + n : ℕ + infix 1 _∈↓_ _∈↓?_ -data _∈↓_ {X : ℕ} (x : Fin X) : (X ⊢) → Set where - var : x ∈↓ (` x) - _·ₗ : {M N : X ⊢} → x ∈↓ M → x ∈↓ M · N - ·ᵣ_ : {M N : X ⊢} → x ∈↓ N → x ∈↓ M · N - force : {M : X ⊢} → x ∈↓ M → x ∈↓ force M - constr : {i : ℕ} {Ms : List (X ⊢)} → Any (x ∈↓_) Ms → x ∈↓ constr i Ms - scrut : {M : X ⊢} {Ns : List (X ⊢)} → x ∈↓ M → x ∈↓ case M Ns +data _∈↓_ (v : Fin n) : (n ⊢) → Set where + var : v ∈↓ (` v) + _·ₗ + : {M N : n ⊢} + → v ∈↓ M + → v ∈↓ M · N + ·ᵣ_ + : {M N : n ⊢} + → v ∈↓ N + → v ∈↓ M · N + force + : {M : n ⊢} + → v ∈↓ M + → v ∈↓ force M + constr + : {i : ℕ} {Ms : List (n ⊢)} + → Any (v ∈↓_) Ms + → v ∈↓ constr i Ms + scrut + : {M : n ⊢} {Ns : List (n ⊢)} + → v ∈↓ M + → v ∈↓ case M Ns + let-in + : {M : n ⊢} {N : suc n ⊢} + → suc v ∈↓ N + → v ∈↓ Let M In N ``` ## Decision Procedure ``` -_any-∈↓?_ : {X : ℕ} (x : Fin X) (Ms : List (X ⊢)) → Dec (Any (x ∈↓_) Ms) +_any-∈↓?_ : (v : Fin n) (Ms : List (n ⊢)) → Dec (Any (v ∈↓_) Ms) -_∈↓?_ : {X : ℕ} (x : Fin X) (M : X ⊢) → Dec (x ∈↓ M) -x ∈↓? ` x′ with x Fin.≟ x′ -... | yes refl = yes var -... | no x≢x′ = no λ { var → x≢x′ refl } -x ∈↓? M · N with x ∈↓? M | x ∈↓? N -... | yes l | _ = yes (l ·ₗ) -... | no _ | yes r = yes (·ᵣ r) -... | no ¬l | no ¬r = no λ { (l ·ₗ) → ¬l l ; (·ᵣ r) → ¬r r } -x ∈↓? force M with x ∈↓? M -... | yes p = yes (force p) -... | no ¬p = no λ { (force p) → ¬p p } -x ∈↓? constr i [] = no λ { (constr ()) } -x ∈↓? constr i Ms@(_ ∷ _) with x any-∈↓? Ms -... | yes ps = yes (constr ps) -... | no ¬ps = no λ { (constr ps) → ¬ps ps } -x ∈↓? case M Ns with x ∈↓? M -... | yes p = yes (scrut p) -... | no ¬p = no λ { (scrut p) → ¬p p } -x ∈↓? ƛ M = no λ () -x ∈↓? delay t = no λ () -x ∈↓? con c = no λ () -x ∈↓? builtin b = no λ () -x ∈↓? error = no λ () +_∈↓?_ : (v : Fin n) (M : n ⊢) → Dec (v ∈↓ M) +v ∈↓? M with (`? ⋯) M +... | yes (`! (match! v')) with v Fin.≟ v' +... | yes refl = yes var +... | no ¬refl = no λ { var → ¬refl refl } +v ∈↓? M + | no ¬matchVar with (Let? ⋯ In? ⋯) M +... | yes (Let! (match! rhs) In! (match! body)) with suc v ∈↓? body +... | yes p = yes (let-in p) +... | no ¬p with v ∈↓? rhs +... | yes q = yes (·ᵣ q) +... | no ¬q = no λ + { (·ᵣ x) → ¬q x + ; (let-in x) → ¬p x + } +v ∈↓? M + | no ¬matchVar + | no ¬matchLet with (⋯ ·? ⋯) M +... | yes (match! lhs ·! match! rhs) with v ∈↓? lhs | v ∈↓? rhs +... | yes p | _ = yes (p ·ₗ) +... | _ | yes q = yes (·ᵣ q) +... | no ¬p | no ¬q = no λ + { (x ·ₗ) → ¬p x + ; (·ᵣ x) → ¬q x + ; (let-in x) → ¬matchLet (Let! match! rhs In! match! _) + } +v ∈↓? M + | no ¬matchVar + | no ¬matchLet + | no ¬matchApp with (force? ⋯) M +... | yes (force! (match! M')) with v ∈↓? M' +... | yes p = yes (force p) +... | no ¬p = no λ { (force x) → ¬p x } +v ∈↓? M + | no ¬matchVar + | no ¬matchLet + | no ¬matchApp + | no ¬matchForce with (constr? ⋯ ⋯) M +... | yes (constr! _ (match! Ms)) with v any-∈↓? Ms +... | yes p = yes (constr p) +... | no ¬p = no λ { (constr x) → ¬p x } +v ∈↓? M + | no ¬matchVar + | no ¬matchLet + | no ¬matchApp + | no ¬matchForce + | no ¬matchConstr with (case? ⋯ ⋯) M +... | yes (case! (match! M') _) with v ∈↓? M' +... | yes p = yes (scrut p) +... | no ¬p = no λ { (scrut x) → ¬p x } +v ∈↓? M + | no ¬matchVar + | no ¬matchLet + | no ¬matchApp + | no ¬matchForce + | no ¬matchConstr + | no ¬matchScrut = no λ + { var → ¬matchVar (`! (match! v)) + ; (x ·ₗ) → ¬matchApp (match! _ ·! match! _) + ; (·ᵣ x) → ¬matchApp (match! _ ·! match! _) + ; (force x) → ¬matchForce (force! (match! _)) + ; (constr x) → ¬matchConstr (constr! (match! _) (match! _)) + ; (scrut x) → ¬matchScrut (case! (match! _) (match! _)) + ; (let-in x) → ¬matchApp (match! (ƛ _) ·! match! _) + } -- We could just use `Data.List.Relation.Unary.Any.any?`, but unfortunately the -- termination checker isn't very happy about that. diff --git a/plutus-metatheory/src/VerifiedCompilation.lagda.md b/plutus-metatheory/src/VerifiedCompilation.lagda.md index 7d4af566566..74b57f525a2 100644 --- a/plutus-metatheory/src/VerifiedCompilation.lagda.md +++ b/plutus-metatheory/src/VerifiedCompilation.lagda.md @@ -47,6 +47,7 @@ import VerifiedCompilation.UCaseOfCase as UCC import VerifiedCompilation.UForceDelay as UFD import VerifiedCompilation.UFloatDelay as UFlD import VerifiedCompilation.UForceCaseDelay as UFCD +import VerifiedCompilation.UCSE as UCSE import VerifiedCompilation.UInline as UInline import VerifiedCompilation.UCaseReduce as UCR open import VerifiedCompilation.NotImplemented @@ -75,6 +76,7 @@ tagToRelation floatDelayT = UFlD.FloatDelay tagToRelation forceDelayT = UFD.ForceDelay tagToRelation forceCaseDelayT = UFCD.ForceCaseDelay tagToRelation inlineT = UInline.Inline (λ()) UInline.□ +tagToRelation cseT = UCSE.UntypedCSE tagToRelation applyToCaseT = UA2C.UApplyToCase ``` @@ -99,6 +101,7 @@ certifyPass (inj₂ forceDelayT) _ = decider UFD.isForceDelay? certifyPass (inj₂ forceCaseDelayT) _ = decider UFCD.isForceCaseDelay? certifyPass (inj₂ inlineT) (inline hs) = checker (UInline.top-check hs) certifyPass (inj₂ inlineT) none = λ M M' → abort InlineT M M' +certifyPass (inj₂ cseT) _ = decider UCSE.isUntypedCSE? certifyPass (inj₂ applyToCaseT) _ = decider UA2C.a2c?ᶜᶜ ``` diff --git a/plutus-metatheory/src/VerifiedCompilation/Trace.lagda.md b/plutus-metatheory/src/VerifiedCompilation/Trace.lagda.md index 04c10ac86ad..9ce79a07ed1 100644 --- a/plutus-metatheory/src/VerifiedCompilation/Trace.lagda.md +++ b/plutus-metatheory/src/VerifiedCompilation/Trace.lagda.md @@ -33,13 +33,13 @@ data UncertifiedOptTag : Set where caseOfCaseT : UncertifiedOptTag letFloatOutT : UncertifiedOptTag caseReduceT : UncertifiedOptTag - cseT : UncertifiedOptTag data CertifiedOptTag : Set where floatDelayT : CertifiedOptTag forceDelayT : CertifiedOptTag forceCaseDelayT : CertifiedOptTag inlineT : CertifiedOptTag + cseT : CertifiedOptTag applyToCaseT : CertifiedOptTag OptTag = Utils.Either UncertifiedOptTag CertifiedOptTag @@ -53,7 +53,7 @@ ForceCaseDelayT = Utils.inj₂ forceCaseDelayT InlineT : OptTag InlineT = Utils.inj₂ inlineT CseT : OptTag -CseT = Utils.inj₁ cseT +CseT = Utils.inj₂ cseT ApplyToCaseT : OptTag ApplyToCaseT = Utils.inj₂ applyToCaseT @@ -71,6 +71,7 @@ CaseReduceT = Utils.inj₁ caseReduceT | ForceDelay | ForceCaseDelay | Inline + | CSE | ApplyToCase ) #-} @@ -80,7 +81,6 @@ CaseReduceT = Utils.inj₁ caseReduceT ( CaseOfCase | LetFloatOut | CaseReduce - | CSE ) #-} ``` diff --git a/plutus-metatheory/src/VerifiedCompilation/UCSE.lagda.md b/plutus-metatheory/src/VerifiedCompilation/UCSE.lagda.md index 312905c25c9..3c85a0153ac 100644 --- a/plutus-metatheory/src/VerifiedCompilation/UCSE.lagda.md +++ b/plutus-metatheory/src/VerifiedCompilation/UCSE.lagda.md @@ -11,59 +11,112 @@ module VerifiedCompilation.UCSE where ## Imports ``` -open import Untyped.Equality using (DecEq; _≟_; decPointwise) -open import VerifiedCompilation.UntypedViews using (Pred; isCase?; isApp?; isLambda?; isForce?; isBuiltin?; isConstr?; isDelay?; isTerm?; allTerms?; iscase; isapp; islambda; isforce; isbuiltin; isconstr; isterm; allterms; isdelay) -open import VerifiedCompilation.UntypedTranslation using (Translation; translation?; Relation) -open import Relation.Nullary using (_×-dec_) -open import Data.Product using (_,_) +open import VerifiedCompilation.UntypedViews +open import VerifiedCompilation.UntypedTranslation using (Translation; TransMatch; translation?; Relation) import Relation.Binary as Binary using (Decidable) open import Relation.Nullary using (Dec; yes; no; ¬_) -open import Untyped using (_⊢; case; builtin; _·_; force; `; ƛ; delay; con; constr; error) +open import Untyped using (_⊢; case; builtin; _·_; force; `; ƛ; delay; con; constr; error; Let_In_) import Relation.Binary.PropositionalEquality as Eq open Eq using (_≡_; refl) open import Data.Nat using (ℕ; suc) open import Data.Fin using (Fin; suc; zero) -open import Data.Empty using (⊥) -open import Agda.Builtin.Maybe using (Maybe; just; nothing) open import Untyped.RenamingSubstitution using (_[_]) -open import Untyped.Purity using (Pure; isPure?) -open import VerifiedCompilation.Certificate using (ProofOrCE; ce; proof; pcePointwise; DecidableCE; CseT) +open import VerifiedCompilation.Certificate using (ProofOrCE; ce; proof; pcePointwise; DecidableCE; CseT; isProof?) +open import Data.Bool.Base using (Bool; false; true) +open import Data.List hiding ([_]) +open import Untyped.Strictness + ``` -## Translation Relation +## Description This module is required to certify that an application of CSE doesn't break the semantics; we are explicitly not evaluating whether the particular choice of sub-expression was a "good" choice. -As such, this Translation Relation primarily checks that substituting the expression -back in would yield the original expression. +The `UCSE` translation relation has a single constructor `cse`. A term `x` translates +to `Let e In x'` when: + +1. Substituting `e` back into `x'` yields a term that `UCSE`-translates from `x`, + so the transformation is locally invertible up to further CSE steps. + +2. `zero` (the variable bound by the `let`) lies on an execution path through `x'`, + as witnessed by `∈↓`, a predicate that holds when a variable lies + on at least one execution path through a term. This guarantees soundness: the + transformed term is no less strict than the original. ``` + +private variable + n : ℕ + data UCSE : Relation where - cse : {X : ℕ} {x' : suc X ⊢} {x e : X ⊢} - -- TODO: This should ensure that the term that is moved - -- is still evaluated. The Haskell does this by never moving - -- across ƛ , delay, or case. + cse : {x' : suc n ⊢} {x e : n ⊢} + → zero ∈↓ x' → Translation UCSE x (x' [ e ]) - → UCSE x ((ƛ x') · e) + → UCSE x (Let e In x') -UntypedCSE : {X : ℕ} → (ast : X ⊢) → (ast' : X ⊢) → Set +UntypedCSE : (ast : n ⊢) → (ast' : n ⊢) → Set UntypedCSE = Translation UCSE ``` ## Decision Procedure +`isUCSE?` decides `UCSE` by checking that the output is a `let`-binding, that `zero` +occurs on an execution path through the body, and that the result of back-substitution +is accepted by `isUntypedCSE?`. + ``` -isUntypedCSE? : {X : ℕ} → DecidableCE (Translation UCSE {X}) +isUntypedCSE? : DecidableCE (Translation UCSE {n}) {-# TERMINATING #-} -isUCSE? : {X : ℕ} → DecidableCE (UCSE {X}) -isUCSE? ast ast' with (isApp? (isLambda? isTerm?) isTerm?) ast' -... | no ¬match = ce (λ { (cse pt) → ¬match (isapp (islambda (isterm _)) (isterm _))}) CseT ast ast' -... | yes (isapp (islambda (isterm x')) (isterm e)) with (isUntypedCSE? ast (x' [ e ])) -... | ce ¬p t b a = ce (λ { (cse pt) → ¬p pt}) t b a -... | proof p = proof (cse p) +isUCSE? : DecidableCE (UCSE {n}) + +isUCSE? ast₁ ast₂ with (Let? ⋯ In? ⋯) ast₂ +... | no ¬letMatch = ce (λ { (cse x x₁) → ¬letMatch inhabitant}) CseT ast₁ ast₂ +... | yes (Let! match! rhs In! match! body) with zero ∈↓? body +... | no ¬onPath = ce (λ { (cse x x₁) → ¬onPath x }) CseT ast₁ ast₂ +... | yes onPath with (isUntypedCSE? ast₁ (body [ rhs ])) +... | ce ¬isCSE tag t₁ t₂ = ce (λ { (cse x x₁) → ¬isCSE x₁ }) tag t₁ t₂ +... | proof isCSE = proof (cse onPath isCSE) + isUntypedCSE? = translation? CseT isUCSE? ``` + +## Tests + +A few unit tests which check that the decision procedure works as expected. + +The third test shows that the strictness condition catches an unsound transformation. + +``` + +M₁ : 1 ⊢ +M₁ = constr 0 [] · constr 0 [] + +N₁ : 1 ⊢ +N₁ = Let constr 0 [] In ` zero · ` zero + +_ : isProof? (isUntypedCSE? M₁ N₁) ≡ true +_ = refl + +M₂ : 1 ⊢ +M₂ = Let constr 0 [] In ` zero + +N₂ : 1 ⊢ +N₂ = Let constr 0 [] In ` zero + +_ : isProof? (isUntypedCSE? M₂ N₂) ≡ true +_ = refl + +M₃ : 1 ⊢ +M₃ = constr 0 [] + +N₃ : 1 ⊢ +N₃ = Let error In constr 0 [] + +_ : isProof? (isUntypedCSE? M₃ N₃) ≡ false +_ = refl + +``` diff --git a/plutus-metatheory/src/VerifiedCompilation/UntypedViews.lagda.md b/plutus-metatheory/src/VerifiedCompilation/UntypedViews.lagda.md index 14c1fd8d4b3..281ddd170cf 100644 --- a/plutus-metatheory/src/VerifiedCompilation/UntypedViews.lagda.md +++ b/plutus-metatheory/src/VerifiedCompilation/UntypedViews.lagda.md @@ -7,7 +7,7 @@ layout: page module VerifiedCompilation.UntypedViews where module SimpleTypeClass where -open import Untyped using (_⊢; `; ƛ; case; constr; _·_; force; delay; con; builtin; error) +open import Untyped using (_⊢; `; ƛ; case; constr; _·_; force; delay; con; builtin; error; Let_In_) open import Relation.Unary using (Decidable) open import Relation.Nullary using (Dec; yes; no; ¬_) open import Relation.Nullary.Negation @@ -279,6 +279,12 @@ data builtinᵖ (P : Pr Builtin) : Pr (X ⊢) where data errorᵖ : Pr (X ⊢) where error! : errorᵖ {X} error + +data Letᵖ_Inᵖ_ (P : Pr (X ⊢)) (Q : Pr (suc X ⊢)) : Pr (X ⊢) where + Let!_In!_ : ∀ {M N} → P M → Q N → (Letᵖ P Inᵖ Q) (Let M In N) + +infix 0 Letᵖ_Inᵖ_ +infix 0 Let!_In!_ ``` Each predicate is decidable if the predicates on sub-terms are decidable. @@ -439,6 +445,31 @@ error? M with M ... | case _ _ = no λ () ... | builtin _ = no λ () ... | error = yes error! + +infix 0 Let?_In?_ +Let?_In?_ : {P : Pr (X ⊢)} {Q : Pr (suc X ⊢)} → Decidable P → Decidable Q → Decidable (Letᵖ P Inᵖ Q) +(Let? P? In? Q?) M with M +... | ` _ = no λ () +... | ƛ _ = no λ () +... | ` x · N = no λ () +... | M₁ · M₂ · N = no λ () +... | force M₁ · N = no λ () +... | delay M₁ · N = no λ () +... | con x · N = no λ () +... | constr i xs · N = no λ () +... | case M₁ ts · N = no λ () +... | builtin b · N = no λ () +... | error · N = no λ () +... | force _ = no λ () +... | delay _ = no λ () +... | con _ = no λ () +... | constr _ _ = no λ () +... | case _ _ = no λ () +... | builtin _ = no λ () +... | error = no λ () +... | Let N In M₁ with P? N ×-dec Q? M₁ +... | yes (PN , QM) = yes (Let! PN In! QM) +... | no ¬PN×QM = no λ { (Let! PN In! QM) → ¬PN×QM (PN , QM)} ``` `match` is the trivial predicate that always holds: @@ -558,6 +589,13 @@ instance inh-error : ∀ {X} → Inhabited (errorᵖ (error {X})) inh-error = inh error! + + inh-let + : ∀ {X} {P Q} {M : X ⊢} {N : suc X ⊢} + → {{Inhabited (P M)}} + → {{Inhabited (Q N)}} + → Inhabited ((Letᵖ P Inᵖ Q) (Let M In N)) + inh-let = inh (Let! inhabitant In! inhabitant) inh-match : ∀ {A : Set} {X : A} → Inhabited (match X) inh-match = record {inhabitant = match! _} diff --git a/plutus-metatheory/test/certifier-report/golden/n-queens.golden.report b/plutus-metatheory/test/certifier-report/golden/n-queens.golden.report index 6d624c16d85..39396e4793f 100644 --- a/plutus-metatheory/test/certifier-report/golden/n-queens.golden.report +++ b/plutus-metatheory/test/certifier-report/golden/n-queens.golden.report @@ -757,13 +757,13 @@ Pass 84: Inlining ✅ Optimization sites: 0 ────────────────────────────────────────────────────── -Pass 85: Common Subexpression Elimination ⚠ (certifier unavailable) +Pass 85: Common Subexpression Elimination ✅ ────────────────────────────────────────────────────── Program Size: 1764 (before) Program Size: 1773 (after) Execution Cost: CPU = 117353973782, MEM = 683405255 (before) Execution Cost: CPU = 117353877782, MEM = 683404655 (after) - + Optimization sites: 4 ────────────────────────────────────────────────────── Pass 86: Float Delay ✅ @@ -829,13 +829,13 @@ Pass 92: Inlining ✅ Optimization sites: 5 ────────────────────────────────────────────────────── -Pass 93: Common Subexpression Elimination ⚠ (certifier unavailable) +Pass 93: Common Subexpression Elimination ✅ ────────────────────────────────────────────────────── Program Size: 1774 (before) Program Size: 1774 (after) Execution Cost: CPU = 117353829782, MEM = 683404355 (before) Execution Cost: CPU = 117353829782, MEM = 683404355 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 94: Float Delay ✅ @@ -901,13 +901,13 @@ Pass 100: Inlining ✅ Optimization sites: 2 ────────────────────────────────────────────────────── -Pass 101: Common Subexpression Elimination ⚠ (certifier unavailable) +Pass 101: Common Subexpression Elimination ✅ ────────────────────────────────────────────────────── Program Size: 1756 (before) Program Size: 1756 (after) Execution Cost: CPU = 117353781782, MEM = 683404055 (before) Execution Cost: CPU = 117353781782, MEM = 683404055 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 102: Float Delay ✅ @@ -973,13 +973,13 @@ Pass 108: Inlining ✅ Optimization sites: 0 ────────────────────────────────────────────────────── -Pass 109: Common Subexpression Elimination ⚠ (certifier unavailable) +Pass 109: Common Subexpression Elimination ✅ ────────────────────────────────────────────────────── Program Size: 1756 (before) Program Size: 1756 (after) Execution Cost: CPU = 117353781782, MEM = 683404055 (before) Execution Cost: CPU = 117353781782, MEM = 683404055 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 110: Float Delay ✅