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..aae23af7947 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 @@ -25,6 +25,7 @@ data CertifiedOptStage | ForceCaseDelay | Inline | ApplyToCase + | CaseReduce deriving stock (Show, Generic) deriving anyclass (NFData) @@ -41,7 +42,6 @@ at https://github.com/IntersectMBO/plutus/issues. -} data UncertifiedOptStage = CaseOfCase | LetFloatOut - | CaseReduce | CSE deriving stock (Show, Generic) deriving anyclass (NFData) @@ -58,7 +58,7 @@ pattern ForceCaseDelayStage :: OptStage pattern ForceCaseDelayStage = Right ForceCaseDelay pattern CaseReduceStage :: OptStage -pattern CaseReduceStage = Left CaseReduce +pattern CaseReduceStage = Right CaseReduce pattern InlineStage :: OptStage pattern InlineStage = Right Inline diff --git a/plutus-core/untyped-plutus-core/test/Transform/basic.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/basic.golden.certifier-hints index f9726175bcb..937e7d43f0e 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/basic.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/basic.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/basicInline.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/basicInline.golden.certifier-hints index 83ed238e688..df6566a1a10 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/basicInline.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/basicInline.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/callsiteInline.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/callsiteInline.golden.certifier-hints index 0d613262e88..bd63baaba4c 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/callsiteInline.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/callsiteInline.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/extraDelays.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/extraDelays.golden.certifier-hints index d1935f596c1..41a3169d754 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/extraDelays.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/extraDelays.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/floatDelay1.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/floatDelay1.golden.certifier-hints index 81c393ab6cf..a679a717fb8 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/floatDelay1.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/floatDelay1.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/floatDelay2.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/floatDelay2.golden.certifier-hints index a8fcdd4220f..24efecbfd6c 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/floatDelay2.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/floatDelay2.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/floatDelay3.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/floatDelay3.golden.certifier-hints index 46001f86f7b..d3e22138e30 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/floatDelay3.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/floatDelay3.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps1.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps1.golden.certifier-hints index 20afd2b9b96..5f742946089 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps1.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps1.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps2.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps2.golden.certifier-hints index 57a63170acc..05806412c0f 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps2.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps2.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps2Fail.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps2Fail.golden.certifier-hints index 7616f82229f..1c4a282c988 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps2Fail.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayNoApps2Fail.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps1.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps1.golden.certifier-hints index a5cafe9e2f9..8b4af947a80 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps1.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps1.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps2.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps2.golden.certifier-hints index 51c2d2870ec..51854554595 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps2.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps2.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps2Fail.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps2Fail.golden.certifier-hints index aaf6538d1a1..6305922b6d6 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps2Fail.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceCaseDelayWithApps2Fail.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceDelayComplex.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceDelayComplex.golden.certifier-hints index c7a9bf1c1fd..5a3a35d8ea5 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceDelayComplex.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceDelayComplex.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceDelayMultiApply.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceDelayMultiApply.golden.certifier-hints index 046e51a31d3..c6a5083de48 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceDelayMultiApply.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceDelayMultiApply.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceDelayMultiForce.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceDelayMultiForce.golden.certifier-hints index 83ed238e688..df6566a1a10 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceDelayMultiForce.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceDelayMultiForce.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceDelayNoApps.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceDelayNoApps.golden.certifier-hints index f9726175bcb..937e7d43f0e 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceDelayNoApps.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceDelayNoApps.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceDelayNoAppsLayered.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceDelayNoAppsLayered.golden.certifier-hints index f9726175bcb..937e7d43f0e 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceDelayNoAppsLayered.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceDelayNoAppsLayered.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/forceDelaySimple.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/forceDelaySimple.golden.certifier-hints index f4bacaed300..bc7d7212794 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/forceDelaySimple.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/forceDelaySimple.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/inlineImpure1.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/inlineImpure1.golden.certifier-hints index 1ab4c3beccd..9a49cfb5ab4 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/inlineImpure1.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/inlineImpure1.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/inlineImpure2.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/inlineImpure2.golden.certifier-hints index 1ab4c3beccd..9a49cfb5ab4 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/inlineImpure2.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/inlineImpure2.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/inlineImpure3.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/inlineImpure3.golden.certifier-hints index 1ab4c3beccd..9a49cfb5ab4 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/inlineImpure3.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/inlineImpure3.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/inlineImpure4.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/inlineImpure4.golden.certifier-hints index ed8fd661ab4..601867480b6 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/inlineImpure4.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/inlineImpure4.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/inlinePure1.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/inlinePure1.golden.certifier-hints index c57b4b61b54..11330832f36 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/inlinePure1.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/inlinePure1.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/inlinePure2.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/inlinePure2.golden.certifier-hints index c57b4b61b54..11330832f36 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/inlinePure2.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/inlinePure2.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/inlinePure3.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/inlinePure3.golden.certifier-hints index 1cbe1dd2423..6f11b126e9c 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/inlinePure3.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/inlinePure3.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/inlinePure4.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/inlinePure4.golden.certifier-hints index 3bf0c41427d..d592cc2fa62 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/inlinePure4.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/inlinePure4.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/interveningLambda.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/interveningLambda.golden.certifier-hints index 0542ff7e2c7..ea33e7407b0 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/interveningLambda.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/interveningLambda.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/letFloatOutCase1.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/letFloatOutCase1.golden.certifier-hints index b70fd2d8246..80536c7bb16 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/letFloatOutCase1.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/letFloatOutCase1.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/letFloatOutCase2.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/letFloatOutCase2.golden.certifier-hints index 0906791d986..6fa3cf4b2b9 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/letFloatOutCase2.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/letFloatOutCase2.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/letFloatOutForce.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/letFloatOutForce.golden.certifier-hints index a4fe74aa1c4..75862738baf 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/letFloatOutForce.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/letFloatOutForce.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/multiApp.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/multiApp.golden.certifier-hints index bce12ec76a2..443b4d8f98d 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/multiApp.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/multiApp.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-core/untyped-plutus-core/test/Transform/nested.golden.certifier-hints b/plutus-core/untyped-plutus-core/test/Transform/nested.golden.certifier-hints index f9726175bcb..937e7d43f0e 100644 --- a/plutus-core/untyped-plutus-core/test/Transform/nested.golden.certifier-hints +++ b/plutus-core/untyped-plutus-core/test/Transform/nested.golden.certifier-hints @@ -13,7 +13,7 @@ NoHints -- Certifier hints #5 (Left CaseOfCase) -- NoHints --- Certifier hints #6 (Left CaseReduce) -- +-- Certifier hints #6 (Right CaseReduce) -- NoHints -- Certifier hints #7 (Right Inline) -- diff --git a/plutus-metatheory/changelog.d/20260424_160422_4022046+basetunnel_certifier_case_reduce.md b/plutus-metatheory/changelog.d/20260424_160422_4022046+basetunnel_certifier_case_reduce.md new file mode 100644 index 00000000000..aace2efb793 --- /dev/null +++ b/plutus-metatheory/changelog.d/20260424_160422_4022046+basetunnel_certifier_case_reduce.md @@ -0,0 +1,41 @@ + + + +### Added + +- Certifier for the case-reduce pass + + + + + diff --git a/plutus-metatheory/plutus-metatheory.agda-lib b/plutus-metatheory/plutus-metatheory.agda-lib index 79613e050af..819b4b88b70 100644 --- a/plutus-metatheory/plutus-metatheory.agda-lib +++ b/plutus-metatheory/plutus-metatheory.agda-lib @@ -1,3 +1,4 @@ name: plutus-metatheory depend: standard-library-2.3 include: src +flags: --polarity diff --git a/plutus-metatheory/plutus-metatheory.cabal b/plutus-metatheory/plutus-metatheory.cabal index f938f010348..13fbbe27bff 100644 --- a/plutus-metatheory/plutus-metatheory.cabal +++ b/plutus-metatheory/plutus-metatheory.cabal @@ -366,7 +366,13 @@ library MAlonzo.Code.Untyped.Equality MAlonzo.Code.Untyped.Purity MAlonzo.Code.Untyped.Reduction + MAlonzo.Code.Untyped.Relation.Binary + MAlonzo.Code.Untyped.Relation.Binary.Core + MAlonzo.Code.Untyped.Relation.Binary.Modular + MAlonzo.Code.Untyped.Relation.Binary.Properties + MAlonzo.Code.Untyped.Relation.Binary.Structures MAlonzo.Code.Untyped.RenamingSubstitution + MAlonzo.Code.Untyped.Transform MAlonzo.Code.Utils MAlonzo.Code.Utils.Decidable MAlonzo.Code.Utils.List diff --git a/plutus-metatheory/src/Certifier.hs b/plutus-metatheory/src/Certifier.hs index d0bfbc5c747..1125484bfc6 100644 --- a/plutus-metatheory/src/Certifier.hs +++ b/plutus-metatheory/src/Certifier.hs @@ -218,7 +218,6 @@ mkAstModule agdaIdStr agdaAstTy agdaAstDef = \\nopen import VerifiedCompilation\ \\nopen import VerifiedCompilation.Certificate\ \\nopen import VerifiedCompilation.Trace\ - \\nopen import Untyped\ \\nopen import RawU\ \\nopen import Builtin\ \\nopen import Data.Unit\ @@ -325,7 +324,8 @@ mkAgdaLib name = <> "\ndepend:\ \\n standard-library-2.3\ \\n plutus-metatheory\ - \\ninclude: src" + \\ninclude: src\ + \\nflags: --polarity" in (name <> ".agda-lib", contents) mkAgdaCertificateProject diff --git a/plutus-metatheory/src/CertifierReport.lagda.md b/plutus-metatheory/src/CertifierReport.lagda.md index 40cacb12100..42a47b53f05 100644 --- a/plutus-metatheory/src/CertifierReport.lagda.md +++ b/plutus-metatheory/src/CertifierReport.lagda.md @@ -11,6 +11,9 @@ open import VerifiedCompilation open import VerifiedCompilation.Certificate open import VerifiedCompilation.UntypedTranslation open import VerifiedCompilation.UInline +open import VerifiedCompilation.UCaseReduce as CR +open import Untyped.Relation.Binary.Modular hiding (_+_) +open import Untyped.Relation.Binary.Core renaming (Pointwise to PW) open import Untyped open import Untyped.RenamingSubstitution using (Sub) open import Utils as U using (_×_; _,_; Either; either; inj₁; inj₂) @@ -41,11 +44,11 @@ showCertifiedOptTag forceDelayT = "Force-Delay Cancellation" showCertifiedOptTag forceCaseDelayT = "Float Force into Case Branches" showCertifiedOptTag inlineT = "Inlining" showCertifiedOptTag applyToCaseT = "Transform multi-argument applications into case-constr form" +showCertifiedOptTag caseReduceT = "Case-Constr and Case-Constant Cancellation" 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 @@ -113,12 +116,40 @@ numSitesInline (case r rs) = numSitesInline r + numSitesInlineᵖʷ rs numSitesInlineᵖʷ Pointwise.[] = 0 numSitesInlineᵖʷ (x Pointwise.∷ xs) = numSitesInline x + numSitesInlineᵖʷ xs +numSitesCaseReduce : + ∀ {X} {M N : X ⊢} + → M CR.~ N + → ℕ +numSitesCaseReduce* : + ∀ {X} {Ms Ns : List (X ⊢)} + → PW _~_ Ms Ns + → ℕ + +numSitesCaseReduce (cr-reduction _) = 1 +numSitesCaseReduce (cr-trans p q) = numSitesCaseReduce p + numSitesCaseReduce q +numSitesCaseReduce (cr-sym p) = numSitesCaseReduce p +numSitesCaseReduce (cr-refl) = 0 +numSitesCaseReduce (cr-compat (compat-varF n)) = 0 +numSitesCaseReduce (cr-compat (compat-lambdaF p)) = numSitesCaseReduce p +numSitesCaseReduce (cr-compat (compat-applyF p q)) = numSitesCaseReduce p + numSitesCaseReduce q +numSitesCaseReduce (cr-compat (compat-forceF p)) = numSitesCaseReduce p +numSitesCaseReduce (cr-compat (compat-delayF p)) = numSitesCaseReduce p +numSitesCaseReduce (cr-compat (compat-conF)) = 0 +numSitesCaseReduce (cr-compat (compat-constrF ps)) = numSitesCaseReduce* ps +numSitesCaseReduce (cr-compat (compat-caseF p qs)) = numSitesCaseReduce p + numSitesCaseReduce* qs +numSitesCaseReduce (cr-compat (compat-builtinF)) = 0 +numSitesCaseReduce (cr-compat (compat-errorF)) = 0 + +numSitesCaseReduce* [] = 0 +numSitesCaseReduce* (x ∷ xs) = numSitesCaseReduce x + numSitesCaseReduce* xs + numSites : {M N : 0 ⊢} (tag : CertifiedOptTag) → RelationOf (inj₂ tag) M N → ℕ numSites forceDelayT p = numSites′ p numSites floatDelayT p = numSites′ p numSites inlineT p = numSitesInline p numSites forceCaseDelayT p = numSites′ p numSites applyToCaseT p = numSites′ p +numSites {M = M} caseReduceT p = numSitesCaseReduce (CR.sound {M = M} p) showSites : {M N : 0 ⊢} → (tag : OptTag) → RelationOf tag M N → String showSites (inj₁ _) _ = "" diff --git a/plutus-metatheory/src/FFI/AgdaUnparse.hs b/plutus-metatheory/src/FFI/AgdaUnparse.hs index 925ab38db1f..285bf9c8b79 100644 --- a/plutus-metatheory/src/FFI/AgdaUnparse.hs +++ b/plutus-metatheory/src/FFI/AgdaUnparse.hs @@ -56,11 +56,11 @@ instance AgdaUnparse CertifiedOptStage where agdaUnparse ForceCaseDelay = "forceCaseDelayT" agdaUnparse Inline = "inlineT" agdaUnparse ApplyToCase = "applyToCaseT" + agdaUnparse CaseReduce = "caseReduceT" instance AgdaUnparse UncertifiedOptStage where agdaUnparse CaseOfCase = "caseOfCaseT" agdaUnparse LetFloatOut = "letFloatOutT" - agdaUnparse CaseReduce = "caseReduceT" agdaUnparse CSE = "cseT" instance AgdaUnparse Hints.Hints where diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic.hs index 726c99e2a7b..c68153c304f 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic.hs @@ -48,10 +48,10 @@ data T_'9839'Kinded_40 = C_'9839'_42 | C_K'9839'_48 T_'9839'Kinded_40 -- Algorithmic.lemma♯Kinded d_lemma'9839'Kinded_58 :: - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> T_'9839'Kinded_40 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 @@ -154,11 +154,11 @@ data T__'8866'__178 C__'183'__196 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 T__'8866'__178 T__'8866'__178 | C_Λ_202 T__'8866'__178 | - C__'183''8902'_'47'__212 MAlonzo.Code.Utils.T_Kind_768 + C__'183''8902'_'47'__212 MAlonzo.Code.Utils.T_Kind_776 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 T__'8866'__178 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 | C_wrap_220 T__'8866'__178 | - C_unwrap_230 MAlonzo.Code.Utils.T_Kind_768 + C_unwrap_230 MAlonzo.Code.Utils.T_Kind_776 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 T__'8866'__178 | C_constr_240 MAlonzo.Code.Data.Fin.Base.T_Fin_10 diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CEK.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CEK.hs index 8572836b133..c073cf57ae8 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CEK.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CEK.hs @@ -50,13 +50,13 @@ d_convSigTy_8 :: Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -134,7 +134,7 @@ data T_BApp_48 = C_base_144 | C__'36'__162 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 T_BApp_48 T_Value_52 | - C__'36''36'__190 MAlonzo.Code.Utils.T_Kind_768 + C__'36''36'__190 MAlonzo.Code.Utils.T_Kind_776 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 MAlonzo.Code.Builtin.Signature.T_SigTy_266 T_BApp_48 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 @@ -147,12 +147,12 @@ data T_Value_52 MAlonzo.Code.Algorithmic.T__'8866'__178 T_Env_26 | C_V'45'wrap_82 T_Value_52 | C_V'45'con_86 AgdaAny | C_V'45'I'8658'_106 MAlonzo.Code.Builtin.T_Builtin_2 Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 Integer Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 + MAlonzo.Code.Utils.T__'8724'_'8803'__188 Integer Integer + MAlonzo.Code.Utils.T__'8724'_'8803'__188 MAlonzo.Code.Builtin.Signature.T_SigTy_266 T_BApp_48 | C_V'45'IΠ_128 MAlonzo.Code.Builtin.T_Builtin_2 Integer Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 Integer Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 + MAlonzo.Code.Utils.T__'8724'_'8803'__188 Integer Integer + MAlonzo.Code.Utils.T__'8724'_'8803'__188 MAlonzo.Code.Builtin.Signature.T_SigTy_266 T_BApp_48 | C_V'45'constr_140 MAlonzo.Code.Data.Fin.Base.T_Fin_10 MAlonzo.Code.Utils.List.T_Bwd_6 MAlonzo.Code.Utils.List.T_IBwd_396 @@ -213,24 +213,24 @@ d_discharge_228 v0 v1 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v7 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v8)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -241,24 +241,24 @@ d_discharge_228 v0 v1 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v7)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778))) v7 v8)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -337,7 +337,7 @@ d_dischargeBody_250 v0 v1 v2 v3 v4 coe MAlonzo.Code.Type.BetaNormal.C_ne_20 (coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v6))) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v1))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v1))) (coe (\ v5 v6 -> coe @@ -358,7 +358,7 @@ d_dischargeBody_250 v0 v1 v2 v3 v4 -- Algorithmic.CEK.dischargeBody⋆ d_dischargeBody'8902'_264 :: MAlonzo.Code.Algorithmic.T_Ctx_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -> T_Env_26 -> MAlonzo.Code.Algorithmic.T__'8866'__178 @@ -402,10 +402,10 @@ d_dischargeB_296 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> T_BApp_48 -> MAlonzo.Code.Algorithmic.T__'8866'__178 @@ -413,15 +413,15 @@ d_dischargeB_296 v0 ~v1 ~v2 v3 ~v4 ~v5 v6 ~v7 ~v8 v9 = du_dischargeB_296 v0 v3 v6 v9 du_dischargeB_296 :: MAlonzo.Code.Builtin.T_Builtin_2 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> T_BApp_48 -> MAlonzo.Code.Algorithmic.T__'8866'__178 du_dischargeB_296 v0 v1 v2 v3 = case coe v3 of C_base_144 -> coe MAlonzo.Code.Algorithmic.C_builtin_'47'__264 v0 C__'36'__162 v4 v12 v13 -> case coe v2 of - MAlonzo.Code.Utils.C_bubble_192 v17 + MAlonzo.Code.Utils.C_bubble_200 v17 -> coe MAlonzo.Code.Algorithmic.C__'183'__196 v4 (coe du_dischargeB_296 (coe v0) (coe v1) (coe v17) (coe v12)) @@ -429,7 +429,7 @@ du_dischargeB_296 v0 v1 v2 v3 _ -> MAlonzo.RTE.mazUnreachableError C__'36''36'__190 v4 v5 v13 v14 v15 -> case coe v1 of - MAlonzo.Code.Utils.C_bubble_192 v21 + MAlonzo.Code.Utils.C_bubble_200 v21 -> coe MAlonzo.Code.Algorithmic.C__'183''8902'_'47'__212 v4 v5 (coe du_dischargeB_296 (coe v0) (coe v21) (coe v2) (coe v14)) v15 @@ -1350,7 +1350,7 @@ du_BUILTIN_368 v0 v1 (case coe v11 of C_V'45'con_86 v41 -> case coe v41 of - MAlonzo.Code.Utils.C__'44'__442 v42 v43 + MAlonzo.Code.Utils.C__'44'__450 v42 v43 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 v42) @@ -1371,7 +1371,7 @@ du_BUILTIN_368 v0 v1 (case coe v11 of C_V'45'con_86 v41 -> case coe v41 of - MAlonzo.Code.Utils.C__'44'__442 v42 v43 + MAlonzo.Code.Utils.C__'44'__450 v42 v43 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 v43) @@ -1396,11 +1396,11 @@ du_BUILTIN_368 v0 v1 (case coe v31 of C_V'45'con_86 v61 -> case coe v61 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v21) - MAlonzo.Code.Utils.C__'8759'__452 v62 v63 + MAlonzo.Code.Utils.C__'8759'__460 v62 v63 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v11) @@ -1429,7 +1429,7 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Utils.C__'8759'__452 (coe v37) + MAlonzo.Code.Utils.C__'8759'__460 (coe v37) (coe v39))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) @@ -1446,24 +1446,24 @@ du_BUILTIN_368 v0 v1 (case coe v11 of C_V'45'con_86 v27 -> case coe v27 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Type.BetaNBE.d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C_'8709'_4) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe MAlonzo.Code.Type.C_'8709'_4) (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'9839'_772)) + (coe MAlonzo.Code.Utils.C_'9839'_780)) (coe MAlonzo.Code.Type.C_'8709'_4) (coe (\ v28 v29 -> @@ -1480,14 +1480,14 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Type.BetaNormal.C_'96'_8 v31))) (coe v23) (coe v28) (coe v29)))) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'9839'_772)) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'9839'_780)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Builtin.Signature.du_mkTy_204 (\ v28 v29 v30 -> @@ -1517,7 +1517,7 @@ du_BUILTIN_368 v0 v1 (coe MAlonzo.Code.Builtin.du_a_218))))) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250))) - MAlonzo.Code.Utils.C__'8759'__452 v28 v29 + MAlonzo.Code.Utils.C__'8759'__460 v28 v29 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 v28) @@ -1535,7 +1535,7 @@ du_BUILTIN_368 v0 v1 (case coe v11 of C_V'45'con_86 v27 -> case coe v27 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe @@ -1544,13 +1544,13 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Type.BetaNormal.C_ne_20 (coe MAlonzo.Code.Type.BetaNormal.C__'183'__10 - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Type.BetaNormal.C_'94'_12 (coe MAlonzo.Code.Builtin.Constant.Type.C_list_10)) v23))) - MAlonzo.Code.Utils.C__'8759'__452 v28 v29 + MAlonzo.Code.Utils.C__'8759'__460 v28 v29 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 v29) @@ -1568,13 +1568,13 @@ du_BUILTIN_368 v0 v1 (case coe v11 of C_V'45'con_86 v27 -> case coe v27 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 (coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10)) - MAlonzo.Code.Utils.C__'8759'__452 v28 v29 + MAlonzo.Code.Utils.C__'8759'__460 v28 v29 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -1597,7 +1597,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Utils.d_HSlengthOfArray_598 erased v27)) + (coe MAlonzo.Code.Utils.d_HSlengthOfArray_606 erased v27)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -1614,7 +1614,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Utils.d_HSlistToArray_602 erased v27)) + (coe MAlonzo.Code.Utils.d_HSlistToArray_610 erased v27)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -1644,7 +1644,7 @@ du_BUILTIN_368 v0 v1 = MAlonzo.Code.Data.Integer.Properties.d__'60''63'__3190 (coe v39) (coe - MAlonzo.Code.Utils.d_HSlengthOfArray_598 + MAlonzo.Code.Utils.d_HSlengthOfArray_606 erased v37) in coe (case coe v43 of @@ -1658,7 +1658,7 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Utils.d_HSindexArray_604 + MAlonzo.Code.Utils.d_HSindexArray_612 erased v37 v39))) @@ -1704,23 +1704,23 @@ du_BUILTIN_368 v0 v1 (case coe v61 of C_V'45'con_86 v77 -> case coe v77 of - MAlonzo.Code.Utils.C_ConstrDATA_612 v78 v79 + MAlonzo.Code.Utils.C_ConstrDATA_620 v78 v79 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v51) - MAlonzo.Code.Utils.C_MapDATA_614 v78 + MAlonzo.Code.Utils.C_MapDATA_622 v78 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v41) - MAlonzo.Code.Utils.C_ListDATA_616 v78 + MAlonzo.Code.Utils.C_ListDATA_624 v78 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v31) - MAlonzo.Code.Utils.C_iDATA_618 v78 + MAlonzo.Code.Utils.C_iDATA_626 v78 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v21) - MAlonzo.Code.Utils.C_bDATA_620 v78 + MAlonzo.Code.Utils.C_bDATA_628 v78 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v11) @@ -1749,7 +1749,7 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Utils.C_ConstrDATA_612 (coe v23) + MAlonzo.Code.Utils.C_ConstrDATA_620 (coe v23) (coe v25))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) @@ -1765,7 +1765,7 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Utils.C_MapDATA_614 (coe v13))) + C_V'45'con_86 (coe MAlonzo.Code.Utils.C_MapDATA_622 (coe v13))) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_listData_92 @@ -1778,7 +1778,7 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Utils.C_ListDATA_616 (coe v13))) + C_V'45'con_86 (coe MAlonzo.Code.Utils.C_ListDATA_624 (coe v13))) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_iData_94 @@ -1790,7 +1790,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v13 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe C_V'45'con_86 (coe MAlonzo.Code.Utils.C_iDATA_618 (coe v13))) + (coe C_V'45'con_86 (coe MAlonzo.Code.Utils.C_iDATA_626 (coe v13))) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_bData_96 @@ -1802,7 +1802,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v13 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe C_V'45'con_86 (coe MAlonzo.Code.Utils.C_bDATA_620 (coe v13))) + (coe C_V'45'con_86 (coe MAlonzo.Code.Utils.C_bDATA_628 (coe v13))) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_unConstrData_98 @@ -1827,13 +1827,13 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))))) in coe (case coe v13 of - MAlonzo.Code.Utils.C_ConstrDATA_612 v15 v16 + MAlonzo.Code.Utils.C_ConstrDATA_620 v15 v16 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 (coe - MAlonzo.Code.Utils.C__'44'__442 (coe v15) (coe v16))) + MAlonzo.Code.Utils.C__'44'__450 (coe v15) (coe v16))) _ -> coe v14) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError @@ -1859,7 +1859,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))))) in coe (case coe v13 of - MAlonzo.Code.Utils.C_MapDATA_614 v15 + MAlonzo.Code.Utils.C_MapDATA_622 v15 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 v15) _ -> coe v14) _ -> MAlonzo.RTE.mazUnreachableError) @@ -1886,7 +1886,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))))) in coe (case coe v13 of - MAlonzo.Code.Utils.C_ListDATA_616 v15 + MAlonzo.Code.Utils.C_ListDATA_624 v15 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 v15) _ -> coe v14) _ -> MAlonzo.RTE.mazUnreachableError) @@ -1913,7 +1913,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))))) in coe (case coe v13 of - MAlonzo.Code.Utils.C_iDATA_618 v15 + MAlonzo.Code.Utils.C_iDATA_626 v15 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 v15) _ -> coe v14) _ -> MAlonzo.RTE.mazUnreachableError) @@ -1940,7 +1940,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))))) in coe (case coe v13 of - MAlonzo.Code.Utils.C_bDATA_620 v15 + MAlonzo.Code.Utils.C_bDATA_628 v15 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 v15) _ -> coe v14) _ -> MAlonzo.RTE.mazUnreachableError) @@ -1960,7 +1960,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (MAlonzo.Code.Utils.d_eqDATA_622 + (MAlonzo.Code.Utils.d_eqDATA_630 (coe v23) (coe v25))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) @@ -1995,7 +1995,7 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Utils.C__'44'__442 (coe v23) + MAlonzo.Code.Utils.C__'44'__450 (coe v23) (coe v25))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) @@ -2010,7 +2010,7 @@ du_BUILTIN_368 v0 v1 seq (coe v11) (coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe C_V'45'con_86 (coe MAlonzo.Code.Utils.C_'91''93'_450)))) + (coe C_V'45'con_86 (coe MAlonzo.Code.Utils.C_'91''93'_458)))) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_mkNilPairData_116 -> case coe v1 of @@ -2021,7 +2021,7 @@ du_BUILTIN_368 v0 v1 seq (coe v11) (coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe C_V'45'con_86 (coe MAlonzo.Code.Utils.C_'91''93'_450)))) + (coe C_V'45'con_86 (coe MAlonzo.Code.Utils.C_'91''93'_458)))) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'add_118 -> case coe v1 of @@ -2665,7 +2665,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Builtin.d_writeBITS_406 v33 (coe - MAlonzo.Code.Utils.du_toList_504 + MAlonzo.Code.Utils.du_toList_512 (coe v35)) v37 in coe @@ -2879,7 +2879,7 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Utils.du_dropLIST_520 + MAlonzo.Code.Utils.du_dropLIST_528 (coe v37) (coe v39))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) @@ -2900,9 +2900,9 @@ du_BUILTIN_368 v0 v1 -> let v26 = coe MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'multiScalarMul_422 - (coe MAlonzo.Code.Utils.du_toList_504 (coe v23)) + (coe MAlonzo.Code.Utils.du_toList_512 (coe v23)) (coe - MAlonzo.Code.Utils.du_toList_504 + MAlonzo.Code.Utils.du_toList_512 (coe v25)) in coe (case coe v26 of @@ -2942,9 +2942,9 @@ du_BUILTIN_368 v0 v1 -> let v26 = coe MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'multiScalarMul_424 - (coe MAlonzo.Code.Utils.du_toList_504 (coe v23)) + (coe MAlonzo.Code.Utils.du_toList_512 (coe v23)) (coe - MAlonzo.Code.Utils.du_toList_504 + MAlonzo.Code.Utils.du_toList_512 (coe v25)) in coe (case coe v26 of @@ -2976,9 +2976,9 @@ d_BUILTIN''_1078 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> T_BApp_48 -> MAlonzo.Code.Algorithmic.T__'8866'__178 d_BUILTIN''_1078 v0 v1 ~v2 ~v3 ~v4 ~v5 ~v6 v7 @@ -3002,10 +3002,10 @@ d_V'45'I_1154 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> T_BApp_48 -> T_Value_52 d_V'45'I_1154 v0 ~v1 v2 v3 v4 v5 v6 v7 v8 v9 @@ -3014,10 +3014,10 @@ du_V'45'I_1154 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> T_BApp_48 -> T_Value_52 du_V'45'I_1154 v0 v1 v2 v3 v4 v5 v6 v7 v8 @@ -3077,7 +3077,7 @@ d_ival_1298 v0 (coe MAlonzo.Code.Builtin.Signature.d_fv_96 (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))) - (coe MAlonzo.Code.Utils.C_start_184) (coe (0 :: Integer)) + (coe MAlonzo.Code.Utils.C_start_192) (coe (0 :: Integer)) (coe MAlonzo.Code.Data.List.Base.du_foldr_216 (let v1 = \ v1 -> addInt (coe (1 :: Integer)) (coe v1) in @@ -3088,7 +3088,7 @@ d_ival_1298 v0 (coe MAlonzo.Code.Builtin.Signature.d_args_86 (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))))) - (coe MAlonzo.Code.Utils.C_start_184) + (coe MAlonzo.Code.Utils.C_start_192) (coe MAlonzo.Code.Builtin.Signature.du_sig2SigTy_398 (\ v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v3) @@ -3173,7 +3173,7 @@ du_step_1322 v0 C__'44'__1274 (MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v6) (coe v8) (coe v10)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6) (coe v8) (coe v10)) v3 (coe C_'45''183''8902'_1210 v10)) (coe v4) (coe v9) MAlonzo.Code.Algorithmic.C_wrap_220 v9 @@ -3184,24 +3184,24 @@ du_step_1322 v0 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v11 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v12)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -3212,24 +3212,24 @@ du_step_1322 v0 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v11)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778))) v11 v12)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -3249,24 +3249,24 @@ du_step_1322 v0 C__'44'__1274 (MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v6 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v8)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -3277,24 +3277,24 @@ du_step_1322 v0 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v6)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778))) v6 v8)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -3351,7 +3351,7 @@ du_step_1322 v0 MAlonzo.Code.Type.BetaNormal.C_con_22 (MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d_subNf'8709'_566 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v6))) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v6))) (coe v3) (coe C_V'45'con_86 v8) MAlonzo.Code.Algorithmic.C_builtin_'47'__264 v7 -> coe @@ -3406,7 +3406,7 @@ du_step_1322 v0 du_V'45'I_1154 (coe v11) (coe v14) (coe (0 :: Integer)) (coe v15) (coe addInt (coe (1 :: Integer)) (coe v16)) (coe v21) - (coe MAlonzo.Code.Utils.C_bubble_192 v18) (coe v19) + (coe MAlonzo.Code.Utils.C_bubble_200 v18) (coe v19) (coe C__'36'__162 v1 v20 v3))) _ -> MAlonzo.RTE.mazUnreachableError C_'45''183''8902'_1210 v10 @@ -3419,7 +3419,7 @@ du_step_1322 v0 (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v12) (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v12) (coe v13) (coe v10)) (coe v6) (coe v18) (coe @@ -3432,13 +3432,13 @@ du_step_1322 v0 (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v12) (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v12) (coe v13) (coe v10)) (coe v6) (coe du_V'45'I_1154 (coe v14) (coe addInt (coe (1 :: Integer)) (coe v17)) (coe v18) - (coe MAlonzo.Code.Utils.C_bubble_192 v19) (coe v20) + (coe MAlonzo.Code.Utils.C_bubble_200 v19) (coe v20) (coe v21) (coe v22) (coe MAlonzo.Code.Algorithmic.Signature.du__'91'_'93'SigTy_150 @@ -3465,26 +3465,26 @@ du_step_1322 v0 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v12 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v12) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v12) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v12) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v12) - (coe MAlonzo.Code.Utils.C_'42'_770))) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v13)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -3496,32 +3496,32 @@ du_step_1322 v0 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v12)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v12) (coe - MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v12) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v12) (coe - MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v12) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) v12 v13)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -3622,18 +3622,18 @@ d_stepper_1630 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> T_State_1278 -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_410 T_State_1278 + MAlonzo.Code.Utils.T_RuntimeError_418 T_State_1278 d_stepper_1630 v0 ~v1 v2 = du_stepper_1630 v0 v2 du_stepper_1630 :: Integer -> T_State_1278 -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_410 T_State_1278 + MAlonzo.Code.Utils.T_RuntimeError_418 T_State_1278 du_stepper_1630 v0 v1 = case coe v0 of 0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_gasError_412) + (coe MAlonzo.Code.Utils.C_gasError_420) _ -> let v2 = subInt (coe v0) (coe (1 :: Integer)) in coe (let v3 = coe du_step_1322 (coe v1) in diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CK.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CK.hs index 61fa5f4227d..4e8ff452d8b 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CK.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CK.hs @@ -177,7 +177,7 @@ du_step_122 v0 C__'44'__30 (MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v4) (coe v6) (coe v8)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v4) (coe v6) (coe v8)) v2 (coe MAlonzo.Code.Algorithmic.ReductionEC.C_'45''183''8902'_382 v8)) @@ -190,24 +190,24 @@ du_step_122 v0 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v10)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -218,24 +218,24 @@ du_step_122 v0 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v9)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) v9 v10)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -254,24 +254,24 @@ du_step_122 v0 C__'44'__30 (MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v4 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v6)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -282,24 +282,24 @@ du_step_122 v0 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v4)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778))) v4 v6)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -370,7 +370,7 @@ du_step_122 v0 MAlonzo.Code.Type.BetaNormal.C_con_22 (MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d_subNf'8709'_566 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v4))) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v4))) (coe v2) (coe MAlonzo.Code.Algorithmic.C_con_258 v4 v6) (coe MAlonzo.Code.Algorithmic.ReductionEC.C_V'45'con_162) MAlonzo.Code.Algorithmic.C_builtin_'47'__264 v5 @@ -433,7 +433,7 @@ du_step_122 v0 MAlonzo.Code.Algorithmic.ReductionEC.du_BUILTIN''_326 (coe v14) (coe v6) (coe MAlonzo.Code.Algorithmic.C__'183'__196 v1 v12 v3) - (coe v18) (coe MAlonzo.Code.Utils.C_bubble_192 v21) + (coe v18) (coe MAlonzo.Code.Utils.C_bubble_200 v21) (coe MAlonzo.Code.Algorithmic.ReductionEC.C_step_100 v24 v4)) @@ -446,7 +446,7 @@ du_step_122 v0 MAlonzo.Code.Algorithmic.ReductionEC.du_V'45'I_818 (coe v14) (coe v17) (coe (0 :: Integer)) (coe v18) (coe addInt (coe (1 :: Integer)) (coe v19)) (coe v25) - (coe MAlonzo.Code.Utils.C_bubble_192 v21) (coe v22) + (coe MAlonzo.Code.Utils.C_bubble_200 v21) (coe v22) (coe MAlonzo.Code.Algorithmic.ReductionEC.C_step_100 v24 v4))) @@ -463,7 +463,7 @@ du_step_122 v0 (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v14) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v14) (coe v15) (coe v12)) (coe v8) (coe @@ -478,7 +478,7 @@ du_step_122 v0 (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v14) (coe v15) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v14) (coe v15) (coe v12)) (coe v8) (coe @@ -487,7 +487,7 @@ du_step_122 v0 (coe MAlonzo.Code.Algorithmic.ReductionEC.du_V'45'I_818 (coe v16) (coe addInt (coe (1 :: Integer)) (coe v19)) - (coe v20) (coe MAlonzo.Code.Utils.C_bubble_192 v21) + (coe v20) (coe MAlonzo.Code.Utils.C_bubble_200 v21) (coe v22) (coe v23) (coe v24) (coe MAlonzo.Code.Algorithmic.Signature.du__'91'_'93'SigTy_150 @@ -519,26 +519,26 @@ du_step_122 v0 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v14 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v14) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v14) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v14) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v14) - (coe MAlonzo.Code.Utils.C_'42'_770))) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v15)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -550,32 +550,32 @@ du_step_122 v0 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v14)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v14) (coe - MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v14) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v14) (coe - MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v14) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) v14 v15)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -704,18 +704,18 @@ d_stepper_372 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> T_State_34 -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_410 T_State_34 + MAlonzo.Code.Utils.T_RuntimeError_418 T_State_34 d_stepper_372 v0 ~v1 v2 = du_stepper_372 v0 v2 du_stepper_372 :: Integer -> T_State_34 -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_410 T_State_34 + MAlonzo.Code.Utils.T_RuntimeError_418 T_State_34 du_stepper_372 v0 v1 = case coe v0 of 0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_gasError_412) + (coe MAlonzo.Code.Utils.C_gasError_420) _ -> let v2 = subInt (coe v0) (coe (1 :: Integer)) in coe (let v3 = coe du_step_122 (coe v1) in diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Completeness.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Completeness.hs index 461edb985da..91066306bd0 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Completeness.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Completeness.hs @@ -53,7 +53,7 @@ d_nfCtx_6 v0 v1 -> coe MAlonzo.Code.Algorithmic.C__'44'__12 (d_nfCtx_6 (coe v0) (coe v3)) (MAlonzo.Code.Type.BetaNBE.d_nf_258 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v4)) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError -- Algorithmic.Completeness.nfTyVar d_nfTyVar_22 :: @@ -87,7 +87,7 @@ du_nfTyVar_22 v0 v1 v2 -> coe MAlonzo.Code.Algorithmic.C_T_38 (MAlonzo.Code.Type.BetaNBE.d_eval_166 - (coe v8) (coe v8) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5) + (coe v8) (coe v8) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250)) (coe du_nfTyVar_22 (coe v8) (coe v11) (coe v7)) _ -> MAlonzo.RTE.mazUnreachableError @@ -96,14 +96,14 @@ du_nfTyVar_22 v0 v1 v2 -- Algorithmic.Completeness.lemΠ d_lemΠ_36 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_lemΠ_36 = erased -- Algorithmic.Completeness.stability-μ d_stability'45'μ_48 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -111,7 +111,7 @@ d_stability'45'μ_48 = erased -- Algorithmic.Completeness.lem[] d_lem'91''93'_62 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -121,7 +121,7 @@ d_lemσ_94 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -143,20 +143,20 @@ d_nfList_106 v0 v1 MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2)) (coe d_nfList_106 (coe v0) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError -- Algorithmic.Completeness.subNf-sub∅ d_subNf'45'sub'8709'_118 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'45'sub'8709'_118 = erased -- Algorithmic.Completeness.subNf∅-sub∅ d_subNf'8709''45'sub'8709'_130 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'8709''45'sub'8709'_130 = erased @@ -238,10 +238,10 @@ d_nfType_264 v0 v1 v2 v3 -> coe MAlonzo.Code.Algorithmic.C__'183'__196 (MAlonzo.Code.Type.BetaNBE.d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v0) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v0) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v4) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250))) (d_nfType_264 (coe v0) (coe v1) (coe MAlonzo.Code.Type.C__'8658'__26 v4 v2) @@ -262,7 +262,7 @@ d_nfType_264 v0 v1 v2 v3 MAlonzo.Code.Algorithmic.C__'183''8902'_'47'__212 v4 (MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v4)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) (d_nfType_264 (coe v0) (coe v1) (coe MAlonzo.Code.Type.C_Π_24 v4 v5) (coe v6)) (MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) (coe v4) (coe v7)) @@ -278,8 +278,8 @@ d_nfType_264 v0 v1 v2 v3 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) v10 (coe MAlonzo.Code.Type.C_ƛ_28 @@ -288,13 +288,13 @@ d_nfType_264 v0 v1 v2 v3 (coe MAlonzo.Code.Type.RenamingSubstitution.d_weaken_98 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) v9 v10) (coe MAlonzo.Code.Type.C_'96'_22 (coe MAlonzo.Code.Type.C_Z_16))))) @@ -310,24 +310,24 @@ d_nfType_264 v0 v1 v2 v3 MAlonzo.Code.Algorithmic.C_unwrap_230 v9 (MAlonzo.Code.Type.BetaNBE.d_reify_86 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v0) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v16) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250))) (MAlonzo.Code.Type.BetaNBE.d_reify_86 (coe v9) (coe v0) @@ -345,7 +345,7 @@ d_nfType_264 v0 v1 v2 v3 -> coe MAlonzo.Code.Algorithmic.C_constr_240 v5 (MAlonzo.Code.Type.BetaNBE.d_eval'45'List_174 - (coe v0) (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v12) (coe v5)) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250)) (d_nfType'45'ConstrArgs_274 @@ -358,7 +358,7 @@ d_nfType_264 v0 v1 v2 v3 MAlonzo.Code.Algorithmic.C_case_252 v4 (coe MAlonzo.Code.Type.BetaNBE.du_eval'45'VecList_184 (coe v0) (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250)) (d_nfType_264 (coe v0) (coe v1) (coe MAlonzo.Code.Type.C_SOP_40 v4 v5) (coe v7)) @@ -372,7 +372,7 @@ d_nfType_264 v0 v1 v2 v3 MAlonzo.Code.Algorithmic.C_con_258 (MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v4)) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v4)) v6 MAlonzo.Code.Declarative.C_builtin_166 v4 -> coe MAlonzo.Code.Algorithmic.C_builtin_'47'__264 v4 @@ -454,4 +454,4 @@ d_completenessT_376 v0 v1 v2 v3 (coe d_nfType_264 (coe v0) (coe v1) (coe v2) (coe v3)) (coe MAlonzo.Code.Type.BetaNBE.Soundness.d_soundness_470 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Erasure.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Erasure.hs index 3a086074e56..48a1148c465 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Erasure.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Erasure.hs @@ -149,24 +149,24 @@ d_erase_48 v0 v1 v2 v3 d_erase_48 (coe v0) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v10)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -175,23 +175,23 @@ d_erase_48 v0 v1 v2 v3 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v9)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) v9 v10)) (coe MAlonzo.Code.Type.C_'96'_22 (coe MAlonzo.Code.Type.C_Z_16))))) diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Evaluation.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Evaluation.hs index 10aae2cef60..1fa6642d75b 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Evaluation.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Evaluation.hs @@ -124,7 +124,7 @@ d_stepper_86 :: MAlonzo.Code.Algorithmic.T__'8866'__178 -> Integer -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_410 + MAlonzo.Code.Utils.T_RuntimeError_418 MAlonzo.Code.Algorithmic.T__'8866'__178 d_stepper_86 v0 v1 v2 = let v3 = d_eval_58 (coe v0) (coe C_gas_6 (coe v2)) (coe v1) in @@ -136,7 +136,7 @@ d_stepper_86 v0 v1 v2 C_out'45'of'45'gas_22 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_gasError_412) + (coe MAlonzo.Code.Utils.C_gasError_420) C_error_26 v10 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Properties.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Properties.hs index b075b56e94b..a4b65714aac 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Properties.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Properties.hs @@ -25,8 +25,8 @@ import qualified MAlonzo.Code.Utils -- Algorithmic.Properties.lem-·⋆ d_lem'45''183''8902'_28 :: - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -50,8 +50,8 @@ du_lem'45''183''8902'_28 (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased erased)) -- Algorithmic.Properties.lem-unwrap d_lem'45'unwrap_54 :: - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC.hs index c8c34a58f53..ad36d655c45 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC.hs @@ -41,13 +41,13 @@ d_convSigTy_8 :: Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -111,8 +111,8 @@ d_sigTy2type_16 :: Integer -> Integer -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sigTy2type_16 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 v7 ~v8 ~v9 ~v10 @@ -127,12 +127,12 @@ data T_Value_28 = C_V'45'ƛ_138 | C_V'45'Λ_146 | C_V'45'wrap_156 T_Value_28 | C_V'45'con_162 | C_V'45'I'8658'_184 MAlonzo.Code.Builtin.T_Builtin_2 Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 Integer Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 + MAlonzo.Code.Utils.T__'8724'_'8803'__188 Integer Integer + MAlonzo.Code.Utils.T__'8724'_'8803'__188 MAlonzo.Code.Builtin.Signature.T_SigTy_266 T_BApp_74 | C_V'45'IΠ_208 MAlonzo.Code.Builtin.T_Builtin_2 Integer Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 Integer Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 + MAlonzo.Code.Utils.T__'8724'_'8803'__188 Integer Integer + MAlonzo.Code.Utils.T__'8724'_'8803'__188 MAlonzo.Code.Builtin.Signature.T_SigTy_266 T_BApp_74 | C_V'45'constr_234 MAlonzo.Code.Utils.List.T_Bwd_6 MAlonzo.Code.Utils.List.T_IBwd_396 @@ -213,24 +213,24 @@ d_red2cekVal_240 v0 v1 v2 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v10)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -241,24 +241,24 @@ d_red2cekVal_240 v0 v1 v2 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v9)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) v9 v10)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -307,11 +307,11 @@ d_red2cekBApp_266 :: Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> @@ -320,8 +320,8 @@ d_red2cekBApp_266 ~v0 ~v1 ~v2 ~v3 v4 ~v5 ~v6 ~v7 v8 ~v9 v10 ~v11 v12 = du_red2cekBApp_266 v4 v8 v10 v12 du_red2cekBApp_266 :: - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -> T_BApp_74 -> MAlonzo.Code.Algorithmic.CEK.T_BApp_48 du_red2cekBApp_266 v0 v1 v2 v3 @@ -329,7 +329,7 @@ du_red2cekBApp_266 v0 v1 v2 v3 C_base_78 -> coe MAlonzo.Code.Algorithmic.CEK.C_base_144 C_step_100 v13 v15 -> case coe v1 of - MAlonzo.Code.Utils.C_bubble_192 v19 + MAlonzo.Code.Utils.C_bubble_200 v19 -> case coe v2 of MAlonzo.Code.Algorithmic.C__'183'__196 v20 v22 v23 -> coe @@ -340,7 +340,7 @@ du_red2cekBApp_266 v0 v1 v2 v3 _ -> MAlonzo.RTE.mazUnreachableError C_step'8902'_130 v13 v15 -> case coe v0 of - MAlonzo.Code.Utils.C_bubble_192 v22 + MAlonzo.Code.Utils.C_bubble_200 v22 -> case coe v2 of MAlonzo.Code.Algorithmic.C__'183''8902'_'47'__212 v23 v25 v26 v27 -> coe @@ -377,9 +377,9 @@ d_BUILTIN''_326 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> T_BApp_74 -> MAlonzo.Code.Algorithmic.T__'8866'__178 d_BUILTIN''_326 v0 v1 v2 ~v3 v4 ~v5 v6 ~v7 v8 @@ -388,8 +388,8 @@ du_BUILTIN''_326 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> T_BApp_74 -> MAlonzo.Code.Algorithmic.T__'8866'__178 du_BUILTIN''_326 v0 v1 v2 v3 v4 v5 = coe @@ -481,11 +481,11 @@ data T_EC_476 T_EC_476 MAlonzo.Code.Algorithmic.T__'8866'__178 | C__'183'r__500 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 MAlonzo.Code.Algorithmic.T__'8866'__178 T_Value_28 T_EC_476 | - C__'183''8902'_'47'__512 MAlonzo.Code.Utils.T_Kind_768 + C__'183''8902'_'47'__512 MAlonzo.Code.Utils.T_Kind_776 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 T_EC_476 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 | C_wrap_522 T_EC_476 | - C_unwrap_'47'__534 MAlonzo.Code.Utils.T_Kind_768 + C_unwrap_'47'__534 MAlonzo.Code.Utils.T_Kind_776 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 T_EC_476 | C_constr_558 MAlonzo.Code.Utils.List.T_Bwd_6 @@ -545,24 +545,24 @@ du__'91'_'93''7473'_574 v0 v1 v2 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v10)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -573,24 +573,24 @@ du__'91'_'93''7473'_574 v0 v1 v2 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v9)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) v9 v10)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -657,8 +657,8 @@ data T__'8212''8594''8902'__652 = C_β'45'ƛ_662 T_Value_28 | C_β'45'Λ_678 | C_β'45'wrap_694 T_Value_28 | C_β'45'builtin_720 Integer MAlonzo.Code.Builtin.T_Builtin_2 - MAlonzo.Code.Utils.T__'8724'_'8803'__180 Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 + MAlonzo.Code.Utils.T__'8724'_'8803'__188 Integer + MAlonzo.Code.Utils.T__'8724'_'8803'__188 MAlonzo.Code.Builtin.Signature.T_SigTy_266 T_BApp_74 T_Value_28 | C_β'45'case_746 MAlonzo.Code.Utils.List.T_Bwd_6 MAlonzo.Code.Utils.List.T_IBwd_396 @@ -684,10 +684,10 @@ d_V'45'I_818 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -> T_BApp_74 -> T_Value_28 d_V'45'I_818 v0 ~v1 v2 v3 v4 v5 v6 v7 v8 ~v9 v10 @@ -696,10 +696,10 @@ du_V'45'I_818 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> T_BApp_74 -> T_Value_28 du_V'45'I_818 v0 v1 v2 v3 v4 v5 v6 v7 v8 @@ -722,7 +722,7 @@ d_ival_838 v0 (coe MAlonzo.Code.Builtin.Signature.d_fv_96 (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))) - (coe MAlonzo.Code.Utils.C_start_184) (coe (0 :: Integer)) + (coe MAlonzo.Code.Utils.C_start_192) (coe (0 :: Integer)) (coe MAlonzo.Code.Data.List.Base.du_foldr_216 (let v1 = \ v1 -> addInt (coe (1 :: Integer)) (coe v1) in @@ -733,7 +733,7 @@ d_ival_838 v0 (coe MAlonzo.Code.Builtin.Signature.d_args_86 (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))))) - (coe MAlonzo.Code.Utils.C_start_184) + (coe MAlonzo.Code.Utils.C_start_192) (coe MAlonzo.Code.Builtin.Signature.du_sig2SigTy_398 (\ v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v3) diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC/Progress.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC/Progress.hs index 1fa21d48f3f..0a1c1377d13 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC/Progress.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC/Progress.hs @@ -173,7 +173,7 @@ d_progress_86 v0 v1 MAlonzo.Code.Algorithmic.C__'183'__196 v2 v4 v5) (coe v14) - (coe MAlonzo.Code.Utils.C_bubble_192 v17) + (coe MAlonzo.Code.Utils.C_bubble_200 v17) (coe MAlonzo.Code.Algorithmic.ReductionEC.C_step_100 v20 v9))) @@ -190,7 +190,7 @@ d_progress_86 v0 v1 MAlonzo.Code.Algorithmic.C__'183'__196 v2 v4 v5) (coe v14) - (coe MAlonzo.Code.Utils.C_bubble_192 v17) + (coe MAlonzo.Code.Utils.C_bubble_200 v17) (coe MAlonzo.Code.Algorithmic.ReductionEC.C_step_100 v20 v9)) @@ -209,7 +209,7 @@ d_progress_86 v0 v1 (coe v14) (coe addInt (coe (1 :: Integer)) (coe v15)) (coe v21) - (coe MAlonzo.Code.Utils.C_bubble_192 v17) + (coe MAlonzo.Code.Utils.C_bubble_200 v17) (coe v18) (coe MAlonzo.Code.Algorithmic.ReductionEC.C_step_100 @@ -236,7 +236,7 @@ d_progress_86 v0 v1 (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2) (coe v4) (coe v6)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2) (coe v4) (coe v6)) (coe MAlonzo.Code.Algorithmic.ReductionEC.C__'183''8902'_'47'__512 v2 v4 v15 v6) @@ -268,7 +268,7 @@ d_progress_86 v0 v1 (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2) (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2) (coe v4) (coe v6)) (coe MAlonzo.Code.Algorithmic.ReductionEC.C_'91''93'_480) (coe @@ -280,7 +280,7 @@ d_progress_86 v0 v1 MAlonzo.Code.Algorithmic.ReductionEC.C_ruleEC_766 (MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2) (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2) (coe v4) (coe v6)) (coe MAlonzo.Code.Algorithmic.C__'183''8902'_'47'__212 v2 v4 @@ -300,7 +300,7 @@ d_progress_86 v0 v1 (coe MAlonzo.Code.Algorithmic.ReductionEC.du_V'45'I_818 (coe v10) (coe addInt (coe (1 :: Integer)) (coe v13)) (coe v14) - (coe MAlonzo.Code.Utils.C_bubble_192 v15) (coe v16) (coe v17) + (coe MAlonzo.Code.Utils.C_bubble_200 v15) (coe v16) (coe v17) (coe v18) (coe MAlonzo.Code.Algorithmic.Signature.du__'91'_'93'SigTy_150 @@ -319,39 +319,39 @@ d_progress_86 v0 v1 (coe MAlonzo.Code.Type.BetaNBE.d__'183'V__150 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d__'183'V__150 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe MAlonzo.Code.Type.C_'8709'_4) (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v8)) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250)) (coe @@ -359,8 +359,8 @@ d_progress_86 v0 v1 (coe MAlonzo.Code.Type.C_'8709'_4) (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe MAlonzo.Code.Type.C_ƛ_28 (coe @@ -370,24 +370,24 @@ d_progress_86 v0 v1 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v7)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778))) v7 v8)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -448,24 +448,24 @@ d_progress_86 v0 v1 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v2 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v4)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -476,26 +476,26 @@ d_progress_86 v0 v1 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v2)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770))) + (coe MAlonzo.Code.Utils.C_'42'_778))) v2 v4)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -533,24 +533,24 @@ d_progress_86 v0 v1 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v2 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v4)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -562,31 +562,31 @@ d_progress_86 v0 v1 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v2)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) v2 v4)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -600,24 +600,24 @@ d_progress_86 v0 v1 MAlonzo.Code.Algorithmic.ReductionEC.C_ruleEC_766 (MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v2 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v4)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -629,31 +629,31 @@ d_progress_86 v0 v1 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v2)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) v2 v4)) (coe MAlonzo.Code.Type.C_'96'_22 diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/RenamingSubstitution.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/RenamingSubstitution.hs index bc345912e6f..26bdd4dd31a 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/RenamingSubstitution.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/RenamingSubstitution.hs @@ -34,7 +34,7 @@ import qualified MAlonzo.Code.Utils.List d_Ren_8 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> @@ -46,7 +46,7 @@ d_ext_32 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -77,13 +77,13 @@ d_ext'8902'_58 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Algorithmic.T__'8715'__16) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Algorithmic.T__'8715'__16 @@ -92,7 +92,7 @@ d_ext'8902'_58 v0 v1 ~v2 ~v3 v4 v5 ~v6 ~v7 v8 du_ext'8902'_58 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -106,7 +106,7 @@ du_ext'8902'_58 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.Algorithmic.C_T_38 (MAlonzo.Code.Type.BetaNormal.d_renNf_46 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8)) (coe v3 v8 v9) _ -> MAlonzo.RTE.mazUnreachableError @@ -114,7 +114,7 @@ du_ext'8902'_58 v0 v1 v2 v3 v4 d_ren'45'mkCaseType_78 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -127,7 +127,7 @@ d_ren_104 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -150,7 +150,7 @@ d_ren_104 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Algorithmic.C__'44'__12 v3 (MAlonzo.Code.Type.BetaNormal.d_renNf_46 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v12))) (coe v4) (coe du_ext_32 (coe v5)) (coe v13) (coe v10)) _ -> MAlonzo.RTE.mazUnreachableError @@ -158,7 +158,7 @@ d_ren_104 v0 v1 v2 v3 v4 v5 v6 v7 -> coe MAlonzo.Code.Algorithmic.C__'183'__196 (MAlonzo.Code.Type.BetaNormal.d_renNf_46 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8)) (d_ren_104 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) @@ -188,7 +188,7 @@ d_ren_104 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v8)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v8)) (coe MAlonzo.Code.Type.RenamingSubstitution.du_ext_18 (coe v4)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v10)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v10)) (d_ren_104 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v8 v10) (coe v11)) @@ -203,42 +203,42 @@ d_ren_104 v0 v1 v2 v3 v4 v5 v6 v7 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe MAlonzo.Code.Type.BetaNBE.d__'183'V__150 (coe v0) (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d__'183'V__150 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v14)) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe MAlonzo.Code.Type.C_ƛ_28 (coe @@ -246,23 +246,23 @@ d_ren_104 v0 v1 v2 v3 v4 v5 v6 v7 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v13)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778))) v13 v14)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -282,13 +282,13 @@ d_ren_104 v0 v1 v2 v3 v4 v5 v6 v7 (MAlonzo.Code.Type.BetaNormal.d_renNf_46 (coe v0) (coe v1) (coe v4) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v10)) (MAlonzo.Code.Type.BetaNormal.d_renNf_46 (coe v0) (coe v1) (coe v4) (coe v8) (coe v11)) @@ -304,7 +304,7 @@ d_ren_104 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe MAlonzo.Code.Type.BetaNormal.du_renNf'45'VecList_58 (coe v0) - (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v16)) + (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v16)) (coe v9)) (coe du_ren'45'ConstrArgs_126 (coe v0) (coe v1) (coe v2) (coe v3) @@ -315,7 +315,7 @@ d_ren_104 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Algorithmic.C_case_252 v8 (coe MAlonzo.Code.Type.BetaNormal.du_renNf'45'VecList_58 (coe v0) - (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v9)) + (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9)) (d_ren_104 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 v8 v9) (coe v11)) @@ -336,7 +336,7 @@ d_ren'45'ConstrArgs_126 :: MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -353,7 +353,7 @@ du_ren'45'ConstrArgs_126 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -375,7 +375,7 @@ d_ren'45'ConstrArgs'45'List_144 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -407,7 +407,7 @@ d_ren'45'Cases_166 :: MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -424,7 +424,7 @@ du_ren'45'Cases_166 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -474,7 +474,7 @@ d_weaken'8902'_326 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -> MAlonzo.Code.Algorithmic.T__'8866'__178 d_weaken'8902'_326 v0 v1 v2 v3 v4 @@ -488,7 +488,7 @@ d_weaken'8902'_326 v0 v1 v2 v3 v4 d_Sub_336 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> @@ -500,7 +500,7 @@ d_exts_360 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -516,7 +516,7 @@ du_exts_360 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -537,10 +537,10 @@ du_exts_360 v0 v1 v2 v3 v4 v5 v6 v7 d_weaken_314 (coe v1) (coe v2) (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d_subNf_104 (coe v0) - (coe v1) (coe v3) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v6)) + (coe v1) (coe v3) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6)) (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d_subNf_104 (coe v0) - (coe v1) (coe v3) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5)) + (coe v1) (coe v3) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) (coe v4 v6 v12) _ -> MAlonzo.RTE.mazUnreachableError -- Algorithmic.RenamingSubstitution.exts⋆ @@ -549,13 +549,13 @@ d_exts'8902'_386 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Algorithmic.T__'8866'__178) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Algorithmic.T__'8866'__178 @@ -565,13 +565,13 @@ du_exts'8902'_386 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Algorithmic.T__'8866'__178) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Algorithmic.T__'8866'__178 du_exts'8902'_386 v0 v1 v2 v3 v4 v5 v6 @@ -581,17 +581,17 @@ du_exts'8902'_386 v0 v1 v2 v3 v4 v5 v6 d_weaken'8902'_326 (coe v1) (coe v2) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v1) (coe (\ v12 v13 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) (coe v12) (coe v3 v12 v13))) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v10))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v10))) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250)) (coe v5) (coe v4 v10 v11) _ -> MAlonzo.RTE.mazUnreachableError @@ -601,7 +601,7 @@ d_sub_412 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -623,7 +623,7 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Algorithmic.C__'44'__12 v3 (MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d_subNf_104 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v12))) (coe v4) (coe @@ -634,20 +634,20 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 -> coe MAlonzo.Code.Algorithmic.C__'183'__196 (MAlonzo.Code.Type.BetaNBE.d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v1) (coe (\ v12 v13 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) (coe v12) (coe v4 v12 v13))) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v8))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8))) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250))) (d_sub_412 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) @@ -678,13 +678,13 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 -> coe MAlonzo.Code.Algorithmic.C__'183''8902'_'47'__212 v8 (MAlonzo.Code.Type.BetaNBE.d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v8)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v8)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v8)) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v8)) @@ -696,11 +696,11 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) (coe v14) (coe v4 v14 v15))) (coe v8)) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v8)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v10))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v10))) (coe MAlonzo.Code.Type.BetaNBE.du_exte_140 (coe v1) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250) (coe v8)))) @@ -718,24 +718,24 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v13 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v14)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -744,23 +744,23 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v13)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778))) v13 v14)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -774,24 +774,24 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Algorithmic.C_unwrap_230 v8 (MAlonzo.Code.Type.BetaNBE.d_reify_86 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v1) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v1) (coe @@ -799,23 +799,23 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) (coe v14) (coe v4 v14 v15))) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v10))) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250))) (MAlonzo.Code.Type.BetaNBE.d_reify_86 @@ -845,7 +845,7 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe MAlonzo.Code.Type.BetaNBE.du_eval'45'VecList_184 (coe v1) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.du_sub'45'VecList_356 (coe v0) (coe v1) @@ -853,10 +853,10 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 (\ v17 v18 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) (coe v17) (coe v4 v17 v18))) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.du_embNf'45'VecList_148 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v16))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v16))) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250)) (coe v9)) (coe @@ -868,7 +868,7 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Algorithmic.C_case_252 v8 (coe MAlonzo.Code.Type.BetaNBE.du_eval'45'VecList_184 (coe v1) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.du_sub'45'VecList_356 (coe v0) (coe v1) @@ -876,10 +876,10 @@ d_sub_412 v0 v1 v2 v3 v4 v5 v6 v7 (\ v13 v14 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) (coe v13) (coe v4 v13 v14))) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.du_embNf'45'VecList_148 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v9))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9))) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250)) (d_sub_412 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) @@ -900,7 +900,7 @@ d_sub'45'ConstrList_434 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -932,7 +932,7 @@ d_sub'45'VecList_470 :: MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -949,7 +949,7 @@ du_sub'45'VecList_470 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -969,7 +969,7 @@ du_sub'45'VecList_470 v0 v1 v2 v3 v4 v5 v6 v7 v8 d_sub'45'mkCaseType_510 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -983,7 +983,7 @@ d_sub'45'Cases_544 :: MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -1000,7 +1000,7 @@ du_sub'45'Cases_544 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -1032,7 +1032,7 @@ d_subcons_678 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -1085,7 +1085,7 @@ d__'91'_'93'_702 v0 v1 v2 v3 v4 v5 d_lem_726 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> @@ -1103,7 +1103,7 @@ du_lem_726 v0 d__'91'_'93''8902'_740 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -1163,7 +1163,7 @@ d_ext'738''8902'_784 :: (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Algorithmic.T__'8715'__16) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Algorithmic.T__'8715'__16 @@ -1241,24 +1241,24 @@ d_ren'738'_800 v0 v1 v2 v3 v4 v5 (coe v0) (coe v1) (coe v2) (coe v3) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v11 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v12)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -1267,23 +1267,23 @@ d_ren'738'_800 v0 v1 v2 v3 v4 v5 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v11)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_778))) v11 v12)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -1482,7 +1482,7 @@ d_ext'738''45'comp_994 = erased d_ext'738''8902''45'id_1008 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -1493,7 +1493,7 @@ d_ext'738''8902''45'comp_1030 :: MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> @@ -1537,7 +1537,7 @@ d_ext'738''8902''45'cong_1082 :: (MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8715'__16 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Signature.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Signature.hs index dfb8e293a7d..3ad52e5b8d0 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Signature.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Signature.hs @@ -34,13 +34,13 @@ d_convSigTy_8 :: Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -127,8 +127,8 @@ d_sigTy2type_18 :: Integer -> Integer -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sigTy2type_18 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 v7 ~v8 ~v9 ~v10 @@ -160,7 +160,7 @@ d_btype_30 :: d_btype_30 v0 v1 = coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d_subNf'8709'_566 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Builtin.Signature.du_sig2type_242 (\ v2 v3 v4 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v4) @@ -179,7 +179,7 @@ d_btype'45'ren_42 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Builtin.T_Builtin_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -189,7 +189,7 @@ d_btype'45'sub_56 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Builtin.T_Builtin_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -198,8 +198,8 @@ d_btype'45'sub_56 = erased d_subNf'45'Π_72 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -209,17 +209,17 @@ d_subNf'45'Π_72 = erased d_subSigTy_108 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 @@ -228,7 +228,7 @@ d_subSigTy_108 v0 v1 v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 ~v11 v12 du_subSigTy_108 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> @@ -241,23 +241,23 @@ du_subSigTy_108 v0 v1 v2 v3 -> coe MAlonzo.Code.Builtin.Signature.C__B'8658'__302 (MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d_subNf_104 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v12)) (MAlonzo.Code.Type.BetaNBE.d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v1) (coe (\ v15 v16 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) (coe v15) (coe v2 v15 v16))) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v13))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v13))) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250))) (coe du_subSigTy_108 (coe v0) (coe v1) (coe v2) (coe v14)) MAlonzo.Code.Builtin.Signature.C_sucΠ_326 v13 v14 v15 @@ -266,7 +266,7 @@ du_subSigTy_108 v0 v1 v2 v3 (MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v13)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v13)) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v13)) @@ -279,11 +279,11 @@ du_subSigTy_108 v0 v1 v2 v3 (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.du_extsNf_198 (coe v1) (coe v2) (coe v13) (coe v16) (coe v17)))) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v13)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v14))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v14))) (coe (\ v16 v17 -> coe @@ -301,15 +301,15 @@ du_subSigTy_108 v0 v1 v2 v3 -- Algorithmic.Signature._[_]SigTy d__'91'_'93'SigTy_150 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -319,7 +319,7 @@ d__'91'_'93'SigTy_150 v0 v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 = du__'91'_'93'SigTy_150 v0 v1 v11 v12 du__'91'_'93'SigTy_150 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 @@ -341,11 +341,11 @@ d_uniqueSigTy_180 :: Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Soundness.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Soundness.hs index 18f5c3a1b0b..b1f7d1b126d 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Soundness.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Soundness.hs @@ -54,7 +54,7 @@ d_embCtx_6 v0 v1 -> coe MAlonzo.Code.Declarative.C__'44'__26 (d_embCtx_6 (coe v0) (coe v3)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v4)) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError -- Algorithmic.Soundness.embVar d_embVar_22 :: @@ -88,7 +88,7 @@ du_embVar_22 v0 v1 v2 -> coe MAlonzo.Code.Declarative.C_T_40 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v8) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v6)) + (coe v8) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6)) (coe du_embVar_22 (coe v8) (coe v11) (coe v7)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -96,7 +96,7 @@ du_embVar_22 v0 v1 v2 -- Algorithmic.Soundness.emb[] d_emb'91''93'_38 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.Equality.T__'8801'β__10 @@ -104,29 +104,29 @@ d_emb'91''93'_38 v0 v1 v2 v3 = coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d__'91'_'93'_432 (coe v0) - (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v1)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v3)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v3)) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v1) (coe v2))))) (MAlonzo.Code.Type.BetaNBE.Soundness.d_soundness_470 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d__'91'_'93'_432 (coe v0) - (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v1)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v3)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v3)) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v1) (coe v2)))) @@ -135,7 +135,7 @@ d_emb'91''93'_38 v0 v1 v2 v3 d_soundness'45'μ_60 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -144,7 +144,7 @@ d_soundness'45'μ_60 v0 ~v1 v2 ~v3 v4 v5 = du_soundness'45'μ_60 v0 v2 v4 v5 du_soundness'45'μ_60 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.Equality.T__'8801'β__10 @@ -152,27 +152,27 @@ du_soundness'45'μ_60 v0 v1 v2 v3 = coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v1 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v2)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -181,47 +181,47 @@ du_soundness'45'μ_60 v0 v1 v2 v3 (coe MAlonzo.Code.Type.RenamingSubstitution.d_weaken_98 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778))) v1 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v2))) (coe MAlonzo.Code.Type.C_'96'_22 (coe MAlonzo.Code.Type.C_Z_16))))) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v1) (coe v3))))) (MAlonzo.Code.Type.BetaNBE.Soundness.d_soundness_470 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v1 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v2)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -230,24 +230,24 @@ du_soundness'45'μ_60 v0 v1 v2 v3 (coe MAlonzo.Code.Type.RenamingSubstitution.d_weaken_98 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778))) v1 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v2))) (coe MAlonzo.Code.Type.C_'96'_22 (coe MAlonzo.Code.Type.C_Z_16))))) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 @@ -264,7 +264,7 @@ d_lemσ''_108 :: MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> @@ -275,7 +275,7 @@ du_lemσ''_108 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.Equality.T__'8801'β__10 @@ -283,33 +283,33 @@ du_lemσ''_108 v0 v1 v2 v3 = coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v1) (coe v0) (coe (\ v4 v5 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v4) (coe v3 v4 v5))) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2)))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2)))) (MAlonzo.Code.Type.BetaNBE.Soundness.d_soundness_470 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v1) (coe v0) (coe (\ v4 v5 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v4) (coe v3 v4 v5))) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2))) (coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2) (coe (\ v4 v5 -> MAlonzo.Code.Type.BetaNBE.d_eval_166 @@ -322,16 +322,16 @@ du_lemσ''_108 v0 v1 v2 v3 (coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2))) (coe (\ v4 v5 -> MAlonzo.Code.Type.BetaNBE.d_eval_166 @@ -344,23 +344,23 @@ du_lemσ''_108 v0 v1 v2 v3 (coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v1) (coe v0) (coe (\ v4 v5 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v4) (coe v3 v4 v5))) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2)))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2)))) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250))) (coe MAlonzo.Code.Type.Equality.du_'8801'2β_76) (coe MAlonzo.Code.Type.Equality.du_'8801'2β_76)))) @@ -399,7 +399,7 @@ d_embList_158 v0 v1 MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2)) (coe d_embList_158 (coe v0) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError -- Algorithmic.Soundness.lemsub @@ -408,7 +408,7 @@ d_lemsub_180 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.Equality.T__'8801'β__10 -> @@ -419,7 +419,7 @@ du_lemsub_180 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.Equality.T__'8801'β__10 @@ -427,28 +427,28 @@ du_lemsub_180 v0 v1 v2 v3 v4 = coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v1) (coe v0) (coe (\ v5 v6 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v5) (coe v4 v5 v6))) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v3)) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v3)) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250))) (coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v2)) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v2)) (coe (\ v5 v6 -> MAlonzo.Code.Type.BetaNBE.d_eval_166 @@ -461,10 +461,10 @@ du_lemsub_180 v0 v1 v2 v3 v4 (coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v3) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v3) (coe (\ v5 v6 -> MAlonzo.Code.Type.BetaNBE.d_eval_166 @@ -478,14 +478,14 @@ du_lemsub_180 v0 v1 v2 v3 v4 (coe MAlonzo.Code.Type.Equality.C_sym'8801'β_16 (MAlonzo.Code.Type.BetaNBE.Soundness.d_soundness_470 - (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v1) (coe v0) (coe (\ v5 v6 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v5) (coe v4 v5 v6))) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v3)))) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v3)))) -- Algorithmic.Soundness.subNf-sub∅-lem d_subNf'45'sub'8709''45'lem_196 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> @@ -499,17 +499,17 @@ d_subNf'45'sub'8709''45'lem_196 v0 v1 (coe (\ v2 v3 -> MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v2) erased)) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v1))) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v1))) (coe du_lemsub_180 (coe v0) (coe MAlonzo.Code.Type.C_'8709'_4) (coe v1) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v1)) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v1)) erased) (coe MAlonzo.Code.Type.Equality.du_'8801'2β_76) -- Algorithmic.Soundness.subNf∅-sub∅-lem @@ -527,7 +527,7 @@ d_btype'45'lem'8801'β_224 :: d_btype'45'lem'8801'β_224 v0 v1 = coe MAlonzo.Code.Type.BetaNBE.Soundness.d_soundness_470 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Declarative.d_btype_42 (coe v0) (coe v1)) -- Algorithmic.Soundness.emb d_emb_240 :: @@ -555,7 +555,7 @@ d_emb_240 v0 v1 v2 v3 -> coe MAlonzo.Code.Declarative.C__'183'__118 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v4)) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v4)) (d_emb_240 (coe v0) (coe v1) (coe MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v4 v2) (coe v6)) @@ -574,11 +574,11 @@ d_emb_240 v0 v1 v2 v3 -> coe MAlonzo.Code.Declarative.C_conv_156 (MAlonzo.Code.Type.RenamingSubstitution.d__'91'_'93'_432 - (coe v0) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v4)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v6)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6)) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v4) (coe v8))) @@ -588,7 +588,7 @@ d_emb_240 v0 v1 v2 v3 (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v4)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v6)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6)) (coe d_emb_240 (coe v0) (coe v1) (coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v4 v6) (coe v7)) @@ -603,27 +603,27 @@ d_emb_240 v0 v1 v2 v3 (coe MAlonzo.Code.Declarative.C_conv_156 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v10)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -633,23 +633,23 @@ d_emb_240 v0 v1 v2 v3 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v9)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) v9 v10)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -663,24 +663,24 @@ d_emb_240 v0 v1 v2 v3 (coe v0) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v10)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -690,23 +690,23 @@ d_emb_240 v0 v1 v2 v3 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v9)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) v9 v10)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -723,18 +723,18 @@ d_emb_240 v0 v1 v2 v3 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v6)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -743,24 +743,24 @@ d_emb_240 v0 v1 v2 v3 (coe MAlonzo.Code.Type.RenamingSubstitution.d_weaken_98 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778))) v4 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v6))) (coe MAlonzo.Code.Type.C_'96'_22 (coe MAlonzo.Code.Type.C_Z_16))))) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 @@ -777,7 +777,7 @@ d_emb_240 v0 v1 v2 v3 -> coe MAlonzo.Code.Declarative.C_constr_142 v5 (MAlonzo.Code.Type.BetaNormal.d_embNf'45'List_140 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v12) (coe v5))) (d_emb'45'ConstrArgs_250 (coe v0) (coe v1) @@ -789,7 +789,7 @@ d_emb_240 v0 v1 v2 v3 MAlonzo.Code.Declarative.C_case_154 v4 (coe MAlonzo.Code.Type.BetaNormal.du_embNf'45'VecList_148 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) (d_emb_240 (coe v0) (coe v1) (coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 v4 v5) (coe v7)) @@ -800,7 +800,7 @@ d_emb_240 v0 v1 v2 v3 MAlonzo.Code.Declarative.C_con_162 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v4)) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v4)) v6 (d_subNf'8709''45'sub'8709''45'lem_210 (coe v0) (coe v4)) MAlonzo.Code.Algorithmic.C_builtin_'47'__264 v5 -> coe diff --git a/plutus-metatheory/src/MAlonzo/Code/Builtin.hs b/plutus-metatheory/src/MAlonzo/Code/Builtin.hs index 69cb7248585..829b57ff258 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Builtin.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Builtin.hs @@ -2452,11 +2452,11 @@ d_arity_304 v0 MAlonzo.Code.Builtin.Signature.d_args_86 (coe d_signature_298 (coe v0))) -- Builtin.lengthBS -d_lengthBS_308 :: MAlonzo.Code.Utils.T_ByteString_418 -> Integer +d_lengthBS_308 :: MAlonzo.Code.Utils.T_ByteString_426 -> Integer d_lengthBS_308 = toInteger . BS.length -- Builtin.index d_index_310 :: - MAlonzo.Code.Utils.T_ByteString_418 -> Integer -> Integer + MAlonzo.Code.Utils.T_ByteString_426 -> Integer -> Integer d_index_310 = \xs n -> fromIntegral (BS.index xs (fromIntegral n)) -- Builtin.div d_div_312 :: Integer -> Integer -> Integer @@ -2477,88 +2477,88 @@ d_TRACE_322 :: d_TRACE_322 = \_ s -> trace (Text.unpack s) -- Builtin.concat d_concat_324 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_concat_324 = BS.append -- Builtin.cons d_cons_326 :: Integer -> - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 - () MAlonzo.Code.Utils.T_ByteString_418 + () MAlonzo.Code.Utils.T_ByteString_426 d_cons_326 = \n xs -> fmap (\w8 -> BS.cons w8 xs) (toIntegralSized n) -- Builtin.slice d_slice_328 :: Integer -> Integer -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_slice_328 = \start n xs -> BS.take (fromIntegral n) (BS.drop (fromIntegral start) xs) -- Builtin.B< d_B'60'_330 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> Bool + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> Bool d_B'60'_330 = (<) -- Builtin.B<= d_B'60''61'_332 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> Bool + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> Bool d_B'60''61'_332 = (<=) -- Builtin.SHA2-256 d_SHA2'45'256_334 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_SHA2'45'256_334 = Hash.sha2_256 -- Builtin.SHA3-256 d_SHA3'45'256_336 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_SHA3'45'256_336 = Hash.sha3_256 -- Builtin.BLAKE2B-256 d_BLAKE2B'45'256_338 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_BLAKE2B'45'256_338 = Hash.blake2b_256 -- Builtin.verifyEd25519Sig d_verifyEd25519Sig_340 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () Bool d_verifyEd25519Sig_340 = \k m s -> builtinResultToMaybe $ verifyEd25519Signature k m s -- Builtin.verifyEcdsaSecp256k1Sig d_verifyEcdsaSecp256k1Sig_342 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () Bool d_verifyEcdsaSecp256k1Sig_342 = \k m s -> builtinResultToMaybe $ verifyEcdsaSecp256k1Signature k m s -- Builtin.verifySchnorrSecp256k1Sig d_verifySchnorrSecp256k1Sig_344 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () Bool d_verifySchnorrSecp256k1Sig_344 = \k m s -> builtinResultToMaybe $ verifySchnorrSecp256k1Signature k m s -- Builtin.equals d_equals_346 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> Bool + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> Bool d_equals_346 = (==) -- Builtin.ENCODEUTF8 d_ENCODEUTF8_348 :: MAlonzo.Code.Agda.Builtin.String.T_String_6 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 d_ENCODEUTF8_348 = encodeUtf8 -- Builtin.DECODEUTF8 d_DECODEUTF8_350 :: - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () MAlonzo.Code.Agda.Builtin.String.T_String_6 d_DECODEUTF8_350 = eitherToMaybe . decodeUtf8' @@ -2568,118 +2568,118 @@ d_serialiseDATA_352 "MAlonzo Runtime Error: postulate evaluated: Builtin.serialiseDATA" -- Builtin.BLS12-381-G1-add d_BLS12'45'381'45'G1'45'add_354 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 d_BLS12'45'381'45'G1'45'add_354 = G1.add -- Builtin.BLS12-381-G1-neg d_BLS12'45'381'45'G1'45'neg_356 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 d_BLS12'45'381'45'G1'45'neg_356 = G1.neg -- Builtin.BLS12-381-G1-scalarMul d_BLS12'45'381'45'G1'45'scalarMul_358 :: Integer -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 d_BLS12'45'381'45'G1'45'scalarMul_358 = G1.scalarMul -- Builtin.BLS12-381-G1-equal d_BLS12'45'381'45'G1'45'equal_360 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 -> Bool + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -> Bool d_BLS12'45'381'45'G1'45'equal_360 = (==) -- Builtin.BLS12-381-G1-hashToGroup d_BLS12'45'381'45'G1'45'hashToGroup_362 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 - () MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 + () MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 d_BLS12'45'381'45'G1'45'hashToGroup_362 = eitherToMaybe .* G1.hashToGroup -- Builtin.BLS12-381-G1-compress d_BLS12'45'381'45'G1'45'compress_364 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -> + MAlonzo.Code.Utils.T_ByteString_426 d_BLS12'45'381'45'G1'45'compress_364 = G1.compress -- Builtin.BLS12-381-G1-uncompress d_BLS12'45'381'45'G1'45'uncompress_366 :: - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 - () MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 + () MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 d_BLS12'45'381'45'G1'45'uncompress_366 = eitherToMaybe . G1.uncompress -- Builtin.BLS12-381-G2-add d_BLS12'45'381'45'G2'45'add_368 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 d_BLS12'45'381'45'G2'45'add_368 = G2.add -- Builtin.BLS12-381-G2-neg d_BLS12'45'381'45'G2'45'neg_370 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 d_BLS12'45'381'45'G2'45'neg_370 = G2.neg -- Builtin.BLS12-381-G2-scalarMul d_BLS12'45'381'45'G2'45'scalarMul_372 :: Integer -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 d_BLS12'45'381'45'G2'45'scalarMul_372 = G2.scalarMul -- Builtin.BLS12-381-G2-equal d_BLS12'45'381'45'G2'45'equal_374 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 -> Bool + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -> Bool d_BLS12'45'381'45'G2'45'equal_374 = (==) -- Builtin.BLS12-381-G2-hashToGroup d_BLS12'45'381'45'G2'45'hashToGroup_376 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 - () MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 + () MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 d_BLS12'45'381'45'G2'45'hashToGroup_376 = eitherToMaybe .* G2.hashToGroup -- Builtin.BLS12-381-G2-compress d_BLS12'45'381'45'G2'45'compress_378 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -> + MAlonzo.Code.Utils.T_ByteString_426 d_BLS12'45'381'45'G2'45'compress_378 = G2.compress -- Builtin.BLS12-381-G2-uncompress d_BLS12'45'381'45'G2'45'uncompress_380 :: - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 - () MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 + () MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 d_BLS12'45'381'45'G2'45'uncompress_380 = eitherToMaybe . G2.uncompress -- Builtin.BLS12-381-millerLoop d_BLS12'45'381'45'millerLoop_382 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_764 + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_772 d_BLS12'45'381'45'millerLoop_382 = Pairing.millerLoop -- Builtin.BLS12-381-mulMlResult d_BLS12'45'381'45'mulMlResult_384 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_764 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_764 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_764 + MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_772 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_772 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_772 d_BLS12'45'381'45'mulMlResult_384 = Pairing.mulMlResult -- Builtin.BLS12-381-finalVerify d_BLS12'45'381'45'finalVerify_386 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_764 -> - MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_764 -> Bool + MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_772 -> + MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_772 -> Bool d_BLS12'45'381'45'finalVerify_386 = Pairing.finalVerify -- Builtin.KECCAK-256 d_KECCAK'45'256_388 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_KECCAK'45'256_388 = Hash.keccak_256 -- Builtin.BLAKE2B-224 d_BLAKE2B'45'224_390 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_BLAKE2B'45'224_390 = Hash.blake2b_224 -- Builtin.BStoI d_BStoI_392 :: - Bool -> MAlonzo.Code.Utils.T_ByteString_418 -> Integer + Bool -> MAlonzo.Code.Utils.T_ByteString_426 -> Integer d_BStoI_392 = Bitwise.byteStringToInteger -- Builtin.ItoBS d_ItoBS_394 :: @@ -2687,48 +2687,48 @@ d_ItoBS_394 :: Integer -> Integer -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 - () MAlonzo.Code.Utils.T_ByteString_418 + () MAlonzo.Code.Utils.T_ByteString_426 d_ItoBS_394 = \e w n -> builtinResultToMaybe $ Bitwise.integerToByteString e w n -- Builtin.andBYTESTRING d_andBYTESTRING_396 :: Bool -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_andBYTESTRING_396 = Bitwise.andByteString -- Builtin.orBYTESTRING d_orBYTESTRING_398 :: Bool -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_orBYTESTRING_398 = Bitwise.orByteString -- Builtin.xorBYTESTRING d_xorBYTESTRING_400 :: Bool -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_xorBYTESTRING_400 = Bitwise.xorByteString -- Builtin.complementBYTESTRING d_complementBYTESTRING_402 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_complementBYTESTRING_402 = Bitwise.complementByteString -- Builtin.readBIT d_readBIT_404 :: - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> Integer -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () Bool d_readBIT_404 = \s n -> builtinResultToMaybe $ Bitwise.readBit s (fromIntegral n) -- Builtin.writeBITS d_writeBITS_406 :: - MAlonzo.Code.Utils.T_ByteString_418 -> + MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.List.T_List_10 () Integer -> Bool -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 - () MAlonzo.Code.Utils.T_ByteString_418 + () MAlonzo.Code.Utils.T_ByteString_426 d_writeBITS_406 = \s ps u -> builtinResultToMaybe $ Bitwise.writeBits s (fmap fromIntegral ps) u -- Builtin.replicateBYTE @@ -2736,32 +2736,32 @@ d_replicateBYTE_408 :: Integer -> Integer -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 - () MAlonzo.Code.Utils.T_ByteString_418 + () MAlonzo.Code.Utils.T_ByteString_426 d_replicateBYTE_408 = \n w8 -> case toIntegralSized w8 of { Nothing -> Nothing; Just w -> builtinResultToMaybe $ Bitwise.replicateByte n w } -- Builtin.shiftBYTESTRING d_shiftBYTESTRING_410 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - Integer -> MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + Integer -> MAlonzo.Code.Utils.T_ByteString_426 d_shiftBYTESTRING_410 = Bitwise.shiftByteString -- Builtin.rotateBYTESTRING d_rotateBYTESTRING_412 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - Integer -> MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + Integer -> MAlonzo.Code.Utils.T_ByteString_426 d_rotateBYTESTRING_412 = Bitwise.rotateByteString -- Builtin.countSetBITS d_countSetBITS_414 :: - MAlonzo.Code.Utils.T_ByteString_418 -> Integer + MAlonzo.Code.Utils.T_ByteString_426 -> Integer d_countSetBITS_414 = \s -> fromIntegral $ Bitwise.countSetBits s -- Builtin.findFirstSetBIT d_findFirstSetBIT_416 :: - MAlonzo.Code.Utils.T_ByteString_418 -> Integer + MAlonzo.Code.Utils.T_ByteString_426 -> Integer d_findFirstSetBIT_416 = \s -> fromIntegral $ Bitwise.findFirstSetBit s -- Builtin.RIPEMD-160 d_RIPEMD'45'160_418 :: - MAlonzo.Code.Utils.T_ByteString_418 -> - MAlonzo.Code.Utils.T_ByteString_418 + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 d_RIPEMD'45'160_418 = Hash.ripemd_160 -- Builtin.expModINTEGER d_expModINTEGER_420 :: @@ -2774,18 +2774,18 @@ d_expModINTEGER_420 d_BLS12'45'381'45'G1'45'multiScalarMul_422 :: MAlonzo.Code.Agda.Builtin.List.T_List_10 () Integer -> MAlonzo.Code.Agda.Builtin.List.T_List_10 - () MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 -> + () MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 - () MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 + () MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 d_BLS12'45'381'45'G1'45'multiScalarMul_422 = \s p -> builtinResultToMaybe $ G1.multiScalarMul s p -- Builtin.BLS12-381-G2-multiScalarMul d_BLS12'45'381'45'G2'45'multiScalarMul_424 :: MAlonzo.Code.Agda.Builtin.List.T_List_10 () Integer -> MAlonzo.Code.Agda.Builtin.List.T_List_10 - () MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 -> + () MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 - () MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 + () MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 d_BLS12'45'381'45'G2'45'multiScalarMul_424 = \s p -> builtinResultToMaybe $ G2.multiScalarMul s p -- Builtin.enumBuiltin diff --git a/plutus-metatheory/src/MAlonzo/Code/Builtin/Signature.hs b/plutus-metatheory/src/MAlonzo/Code/Builtin/Signature.hs index 565e031b2f8..3fc0ab42be5 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Builtin/Signature.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Builtin/Signature.hs @@ -99,13 +99,13 @@ d_mkCtx'8902'_104 v0 v1 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe d_mkCtx'8902'_104 (coe (0 :: Integer)) (coe v2)) - (coe MAlonzo.Code.Utils.C_'9839'_772)) + (coe MAlonzo.Code.Utils.C_'9839'_780)) _ -> let v2 = subInt (coe v0) (coe (1 :: Integer)) in coe (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe d_mkCtx'8902'_104 (coe v2) (coe v1)) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) -- Builtin.Signature.fin♯2∋⋆ d_fin'9839'2'8715''8902'_116 :: Integer -> @@ -167,122 +167,122 @@ du_fin'8902'2'8715''8902'_130 v0 -- Builtin.Signature.FromSig.⊢♯2TyNe♯ d_'8866''9839'2TyNe'9839'_186 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> T__'8866''9839'_4 -> AgdaAny d_'8866''9839'2TyNe'9839'_186 ~v0 ~v1 v2 v3 v4 v5 ~v6 ~v7 ~v8 v9 v10 v11 = du_'8866''9839'2TyNe'9839'_186 v2 v3 v4 v5 v9 v10 v11 du_'8866''9839'2TyNe'9839'_186 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> Integer -> Integer -> T__'8866''9839'_4 -> AgdaAny du_'8866''9839'2TyNe'9839'_186 v0 v1 v2 v3 v4 v5 v6 = case coe v6 of C_'96'_8 v8 -> coe - v1 v4 v5 (coe MAlonzo.Code.Utils.C_'9839'_772) + v1 v4 v5 (coe MAlonzo.Code.Utils.C_'9839'_780) (coe du_fin'9839'2'8715''8902'_116 (coe v4) (coe v8)) C_atomic_12 v8 -> coe v3 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 (coe v8)) C_list_16 v8 -> coe v2 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_772) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v3 (d_mkCtx'8902'_104 (coe v4) (coe v5)) (coe - MAlonzo.Code.Utils.C__'8658'__774 - (coe MAlonzo.Code.Utils.C_'9839'_772) - (coe MAlonzo.Code.Utils.C_'9839'_772)) + MAlonzo.Code.Utils.C__'8658'__782 + (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_780)) (coe MAlonzo.Code.Builtin.Constant.Type.C_list_10)) (coe v0 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe du_'8866''9839'2TyNe'9839'_186 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v8))) C_array_20 v8 -> coe v2 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_772) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v3 (d_mkCtx'8902'_104 (coe v4) (coe v5)) (coe - MAlonzo.Code.Utils.C__'8658'__774 - (coe MAlonzo.Code.Utils.C_'9839'_772) - (coe MAlonzo.Code.Utils.C_'9839'_772)) + MAlonzo.Code.Utils.C__'8658'__782 + (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_780)) (coe MAlonzo.Code.Builtin.Constant.Type.C_array_12)) (coe v0 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe du_'8866''9839'2TyNe'9839'_186 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v8))) C_pair_24 v8 v9 -> coe v2 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_772) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v2 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe - MAlonzo.Code.Utils.C__'8658'__774 - (coe MAlonzo.Code.Utils.C_'9839'_772) - (coe MAlonzo.Code.Utils.C_'9839'_772)) + MAlonzo.Code.Utils.C__'8658'__782 + (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_780)) (coe v3 (d_mkCtx'8902'_104 (coe v4) (coe v5)) (coe - MAlonzo.Code.Utils.C__'8658'__774 - (coe MAlonzo.Code.Utils.C_'9839'_772) + MAlonzo.Code.Utils.C__'8658'__782 + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe - MAlonzo.Code.Utils.C__'8658'__774 - (coe MAlonzo.Code.Utils.C_'9839'_772) - (coe MAlonzo.Code.Utils.C_'9839'_772))) + MAlonzo.Code.Utils.C__'8658'__782 + (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_780))) (coe MAlonzo.Code.Builtin.Constant.Type.C_pair_14)) (coe v0 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe du_'8866''9839'2TyNe'9839'_186 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v8)))) (coe v0 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe du_'8866''9839'2TyNe'9839'_186 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v9))) @@ -290,41 +290,41 @@ du_'8866''9839'2TyNe'9839'_186 v0 v1 v2 v3 v4 v5 v6 -- Builtin.Signature.FromSig.mkTy d_mkTy_204 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> T__'47'_'8866''8902'_26 -> AgdaAny d_mkTy_204 ~v0 ~v1 v2 v3 v4 v5 v6 ~v7 ~v8 v9 v10 v11 = du_mkTy_204 v2 v3 v4 v5 v6 v9 v10 v11 du_mkTy_204 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> T__'47'_'8866''8902'_26 -> AgdaAny @@ -333,16 +333,16 @@ du_mkTy_204 v0 v1 v2 v3 v4 v5 v6 v7 C_'96'_32 v10 -> coe v0 (d_mkCtx'8902'_104 (coe v5) (coe v6)) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe - v1 v5 v6 (coe MAlonzo.Code.Utils.C_'42'_770) + v1 v5 v6 (coe MAlonzo.Code.Utils.C_'42'_778) (coe du_fin'8902'2'8715''8902'_130 (coe v10))) C__'8593'_38 v10 -> coe v4 (d_mkCtx'8902'_104 (coe v5) (coe v6)) (coe v0 (d_mkCtx'8902'_104 (coe v5) (coe v6)) - (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe du_'8866''9839'2TyNe'9839'_186 (coe v0) (coe v1) (coe v2) (coe v3) (coe v5) (coe v6) (coe v10))) @@ -350,42 +350,42 @@ du_mkTy_204 v0 v1 v2 v3 v4 v5 v6 v7 -- Builtin.Signature.FromSig.sig2type⇒ d_sig2type'8658'_214 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> [T__'47'_'8866''8902'_26] -> AgdaAny -> AgdaAny d_sig2type'8658'_214 ~v0 ~v1 v2 v3 v4 v5 v6 v7 ~v8 v9 v10 v11 v12 = du_sig2type'8658'_214 v2 v3 v4 v5 v6 v7 v9 v10 v11 v12 du_sig2type'8658'_214 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> @@ -409,32 +409,32 @@ du_sig2type'8658'_214 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 -- Builtin.Signature.FromSig.sig2typeΠ d_sig2typeΠ_228 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> AgdaAny -> AgdaAny d_sig2typeΠ_228 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 v8 v9 v10 v11 = du_sig2typeΠ_228 v8 v9 v10 v11 du_sig2typeΠ_228 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> AgdaAny -> AgdaAny du_sig2typeΠ_228 v0 v1 v2 v3 = case coe v1 of @@ -446,58 +446,58 @@ du_sig2typeΠ_228 v0 v1 v2 v3 du_sig2typeΠ_228 (coe v0) (coe (0 :: Integer)) (coe v4) (coe v0 (d_mkCtx'8902'_104 (coe (0 :: Integer)) (coe v4)) - (coe MAlonzo.Code.Utils.C_'9839'_772) v3)) + (coe MAlonzo.Code.Utils.C_'9839'_780) v3)) _ -> let v4 = subInt (coe v1) (coe (1 :: Integer)) in coe (coe du_sig2typeΠ_228 (coe v0) (coe v4) (coe v2) (coe v0 (d_mkCtx'8902'_104 (coe v4) (coe v2)) - (coe MAlonzo.Code.Utils.C_'42'_770) v3)) + (coe MAlonzo.Code.Utils.C_'42'_778) v3)) -- Builtin.Signature.FromSig.sig2type d_sig2type_242 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> T_Sig_72 -> AgdaAny d_sig2type_242 ~v0 ~v1 v2 v3 v4 v5 v6 v7 v8 v9 = du_sig2type_242 v2 v3 v4 v5 v6 v7 v8 v9 du_sig2type_242 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> T_Sig_72 -> AgdaAny du_sig2type_242 v0 v1 v2 v3 v4 v5 v6 v7 = case coe v7 of @@ -521,54 +521,54 @@ d_SigTy_266 a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 = () data T_SigTy_266 = C_bresult_280 | C__B'8658'__302 AgdaAny AgdaAny T_SigTy_266 | - C_sucΠ_326 MAlonzo.Code.Utils.T_Kind_768 AgdaAny T_SigTy_266 + C_sucΠ_326 MAlonzo.Code.Utils.T_Kind_776 AgdaAny T_SigTy_266 -- Builtin.Signature.FromSig.sig2SigTy⇒ d_sig2SigTy'8658'_348 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> [T__'47'_'8866''8902'_26] -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> AgdaAny -> T_SigTy_266 -> T_SigTy_266 d_sig2SigTy'8658'_348 ~v0 ~v1 v2 v3 v4 v5 v6 v7 ~v8 v9 v10 ~v11 ~v12 v13 ~v14 ~v15 v16 v17 v18 = du_sig2SigTy'8658'_348 v2 v3 v4 v5 v6 v7 v9 v10 v13 v16 v17 v18 du_sig2SigTy'8658'_348 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> @@ -576,14 +576,14 @@ du_sig2SigTy'8658'_348 :: Integer -> Integer -> [T__'47'_'8866''8902'_26] -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> AgdaAny -> T_SigTy_266 -> T_SigTy_266 du_sig2SigTy'8658'_348 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 = case coe v8 of [] -> coe seq (coe v9) (coe v11) (:) v12 v13 -> case coe v9 of - MAlonzo.Code.Utils.C_bubble_192 v17 + MAlonzo.Code.Utils.C_bubble_200 v17 -> coe du_sig2SigTy'8658'_348 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v6) (coe v7) (coe v13) (coe v17) @@ -604,115 +604,115 @@ du_sig2SigTy'8658'_348 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 -- Builtin.Signature.FromSig.sig2SigTyΠ d_sig2SigTyΠ_380 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> Integer -> Integer -> Integer -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> AgdaAny -> T_SigTy_266 -> T_SigTy_266 d_sig2SigTyΠ_380 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 v8 v9 v10 ~v11 ~v12 ~v13 ~v14 v15 ~v16 ~v17 v18 v19 = du_sig2SigTyΠ_380 v8 v9 v10 v15 v18 v19 du_sig2SigTyΠ_380 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> AgdaAny -> T_SigTy_266 -> T_SigTy_266 du_sig2SigTyΠ_380 v0 v1 v2 v3 v4 v5 = case coe v1 of 0 -> case coe v3 of - MAlonzo.Code.Utils.C_start_184 -> coe v5 - MAlonzo.Code.Utils.C_bubble_192 v9 + MAlonzo.Code.Utils.C_start_192 -> coe v5 + MAlonzo.Code.Utils.C_bubble_200 v9 -> let v10 = subInt (coe v2) (coe (1 :: Integer)) in coe (coe du_sig2SigTyΠ_380 (coe v0) (coe (0 :: Integer)) (coe v10) (coe v9) (coe v0 (d_mkCtx'8902'_104 (coe (0 :: Integer)) (coe v10)) - (coe MAlonzo.Code.Utils.C_'9839'_772) v4) - (coe C_sucΠ_326 (coe MAlonzo.Code.Utils.C_'9839'_772) v4 v5)) + (coe MAlonzo.Code.Utils.C_'9839'_780) v4) + (coe C_sucΠ_326 (coe MAlonzo.Code.Utils.C_'9839'_780) v4 v5)) _ -> MAlonzo.RTE.mazUnreachableError _ -> let v6 = subInt (coe v1) (coe (1 :: Integer)) in coe (case coe v3 of - MAlonzo.Code.Utils.C_bubble_192 v10 + MAlonzo.Code.Utils.C_bubble_200 v10 -> coe du_sig2SigTyΠ_380 (coe v0) (coe v6) (coe v2) (coe v10) (coe v0 (d_mkCtx'8902'_104 (coe v6) (coe v2)) - (coe MAlonzo.Code.Utils.C_'42'_770) v4) - (coe C_sucΠ_326 (coe MAlonzo.Code.Utils.C_'42'_770) v4 v5) + (coe MAlonzo.Code.Utils.C_'42'_778) v4) + (coe C_sucΠ_326 (coe MAlonzo.Code.Utils.C_'42'_778) v4 v5) _ -> MAlonzo.RTE.mazUnreachableError) -- Builtin.Signature.FromSig.sig2SigTy d_sig2SigTy_398 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> T_Sig_72 -> T_SigTy_266 d_sig2SigTy_398 ~v0 ~v1 v2 v3 v4 v5 v6 v7 v8 v9 = du_sig2SigTy_398 v2 v3 v4 v5 v6 v7 v8 v9 du_sig2SigTy_398 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> T_Sig_72 -> T_SigTy_266 du_sig2SigTy_398 v0 v1 v2 v3 v4 v5 v6 v7 = case coe v7 of @@ -720,7 +720,7 @@ du_sig2SigTy_398 v0 v1 v2 v3 v4 v5 v6 v7 -> coe du_sig2SigTyΠ_380 (coe v6) (coe v8) (coe v9) (coe - MAlonzo.Code.Utils.d_alldone_240 (coe addInt (coe v8) (coe v9))) + MAlonzo.Code.Utils.d_alldone_248 (coe addInt (coe v8) (coe v9))) (coe du_sig2type'8658'_214 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v8) (coe v9) @@ -739,7 +739,7 @@ du_sig2SigTy_398 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Data.List.NonEmpty.Base.d_head_30 (coe v10)) (coe MAlonzo.Code.Data.List.NonEmpty.Base.d_tail_32 (coe v10))) (coe - MAlonzo.Code.Utils.d_alldone_240 + MAlonzo.Code.Utils.d_alldone_248 (coe MAlonzo.Code.Data.List.NonEmpty.Base.du_length_54 (coe v10))) (coe du_mkTy_204 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v8) @@ -749,26 +749,26 @@ du_sig2SigTy_398 v0 v1 v2 v3 v4 v5 v6 v7 -- Builtin.Signature.FromSig.sigTy2type d_sigTy2type_428 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> Integer -> @@ -777,8 +777,8 @@ d_sigTy2type_428 :: Integer -> Integer -> AgdaAny -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> T_SigTy_266 -> AgdaAny + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> T_SigTy_266 -> AgdaAny d_sigTy2type_428 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 ~v11 ~v12 ~v13 ~v14 ~v15 v16 ~v17 ~v18 ~v19 = du_sigTy2type_428 v16 @@ -787,61 +787,61 @@ du_sigTy2type_428 v0 = coe v0 -- Builtin.Signature.FromSig.saturatedSigTy d_saturatedSigTy_436 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> T_Sig_72 -> AgdaAny -> () d_saturatedSigTy_436 = erased -- Builtin.Signature.FromSig.convSigTy d_convSigTy_470 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> ()) -> + MAlonzo.Code.Utils.T_Kind_776 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> AgdaAny -> diff --git a/plutus-metatheory/src/MAlonzo/Code/Certifier.hs b/plutus-metatheory/src/MAlonzo/Code/Certifier.hs index c92bf875e27..c32d49cd499 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Certifier.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Certifier.hs @@ -30,13 +30,13 @@ import qualified MAlonzo.Code.VerifiedCompilation.Trace -- Certifier.runCertifier d_runCertifier_2 :: - [MAlonzo.Code.Utils.T__'215'__428 + [MAlonzo.Code.Utils.T__'215'__436 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) - (MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_72 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.RawU.T_Untyped_208 MAlonzo.Code.RawU.T_Untyped_208))] -> MAlonzo.Code.Utils.T_Either_6 @@ -46,7 +46,7 @@ d_runCertifier_2 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_try_94 + MAlonzo.Code.Utils.du_try_102 (coe MAlonzo.Code.VerifiedCompilation.Trace.d_toTrace_98 (coe v0)) (coe MAlonzo.Code.VerifiedCompilation.C_emptyDump_4)) (coe @@ -54,7 +54,7 @@ d_runCertifier_2 v0 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_try_94 + MAlonzo.Code.Utils.du_try_102 (coe MAlonzo.Code.VerifiedCompilation.d_checkScope'7511'_102 (coe v1)) (coe MAlonzo.Code.VerifiedCompilation.C_illScoped_6)) @@ -74,35 +74,35 @@ d_runCertifier_2 v0 runCertifierMain :: MAlonzo.Code.Agda.Builtin.List.T_List_10 () - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) - (MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_72 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.RawU.T_Untyped_208 MAlonzo.Code.RawU.T_Untyped_208))) -> MAlonzo.Code.Agda.Builtin.List.T_List_10 () MAlonzo.Code.VerifiedCompilation.Trace.T_EvalResult_134 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 Bool MAlonzo.Code.Agda.Builtin.String.T_String_6) runCertifierMain = coe d_runCertifierMain_12 d_runCertifierMain_12 :: - [MAlonzo.Code.Utils.T__'215'__428 + [MAlonzo.Code.Utils.T__'215'__436 (MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 - MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_14) - (MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_72 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.RawU.T_Untyped_208 MAlonzo.Code.RawU.T_Untyped_208))] -> [MAlonzo.Code.VerifiedCompilation.Trace.T_EvalResult_134] -> Maybe - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 Bool MAlonzo.Code.Agda.Builtin.String.T_String_6) d_runCertifierMain_12 v0 v1 = let v2 = d_runCertifier_2 (coe v0) in @@ -118,18 +118,18 @@ d_runCertifierMain_12 v0 v1 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (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_330 (coe v2) (coe v1))) MAlonzo.Code.VerifiedCompilation.C_abort_10 v4 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (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_330 (coe v2) (coe v1))) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Utils.C_inj'8322'_14 v3 -> coe @@ -137,8 +137,8 @@ d_runCertifierMain_12 v0 v1 (coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (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_330 (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..6f4c6f6bf4e 100644 --- a/plutus-metatheory/src/MAlonzo/Code/CertifierReport.hs +++ b/plutus-metatheory/src/MAlonzo/Code/CertifierReport.hs @@ -24,10 +24,13 @@ import qualified MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base import qualified MAlonzo.Code.Data.Nat.Show import qualified MAlonzo.Code.Data.String.Base import qualified MAlonzo.Code.Untyped +import qualified MAlonzo.Code.Untyped.Relation.Binary.Core +import qualified MAlonzo.Code.Untyped.Relation.Binary.Modular import qualified MAlonzo.Code.Untyped.RenamingSubstitution import qualified MAlonzo.Code.Utils import qualified MAlonzo.Code.VerifiedCompilation import qualified MAlonzo.Code.VerifiedCompilation.Trace +import qualified MAlonzo.Code.VerifiedCompilation.UCaseReduce import qualified MAlonzo.Code.VerifiedCompilation.UInline import qualified MAlonzo.Code.VerifiedCompilation.UntypedTranslation @@ -51,23 +54,26 @@ 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_applyToCaseT_24 + MAlonzo.Code.VerifiedCompilation.Trace.C_applyToCaseT_22 -> coe ("Transform multi-argument applications into case-constr form" :: Data.Text.Text) + MAlonzo.Code.VerifiedCompilation.Trace.C_caseReduceT_24 + -> coe + ("Case-Constr and Case-Constant Cancellation" :: Data.Text.Text) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.showUncertifiedOptTag d_showUncertifiedOptTag_12 :: @@ -79,17 +85,14 @@ d_showUncertifiedOptTag_12 v0 -> coe ("Case-of-Case" :: Data.Text.Text) MAlonzo.Code.VerifiedCompilation.Trace.C_letFloatOutT_8 -> coe ("Float bindings outwards" :: Data.Text.Text) - MAlonzo.Code.VerifiedCompilation.Trace.C_caseReduceT_10 - -> coe - ("Case-Constr and Case-Constant Cancellation" :: Data.Text.Text) - MAlonzo.Code.VerifiedCompilation.Trace.C_cseT_12 + MAlonzo.Code.VerifiedCompilation.Trace.C_cseT_10 -> 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 @@ -110,13 +113,13 @@ d_numSites'8242'_26 :: 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.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> Integer d_numSites'8242'_26 ~v0 v1 v2 = du_numSites'8242'_26 v1 v2 du_numSites'8242'_26 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> Integer du_numSites'8242'_26 v0 v1 = coe @@ -136,7 +139,7 @@ d_go_40 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> Integer -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> Integer d_go_40 ~v0 v1 v2 ~v3 v4 v5 v6 v7 v8 = du_go_40 v1 v2 v4 v5 v6 v7 v8 @@ -147,13 +150,13 @@ du_go_40 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> Integer -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> Integer du_go_40 v0 v1 v2 v3 v4 v5 v6 = case coe v6 of - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_92 v9 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_88 v9 -> coe addInt (coe (1 :: Integer)) (coe v5) - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 v9 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 v9 -> coe du_go'7504'_50 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v9) @@ -172,7 +175,7 @@ d_go'7504'_50 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> Integer -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_TransMatch_18 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_TransMatch_14 -> Integer d_go'7504'_50 ~v0 v1 v2 ~v3 v4 v5 v6 v7 v8 = du_go'7504'_50 v1 v2 v4 v5 v6 v7 v8 @@ -183,13 +186,13 @@ du_go'7504'_50 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> Integer -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_TransMatch_18 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_TransMatch_14 -> Integer du_go'7504'_50 v0 v1 v2 v3 v4 v5 v6 = case coe v6 of - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_26 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_22 -> coe v5 - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_32 v9 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_28 v9 -> case coe v3 of MAlonzo.Code.Untyped.C_ƛ_20 v10 -> case coe v4 of @@ -200,7 +203,7 @@ du_go'7504'_50 v0 v1 v2 v3 v4 v5 v6 (coe v5) (coe v9) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_42 v11 v12 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_38 v11 v12 -> case coe v3 of MAlonzo.Code.Untyped.C__'183'__22 v13 v14 -> case coe v4 of @@ -213,7 +216,7 @@ du_go'7504'_50 v0 v1 v2 v3 v4 v5 v6 (coe v12) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_force_48 v9 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_force_44 v9 -> case coe v3 of MAlonzo.Code.Untyped.C_force_24 v10 -> case coe v4 of @@ -223,7 +226,7 @@ du_go'7504'_50 v0 v1 v2 v3 v4 v5 v6 (coe v9) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_delay_54 v9 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_delay_50 v9 -> case coe v3 of MAlonzo.Code.Untyped.C_delay_26 v10 -> case coe v4 of @@ -233,9 +236,9 @@ du_go'7504'_50 v0 v1 v2 v3 v4 v5 v6 (coe v9) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_58 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_54 -> coe v5 - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_constr_66 v10 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_constr_62 v10 -> case coe v3 of MAlonzo.Code.Untyped.C_constr_34 v11 v12 -> case coe v4 of @@ -245,7 +248,7 @@ du_go'7504'_50 v0 v1 v2 v3 v4 v5 v6 (coe v5) (coe v10) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_76 v11 v12 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 v11 v12 -> case coe v3 of MAlonzo.Code.Untyped.C_case_40 v13 v14 -> case coe v4 of @@ -258,9 +261,9 @@ du_go'7504'_50 v0 v1 v2 v3 v4 v5 v6 (coe v12) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_builtin_80 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_builtin_76 -> coe v5 - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_error_82 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_error_78 -> coe v5 _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport._.goᵖʷ @@ -555,39 +558,286 @@ d_numSitesInline_140 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.VerifiedCompilation.UInline.C_error_292 -> coe (0 :: Integer) _ -> MAlonzo.RTE.mazUnreachableError +-- CertifierReport.numSitesCaseReduce +d_numSitesCaseReduce_178 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 -> Integer +d_numSitesCaseReduce_178 v0 v1 v2 v3 + = case coe v3 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_fix_60 v7 + -> case coe v7 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v11 + -> coe (1 :: Integer) + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v11 + -> case coe v11 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v15 + -> case coe v15 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v19 + -> coe seq (coe v19) (coe (0 :: Integer)) + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v19 + -> case coe v19 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v23 + -> case coe v23 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_ƛF_132 v27 + -> case coe v1 of + MAlonzo.Code.Untyped.C_ƛ_20 v28 + -> case coe v2 of + MAlonzo.Code.Untyped.C_ƛ_20 v29 + -> coe + d_numSitesCaseReduce_178 + (coe + addInt (coe (1 :: Integer)) + (coe v0)) + (coe v28) (coe v29) (coe v27) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v23 + -> case coe v23 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v27 + -> case coe v27 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C__'183'F__150 v33 v34 + -> case coe v1 of + MAlonzo.Code.Untyped.C__'183'__22 v35 v36 + -> case coe v2 of + MAlonzo.Code.Untyped.C__'183'__22 v37 v38 + -> coe + addInt + (coe + d_numSitesCaseReduce_178 + (coe v0) (coe v35) (coe v37) + (coe v33)) + (coe + d_numSitesCaseReduce_178 + (coe v0) (coe v36) (coe v38) + (coe v34)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v27 + -> case coe v27 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v31 + -> case coe v31 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_forceF_164 v35 + -> case coe v1 of + MAlonzo.Code.Untyped.C_force_24 v36 + -> case coe v2 of + MAlonzo.Code.Untyped.C_force_24 v37 + -> coe + d_numSitesCaseReduce_178 + (coe v0) (coe v36) + (coe v37) (coe v35) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v31 + -> case coe v31 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v35 + -> case coe v35 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_delayF_178 v39 + -> case coe v1 of + MAlonzo.Code.Untyped.C_delay_26 v40 + -> case coe v2 of + MAlonzo.Code.Untyped.C_delay_26 v41 + -> coe + d_numSitesCaseReduce_178 + (coe v0) + (coe v40) + (coe v41) + (coe v39) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v35 + -> case coe v35 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v39 + -> coe + seq (coe v39) + (coe (0 :: Integer)) + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v39 + -> case coe v39 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v43 + -> case coe v43 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_constrF_206 v48 + -> case coe v1 of + MAlonzo.Code.Untyped.C_constr_34 v49 v50 + -> case coe + v2 of + MAlonzo.Code.Untyped.C_constr_34 v51 v52 + -> coe + d_numSitesCaseReduce'42'_186 + (coe + v0) + (coe + v50) + (coe + v52) + (coe + v48) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v43 + -> case coe v43 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v47 + -> case coe v47 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_caseF_224 v53 v54 + -> case coe + v1 of + MAlonzo.Code.Untyped.C_case_40 v55 v56 + -> case coe + v2 of + MAlonzo.Code.Untyped.C_case_40 v57 v58 + -> coe + addInt + (coe + d_numSitesCaseReduce'42'_186 + (coe + v0) + (coe + v56) + (coe + v58) + (coe + v54)) + (coe + d_numSitesCaseReduce_178 + (coe + v0) + (coe + v55) + (coe + v57) + (coe + v53)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v47 + -> case coe v47 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v51 + -> coe + seq + (coe v51) + (coe + (0 :: + Integer)) + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v51 + -> case coe + v51 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v55 + -> coe + seq + (coe + v55) + (coe + (0 :: + Integer)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v15 + -> case coe v15 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v19 + -> case coe v19 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_transF_80 v22 v24 v25 + -> coe + addInt + (coe + d_numSitesCaseReduce_178 (coe v0) (coe v1) (coe v22) + (coe v24)) + (coe + d_numSitesCaseReduce_178 (coe v0) (coe v22) (coe v2) + (coe v25)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v19 + -> case coe v19 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v23 + -> case coe v23 of + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_symF_94 v27 + -> coe + d_numSitesCaseReduce_178 (coe v0) (coe v2) (coe v1) + (coe v27) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 v23 + -> coe seq (coe v23) (coe (0 :: Integer)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError +-- CertifierReport.numSitesCaseReduce* +d_numSitesCaseReduce'42'_186 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 -> Integer +d_numSitesCaseReduce'42'_186 v0 v1 v2 v3 + = case coe v3 of + MAlonzo.Code.Untyped.Relation.Binary.Core.C_'91''93'_26 + -> coe (0 :: Integer) + MAlonzo.Code.Untyped.Relation.Binary.Core.C__'8759'__36 v8 v9 + -> case coe v1 of + (:) v10 v11 + -> case coe v2 of + (:) v12 v13 + -> coe + addInt + (coe + d_numSitesCaseReduce'42'_186 (coe v0) (coe v11) (coe v13) (coe v9)) + (coe + d_numSitesCaseReduce_178 (coe v0) (coe v10) (coe v12) (coe v8)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.numSites -d_numSites_178 :: +d_numSites_222 :: 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 +d_numSites_222 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_applyToCaseT_24 + MAlonzo.Code.VerifiedCompilation.Trace.C_applyToCaseT_22 -> coe du_numSites'8242'_26 v0 v1 v3 + MAlonzo.Code.VerifiedCompilation.Trace.C_caseReduceT_24 + -> coe + d_numSitesCaseReduce_178 (coe (0 :: Integer)) (coe v0) (coe v1) + (coe + MAlonzo.Code.VerifiedCompilation.UCaseReduce.du_sound_568 + (coe (0 :: Integer)) (coe v0)) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.showSites -d_showSites_196 :: +d_showSites_244 :: 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_244 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 @@ -598,62 +848,62 @@ d_showSites_196 v0 v1 v2 v3 ("Optimization sites: " :: Data.Text.Text) (coe MAlonzo.Code.Data.Nat.Show.d_show_56 - (d_numSites_178 (coe v0) (coe v1) (coe v4) (coe v3)))) + (d_numSites_222 (coe v0) (coe v1) (coe v4) (coe v3)))) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.termSize -d_termSize_204 :: +d_termSize_252 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> Integer -d_termSize_204 v0 v1 +d_termSize_252 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_252 (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_252 (coe v0) (coe v2))) + (coe d_termSize_252 (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_252 (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_252 (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'_256 (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'_256 (coe v0) (coe v3))) + (coe d_termSize_252 (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'_256 :: Integer -> [MAlonzo.Code.Untyped.T__'8866'_14] -> Integer -d_termSize'7510''695'_208 v0 v1 +d_termSize'7510''695'_256 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'_256 (coe v0) (coe v3)) + (coe d_termSize_252 (coe v0) (coe v2)) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.showEvalResult -d_showEvalResult_230 :: +d_showEvalResult_278 :: MAlonzo.Code.VerifiedCompilation.Trace.T_EvalResult_134 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_showEvalResult_230 v0 +d_showEvalResult_278 v0 = case coe v0 of MAlonzo.Code.VerifiedCompilation.Trace.C_success_136 v1 v2 -> coe @@ -686,10 +936,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_290 :: [MAlonzo.Code.VerifiedCompilation.Trace.T_EvalResult_134] -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_showCostPair_242 v0 +d_showCostPair_290 v0 = let v1 = "" :: Data.Text.Text in coe (case coe v0 of @@ -698,7 +948,7 @@ d_showCostPair_242 v0 (:) v4 v5 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_showEvalResult_230 (coe v2)) + (d_showEvalResult_278 (coe v2)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" (before)" :: Data.Text.Text) @@ -706,30 +956,30 @@ 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_278 (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_298 :: () -> [AgdaAny] -> [AgdaAny] +d_tail_298 ~v0 v1 = du_tail_298 v1 +du_tail_298 :: [AgdaAny] -> [AgdaAny] +du_tail_298 v0 = case coe v0 of [] -> coe v0 (:) v1 v2 -> coe v2 _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.reportPasses -d_reportPasses_260 :: +d_reportPasses_308 :: 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_308 v0 v1 v2 v3 = case coe v1 of MAlonzo.Code.VerifiedCompilation.Trace.C_step_84 v4 v5 v6 v7 -> case coe v2 of - MAlonzo.Code.Utils.C__'44'__442 v8 v9 + MAlonzo.Code.Utils.C__'44'__450 v8 v9 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 d_hl_8 (coe @@ -753,7 +1003,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_252 (coe (0 :: Integer)) (coe v6))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" (before)" :: Data.Text.Text) @@ -767,7 +1017,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_252 (coe (0 :: Integer)) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_head_90 @@ -780,13 +1030,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_290 (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_244 (coe v6) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_head_90 @@ -795,14 +1045,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_308 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v7) (coe v9) (coe - du_tail_250 + du_tail_298 (coe v3)))))))))))))))))))) _ -> MAlonzo.RTE.mazUnreachableError @@ -810,10 +1060,10 @@ d_reportPasses_260 v0 v1 v2 v3 -> coe ("" :: Data.Text.Text) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.reportFailure -d_reportFailure_276 :: +d_reportFailure_324 :: MAlonzo.Code.VerifiedCompilation.T_Error_2 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_reportFailure_276 v0 +d_reportFailure_324 v0 = case coe v0 of MAlonzo.Code.VerifiedCompilation.C_emptyDump_4 -> coe @@ -857,24 +1107,24 @@ d_reportFailure_276 v0 (" \10060 FAILED" :: Data.Text.Text) d_hl_8))) _ -> MAlonzo.RTE.mazUnreachableError -- CertifierReport.makeReport -d_makeReport_282 :: +d_makeReport_330 :: 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_330 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_324) (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_308 (coe (1 :: Integer)) (coe v3) (coe v4) (coe v1) _ -> MAlonzo.RTE.mazUnreachableError)))) diff --git a/plutus-metatheory/src/MAlonzo/Code/Check.hs b/plutus-metatheory/src/MAlonzo/Code/Check.hs index 7d8511c8f57..3497e5eec5d 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Check.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Check.hs @@ -46,10 +46,10 @@ import qualified MAlonzo.Code.Utils.List -- Check.TypeError d_TypeError_12 = () data T_TypeError_12 - = C_kindMismatch_18 MAlonzo.Code.Utils.T_Kind_768 - MAlonzo.Code.Utils.T_Kind_768 | - C_notFunKind_26 MAlonzo.Code.Utils.T_Kind_768 | - C_notPat_32 MAlonzo.Code.Utils.T_Kind_768 | C_UnknownType_34 | + = C_kindMismatch_18 MAlonzo.Code.Utils.T_Kind_776 + MAlonzo.Code.Utils.T_Kind_776 | + C_notFunKind_26 MAlonzo.Code.Utils.T_Kind_776 | + C_notPat_32 MAlonzo.Code.Utils.T_Kind_776 | C_UnknownType_34 | C_notPi_44 MAlonzo.Code.Type.T_Ctx'8902'_2 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 | C_notMu_56 MAlonzo.Code.Type.T_Ctx'8902'_2 @@ -61,7 +61,7 @@ data T_TypeError_12 C_IndexOutOfBounds_82 Integer Integer | C_TooManyConstrArgs_84 | C_TooFewConstrArgs_86 | C_TooFewCases_88 | C_TooManyCases_90 | C_typeMismatch_100 MAlonzo.Code.Type.T_Ctx'8902'_2 - MAlonzo.Code.Utils.T_Kind_768 + MAlonzo.Code.Utils.T_Kind_776 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 | C_builtinError_102 | @@ -101,60 +101,60 @@ d_inferTyVar_118 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError -- Check.decKind d_decKind_138 :: - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 d_decKind_138 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> 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 erased) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> 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.Utils.C__'8658'__774 v2 v3 + MAlonzo.Code.Utils.C__'8658'__782 v2 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.RTE.mazUnreachableError - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> 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.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> 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 erased) - MAlonzo.Code.Utils.C__'8658'__774 v2 v3 + MAlonzo.Code.Utils.C__'8658'__782 v2 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.RTE.mazUnreachableError - MAlonzo.Code.Utils.C__'8658'__774 v2 v3 + MAlonzo.Code.Utils.C__'8658'__782 v2 v3 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> 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.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> 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.Utils.C__'8658'__774 v4 v5 + MAlonzo.Code.Utils.C__'8658'__782 v4 v5 -> coe MAlonzo.Code.Utils.Decidable.du_dcong'8322'_70 (coe d_decKind_138 (coe v2) (coe v4)) @@ -176,11 +176,11 @@ du_isFunKind_174 v0 = case coe v0 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v1 v2 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notFunKind_26 v1) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notFunKind_26 v1) - MAlonzo.Code.Utils.C__'8658'__774 v3 v4 + MAlonzo.Code.Utils.C__'8658'__782 v3 v4 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -204,34 +204,34 @@ du_isPat_196 v0 = case coe v0 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v1 v2 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C__'8658'__774 v3 v4 + MAlonzo.Code.Utils.C__'8658'__782 v3 v4 -> case coe v3 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C__'8658'__774 v5 v6 + MAlonzo.Code.Utils.C__'8658'__782 v5 v6 -> case coe v4 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C__'8658'__774 v7 v8 + MAlonzo.Code.Utils.C__'8658'__782 v7 v8 -> case coe v6 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> case coe v8 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (\ v9 -> coe C_kindMismatch_18 (coe v5) (coe v7)) (coe - MAlonzo.Code.Utils.du_dec2Either_356 + MAlonzo.Code.Utils.du_dec2Either_364 (coe d_decKind_138 (coe v5) (coe v7)))) (coe (\ v9 -> @@ -240,18 +240,18 @@ du_isPat_196 v0 (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v5) (coe v2)))) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C__'8658'__774 v9 v10 + MAlonzo.Code.Utils.C__'8658'__782 v9 v10 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C__'8658'__774 v9 v10 + MAlonzo.Code.Utils.C__'8658'__782 v9 v10 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -538,12 +538,12 @@ d_chkIdx_514 v0 v1 -- Check.inferTyCon d_inferTyCon_542 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 d_inferTyCon_542 ~v0 v1 v2 = du_inferTyCon_542 v1 v2 du_inferTyCon_542 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 du_inferTyCon_542 v0 v1 @@ -556,7 +556,7 @@ du_inferTyCon_542 v0 v1 d_checkKind_554 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Scoped.T_ScopedTy_14 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Utils.T_Either_6 T_TypeError_12 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_checkKind_554 v0 v1 v2 @@ -591,21 +591,21 @@ d_inferKind_562 v0 v1 MAlonzo.Code.Utils.du_eitherBind_54 (coe d_checkKind_554 (coe v0) (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe (\ v4 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe d_checkKind_554 (coe v0) (coe v3) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe (\ v5 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v4 v5)))))) MAlonzo.Code.Scoped.C_Π_22 v2 v3 -> coe @@ -613,14 +613,14 @@ d_inferKind_562 v0 v1 (coe d_checkKind_554 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v2)) (coe v3) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe (\ v4 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v2 v4)))) MAlonzo.Code.Scoped.C_ƛ_24 v2 v3 -> coe @@ -637,7 +637,7 @@ d_inferKind_562 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v2) (coe v5)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v2) (coe v5)) (coe MAlonzo.Code.Type.BetaNormal.C_ƛ_18 v6)) _ -> MAlonzo.RTE.mazUnreachableError)) MAlonzo.Code.Scoped.C__'183'__26 v2 v3 @@ -672,29 +672,29 @@ d_inferKind_562 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 - (coe MAlonzo.Code.Utils.du_length_482 (coe v2)) v3)))) + (coe MAlonzo.Code.Utils.du_length_490 (coe v2)) v3)))) _ -> MAlonzo.RTE.mazUnreachableError -- Check.inferKind-List d_inferKind'45'List_568 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTy_14 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTy_14 -> MAlonzo.Code.Utils.T_Either_6 T_TypeError_12 [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] d_inferKind'45'List_568 v0 v1 = case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) - MAlonzo.Code.Utils.C__'8759'__452 v2 v3 + MAlonzo.Code.Utils.C__'8759'__460 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe d_checkKind_554 (coe v0) (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe (\ v4 -> coe @@ -710,18 +710,18 @@ d_inferKind'45'List_568 v0 v1 -- Check.inferKind-VecList d_inferKind'45'VecList_586 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTy_14) -> MAlonzo.Code.Utils.T_Either_6 T_TypeError_12 MAlonzo.Code.Data.Vec.Base.T_Vec_28 d_inferKind'45'VecList_586 v0 v1 = case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Data.Vec.Base.C_'91''93'_32) - MAlonzo.Code.Utils.C__'8759'__452 v2 v3 + MAlonzo.Code.Utils.C__'8759'__460 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe d_inferKind'45'List_568 (coe v0) (coe v2)) @@ -740,24 +740,24 @@ d_inferKind'45'VecList_586 v0 v1 d_checkKind'45'aux_606 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Utils.T_Either_6 T_TypeError_12 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_checkKind'45'aux_606 ~v0 v1 v2 = du_checkKind'45'aux_606 v1 v2 du_checkKind'45'aux_606 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Utils.T_Either_6 T_TypeError_12 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 du_checkKind'45'aux_606 v0 v1 = case coe v0 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v2 v3 -> case coe v2 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> let v4 = coe MAlonzo.Code.Utils.C_inj'8321'_12 @@ -767,38 +767,38 @@ du_checkKind'45'aux_606 v0 v1 MAlonzo.Code.Type.BetaNormal.C_con_22 v6 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v6) _ -> coe v4) - MAlonzo.Code.Utils.C__'8658'__774 v4 v5 + MAlonzo.Code.Utils.C__'8658'__782 v4 v5 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_kindMismatch_18 v2 v1) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Type.BetaNormal.C_con_22 v3) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3) - MAlonzo.Code.Utils.C__'8658'__774 v4 v5 + MAlonzo.Code.Utils.C__'8658'__782 v4 v5 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_kindMismatch_18 v2 v1) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Utils.C__'8658'__774 v4 v5 + MAlonzo.Code.Utils.C__'8658'__782 v4 v5 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_kindMismatch_18 v2 v1) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_kindMismatch_18 v2 v1) - MAlonzo.Code.Utils.C__'8658'__774 v6 v7 + MAlonzo.Code.Utils.C__'8658'__782 v6 v7 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (\ v8 -> coe C_kindMismatch_18 (coe v2) (coe v1)) (coe - MAlonzo.Code.Utils.du_dec2Either_356 + MAlonzo.Code.Utils.du_dec2Either_364 (coe d_decKind_138 (coe v2) (coe v1)))) (coe (\ v8 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3))) _ -> MAlonzo.RTE.mazUnreachableError @@ -817,10 +817,10 @@ du_addCon_658 v0 = case coe v0 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v1 v2 -> case coe v1 of - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.C_con_22 v2) _ -> coe v0 _ -> MAlonzo.RTE.mazUnreachableError @@ -863,7 +863,7 @@ du_'46'extendedlambda4_710 v0 v1 v2 MAlonzo.Code.Type.C__'183'__30 v3 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v3) (coe v5)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v3) (coe v5)) (coe v6)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe v3) (coe v7)))))))) @@ -898,7 +898,7 @@ du_'46'extendedlambda4_732 v0 v1 v2 MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.C_μ_24 v3 v4 v5)))) _ -> MAlonzo.RTE.mazUnreachableError -- Check.len @@ -944,7 +944,7 @@ d_inferVarType_792 v0 v1 v2 MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v6 - (coe MAlonzo.Code.Utils.C_'42'_770) v7 v12) + (coe MAlonzo.Code.Utils.C_'42'_778) v7 v12) (coe MAlonzo.Code.Algorithmic.C_T_38 v12 v13)) _ -> MAlonzo.RTE.mazUnreachableError)) _ -> MAlonzo.RTE.mazUnreachableError @@ -976,7 +976,7 @@ d_inferVarType_792 v0 v1 v2 -- Check.decTyVar d_decTyVar_830 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 @@ -1038,7 +1038,7 @@ du_decTyVar_830 v0 v1 v2 -- Check.decNfTy d_decNfTy_864 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 @@ -1053,7 +1053,7 @@ d_decNfTy_864 v0 v1 v2 v3 (coe d_decNfTy_864 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v5)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v6)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6)) MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v8 v9 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 @@ -1091,10 +1091,10 @@ d_decNfTy_864 v0 v1 v2 v3 -> coe MAlonzo.Code.Utils.Decidable.du_dcong'8322'_70 (coe - d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5) + d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5) (coe v8)) (coe - d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v6) + d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6) (coe v9)) MAlonzo.Code.Type.BetaNormal.C_ne_20 v9 -> coe @@ -1119,7 +1119,7 @@ d_decNfTy_864 v0 v1 v2 v3 _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Type.BetaNormal.C_ƛ_18 v7 -> case coe v1 of - MAlonzo.Code.Utils.C__'8658'__774 v8 v9 + MAlonzo.Code.Utils.C__'8658'__782 v8 v9 -> case coe v3 of MAlonzo.Code.Type.BetaNormal.C_ƛ_18 v13 -> coe @@ -1192,7 +1192,7 @@ d_decNfTy_864 v0 v1 v2 v3 -> coe MAlonzo.Code.Utils.Decidable.du_dcong_40 (d_decNfTy_864 - (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v5) (coe v7)) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v5) (coe v7)) MAlonzo.Code.Type.BetaNormal.C_μ_24 v7 v8 v9 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 @@ -1233,13 +1233,13 @@ d_decNfTy_864 v0 v1 v2 v3 (coe d_decNfTy_864 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v6)) (coe d_decNfTy_864 (coe v0) (coe v5) (coe v7)) MAlonzo.Code.Type.BetaNormal.C_SOP_28 v9 v10 @@ -1296,7 +1296,7 @@ d_decNfTy_864 v0 v1 v2 v3 (let v13 = coe du_decNfTy'45'VecList_914 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6) (coe v9) in coe (case coe v13 of @@ -1330,7 +1330,7 @@ d_decNfTy_864 v0 v1 v2 v3 -- Check.decNeTy d_decNeTy_874 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 @@ -1399,7 +1399,7 @@ du_decNeTy_874 v0 v1 v2 -- Check.decNfTy-List d_decNfTy'45'List_884 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] -> [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 @@ -1436,7 +1436,7 @@ d_decNfTy'45'List_884 v0 v1 v2 v3 d_decNfTy'45'VecList_914 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 @@ -1444,7 +1444,7 @@ d_decNfTy'45'VecList_914 v0 ~v1 v2 v3 v4 = du_decNfTy'45'VecList_914 v0 v2 v3 v4 du_decNfTy'45'VecList_914 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 @@ -1468,7 +1468,7 @@ du_decNfTy'45'VecList_914 v0 v1 v2 v3 _ -> MAlonzo.RTE.mazUnreachableError -- Check.decTyCon d_decTyCon_932 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 @@ -1540,15 +1540,15 @@ d_checkType_1148 v0 v1 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (\ v7 -> coe - C_typeMismatch_100 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + C_typeMismatch_100 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v3) (coe v5)) (coe - MAlonzo.Code.Utils.du_dec2Either_356 + MAlonzo.Code.Utils.du_dec2Either_364 (coe - d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v3) + d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v3) (coe v5)))) (coe (\ v7 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v6))) _ -> MAlonzo.RTE.mazUnreachableError)) @@ -1620,7 +1620,7 @@ d_inferType_1156 v0 v1 v2 (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7) (coe v9) (coe v11)) (coe MAlonzo.Code.Algorithmic.C__'183''8902'_'47'__212 @@ -1632,7 +1632,7 @@ d_inferType_1156 v0 v1 v2 MAlonzo.Code.Utils.du_eitherBind_54 (coe d_checkKind_554 (coe v0) (coe v3) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe (\ v5 -> coe @@ -1671,7 +1671,7 @@ d_inferType_1156 v0 v1 v2 (coe MAlonzo.Code.Type.BetaNormal.C_con_22 (MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d_subNf'8709'_566 - (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Algorithmic.d_sty2ty_84 (coe v4)))) (coe MAlonzo.Code.Algorithmic.C_con_258 @@ -1682,7 +1682,7 @@ d_inferType_1156 v0 v1 v2 MAlonzo.Code.Utils.du_eitherBind_54 (coe d_checkKind_554 (coe v0) (coe v3) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe (\ v4 -> coe @@ -1731,30 +1731,30 @@ d_inferType_1156 v0 v1 v2 MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v6 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) (coe v8)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -1765,32 +1765,32 @@ d_inferType_1156 v0 v1 v2 MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v6)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C_'42'_778))) v6 v8)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -1809,7 +1809,7 @@ d_inferType_1156 v0 v1 v2 MAlonzo.Code.Utils.du_eitherBind_54 (coe d_checkKind_554 (coe v0) (coe v3) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe (\ v6 -> coe @@ -1822,7 +1822,7 @@ d_inferType_1156 v0 v1 v2 MAlonzo.Code.Utils.du_eitherBind_54 (coe d_checkKind_554 (coe v0) (coe v3) - (coe MAlonzo.Code.Utils.C_'42'_770)) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe (\ v6 -> coe @@ -1841,13 +1841,13 @@ d_inferType_1156 v0 v1 v2 d_checkConstrArgs'45'List_1180 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTm_522 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTm_522 -> [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] -> MAlonzo.Code.Utils.T_Either_6 T_TypeError_12 MAlonzo.Code.Utils.List.T_IList_302 d_checkConstrArgs'45'List_1180 v0 v1 v2 v3 = case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> case coe v3 of [] -> coe @@ -1857,7 +1857,7 @@ d_checkConstrArgs'45'List_1180 v0 v1 v2 v3 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_TooFewConstrArgs_86) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Utils.C__'8759'__452 v4 v5 + MAlonzo.Code.Utils.C__'8759'__460 v4 v5 -> case coe v3 of [] -> coe @@ -1884,7 +1884,7 @@ d_checkCases'45'List_1220 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTm_522 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTm_522 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Utils.T_Either_6 @@ -1895,13 +1895,13 @@ du_checkCases'45'List_1220 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTm_522 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTm_522 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Utils.T_Either_6 T_TypeError_12 MAlonzo.Code.Algorithmic.T_Cases_172 du_checkCases'45'List_1220 v0 v1 v2 v3 v4 = case coe v3 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> case coe v4 of MAlonzo.Code.Data.Vec.Base.C_'91''93'_32 -> coe @@ -1910,7 +1910,7 @@ du_checkCases'45'List_1220 v0 v1 v2 v3 v4 MAlonzo.Code.Data.Vec.Base.C__'8759'__38 v6 v7 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_TooFewCases_88) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Utils.C__'8759'__452 v5 v6 + MAlonzo.Code.Utils.C__'8759'__460 v5 v6 -> case coe v4 of MAlonzo.Code.Data.Vec.Base.C_'91''93'_32 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_TooManyCases_90) @@ -2005,24 +2005,24 @@ du_'46'extendedlambda24_1352 v0 v1 v2 v3 v4 d_checkType_1148 (coe v0) (coe v1) (coe v3) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v5 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v6)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -2031,23 +2031,23 @@ du_'46'extendedlambda24_1352 v0 v1 v2 v3 v4 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v5)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_778))) v5 v6)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -2069,7 +2069,7 @@ d_'46'extendedlambda24_1388 :: MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Scoped.T_ScopedTy_14 -> Integer -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTm_522 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTm_522 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> MAlonzo.Code.Utils.T_Either_6 @@ -2080,7 +2080,7 @@ du_'46'extendedlambda24_1388 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> Integer -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTm_522 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTm_522 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> MAlonzo.Code.Utils.T_Either_6 T_TypeError_12 MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 @@ -2115,7 +2115,7 @@ d_'46'extendedlambda24_1410 :: MAlonzo.Code.Algorithmic.T_Ctx_2 -> MAlonzo.Code.Scoped.T_ScopedTy_14 -> MAlonzo.Code.Scoped.T_ScopedTm_522 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTm_522 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTm_522 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> @@ -2126,7 +2126,7 @@ d_'46'extendedlambda24_1410 v0 v1 ~v2 ~v3 v4 v5 ~v6 v7 du_'46'extendedlambda24_1410 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Algorithmic.T_Ctx_2 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTm_522 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTm_522 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> MAlonzo.Code.Utils.T_Either_6 diff --git a/plutus-metatheory/src/MAlonzo/Code/Cost.hs b/plutus-metatheory/src/MAlonzo/Code/Cost.hs index f69d3569a7a..9c024d17d92 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Cost.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Cost.hs @@ -423,14 +423,14 @@ d_cekMachineCostFunction_106 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError -- Cost.exBudgetCategoryCost d_exBudgetCategoryCost_126 :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 (MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Cost.Model.T_BuiltinModel_66) -> MAlonzo.Code.Cost.Base.T_ExBudgetCategory_34 -> T_ExBudget_52 d_exBudgetCategoryCost_126 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C__'44'__442 v2 v3 + MAlonzo.Code.Utils.C__'44'__450 v2 v3 -> case coe v1 of MAlonzo.Code.Cost.Base.C_BStep_36 v4 -> coe d_cekMachineCostFunction_106 (coe v2) (coe v4) @@ -444,7 +444,7 @@ d_exBudgetCategoryCost_126 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError -- Cost.machineParameters d_machineParameters_140 :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 (MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Cost.Model.T_BuiltinModel_66) -> @@ -511,28 +511,28 @@ d_lookup_158 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) -- Cost.εT d_εT_178 :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 d_εT_178 = coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe MAlonzo.Code.Data.Tree.AVL.Map.du_empty_210) (coe d_ε'8364'_68) -- Cost._∙T_ d__'8729'T__180 :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 -> - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 -> - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 d__'8729'T__180 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C__'44'__442 v2 v3 + MAlonzo.Code.Utils.C__'44'__450 v2 v3 -> case coe v1 of - MAlonzo.Code.Utils.C__'44'__442 v4 v5 + MAlonzo.Code.Utils.C__'44'__450 v4 v5 -> coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe MAlonzo.Code.Data.Tree.AVL.Map.du_unionWith_244 MAlonzo.Code.Data.String.Properties.d_'60''45'strictTotalOrder'45''8776'_76 @@ -580,16 +580,16 @@ d_isMonoidTallyingBudget_206 (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased erased) -- Cost.tallyingCekMachineCost d_tallyingCekMachineCost_212 :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 (MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Cost.Model.T_BuiltinModel_66) -> MAlonzo.Code.Cost.Base.T_ExBudgetCategory_34 -> - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 d_tallyingCekMachineCost_212 v0 v1 = coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe MAlonzo.Code.Data.Tree.AVL.Map.du_singleton_212 (d_mkKeyFromExBudgetCategory_150 (coe v1)) @@ -597,7 +597,7 @@ d_tallyingCekMachineCost_212 v0 v1 (coe d_exBudgetCategoryCost_126 (coe v0) (coe v1)) -- Cost.tallyingMachineParameters d_tallyingMachineParameters_220 :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 (MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Cost.Model.T_BuiltinModel_66) -> @@ -609,12 +609,12 @@ d_tallyingMachineParameters_220 v0 (coe d__'8729'T__180) (coe d_isMonoidTallyingBudget_206) -- Cost.tallyingReport d_tallyingReport_224 :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 d_tallyingReport_224 v0 = case coe v0 of - MAlonzo.Code.Utils.C__'44'__442 v1 v2 + MAlonzo.Code.Utils.C__'44'__450 v1 v2 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (d_countingReport_144 (coe v2)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Cost/Model.hs b/plutus-metatheory/src/MAlonzo/Code/Cost/Model.hs index 14eab15270f..1470efba6cc 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Cost/Model.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Cost/Model.hs @@ -889,18 +889,18 @@ d_convertCpuAndMemoryModel_456 v0 v1 -- Cost.Model.getModel d_getModel_480 :: MAlonzo.Code.Builtin.T_Builtin_2 -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192) -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 d_getModel_480 v0 v1 = case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 - MAlonzo.Code.Utils.C__'8759'__452 v2 v3 + MAlonzo.Code.Utils.C__'8759'__460 v2 v3 -> case coe v2 of - MAlonzo.Code.Utils.C__'44'__442 v4 v5 + MAlonzo.Code.Utils.C__'44'__450 v4 v5 -> let v6 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.du_isYes_132 @@ -1043,8 +1043,8 @@ d_ModelAssignment_580 :: () d_ModelAssignment_580 = erased -- Cost.Model.createMap d_createMap_584 :: - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192) -> Maybe (MAlonzo.Code.Builtin.T_Builtin_2 -> T_BuiltinModel_66) diff --git a/plutus-metatheory/src/MAlonzo/Code/Cost/Size.hs b/plutus-metatheory/src/MAlonzo/Code/Cost/Size.hs index 60ff3ec1b06..6893e977238 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Cost/Size.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Cost/Size.hs @@ -37,22 +37,22 @@ d_integerSize_4 :: Integer -> Integer d_integerSize_4 = size -- Cost.Size.byteStringSize d_byteStringSize_6 :: - MAlonzo.Code.Utils.T_ByteString_418 -> Integer + MAlonzo.Code.Utils.T_ByteString_426 -> Integer d_byteStringSize_6 = size -- Cost.Size.g1ElementSize d_g1ElementSize_8 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756 -> Integer + MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -> Integer d_g1ElementSize_8 = size -- Cost.Size.g2ElementSize d_g2ElementSize_10 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760 -> Integer + MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -> Integer d_g2ElementSize_10 = size -- Cost.Size.mlResultElementSize d_mlResultElementSize_12 :: - MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_764 -> Integer + MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_772 -> Integer d_mlResultElementSize_12 = size -- Cost.Size.dataSize -d_dataSize_14 :: MAlonzo.Code.Utils.T_DATA_610 -> Integer +d_dataSize_14 :: MAlonzo.Code.Utils.T_DATA_618 -> Integer d_dataSize_14 = size -- Cost.Size.boolSize d_boolSize_16 :: Bool -> Integer @@ -94,10 +94,10 @@ d_defaultConstantMeasure_22 v0 -> coe d_mlResultElementSize_12 v2 _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.Signature.C_list_16 v4 - -> coe MAlonzo.Code.Utils.du_length_482 (coe v2) + -> coe MAlonzo.Code.Utils.du_length_490 (coe v2) MAlonzo.Code.Builtin.Signature.C_array_20 v4 -> let v5 - = coe MAlonzo.Code.Utils.d_HSlengthOfArray_598 erased v2 in + = coe MAlonzo.Code.Utils.d_HSlengthOfArray_606 erased v2 in coe (case coe v5 of 0 -> coe (1 :: Integer) diff --git a/plutus-metatheory/src/MAlonzo/Code/Declarative.hs b/plutus-metatheory/src/MAlonzo/Code/Declarative.hs index 8f460155f62..e3b302e3845 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Declarative.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Declarative.hs @@ -114,7 +114,7 @@ d_btype_42 :: d_btype_42 v0 v1 = coe MAlonzo.Code.Type.RenamingSubstitution.d_sub'8709'_896 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Builtin.Signature.du_sig2type_242 (coe (\ v2 v3 v4 -> v4)) @@ -130,7 +130,7 @@ d_btype'45'ren_50 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Builtin.T_Builtin_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -140,7 +140,7 @@ d_btype'45'sub_60 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Builtin.T_Builtin_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -159,7 +159,7 @@ d_ty2TyTag_74 v0 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v0)) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v0)) -- Declarative.mkCaseType d_mkCaseType_82 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> @@ -195,7 +195,7 @@ data T__'8866'__110 C__'183'__118 MAlonzo.Code.Type.T__'8866''8902'__20 T__'8866'__110 T__'8866'__110 | C_Λ_120 T__'8866'__110 | - C__'183''8902'__124 MAlonzo.Code.Utils.T_Kind_768 + C__'183''8902'__124 MAlonzo.Code.Utils.T_Kind_776 MAlonzo.Code.Type.T__'8866''8902'__20 T__'8866'__110 MAlonzo.Code.Type.T__'8866''8902'__20 | C_wrap_130 T__'8866'__110 | C_unwrap_132 T__'8866'__110 | @@ -260,7 +260,7 @@ du_typeOf'8715'_210 v0 = coe v0 -- Declarative.piBody d_piBody_216 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> T_Ctx_16 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> T__'8866'__110 -> MAlonzo.Code.Type.T__'8866''8902'__20 @@ -272,7 +272,7 @@ du_piBody_216 v0 = coe v0 -- Declarative.muPat d_muPat_222 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> T_Ctx_16 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -285,7 +285,7 @@ du_muPat_222 v0 = coe v0 -- Declarative.muArg d_muArg_228 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> T_Ctx_16 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/Declarative/Erasure.hs b/plutus-metatheory/src/MAlonzo/Code/Declarative/Erasure.hs index 6c64572f8a2..1e2fef467f3 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Declarative/Erasure.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Declarative/Erasure.hs @@ -165,8 +165,8 @@ d_erase_60 v0 v1 v2 v3 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) v10 (coe MAlonzo.Code.Type.C_ƛ_28 @@ -175,13 +175,13 @@ d_erase_60 v0 v1 v2 v3 (coe MAlonzo.Code.Type.RenamingSubstitution.d_weaken_98 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) v9 v10) (coe MAlonzo.Code.Type.C_'96'_22 (coe MAlonzo.Code.Type.C_Z_16))))) v11) @@ -226,7 +226,7 @@ d_erase'45'Sub_72 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -239,7 +239,7 @@ d_erase'45'Sub_72 v0 v1 v2 v3 v4 v5 v6 d_erase_60 (coe v1) (coe v3) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v1) - (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe d_backVar'8902'_156 (coe v0) (coe v2) (coe v6))) (coe v5 (d_backVar'8902'_156 (coe v0) (coe v2) (coe v6)) @@ -313,7 +313,7 @@ d_backVar'8902'_156 v0 v1 v2 MAlonzo.Code.Type.C__'44''8902'__6 v6 v7 -> coe MAlonzo.Code.Type.RenamingSubstitution.d_weaken_98 v6 - (coe MAlonzo.Code.Utils.C_'42'_770) v7 + (coe MAlonzo.Code.Utils.C_'42'_778) v7 (d_backVar'8902'_156 (coe v6) (coe v4) (coe v2)) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Declarative.C__'44'__26 v4 v5 diff --git a/plutus-metatheory/src/MAlonzo/Code/Declarative/RenamingSubstitution.hs b/plutus-metatheory/src/MAlonzo/Code/Declarative/RenamingSubstitution.hs index c3afcfe6504..22cbbb8e99e 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Declarative/RenamingSubstitution.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Declarative/RenamingSubstitution.hs @@ -32,7 +32,7 @@ d_Ren_8 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> () @@ -43,7 +43,7 @@ d_ext_22 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -74,13 +74,13 @@ d_ext'8902'_34 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Declarative.T__'8715'__34 -> MAlonzo.Code.Declarative.T__'8715'__34) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Declarative.T__'8715'__34 -> MAlonzo.Code.Declarative.T__'8715'__34 @@ -89,7 +89,7 @@ d_ext'8902'_34 v0 v1 ~v2 ~v3 v4 v5 ~v6 ~v7 v8 du_ext'8902'_34 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -103,7 +103,7 @@ du_ext'8902'_34 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.Declarative.C_T_40 (MAlonzo.Code.Type.RenamingSubstitution.d_ren_28 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7)) (coe v3 v7 v9) _ -> MAlonzo.RTE.mazUnreachableError @@ -113,7 +113,7 @@ d_ren_44 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -136,7 +136,7 @@ d_ren_44 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Declarative.C__'44'__26 v3 (MAlonzo.Code.Type.RenamingSubstitution.d_ren_28 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v12))) (coe v4) (coe du_ext_22 (coe v5)) (coe v13) (coe v10)) _ -> MAlonzo.RTE.mazUnreachableError @@ -144,7 +144,7 @@ d_ren_44 v0 v1 v2 v3 v4 v5 v6 v7 -> coe MAlonzo.Code.Declarative.C__'183'__118 (MAlonzo.Code.Type.RenamingSubstitution.d_ren_28 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8)) (d_ren_44 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) @@ -175,7 +175,7 @@ d_ren_44 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v8)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v8)) (coe MAlonzo.Code.Type.RenamingSubstitution.du_ext_18 (coe v4)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v9)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9)) (coe d_ren_44 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe MAlonzo.Code.Type.C_Π_24 v8 v9) (coe v10)) @@ -194,8 +194,8 @@ d_ren_44 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) v14 (coe MAlonzo.Code.Type.C_ƛ_28 @@ -206,13 +206,13 @@ d_ren_44 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v13)) (coe (\ v16 -> coe MAlonzo.Code.Type.C_S_18)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v14)) (coe MAlonzo.Code.Type.C_'96'_22 (coe MAlonzo.Code.Type.C_Z_16))))) @@ -237,7 +237,7 @@ d_ren_44 v0 v1 v2 v3 v4 v5 v6 v7 -> coe MAlonzo.Code.Declarative.C_constr_142 v9 (MAlonzo.Code.Type.RenamingSubstitution.d_ren'45'List_32 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v16) (coe v9))) (d_ren'45'ConstrArgs_62 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) @@ -249,7 +249,7 @@ d_ren_44 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Declarative.C_case_154 v8 (coe MAlonzo.Code.Type.RenamingSubstitution.du_ren'45'VecList_38 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9)) (d_ren_44 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) @@ -261,10 +261,10 @@ d_ren_44 v0 v1 v2 v3 v4 v5 v6 v7 -> coe MAlonzo.Code.Declarative.C_conv_156 (MAlonzo.Code.Type.RenamingSubstitution.d_ren_28 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8)) (MAlonzo.Code.Type.Equality.d_ren'8801'β_80 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v8) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8) (coe v6) (coe v4) (coe v10)) (d_ren_44 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v8) @@ -277,15 +277,15 @@ d_ren_44 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.RenamingSubstitution.d_ren_28 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub'8709'_896 (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v8))) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v8))) (MAlonzo.Code.Type.Equality.d_ren'8801'β_80 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v13) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v13) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub'8709'_896 (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v8)) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v8)) (coe v4) (coe v11)) (coe MAlonzo.Code.Type.Equality.du_'8801'2β_76)) _ -> MAlonzo.RTE.mazUnreachableError @@ -299,7 +299,7 @@ d_ren'45'ConstrArgs_62 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -330,7 +330,7 @@ d_lem'45'ren'45'mkCaseType_92 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -346,7 +346,7 @@ d_ren'45'Cases_128 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -364,7 +364,7 @@ du_ren'45'Cases_128 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -411,7 +411,7 @@ d_weaken'8902'_228 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Declarative.T__'8866'__110 -> MAlonzo.Code.Declarative.T__'8866'__110 d_weaken'8902'_228 v0 v1 v2 v3 v4 @@ -428,7 +428,7 @@ d_Sub_236 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> () @@ -439,7 +439,7 @@ d_exts_250 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -455,7 +455,7 @@ du_exts_250 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -476,10 +476,10 @@ du_exts_250 v0 v1 v2 v3 v4 v5 v6 v7 d_weaken_224 (coe v1) (coe v2) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v1) - (coe v3) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v6)) + (coe v3) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6)) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v1) - (coe v3) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5)) + (coe v3) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) (coe v4 v6 v12) _ -> MAlonzo.RTE.mazUnreachableError -- Declarative.RenamingSubstitution.exts⋆ @@ -488,13 +488,13 @@ d_exts'8902'_266 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Declarative.T__'8715'__34 -> MAlonzo.Code.Declarative.T__'8866'__110) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Declarative.T__'8715'__34 -> MAlonzo.Code.Declarative.T__'8866'__110 @@ -504,13 +504,13 @@ du_exts'8902'_266 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Declarative.T__'8715'__34 -> MAlonzo.Code.Declarative.T__'8866'__110) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Declarative.T__'8715'__34 -> MAlonzo.Code.Declarative.T__'8866'__110 du_exts'8902'_266 v0 v1 v2 v3 v4 v5 v6 @@ -520,7 +520,7 @@ du_exts'8902'_266 v0 v1 v2 v3 v4 v5 v6 d_weaken'8902'_228 (coe v1) (coe v2) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v1) - (coe v3) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v9)) + (coe v3) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9)) (coe v5) (coe v4 v9 v11) _ -> MAlonzo.RTE.mazUnreachableError -- Declarative.RenamingSubstitution.sub @@ -529,7 +529,7 @@ d_sub_278 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -551,7 +551,7 @@ d_sub_278 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Declarative.C__'44'__26 v3 (MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v12))) (coe v4) (coe @@ -562,7 +562,7 @@ d_sub_278 v0 v1 v2 v3 v4 v5 v6 v7 -> coe MAlonzo.Code.Declarative.C__'183'__118 (MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8)) (d_sub_278 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) @@ -599,7 +599,7 @@ d_sub_278 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Type.RenamingSubstitution.du_exts_336 (coe v1) (coe v4) (coe v8)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v9)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9)) (coe d_sub_278 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe MAlonzo.Code.Type.C_Π_24 v8 v9) (coe v10)) @@ -618,8 +618,8 @@ d_sub_278 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) v14 (coe MAlonzo.Code.Type.C_ƛ_28 @@ -628,13 +628,13 @@ d_sub_278 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Type.RenamingSubstitution.d_weaken_98 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_778))) v13 v14) (coe MAlonzo.Code.Type.C_'96'_22 (coe MAlonzo.Code.Type.C_Z_16))))) @@ -659,7 +659,7 @@ d_sub_278 v0 v1 v2 v3 v4 v5 v6 v7 -> coe MAlonzo.Code.Declarative.C_constr_142 v9 (MAlonzo.Code.Type.RenamingSubstitution.d_sub'45'List_350 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v16) (coe v9))) (d_sub'45'ConstrArgs_296 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) @@ -671,7 +671,7 @@ d_sub_278 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Declarative.C_case_154 v8 (coe MAlonzo.Code.Type.RenamingSubstitution.du_sub'45'VecList_356 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9)) (d_sub_278 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) @@ -683,10 +683,10 @@ d_sub_278 v0 v1 v2 v3 v4 v5 v6 v7 -> coe MAlonzo.Code.Declarative.C_conv_156 (MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8)) (MAlonzo.Code.Type.Equality.d_sub'8801'β_172 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v8) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8) (coe v6) (coe v4) (coe v10)) (d_sub_278 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v8) @@ -699,15 +699,15 @@ d_sub_278 v0 v1 v2 v3 v4 v5 v6 v7 (coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 - (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub'8709'_896 (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v8))) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v8))) (MAlonzo.Code.Type.Equality.d_sub'8801'β_172 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v13) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v13) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub'8709'_896 (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v8)) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v8)) (coe v4) (coe v11)) (coe MAlonzo.Code.Type.Equality.du_'8801'2β_76)) _ -> MAlonzo.RTE.mazUnreachableError @@ -721,7 +721,7 @@ d_sub'45'ConstrArgs_296 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -752,7 +752,7 @@ d_lem'45'sub'45'mkCaseType_326 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -768,7 +768,7 @@ d_sub'45'Cases_362 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -786,7 +786,7 @@ du_sub'45'Cases_362 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -819,7 +819,7 @@ d_subcons_458 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> (MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -868,7 +868,7 @@ d__'91'_'93'_470 v0 v1 v2 v3 v4 v5 d__'91'_'93''8902'_478 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Declarative.T_Ctx_16 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Declarative.T__'8866'__110 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Base.hs b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Base.hs index 4ee20a99ceb..9a9e5e55dad 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Base.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Base.hs @@ -69,7 +69,7 @@ check_scopeError_18 :: MAlonzo.Code.Scoped.T_ScopeError_576 -> T_ERROR_12 check_scopeError_18 = ScopeError check_runtimeError_20 :: - MAlonzo.Code.Utils.T_RuntimeError_410 -> T_ERROR_12 + MAlonzo.Code.Utils.T_RuntimeError_418 -> T_ERROR_12 check_runtimeError_20 = RuntimeError check_jsonError_22 :: MAlonzo.Code.Agda.Builtin.String.T_String_6 -> T_ERROR_12 @@ -112,7 +112,7 @@ d_uglyTypeError_24 v0 (coe MAlonzo.Code.Scoped.Extrication.d_len'8902'_4 (coe v1)) (coe MAlonzo.Code.Scoped.Extrication.d_extricateNf'8902'_26 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v2)))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2)))) MAlonzo.Code.Check.C_IndexOutOfBounds_82 v1 v2 -> coe ("IndexOutOfBounds" :: Data.Text.Text) MAlonzo.Code.Check.C_TooManyConstrArgs_84 @@ -166,11 +166,11 @@ d_reportError_66 v0 C_scopeError_18 v1 -> coe ("scopeError" :: Data.Text.Text) C_runtimeError_20 v1 -> case coe v1 of - MAlonzo.Code.Utils.C_gasError_412 + MAlonzo.Code.Utils.C_gasError_420 -> coe ("gasError" :: Data.Text.Text) - MAlonzo.Code.Utils.C_userError_414 + MAlonzo.Code.Utils.C_userError_422 -> coe ("userError" :: Data.Text.Text) - MAlonzo.Code.Utils.C_runtimeTypeError_416 + MAlonzo.Code.Utils.C_runtimeTypeError_424 -> coe ("runtimeTypeError" :: Data.Text.Text) _ -> MAlonzo.RTE.mazUnreachableError C_jsonError_22 v1 diff --git a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs index 6bb649d8f93..0183ad15138 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs @@ -164,7 +164,7 @@ d_parsePLC_56 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v1 -> coe @@ -174,7 +174,7 @@ d_parsePLC_56 v0 (coe (\ v1 -> coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTm_686 (coe (0 :: Integer)) @@ -192,7 +192,7 @@ d_parseUPLC_62 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v1 -> coe @@ -202,7 +202,7 @@ d_parseUPLC_62 v0 (coe (\ v1 -> coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Untyped.d_scopeCheckU0_276 (coe d_convPU_32 v1)))) @@ -239,7 +239,7 @@ du_checkError_76 v0 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_userError_414)) + (coe MAlonzo.Code.Utils.C_userError_422)) _ -> coe v1) -- Evaluator.Program.executePLC d_executePLC_80 :: @@ -254,7 +254,7 @@ d_executePLC_80 v0 v1 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -268,7 +268,7 @@ d_executePLC_80 v0 v1 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe MAlonzo.Code.Untyped.CEK.d_stepper_1284 @@ -289,7 +289,7 @@ d_executePLC_80 v0 v1 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_gasError_412)) in + (coe MAlonzo.Code.Utils.C_gasError_420)) in coe (case coe v5 of MAlonzo.Code.Untyped.CEK.C_'9633'_226 v7 @@ -306,14 +306,14 @@ d_executePLC_80 v0 v1 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_userError_414)) + (coe MAlonzo.Code.Utils.C_userError_422)) _ -> coe v6))) _ -> MAlonzo.RTE.mazUnreachableError)) C_TL_50 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -329,7 +329,7 @@ d_executePLC_80 v0 v1 (coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe MAlonzo.Code.Algorithmic.Evaluation.d_stepper_86 (coe v3) @@ -362,7 +362,7 @@ d_executePLC_80 v0 v1 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -376,7 +376,7 @@ d_executePLC_80 v0 v1 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe MAlonzo.Code.Algorithmic.CK.du_stepper_372 @@ -391,7 +391,7 @@ d_executePLC_80 v0 v1 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_gasError_412)) in + (coe MAlonzo.Code.Utils.C_gasError_420)) in coe (case coe v5 of MAlonzo.Code.Algorithmic.CK.C_'9633'_50 v7 v8 @@ -421,14 +421,14 @@ d_executePLC_80 v0 v1 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_userError_414)) + (coe MAlonzo.Code.Utils.C_userError_422)) _ -> coe v6))) _ -> MAlonzo.RTE.mazUnreachableError)) C_TCEK_54 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -442,7 +442,7 @@ d_executePLC_80 v0 v1 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe MAlonzo.Code.Algorithmic.CEK.du_stepper_1630 @@ -459,7 +459,7 @@ d_executePLC_80 v0 v1 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_gasError_412)) in + (coe MAlonzo.Code.Utils.C_gasError_420)) in coe (case coe v5 of MAlonzo.Code.Algorithmic.CEK.C_'9633'_1292 v7 @@ -492,7 +492,7 @@ d_executePLC_80 v0 v1 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_userError_414)) + (coe MAlonzo.Code.Utils.C_userError_422)) _ -> coe v6))) _ -> MAlonzo.RTE.mazUnreachableError)) _ -> MAlonzo.RTE.mazUnreachableError @@ -508,7 +508,7 @@ d_showUPLCResult_138 v0 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_gasError_412)) in + (coe MAlonzo.Code.Utils.C_gasError_420)) in coe (case coe v0 of MAlonzo.Code.Untyped.CEK.C_'9633'_226 v2 @@ -523,18 +523,18 @@ d_showUPLCResult_138 v0 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_userError_414)) + (coe MAlonzo.Code.Utils.C_userError_422)) _ -> coe v1) -- Evaluator.Program.executeUPLCwithMP d_executeUPLCwithMP_144 :: () -> - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 - (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192)) -> - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 (MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Cost.Model.T_BuiltinModel_66) -> @@ -547,13 +547,13 @@ d_executeUPLCwithMP_144 :: d_executeUPLCwithMP_144 ~v0 v1 v2 v3 v4 = du_executeUPLCwithMP_144 v1 v2 v3 v4 du_executeUPLCwithMP_144 :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 - (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192)) -> - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 (MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Cost.Model.T_BuiltinModel_66) -> @@ -565,7 +565,7 @@ du_executeUPLCwithMP_144 :: MAlonzo.Code.Agda.Builtin.String.T_String_6 du_executeUPLCwithMP_144 v0 v1 v2 v3 = case coe v0 of - MAlonzo.Code.Utils.C__'44'__442 v4 v5 + MAlonzo.Code.Utils.C__'44'__450 v4 v5 -> let v6 = coe MAlonzo.Code.Data.Maybe.Base.du_maybe_32 @@ -959,13 +959,13 @@ du_executeUPLCwithMP_144 v0 v1 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe - MAlonzo.Code.Utils.d_wrvalue_376 + MAlonzo.Code.Utils.d_wrvalue_384 (coe MAlonzo.Code.Untyped.CEKWithCost.du_stepperC_338 - (coe v1 (coe MAlonzo.Code.Utils.C__'44'__442 (coe v4) (coe v7))) + (coe v1 (coe MAlonzo.Code.Utils.C__'44'__450 (coe v4) (coe v7))) (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 @@ -984,13 +984,13 @@ du_executeUPLCwithMP_144 v0 v1 v2 v3 MAlonzo.Code.Data.String.Base.d__'43''43'__20 v9 (coe v2 - (MAlonzo.Code.Utils.d_accum_378 + (MAlonzo.Code.Utils.d_accum_386 (coe MAlonzo.Code.Untyped.CEKWithCost.du_stepperC_338 (coe v1 (coe - MAlonzo.Code.Utils.C__'44'__442 (coe v4) + MAlonzo.Code.Utils.C__'44'__450 (coe v4) (coe v7))) (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) (coe @@ -1010,10 +1010,10 @@ du_executeUPLCwithMP_144 v0 v1 v2 v3 -- Evaluator.Program.executeUPLC d_executeUPLC_192 :: T_BudgetMode_36 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 - (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192))) -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -1026,7 +1026,7 @@ d_executeUPLC_192 v0 v1 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe MAlonzo.Code.Untyped.CEK.d_stepper_1284 @@ -1050,10 +1050,10 @@ d_executeUPLC_192 v0 v1 -- Evaluator.Program.evalProgramNU d_evalProgramNU_204 :: T_BudgetMode_36 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 - (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192))) -> T_ProgramNU_26 -> @@ -1089,7 +1089,7 @@ d_typeCheckProgramN_220 v0 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -1114,5 +1114,5 @@ d_typeCheckProgramN_220 v0 (coe MAlonzo.Code.Scoped.Extrication.d_extricateNf'8902'_26 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v3))))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v3))))) _ -> MAlonzo.RTE.mazUnreachableError)))) diff --git a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Term.hs b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Term.hs index 0731576eef1..0ec6e82ecc4 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Term.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Term.hs @@ -147,14 +147,14 @@ d_unconvTmU_48 = U.uconv 0 -- Evaluator.Term.checkKindX checkKindAgda :: T_Type_16 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Evaluator.Base.T_ERROR_12 MAlonzo.Code.Agda.Builtin.Unit.T_'8868'_6 checkKindAgda = coe d_checkKindX_50 d_checkKindX_50 :: T_Type_16 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Evaluator.Base.T_ERROR_12 MAlonzo.Code.Agda.Builtin.Unit.T_'8868'_6 @@ -162,7 +162,7 @@ d_checkKindX_50 v0 v1 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTy_616 @@ -177,7 +177,7 @@ d_checkKindX_50 v0 v1 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v3 -> coe @@ -193,7 +193,7 @@ d_checkKindX_50 v0 v1 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v6 -> coe @@ -202,7 +202,7 @@ d_checkKindX_50 v0 v1 MAlonzo.Code.Evaluator.Base.d_uglyTypeError_24 (coe MAlonzo.Code.Check.C_kindMismatch_18 v1 v4)))) (coe - MAlonzo.Code.Utils.du_dec2Either_356 + MAlonzo.Code.Utils.du_dec2Either_364 (coe MAlonzo.Code.Check.d_decKind_138 (coe v1) (coe v4)))) (coe (\ v6 -> @@ -215,18 +215,18 @@ inferKindAgda :: T_Type_16 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Evaluator.Base.T_ERROR_12 - MAlonzo.Code.Utils.T_Kind_768 + MAlonzo.Code.Utils.T_Kind_776 inferKindAgda = coe d_inferKind'8709'_68 d_inferKind'8709'_68 :: T_Type_16 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Evaluator.Base.T_ERROR_12 - MAlonzo.Code.Utils.T_Kind_768 + MAlonzo.Code.Utils.T_Kind_776 d_inferKind'8709'_68 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTy_616 @@ -241,7 +241,7 @@ d_inferKind'8709'_68 v0 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -270,7 +270,7 @@ d_normalizeType_80 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTy_616 @@ -285,7 +285,7 @@ d_normalizeType_80 v0 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -327,7 +327,7 @@ d_inferType'8709'_92 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTm_686 (coe (0 :: Integer)) @@ -340,7 +340,7 @@ d_inferType'8709'_92 v0 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -368,7 +368,7 @@ d_inferType'8709'_92 v0 (coe MAlonzo.Code.Scoped.Extrication.d_extricateNf'8902'_26 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v3))))) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v3))))) _ -> MAlonzo.RTE.mazUnreachableError)))) -- Evaluator.Term.checkType∅ checkTypeAgda :: @@ -388,7 +388,7 @@ d_checkType'8709'_104 v0 v1 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTy_616 @@ -403,7 +403,7 @@ d_checkType'8709'_104 v0 v1 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v3 -> coe @@ -412,13 +412,13 @@ d_checkType'8709'_104 v0 v1 (coe MAlonzo.Code.Check.d_checkKind_554 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770))) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe (\ v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTm_686 (coe (0 :: Integer)) @@ -429,10 +429,10 @@ d_checkType'8709'_104 v0 v1 (coe (\ v4 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 - (coe MAlonzo.Code.Utils.du_EitherP_336) + MAlonzo.Code.Utils.du__'62''62'__282 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v5 -> coe @@ -461,7 +461,7 @@ d_normalizeTypeTerm_120 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTm_686 (coe (0 :: Integer)) @@ -474,7 +474,7 @@ d_normalizeTypeTerm_120 v0 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -523,7 +523,7 @@ d_runTL_132 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTm_686 (coe (0 :: Integer)) @@ -536,7 +536,7 @@ d_runTL_132 v0 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -553,7 +553,7 @@ d_runTL_132 v0 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe MAlonzo.Code.Algorithmic.Evaluation.d_stepper_86 (coe v3) @@ -595,7 +595,7 @@ d_runTCK_146 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTm_686 (coe (0 :: Integer)) @@ -608,7 +608,7 @@ d_runTCK_146 v0 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -625,7 +625,7 @@ d_runTCK_146 v0 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe MAlonzo.Code.Algorithmic.CK.du_stepper_372 @@ -641,13 +641,13 @@ d_runTCK_146 v0 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_gasError_412)) + (coe MAlonzo.Code.Utils.C_gasError_420)) MAlonzo.Code.Algorithmic.CK.C__'9669'__46 v6 v7 v8 v9 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_gasError_412)) + (coe MAlonzo.Code.Utils.C_gasError_420)) MAlonzo.Code.Algorithmic.CK.C_'9633'_50 v6 v7 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 @@ -705,7 +705,7 @@ d_runTCEK_166 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Scoped.d_scopeCheckTm_686 (coe (0 :: Integer)) @@ -718,7 +718,7 @@ d_runTCEK_166 v0 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe (\ v2 -> coe @@ -735,7 +735,7 @@ d_runTCEK_166 v0 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe MAlonzo.Code.Algorithmic.CEK.du_stepper_1630 @@ -753,13 +753,13 @@ d_runTCEK_166 v0 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_gasError_412)) + (coe MAlonzo.Code.Utils.C_gasError_420)) MAlonzo.Code.Algorithmic.CEK.C__'9669'__1290 v6 v7 v8 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_gasError_412)) + (coe MAlonzo.Code.Utils.C_gasError_420)) MAlonzo.Code.Algorithmic.CEK.C_'9633'_1292 v6 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 @@ -816,7 +816,7 @@ d_runUValue_186 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe MAlonzo.Code.Untyped.CEK.d_stepper_1284 @@ -832,7 +832,7 @@ d_runUValue_186 v0 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_gasError_412)) in + (coe MAlonzo.Code.Utils.C_gasError_420)) in coe (case coe v1 of MAlonzo.Code.Untyped.CEK.C_'9633'_226 v3 @@ -842,7 +842,7 @@ d_runUValue_186 v0 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_userError_414)) + (coe MAlonzo.Code.Utils.C_userError_422)) _ -> coe v2))) -- Evaluator.Term.runU runUAgda :: @@ -858,7 +858,7 @@ d_runU_194 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Untyped.d_scopeCheckU0_276 (coe d_convTmU_46 v0))) @@ -876,33 +876,33 @@ d_runU_194 v0 (coe MAlonzo.Code.Untyped.CEK.d_discharge_126 (coe v2)))))))) -- Evaluator.Term.runUCounting runUCountingAgda :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 - (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192)) -> T_TermU_24 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Evaluator.Base.T_ERROR_12 - (MAlonzo.Code.Utils.T__'215'__428 - T_TermU_24 (MAlonzo.Code.Utils.T__'215'__428 Integer Integer)) + (MAlonzo.Code.Utils.T__'215'__436 + T_TermU_24 (MAlonzo.Code.Utils.T__'215'__436 Integer Integer)) runUCountingAgda = coe d_runUCounting_202 d_runUCounting_202 :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 - (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192)) -> T_TermU_24 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Evaluator.Base.T_ERROR_12 - (MAlonzo.Code.Utils.T__'215'__428 - T_TermU_24 (MAlonzo.Code.Utils.T__'215'__428 Integer Integer)) + (MAlonzo.Code.Utils.T__'215'__436 + T_TermU_24 (MAlonzo.Code.Utils.T__'215'__436 Integer Integer)) d_runUCounting_202 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C__'44'__442 v2 v3 + MAlonzo.Code.Utils.C__'44'__450 v2 v3 -> let v4 = coe MAlonzo.Code.Data.Maybe.Base.du_maybe_32 @@ -1296,7 +1296,7 @@ d_runUCounting_202 v0 v1 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe MAlonzo.Code.Untyped.d_scopeCheckU0_276 (coe d_convTmU_46 v1))) @@ -1305,15 +1305,15 @@ d_runUCounting_202 v0 v1 coe MAlonzo.Code.Utils.du_eitherBind_54 (coe - MAlonzo.Code.Utils.du_withE_344 + MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe - MAlonzo.Code.Utils.d_wrvalue_376 + MAlonzo.Code.Utils.d_wrvalue_384 (coe MAlonzo.Code.Untyped.CEKWithCost.du_stepperC_338 (coe MAlonzo.Code.Cost.d_machineParameters_140 - (coe MAlonzo.Code.Utils.C__'44'__442 (coe v2) (coe v5))) + (coe MAlonzo.Code.Utils.C__'44'__450 (coe v2) (coe v5))) (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 @@ -1327,14 +1327,14 @@ d_runUCounting_202 v0 v1 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_gasError_412)) in + (coe MAlonzo.Code.Utils.C_gasError_420)) in coe (case coe v7 of MAlonzo.Code.Untyped.CEK.C_'9633'_226 v9 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe d_unconvTmU_48 (MAlonzo.Code.Untyped.d_extricateU0_214 @@ -1342,17 +1342,17 @@ d_runUCounting_202 v0 v1 MAlonzo.Code.Untyped.CEK.d_discharge_126 (coe v9)))) (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe MAlonzo.Code.Cost.d_ExCPU_58 (coe - MAlonzo.Code.Utils.d_accum_378 + MAlonzo.Code.Utils.d_accum_386 (coe MAlonzo.Code.Untyped.CEKWithCost.du_stepperC_338 (coe MAlonzo.Code.Cost.d_machineParameters_140 (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe v2) (coe v5))) (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) @@ -1367,13 +1367,13 @@ d_runUCounting_202 v0 v1 (coe MAlonzo.Code.Cost.d_ExMem_60 (coe - MAlonzo.Code.Utils.d_accum_378 + MAlonzo.Code.Utils.d_accum_386 (coe MAlonzo.Code.Untyped.CEKWithCost.du_stepperC_338 (coe MAlonzo.Code.Cost.d_machineParameters_140 (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe v2) (coe v5))) (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) @@ -1390,7 +1390,7 @@ d_runUCounting_202 v0 v1 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 - (coe MAlonzo.Code.Utils.C_userError_414)) + (coe MAlonzo.Code.Utils.C_userError_422)) _ -> coe v8))))) MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe diff --git a/plutus-metatheory/src/MAlonzo/Code/Main.hs b/plutus-metatheory/src/MAlonzo/Code/Main.hs index 12d4499462c..3cf4adbd9cc 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Main.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Main.hs @@ -38,10 +38,10 @@ d_putStrLn_12 :: () MAlonzo.Code.Agda.Builtin.Unit.T_'8868'_6 d_putStrLn_12 = TextIO.putStrLn -- Main.IOMonad -d_IOMonad_14 :: MAlonzo.Code.Utils.T_Monad_246 +d_IOMonad_14 :: MAlonzo.Code.Utils.T_Monad_254 d_IOMonad_14 = coe - MAlonzo.Code.Utils.C_constructor_290 + MAlonzo.Code.Utils.C_constructor_298 (\ v0 -> coe MAlonzo.Code.IO.Primitive.Core.du_return_16 (coe ())) (coe (\ v0 -> @@ -109,10 +109,10 @@ d_execP_44 :: MAlonzo.Code.Agda.Builtin.IO.T_IO_8 () (T_Command_36 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 - (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192)))) d_execP_44 = execP @@ -134,10 +134,10 @@ d_parseU_48 = readProgram d_evalInput_50 :: MAlonzo.Code.Evaluator.Program.T_EvalMode_46 -> MAlonzo.Code.Evaluator.Program.T_BudgetMode_36 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 - (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192))) -> MAlonzo.Code.Evaluator.Program.T_Format_14 -> @@ -150,14 +150,14 @@ d_evalInput_50 :: d_evalInput_50 v0 v1 v2 v3 = let v4 = coe - MAlonzo.Code.Utils.du_fmap_284 (coe d_IOMonad_14) + MAlonzo.Code.Utils.du_fmap_292 (coe d_IOMonad_14) (coe MAlonzo.Code.Evaluator.Program.d_evalProgramN_212 (coe v0)) (coe d_parse_46 v2 v3) in coe (case coe v0 of MAlonzo.Code.Evaluator.Program.C_U_48 -> coe - MAlonzo.Code.Utils.du_fmap_284 (coe d_IOMonad_14) + MAlonzo.Code.Utils.du_fmap_292 (coe d_IOMonad_14) (coe MAlonzo.Code.Evaluator.Program.d_evalProgramNU_204 (coe v1)) (coe d_parseU_48 v2 v3) _ -> coe v4) @@ -172,16 +172,16 @@ d_tcInput_64 :: MAlonzo.Code.Agda.Builtin.String.T_String_6) d_tcInput_64 v0 v1 = coe - MAlonzo.Code.Utils.du_fmap_284 (coe d_IOMonad_14) + MAlonzo.Code.Utils.du_fmap_292 (coe d_IOMonad_14) (coe MAlonzo.Code.Evaluator.Program.d_typeCheckProgramN_220) (coe d_parse_46 v0 v1) -- Main.main' d_main''_70 :: T_Command_36 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 - (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Agda.Builtin.String.T_String_6 MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_192))) -> MAlonzo.Code.Agda.Builtin.IO.T_IO_8 @@ -198,14 +198,14 @@ d_main''_70 v0 case coe v6 of MAlonzo.Code.Utils.C_inj'8321'_12 v7 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 (coe d_IOMonad_14) + MAlonzo.Code.Utils.du__'62''62'__282 (coe d_IOMonad_14) (coe d_putStrLn_12 (MAlonzo.Code.Evaluator.Base.d_reportError_66 (coe v7))) (coe d_exitFailure_18) MAlonzo.Code.Utils.C_inj'8322'_14 v7 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 (coe d_IOMonad_14) + MAlonzo.Code.Utils.du__'62''62'__282 (coe d_IOMonad_14) (coe d_putStrLn_12 v7) (coe d_exitSuccess_20) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError @@ -219,14 +219,14 @@ d_main''_70 v0 case coe v4 of MAlonzo.Code.Utils.C_inj'8321'_12 v5 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 (coe d_IOMonad_14) + MAlonzo.Code.Utils.du__'62''62'__282 (coe d_IOMonad_14) (coe d_putStrLn_12 (MAlonzo.Code.Evaluator.Base.d_reportError_66 (coe v5))) (coe d_exitFailure_18) MAlonzo.Code.Utils.C_inj'8322'_14 v5 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 (coe d_IOMonad_14) + MAlonzo.Code.Utils.du__'62''62'__282 (coe d_IOMonad_14) (coe d_putStrLn_12 v5) (coe d_exitSuccess_20) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/MAlonzo/Code/Raw.hs b/plutus-metatheory/src/MAlonzo/Code/Raw.hs index 7f0072e2549..95489452c65 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Raw.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Raw.hs @@ -46,10 +46,10 @@ check_'96'_6 = RTyVar check__'8658'__8 :: T_RawTy_2 -> T_RawTy_2 -> T_RawTy_2 check__'8658'__8 = RTyFun check_Π_10 :: - MAlonzo.Code.Utils.T_Kind_768 -> T_RawTy_2 -> T_RawTy_2 + MAlonzo.Code.Utils.T_Kind_776 -> T_RawTy_2 -> T_RawTy_2 check_Π_10 = RTyPi check_ƛ_12 :: - MAlonzo.Code.Utils.T_Kind_768 -> T_RawTy_2 -> T_RawTy_2 + MAlonzo.Code.Utils.T_Kind_776 -> T_RawTy_2 -> T_RawTy_2 check_ƛ_12 = RTyLambda check__'183'__14 :: T_RawTy_2 -> T_RawTy_2 -> T_RawTy_2 check__'183'__14 = RTyApp @@ -58,8 +58,8 @@ check_con_16 = RTyCon check_μ_18 :: T_RawTy_2 -> T_RawTy_2 -> T_RawTy_2 check_μ_18 = RTyMu check_SOP_22 :: - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 T_RawTy_2) -> + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 T_RawTy_2) -> T_RawTy_2 check_SOP_22 = RTySOP cover_RawTy_2 :: RType -> () @@ -115,7 +115,7 @@ pattern C_case_68 a0 a1 a2 = RCase a0 a1 a2 check_'96'_34 :: Integer -> T_RawTm_32 check_'96'_34 = RVar check_Λ_36 :: - MAlonzo.Code.Utils.T_Kind_768 -> T_RawTm_32 -> T_RawTm_32 + MAlonzo.Code.Utils.T_Kind_776 -> T_RawTm_32 -> T_RawTm_32 check_Λ_36 = RTLambda check__'183''8902'__38 :: T_RawTm_32 -> T_RawTy_2 -> T_RawTm_32 check__'183''8902'__38 = RTApp @@ -135,12 +135,12 @@ check_unwrap_52 :: T_RawTm_32 -> T_RawTm_32 check_unwrap_52 = RUnWrap check_constr_60 :: T_RawTy_2 -> - Integer -> MAlonzo.Code.Utils.T_List_446 T_RawTm_32 -> T_RawTm_32 + Integer -> MAlonzo.Code.Utils.T_List_454 T_RawTm_32 -> T_RawTm_32 check_constr_60 = RConstr check_case_68 :: T_RawTy_2 -> T_RawTm_32 -> - MAlonzo.Code.Utils.T_List_446 T_RawTm_32 -> T_RawTm_32 + MAlonzo.Code.Utils.T_List_454 T_RawTm_32 -> T_RawTm_32 check_case_68 = RCase cover_RawTm_32 :: RTerm -> () cover_RawTm_32 x @@ -187,29 +187,29 @@ d_decRTyCon_74 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) -- Raw.decRKi d_decRKi_84 :: - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> Bool + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> Bool d_decRKi_84 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> let v2 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v1 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 _ -> coe v2) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> let v2 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v1 of - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 _ -> coe v2) - MAlonzo.Code.Utils.C__'8658'__774 v2 v3 + MAlonzo.Code.Utils.C__'8658'__782 v2 v3 -> let v4 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v1 of - MAlonzo.Code.Utils.C__'8658'__774 v5 v6 + MAlonzo.Code.Utils.C__'8658'__782 v5 v6 -> coe MAlonzo.Code.Data.Bool.Base.d__'8743'__24 (coe d_decRKi_84 (coe v2) (coe v5)) @@ -281,20 +281,20 @@ d_decRTy_102 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) -- Raw.decRTyList d_decRTyList_108 :: - MAlonzo.Code.Utils.T_List_446 T_RawTy_2 -> - MAlonzo.Code.Utils.T_List_446 T_RawTy_2 -> Bool + MAlonzo.Code.Utils.T_List_454 T_RawTy_2 -> + MAlonzo.Code.Utils.T_List_454 T_RawTy_2 -> Bool d_decRTyList_108 v0 v1 = let v2 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v0 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 _ -> coe v2 - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> case coe v1 of - MAlonzo.Code.Utils.C__'8759'__452 v5 v6 + MAlonzo.Code.Utils.C__'8759'__460 v5 v6 -> coe MAlonzo.Code.Data.Bool.Base.d__'8743'__24 (coe d_decRTy_102 (coe v3) (coe v5)) @@ -303,23 +303,23 @@ d_decRTyList_108 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) -- Raw.decRTyListList d_decRTyListList_114 :: - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 T_RawTy_2) -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 T_RawTy_2) -> + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 T_RawTy_2) -> + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 T_RawTy_2) -> Bool d_decRTyListList_114 v0 v1 = let v2 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v0 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 _ -> coe v2 - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> case coe v1 of - MAlonzo.Code.Utils.C__'8759'__452 v5 v6 + MAlonzo.Code.Utils.C__'8759'__460 v5 v6 -> coe MAlonzo.Code.Data.Bool.Base.d__'8743'__24 (coe d_decRTyList_108 (coe v3) (coe v5)) @@ -432,20 +432,20 @@ d_decRTm_188 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) -- Raw.decRTmList d_decRTmList_194 :: - MAlonzo.Code.Utils.T_List_446 T_RawTm_32 -> - MAlonzo.Code.Utils.T_List_446 T_RawTm_32 -> Bool + MAlonzo.Code.Utils.T_List_454 T_RawTm_32 -> + MAlonzo.Code.Utils.T_List_454 T_RawTm_32 -> Bool d_decRTmList_194 v0 v1 = let v2 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v0 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 _ -> coe v2 - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> case coe v1 of - MAlonzo.Code.Utils.C__'8759'__452 v5 v6 + MAlonzo.Code.Utils.C__'8759'__460 v5 v6 -> coe MAlonzo.Code.Data.Bool.Base.d__'8743'__24 (coe d_decRTm_188 (coe v3) (coe v5)) @@ -531,16 +531,16 @@ d_rawTyPrinter_296 v0 _ -> MAlonzo.RTE.mazUnreachableError -- Raw.rawTyListPrinter d_rawTyListPrinter_298 :: - MAlonzo.Code.Utils.T_List_446 T_RawTy_2 -> + MAlonzo.Code.Utils.T_List_454 T_RawTy_2 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 d_rawTyListPrinter_298 v0 = case coe v0 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe ("" :: Data.Text.Text) - MAlonzo.Code.Utils.C__'8759'__452 v1 v2 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe ("" :: Data.Text.Text) + MAlonzo.Code.Utils.C__'8759'__460 v1 v2 -> case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe d_rawTyPrinter_296 (coe v1) - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (d_rawTyPrinter_296 (coe v1)) @@ -551,17 +551,17 @@ d_rawTyListPrinter_298 v0 _ -> MAlonzo.RTE.mazUnreachableError -- Raw.rawTyListListPrinter d_rawTyListListPrinter_300 :: - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 T_RawTy_2) -> + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 T_RawTy_2) -> MAlonzo.Code.Agda.Builtin.String.T_String_6 d_rawTyListListPrinter_300 v0 = case coe v0 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe ("" :: Data.Text.Text) - MAlonzo.Code.Utils.C__'8759'__452 v1 v2 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe ("" :: Data.Text.Text) + MAlonzo.Code.Utils.C__'8759'__460 v1 v2 -> case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe d_addBrackets_292 (coe d_rawTyListPrinter_298 (coe v1)) - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (d_addBrackets_292 (coe d_rawTyListPrinter_298 (coe v1))) @@ -572,15 +572,15 @@ d_rawTyListListPrinter_300 v0 _ -> MAlonzo.RTE.mazUnreachableError -- Raw.rawListPrinter d_rawListPrinter_344 :: - MAlonzo.Code.Utils.T_List_446 T_RawTm_32 -> + MAlonzo.Code.Utils.T_List_454 T_RawTm_32 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 d_rawListPrinter_344 v0 = case coe v0 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe ("" :: Data.Text.Text) - MAlonzo.Code.Utils.C__'8759'__452 v1 v2 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe ("" :: Data.Text.Text) + MAlonzo.Code.Utils.C__'8759'__460 v1 v2 -> case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe d_rawPrinter_346 (coe v1) - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe d_rawPrinter_346 (coe v1) + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (d_rawPrinter_346 (coe v1)) diff --git a/plutus-metatheory/src/MAlonzo/Code/RawU.hs b/plutus-metatheory/src/MAlonzo/Code/RawU.hs index e731b82e888..1746a29fbab 100644 --- a/plutus-metatheory/src/MAlonzo/Code/RawU.hs +++ b/plutus-metatheory/src/MAlonzo/Code/RawU.hs @@ -63,13 +63,13 @@ d_convSigTy_6 :: Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -111,8 +111,8 @@ d_sigTy2type_10 :: Integer -> Integer -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sigTy2type_10 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 v7 ~v8 ~v9 ~v10 @@ -159,7 +159,7 @@ pattern C_bls12'45'381'45'mlresult_60 = TagBLS12_381_MlResult check_integer_30 :: T_Tag_28 (T_Esc_24 Integer) check_integer_30 = TagInt check_bytestring_32 :: - T_Tag_28 (T_Esc_24 MAlonzo.Code.Utils.T_ByteString_418) + T_Tag_28 (T_Esc_24 MAlonzo.Code.Utils.T_ByteString_426) check_bytestring_32 = TagBS check_string_34 :: T_Tag_28 (T_Esc_24 MAlonzo.Code.Agda.Builtin.String.T_String_6) @@ -169,36 +169,36 @@ check_bool_36 = TagBool check_unit_38 :: T_Tag_28 (T_Esc_24 MAlonzo.Code.Agda.Builtin.Unit.T_'8868'_6) check_unit_38 = TagUnit -check_pdata_40 :: T_Tag_28 (T_Esc_24 MAlonzo.Code.Utils.T_DATA_610) +check_pdata_40 :: T_Tag_28 (T_Esc_24 MAlonzo.Code.Utils.T_DATA_618) check_pdata_40 = TagData check_pair_46 :: forall xA. forall xB. T_Tag_28 (T_Esc_24 xA) -> T_Tag_28 (T_Esc_24 xB) -> - T_Tag_28 (T_Esc_24 (MAlonzo.Code.Utils.T__'215'__428 xA xB)) + T_Tag_28 (T_Esc_24 (MAlonzo.Code.Utils.T__'215'__436 xA xB)) check_pair_46 = TagPair check_list_50 :: forall xA. T_Tag_28 (T_Esc_24 xA) -> - T_Tag_28 (T_Esc_24 (MAlonzo.Code.Utils.T_List_446 xA)) + T_Tag_28 (T_Esc_24 (MAlonzo.Code.Utils.T_List_454 xA)) check_list_50 = TagList check_array_54 :: forall xA. T_Tag_28 (T_Esc_24 xA) -> - T_Tag_28 (T_Esc_24 (MAlonzo.Code.Utils.T_Array_594 xA)) + T_Tag_28 (T_Esc_24 (MAlonzo.Code.Utils.T_Array_602 xA)) check_array_54 = TagArray check_bls12'45'381'45'g1'45'element_56 :: T_Tag_28 - (T_Esc_24 MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_756) + (T_Esc_24 MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764) check_bls12'45'381'45'g1'45'element_56 = TagBLS12_381_G1_Element check_bls12'45'381'45'g2'45'element_58 :: T_Tag_28 - (T_Esc_24 MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_760) + (T_Esc_24 MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768) check_bls12'45'381'45'g2'45'element_58 = TagBLS12_381_G2_Element check_bls12'45'381'45'mlresult_60 :: T_Tag_28 - (T_Esc_24 MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_764) + (T_Esc_24 MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_772) check_bls12'45'381'45'mlresult_60 = TagBLS12_381_MlResult cover_Tag_28 :: Tag a1 -> () cover_Tag_28 x @@ -383,15 +383,15 @@ du_decTagCon''_124 v0 v1 v2 v3 _ -> coe v4 C_pdata_40 -> case coe v2 of - C_pdata_40 -> coe MAlonzo.Code.Utils.d_eqDATA_622 (coe v1) (coe v3) + C_pdata_40 -> coe MAlonzo.Code.Utils.d_eqDATA_630 (coe v1) (coe v3) _ -> coe v4 C_pair_46 v7 v8 -> case coe v1 of - MAlonzo.Code.Utils.C__'44'__442 v9 v10 + MAlonzo.Code.Utils.C__'44'__450 v9 v10 -> case coe v2 of C_pair_46 v13 v14 -> case coe v3 of - MAlonzo.Code.Utils.C__'44'__442 v15 v16 + MAlonzo.Code.Utils.C__'44'__450 v15 v16 -> coe MAlonzo.Code.Data.Bool.Base.d__'8743'__24 (coe du_decTagCon''_124 (coe v7) (coe v9) (coe v13) (coe v15)) @@ -401,19 +401,19 @@ du_decTagCon''_124 v0 v1 v2 v3 _ -> MAlonzo.RTE.mazUnreachableError C_list_50 v6 -> case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> case coe v2 of C_list_50 v8 -> case coe v3 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 _ -> coe v4 _ -> coe v4 - MAlonzo.Code.Utils.C__'8759'__452 v7 v8 + MAlonzo.Code.Utils.C__'8759'__460 v7 v8 -> case coe v2 of C_list_50 v10 -> case coe v3 of - MAlonzo.Code.Utils.C__'8759'__452 v11 v12 + MAlonzo.Code.Utils.C__'8759'__460 v11 v12 -> coe MAlonzo.Code.Data.Bool.Base.d__'8743'__24 (coe du_decTagCon''_124 (coe v6) (coe v7) (coe v10) (coe v11)) @@ -475,11 +475,11 @@ check_UForce_224 :: T_Untyped_208 -> T_Untyped_208 check_UForce_224 = UForce check_UConstr_226 :: Integer -> - MAlonzo.Code.Utils.T_List_446 T_Untyped_208 -> T_Untyped_208 + MAlonzo.Code.Utils.T_List_454 T_Untyped_208 -> T_Untyped_208 check_UConstr_226 = UConstr check_UCase_228 :: T_Untyped_208 -> - MAlonzo.Code.Utils.T_List_446 T_Untyped_208 -> T_Untyped_208 + MAlonzo.Code.Utils.T_List_454 T_Untyped_208 -> T_Untyped_208 check_UCase_228 = UCase cover_Untyped_208 :: UTerm -> () cover_Untyped_208 x diff --git a/plutus-metatheory/src/MAlonzo/Code/Scoped.hs b/plutus-metatheory/src/MAlonzo/Code/Scoped.hs index 0e94dca18f5..9f0859d9884 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Scoped.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Scoped.hs @@ -41,14 +41,14 @@ d_ScopedTy_14 a0 = () data T_ScopedTy_14 = C_'96'_18 MAlonzo.Code.Data.Fin.Base.T_Fin_10 | C__'8658'__20 T_ScopedTy_14 T_ScopedTy_14 | - C_Π_22 MAlonzo.Code.Utils.T_Kind_768 T_ScopedTy_14 | - C_ƛ_24 MAlonzo.Code.Utils.T_Kind_768 T_ScopedTy_14 | + C_Π_22 MAlonzo.Code.Utils.T_Kind_776 T_ScopedTy_14 | + C_ƛ_24 MAlonzo.Code.Utils.T_Kind_776 T_ScopedTy_14 | C__'183'__26 T_ScopedTy_14 T_ScopedTy_14 | - C_con_30 MAlonzo.Code.Utils.T_Kind_768 + C_con_30 MAlonzo.Code.Utils.T_Kind_776 MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 | C_μ_32 T_ScopedTy_14 T_ScopedTy_14 | - C_SOP_34 (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 T_ScopedTy_14)) + C_SOP_34 (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 T_ScopedTy_14)) -- Scoped.Tel⋆ d_Tel'8902'_36 :: Integer -> Integer -> () d_Tel'8902'_36 = erased @@ -133,8 +133,8 @@ du_lookupWTm_116 v0 v1 C_Z_44 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 C_S_48 v4 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.d_MaybeMonad_302) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.d_MaybeMonad_310) (coe (\ v5 -> addInt (coe (1 :: Integer)) (coe v5))) (coe du_lookupWTm_116 (coe v2) (coe v4)) C_T_52 v4 -> coe du_lookupWTm_116 (coe v2) (coe v4) @@ -160,8 +160,8 @@ du_lookupWTy_138 v0 v1 C_S_48 v4 -> coe du_lookupWTy_138 (coe v2) (coe v4) C_T_52 v4 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.d_MaybeMonad_302) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.d_MaybeMonad_310) (coe (\ v5 -> addInt (coe (1 :: Integer)) (coe v5))) (coe du_lookupWTy_138 (coe v2) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError) @@ -261,14 +261,14 @@ d_shifterTy_194 v0 v1 v2 d_shifterTyList_200 :: Integer -> T_Weirdℕ_42 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2 + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2 d_shifterTyList_200 v0 v1 v2 = case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe v2 - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe v2 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_shifterTy_194 (coe v0) (coe v1) (coe v3)) (coe d_shifterTyList_200 (coe v0) (coe v1) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError @@ -276,16 +276,16 @@ d_shifterTyList_200 v0 v1 v2 d_shifterTyListList_206 :: Integer -> T_Weirdℕ_42 -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2) -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2) + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2) -> + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2) d_shifterTyListList_206 v0 v1 v2 = case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe v2 - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe v2 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_shifterTyList_200 (coe v0) (coe v1) (coe v3)) (coe d_shifterTyListList_206 (coe v0) (coe v1) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError @@ -361,14 +361,14 @@ d_shifter_272 v0 v1 v2 d_shifterList_278 :: Integer -> T_Weirdℕ_42 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTm_32 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTm_32 + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTm_32 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTm_32 d_shifterList_278 v0 v1 v2 = case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe v2 - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe v2 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_shifter_272 (coe v0) (coe v1) (coe v3)) (coe d_shifterList_278 (coe v0) (coe v1) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError @@ -420,14 +420,14 @@ d_unshifterTy_360 v0 v1 v2 d_unshifterTyList_366 :: Integer -> T_Weirdℕ_42 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2 + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2 d_unshifterTyList_366 v0 v1 v2 = case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe v2 - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe v2 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_unshifterTy_360 (coe v0) (coe v1) (coe v3)) (coe d_unshifterTyList_366 (coe v0) (coe v1) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError @@ -435,16 +435,16 @@ d_unshifterTyList_366 v0 v1 v2 d_unshifterTyListList_372 :: Integer -> T_Weirdℕ_42 -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2) -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2) + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2) -> + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2) d_unshifterTyListList_372 v0 v1 v2 = case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe v2 - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe v2 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_unshifterTyList_366 (coe v0) (coe v1) (coe v3)) (coe d_unshifterTyListList_372 (coe v0) (coe v1) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError @@ -512,14 +512,14 @@ d_unshifter_434 v0 v1 v2 d_unshifterList_440 :: Integer -> T_Weirdℕ_42 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTm_32 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTm_32 + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTm_32 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTm_32 d_unshifterList_440 v0 v1 v2 = case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe v2 - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe v2 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_unshifter_434 (coe v0) (coe v1) (coe v3)) (coe d_unshifterList_440 (coe v0) (coe v1) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError @@ -527,7 +527,7 @@ d_unshifterList_440 v0 v1 v2 d_ScopedTm_522 a0 a1 = () data T_ScopedTm_522 = C_'96'_528 T_WeirdFin_56 | - C_Λ_530 MAlonzo.Code.Utils.T_Kind_768 T_ScopedTm_522 | + C_Λ_530 MAlonzo.Code.Utils.T_Kind_776 T_ScopedTm_522 | C__'183''8902'__532 T_ScopedTm_522 T_ScopedTy_14 | C_ƛ_534 T_ScopedTy_14 T_ScopedTm_522 | C__'183'__536 T_ScopedTm_522 T_ScopedTm_522 | @@ -537,9 +537,9 @@ data T_ScopedTm_522 C_wrap_546 T_ScopedTy_14 T_ScopedTy_14 T_ScopedTm_522 | C_unwrap_548 T_ScopedTm_522 | C_constr_556 T_ScopedTy_14 Integer - (MAlonzo.Code.Utils.T_List_446 T_ScopedTm_522) | + (MAlonzo.Code.Utils.T_List_454 T_ScopedTm_522) | C_case_564 T_ScopedTy_14 T_ScopedTm_522 - (MAlonzo.Code.Utils.T_List_446 T_ScopedTm_522) + (MAlonzo.Code.Utils.T_List_454 T_ScopedTm_522) -- Scoped.Tel d_Tel_568 :: Integer -> T_Weirdℕ_42 -> Integer -> () d_Tel_568 = erased @@ -581,8 +581,8 @@ d_ℕtoFin_584 v0 v1 _ -> let v3 = subInt (coe v1) (coe (1 :: Integer)) in coe (coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe MAlonzo.Code.Data.Fin.Base.C_suc_16) (coe d_ℕtoFin_584 (coe v2) (coe v3)))) -- Scoped.ℕtoWeirdFin @@ -626,8 +626,8 @@ d_scopeCheckTy_616 v0 v1 = case coe v1 of MAlonzo.Code.Raw.C_'96'_6 v2 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_'96'_18) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_'96'_18) (coe d_ℕtoFin_584 (coe v0) (coe v2)) MAlonzo.Code.Raw.C__'8658'__8 v2 v3 -> coe @@ -645,15 +645,15 @@ d_scopeCheckTy_616 v0 v1 (coe C__'8658'__20 (coe v4) (coe v5)))))) MAlonzo.Code.Raw.C_Π_10 v2 v3 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_Π_22 (coe v2)) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_Π_22 (coe v2)) (coe d_scopeCheckTy_616 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v3)) MAlonzo.Code.Raw.C_ƛ_12 v2 v3 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_ƛ_24 (coe v2)) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_ƛ_24 (coe v2)) (coe d_scopeCheckTy_616 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v3)) @@ -677,7 +677,7 @@ d_scopeCheckTy_616 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_con_30 (coe MAlonzo.Code.Utils.C_'9839'_772) + C_con_30 (coe MAlonzo.Code.Utils.C_'9839'_780) (coe MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 (coe v3))) MAlonzo.Code.Raw.C_list_26 -> coe @@ -685,9 +685,9 @@ d_scopeCheckTy_616 v0 v1 (coe C_con_30 (coe - MAlonzo.Code.Utils.C__'8658'__774 - (coe MAlonzo.Code.Utils.C_'9839'_772) - (coe MAlonzo.Code.Utils.C_'9839'_772)) + MAlonzo.Code.Utils.C__'8658'__782 + (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_780)) (coe MAlonzo.Code.Builtin.Constant.Type.C_list_10)) MAlonzo.Code.Raw.C_array_28 -> coe @@ -695,9 +695,9 @@ d_scopeCheckTy_616 v0 v1 (coe C_con_30 (coe - MAlonzo.Code.Utils.C__'8658'__774 - (coe MAlonzo.Code.Utils.C_'9839'_772) - (coe MAlonzo.Code.Utils.C_'9839'_772)) + MAlonzo.Code.Utils.C__'8658'__782 + (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_780)) (coe MAlonzo.Code.Builtin.Constant.Type.C_array_12)) MAlonzo.Code.Raw.C_pair_30 -> coe @@ -705,12 +705,12 @@ d_scopeCheckTy_616 v0 v1 (coe C_con_30 (coe - MAlonzo.Code.Utils.C__'8658'__774 - (coe MAlonzo.Code.Utils.C_'9839'_772) + MAlonzo.Code.Utils.C__'8658'__782 + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe - MAlonzo.Code.Utils.C__'8658'__774 - (coe MAlonzo.Code.Utils.C_'9839'_772) - (coe MAlonzo.Code.Utils.C_'9839'_772))) + MAlonzo.Code.Utils.C__'8658'__782 + (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_780))) (coe MAlonzo.Code.Builtin.Constant.Type.C_pair_14)) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Raw.C_μ_18 v2 v3 @@ -738,14 +738,14 @@ d_scopeCheckTy_616 v0 v1 -- Scoped.scopeCheckTyList d_scopeCheckTyList_620 :: Integer -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2 -> MAlonzo.Code.Utils.T_Either_6 - T_ScopeError_576 (MAlonzo.Code.Utils.T_List_446 T_ScopedTy_14) + T_ScopeError_576 (MAlonzo.Code.Utils.T_List_454 T_ScopedTy_14) d_scopeCheckTyList_620 v0 v1 = case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v1) - MAlonzo.Code.Utils.C__'8759'__452 v2 v3 + MAlonzo.Code.Utils.C__'8759'__460 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe d_scopeCheckTy_616 (coe v0) (coe v2)) @@ -758,22 +758,22 @@ d_scopeCheckTyList_620 v0 v1 (\ v5 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe MAlonzo.Code.Utils.C__'8759'__452 (coe v4) (coe v5)))))) + (coe MAlonzo.Code.Utils.C__'8759'__460 (coe v4) (coe v5)))))) _ -> MAlonzo.RTE.mazUnreachableError -- Scoped.scopeCheckTyListList d_scopeCheckTyListList_624 :: Integer -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2) -> + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2) -> MAlonzo.Code.Utils.T_Either_6 T_ScopeError_576 - (MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 T_ScopedTy_14)) + (MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 T_ScopedTy_14)) d_scopeCheckTyListList_624 v0 v1 = case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v1) - MAlonzo.Code.Utils.C__'8759'__452 v2 v3 + MAlonzo.Code.Utils.C__'8759'__460 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe d_scopeCheckTyList_620 (coe v0) (coe v2)) @@ -786,7 +786,7 @@ d_scopeCheckTyListList_624 v0 v1 (\ v5 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe MAlonzo.Code.Utils.C__'8759'__452 (coe v4) (coe v5)))))) + (coe MAlonzo.Code.Utils.C__'8759'__460 (coe v4) (coe v5)))))) _ -> MAlonzo.RTE.mazUnreachableError -- Scoped.scopeCheckTm d_scopeCheckTm_686 :: @@ -798,13 +798,13 @@ d_scopeCheckTm_686 v0 v1 v2 = case coe v2 of MAlonzo.Code.Raw.C_'96'_34 v3 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_'96'_528) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_'96'_528) (coe du_ℕtoWeirdFin_596 (coe v1) (coe v3)) MAlonzo.Code.Raw.C_Λ_36 v3 v4 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_Λ_530 (coe v3)) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_Λ_530 (coe v3)) (coe d_scopeCheckTm_686 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe C_T_52 v1) (coe v4)) @@ -856,8 +856,8 @@ d_scopeCheckTm_686 v0 v1 v2 (coe C_con_538 (coe MAlonzo.Code.RawU.d_tagCon2TmCon_256 (coe v3))) MAlonzo.Code.Raw.C_error_46 v3 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_error_540) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_error_540) (coe d_scopeCheckTy_616 (coe v0) (coe v3)) MAlonzo.Code.Raw.C_builtin_48 v3 -> coe @@ -883,8 +883,8 @@ d_scopeCheckTm_686 v0 v1 v2 (coe C_wrap_546 (coe v6) (coe v7) (coe v8)))))))) MAlonzo.Code.Raw.C_unwrap_52 v3 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_unwrap_548) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_unwrap_548) (coe d_scopeCheckTm_686 (coe v0) (coe v1) (coe v3)) MAlonzo.Code.Raw.C_constr_60 v3 v4 v5 -> coe @@ -924,14 +924,14 @@ d_scopeCheckTm_686 v0 v1 v2 d_scopeCheckTmList_692 :: Integer -> T_Weirdℕ_42 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTm_32 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTm_32 -> MAlonzo.Code.Utils.T_Either_6 - T_ScopeError_576 (MAlonzo.Code.Utils.T_List_446 T_ScopedTm_522) + T_ScopeError_576 (MAlonzo.Code.Utils.T_List_454 T_ScopedTm_522) d_scopeCheckTmList_692 v0 v1 v2 = case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v2) - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe d_scopeCheckTm_686 (coe v0) (coe v1) (coe v3)) @@ -944,7 +944,7 @@ d_scopeCheckTmList_692 v0 v1 v2 (\ v6 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe MAlonzo.Code.Utils.C__'8759'__452 (coe v5) (coe v6)))))) + (coe MAlonzo.Code.Utils.C__'8759'__460 (coe v5) (coe v6)))))) _ -> MAlonzo.RTE.mazUnreachableError -- Scoped.extricateScopeTy d_extricateScopeTy_780 :: @@ -1003,30 +1003,30 @@ d_extricateScopeTy_780 v0 v1 -- Scoped.extricateScopeTyList d_extricateScopeTyList_784 :: Integer -> - MAlonzo.Code.Utils.T_List_446 T_ScopedTy_14 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2 + MAlonzo.Code.Utils.T_List_454 T_ScopedTy_14 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2 d_extricateScopeTyList_784 v0 v1 = case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe v1 - MAlonzo.Code.Utils.C__'8759'__452 v2 v3 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe v1 + MAlonzo.Code.Utils.C__'8759'__460 v2 v3 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_extricateScopeTy_780 (coe v0) (coe v2)) (coe d_extricateScopeTyList_784 (coe v0) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError -- Scoped.extricateScopeTyListList d_extricateScopeTyListList_788 :: Integer -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 T_ScopedTy_14) -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTy_2) + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 T_ScopedTy_14) -> + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTy_2) d_extricateScopeTyListList_788 v0 v1 = case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe v1 - MAlonzo.Code.Utils.C__'8759'__452 v2 v3 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe v1 + MAlonzo.Code.Utils.C__'8759'__460 v2 v3 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_extricateScopeTyList_784 (coe v0) (coe v2)) (coe d_extricateScopeTyListList_788 (coe v0) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError @@ -1096,14 +1096,14 @@ d_extricateScope_828 v0 v1 v2 d_extricateScopeList_834 :: Integer -> T_Weirdℕ_42 -> - MAlonzo.Code.Utils.T_List_446 T_ScopedTm_522 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Raw.T_RawTm_32 + MAlonzo.Code.Utils.T_List_454 T_ScopedTm_522 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Raw.T_RawTm_32 d_extricateScopeList_834 v0 v1 v2 = case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 -> coe v2 - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe v2 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_extricateScope_828 (coe v0) (coe v1) (coe v3)) (coe d_extricateScopeList_834 (coe v0) (coe v1) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/MAlonzo/Code/Scoped/Extrication.hs b/plutus-metatheory/src/MAlonzo/Code/Scoped/Extrication.hs index 1aba12cd6dc..fc9ecb656c2 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Scoped/Extrication.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Scoped/Extrication.hs @@ -39,7 +39,7 @@ d_len'8902'_4 v0 -- Scoped.Extrication.extricateVar⋆ d_extricateVar'8902'_16 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 d_extricateVar'8902'_16 v0 ~v1 v2 = du_extricateVar'8902'_16 v0 v2 @@ -62,7 +62,7 @@ du_extricateVar'8902'_16 v0 v1 -- Scoped.Extrication.extricateNf⋆ d_extricateNf'8902'_26 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Scoped.T_ScopedTy_14 d_extricateNf'8902'_26 v0 v1 v2 @@ -73,19 +73,19 @@ d_extricateNf'8902'_26 v0 v1 v2 (coe d_extricateNf'8902'_26 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v4)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v4 v5 -> coe MAlonzo.Code.Scoped.C__'8658'__20 (coe - d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v4)) (coe - d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) MAlonzo.Code.Type.BetaNormal.C_ƛ_18 v6 -> case coe v1 of - MAlonzo.Code.Utils.C__'8658'__774 v7 v8 + MAlonzo.Code.Utils.C__'8658'__782 v7 v8 -> coe MAlonzo.Code.Scoped.C_ƛ_24 (coe v7) (coe @@ -100,7 +100,7 @@ d_extricateNf'8902'_26 v0 v1 v2 MAlonzo.Code.Type.BetaNormal.C_ne_20 v7 -> coe d_extricateNe'8902'_34 (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v7) + (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v7) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Type.BetaNormal.C_μ_24 v4 v5 v6 -> coe @@ -108,13 +108,13 @@ d_extricateNf'8902'_26 v0 v1 v2 (coe d_extricateNf'8902'_26 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v5)) (coe d_extricateNf'8902'_26 (coe v0) (coe v4) (coe v6)) MAlonzo.Code.Type.BetaNormal.C_SOP_28 v4 v5 @@ -122,12 +122,12 @@ d_extricateNf'8902'_26 v0 v1 v2 MAlonzo.Code.Scoped.C_SOP_34 (coe du_extricateNf'8902''45'VecList_56 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) _ -> MAlonzo.RTE.mazUnreachableError -- Scoped.Extrication.extricateNe⋆ d_extricateNe'8902'_34 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Scoped.T_ScopedTy_14 d_extricateNe'8902'_34 v0 v1 v2 @@ -141,7 +141,7 @@ d_extricateNe'8902'_34 v0 v1 v2 MAlonzo.Code.Scoped.C__'183'__26 (coe d_extricateNe'8902'_34 (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v4) (coe v1)) (coe v6)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v4) (coe v1)) (coe v6)) (coe d_extricateNf'8902'_26 (coe v0) (coe v4) (coe v7)) MAlonzo.Code.Type.BetaNormal.C_'94'_12 v5 -> coe MAlonzo.Code.Scoped.C_con_30 (coe v1) (coe v5) @@ -149,41 +149,41 @@ d_extricateNe'8902'_34 v0 v1 v2 -- Scoped.Extrication.extricateNf⋆-List d_extricateNf'8902''45'List_42 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTy_14 + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTy_14 d_extricateNf'8902''45'List_42 v0 v1 v2 = case coe v2 of - [] -> coe MAlonzo.Code.Utils.C_'91''93'_450 + [] -> coe MAlonzo.Code.Utils.C_'91''93'_458 (:) v3 v4 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_extricateNf'8902'_26 (coe v0) (coe v1) (coe v3)) (coe d_extricateNf'8902''45'List_42 (coe v0) (coe v1) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError -- Scoped.Extrication.extricateNf⋆-VecList d_extricateNf'8902''45'VecList_56 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTy_14) + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTy_14) d_extricateNf'8902''45'VecList_56 v0 v1 ~v2 v3 = du_extricateNf'8902''45'VecList_56 v0 v1 v3 du_extricateNf'8902''45'VecList_56 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - MAlonzo.Code.Utils.T_List_446 - (MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTy_14) + MAlonzo.Code.Utils.T_List_454 + (MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTy_14) du_extricateNf'8902''45'VecList_56 v0 v1 v2 = case coe v2 of MAlonzo.Code.Data.Vec.Base.C_'91''93'_32 - -> coe MAlonzo.Code.Utils.C_'91''93'_450 + -> coe MAlonzo.Code.Utils.C_'91''93'_458 MAlonzo.Code.Data.Vec.Base.C__'8759'__38 v4 v5 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_extricateNf'8902''45'List_42 (coe v0) (coe v1) (coe v4)) (coe du_extricateNf'8902''45'VecList_56 (coe v0) (coe v1) (coe v5)) _ -> MAlonzo.RTE.mazUnreachableError @@ -241,7 +241,7 @@ du_extricateVar_110 v0 v1 v2 d_extricateSub_122 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 @@ -280,7 +280,7 @@ d_extricate_140 v0 v1 v2 v3 -> coe MAlonzo.Code.Scoped.C_ƛ_534 (coe - d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8)) (coe d_extricate_140 (coe v0) @@ -319,37 +319,37 @@ d_extricate_140 v0 v1 v2 v3 (coe d_extricateNf'8902'_26 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v10)) (coe d_extricateNf'8902'_26 (coe v0) (coe v9) (coe v11)) (coe d_extricate_140 (coe v0) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v10)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -358,23 +358,23 @@ d_extricate_140 v0 v1 v2 v3 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v9)) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778))) v9 v10)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -395,7 +395,7 @@ d_extricate_140 v0 v1 v2 v3 -> coe MAlonzo.Code.Scoped.C_constr_556 (coe - d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 v11 v12)) (coe MAlonzo.Code.Data.Fin.Base.du_toℕ_18 (coe v5)) (coe @@ -407,7 +407,7 @@ d_extricate_140 v0 v1 v2 v3 -> coe MAlonzo.Code.Scoped.C_case_564 (coe - d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2)) (coe d_extricate_140 (coe v0) (coe v1) @@ -427,7 +427,7 @@ d_extricate_140 v0 v1 v2 v3 -> coe MAlonzo.Code.Scoped.C_error_540 (coe - d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2)) _ -> MAlonzo.RTE.mazUnreachableError -- Scoped.Extrication.extricate-ConstrArgs @@ -436,16 +436,16 @@ d_extricate'45'ConstrArgs_148 :: MAlonzo.Code.Algorithmic.T_Ctx_2 -> [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] -> MAlonzo.Code.Utils.List.T_IList_302 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTm_522 + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTm_522 d_extricate'45'ConstrArgs_148 v0 v1 v2 v3 = case coe v3 of MAlonzo.Code.Utils.List.C_'91''93'_308 - -> coe MAlonzo.Code.Utils.C_'91''93'_450 + -> coe MAlonzo.Code.Utils.C_'91''93'_458 MAlonzo.Code.Utils.List.C__'8759'__314 v6 v7 -> case coe v2 of (:) v8 v9 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_extricate_140 (coe v0) (coe v1) (coe v8) (coe v6)) (coe d_extricate'45'ConstrArgs_148 (coe v0) (coe v1) (coe v9) (coe v7)) @@ -459,7 +459,7 @@ d_extricate'45'Cases_166 :: Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Algorithmic.T_Cases_172 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTm_522 + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTm_522 d_extricate'45'Cases_166 v0 v1 v2 ~v3 v4 v5 = du_extricate'45'Cases_166 v0 v1 v2 v4 v5 du_extricate'45'Cases_166 :: @@ -468,16 +468,16 @@ du_extricate'45'Cases_166 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Algorithmic.T_Cases_172 -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.Scoped.T_ScopedTm_522 + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTm_522 du_extricate'45'Cases_166 v0 v1 v2 v3 v4 = case coe v4 of MAlonzo.Code.Algorithmic.C_'91''93'_278 - -> coe MAlonzo.Code.Utils.C_'91''93'_450 + -> coe MAlonzo.Code.Utils.C_'91''93'_458 MAlonzo.Code.Algorithmic.C__'8759'__290 v8 v9 -> case coe v3 of MAlonzo.Code.Data.Vec.Base.C__'8759'__38 v11 v12 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_extricate_140 (coe v0) (coe v1) (coe MAlonzo.Code.Algorithmic.du_mkCaseType_156 v2 v11) (coe v8)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Type.hs b/plutus-metatheory/src/MAlonzo/Code/Type.hs index 7080901774c..0c91b49a280 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Type.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Type.hs @@ -25,7 +25,7 @@ import qualified MAlonzo.Code.Utils d_Ctx'8902'_2 = () data T_Ctx'8902'_2 = C_'8709'_4 | - C__'44''8902'__6 T_Ctx'8902'_2 MAlonzo.Code.Utils.T_Kind_768 + C__'44''8902'__6 T_Ctx'8902'_2 MAlonzo.Code.Utils.T_Kind_776 -- Type._∋⋆_ d__'8715''8902'__14 a0 a1 = () data T__'8715''8902'__14 = C_Z_16 | C_S_18 T__'8715''8902'__14 @@ -33,12 +33,12 @@ data T__'8715''8902'__14 = C_Z_16 | C_S_18 T__'8715''8902'__14 d__'8866''8902'__20 a0 a1 = () data T__'8866''8902'__20 = C_'96'_22 T__'8715''8902'__14 | - C_Π_24 MAlonzo.Code.Utils.T_Kind_768 T__'8866''8902'__20 | + C_Π_24 MAlonzo.Code.Utils.T_Kind_776 T__'8866''8902'__20 | C__'8658'__26 T__'8866''8902'__20 T__'8866''8902'__20 | C_ƛ_28 T__'8866''8902'__20 | - C__'183'__30 MAlonzo.Code.Utils.T_Kind_768 T__'8866''8902'__20 + C__'183'__30 MAlonzo.Code.Utils.T_Kind_776 T__'8866''8902'__20 T__'8866''8902'__20 | - C_μ_32 MAlonzo.Code.Utils.T_Kind_768 T__'8866''8902'__20 + C_μ_32 MAlonzo.Code.Utils.T_Kind_776 T__'8866''8902'__20 T__'8866''8902'__20 | C_'94'_34 MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 | C_con_36 T__'8866''8902'__20 | diff --git a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE.hs b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE.hs index 5c007892362..0de84814ee5 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE.hs @@ -30,32 +30,32 @@ import qualified MAlonzo.Code.Utils -- Type.BetaNBE.Val d_Val_4 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> () + MAlonzo.Code.Utils.T_Kind_776 -> () d_Val_4 = erased -- Type.BetaNBE.reflect d_reflect_22 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> AgdaAny d_reflect_22 ~v0 v1 v2 = du_reflect_22 v1 v2 du_reflect_22 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> AgdaAny du_reflect_22 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v1 - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v1 - MAlonzo.Code.Utils.C__'8658'__774 v2 v3 + MAlonzo.Code.Utils.C__'8658'__782 v2 v3 -> coe MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 (coe v1) _ -> MAlonzo.RTE.mazUnreachableError -- Type.BetaNBE.fresh d_fresh_38 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny d_fresh_38 ~v0 v1 = du_fresh_38 v1 -du_fresh_38 :: MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny +du_fresh_38 :: MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny du_fresh_38 v0 = coe du_reflect_22 (coe v0) @@ -64,24 +64,24 @@ du_fresh_38 v0 (coe MAlonzo.Code.Type.C_Z_16)) -- Type.BetaNBE.renVal d_renVal_46 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> AgdaAny -> AgdaAny d_renVal_46 v0 v1 v2 v3 v4 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Type.BetaNormal.d_renNf_46 (coe v1) (coe v2) (coe v3) (coe v0) (coe v4) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Type.BetaNormal.d_renNf_46 (coe v1) (coe v2) (coe v3) (coe v0) (coe v4) - MAlonzo.Code.Utils.C__'8658'__774 v5 v6 + MAlonzo.Code.Utils.C__'8658'__782 v5 v6 -> case coe v4 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v7 -> coe @@ -98,9 +98,9 @@ d_renVal_46 v0 v1 v2 v3 v4 _ -> MAlonzo.RTE.mazUnreachableError -- Type.BetaNBE.weakenVal d_weakenVal_80 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny d_weakenVal_80 v0 v1 v2 = coe d_renVal_46 (coe v0) (coe v1) @@ -108,14 +108,14 @@ d_weakenVal_80 v0 v1 v2 (coe (\ v3 -> coe MAlonzo.Code.Type.C_S_18)) -- Type.BetaNBE.reify d_reify_86 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> AgdaAny -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_reify_86 v0 v1 v2 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 -> coe v2 - MAlonzo.Code.Utils.C_'9839'_772 -> coe v2 - MAlonzo.Code.Utils.C__'8658'__774 v3 v4 + MAlonzo.Code.Utils.C_'42'_778 -> coe v2 + MAlonzo.Code.Utils.C_'9839'_780 -> coe v2 + MAlonzo.Code.Utils.C__'8658'__782 v3 v4 -> case coe v2 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v5 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v5 @@ -138,19 +138,19 @@ d_Env_104 = erased d__'44''44''8902'__122 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny d__'44''44''8902'__122 ~v0 ~v1 v2 ~v3 v4 v5 v6 = du__'44''44''8902'__122 v2 v4 v5 v6 du__'44''44''8902'__122 :: - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny du__'44''44''8902'__122 v0 v1 v2 v3 = case coe v3 of @@ -161,18 +161,18 @@ du__'44''44''8902'__122 v0 v1 v2 v3 d_exte_140 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny d_exte_140 ~v0 v1 v2 v3 v4 = du_exte_140 v1 v2 v3 v4 du_exte_140 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny du_exte_140 v0 v1 v2 v3 = coe @@ -182,8 +182,8 @@ du_exte_140 v0 v1 v2 v3 -- Type.BetaNBE._·V_ d__'183'V__150 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny -> AgdaAny d__'183'V__150 v0 v1 v2 v3 v4 = case coe v3 of @@ -200,9 +200,9 @@ d__'183'V__150 v0 v1 v2 v3 v4 d_eval_166 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> AgdaAny d_eval_166 v0 v1 v2 v3 v4 @@ -212,30 +212,30 @@ d_eval_166 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v6 (d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_770) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v6)) (coe d_eval_166 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v6)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v6)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7) (coe du_exte_140 (coe v0) (coe v4) (coe v6)))) MAlonzo.Code.Type.C__'8658'__26 v6 v7 -> coe MAlonzo.Code.Type.BetaNormal.C__'8658'__16 (d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v0) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v0) (coe - d_eval_166 (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) + d_eval_166 (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6) (coe v4))) (d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v0) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v0) (coe - d_eval_166 (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) + d_eval_166 (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7) (coe v4))) MAlonzo.Code.Type.C_ƛ_28 v8 -> case coe v2 of - MAlonzo.Code.Utils.C__'8658'__774 v9 v10 + MAlonzo.Code.Utils.C__'8658'__782 v9 v10 -> coe MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 (coe @@ -257,7 +257,7 @@ d_eval_166 v0 v1 v2 v3 v4 d__'183'V__150 (coe v0) (coe v6) (coe v2) (coe d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v6) (coe v2)) (coe v8) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe v2)) (coe v8) (coe v4)) (coe d_eval_166 (coe v0) (coe v1) (coe v6) (coe v9) (coe v4)) MAlonzo.Code.Type.C_μ_32 v6 v7 v8 @@ -265,24 +265,24 @@ d_eval_166 v0 v1 v2 v3 v4 MAlonzo.Code.Type.BetaNormal.C_μ_24 v6 (d_reify_86 (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v0) (coe d_eval_166 (coe v0) (coe v1) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v7) (coe v4))) (d_reify_86 (coe v6) (coe v0) @@ -295,22 +295,22 @@ d_eval_166 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.Type.BetaNormal.C_con_22 (d_eval_166 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v6) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v6) (coe v4)) MAlonzo.Code.Type.C_SOP_40 v6 v7 -> coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 v6 (coe du_eval'45'VecList_184 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v7) (coe v4)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError -- Type.BetaNBE.eval-List d_eval'45'List_174 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> [AgdaAny] d_eval'45'List_174 v0 v1 v2 v3 v4 @@ -327,10 +327,10 @@ d_eval'45'List_174 v0 v1 v2 v3 v4 d_eval'45'VecList_184 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 d_eval'45'VecList_184 v0 v1 v2 ~v3 v4 v5 @@ -338,9 +338,9 @@ d_eval'45'VecList_184 v0 v1 v2 ~v3 v4 v5 du_eval'45'VecList_184 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 du_eval'45'VecList_184 v0 v1 v2 v3 v4 @@ -357,11 +357,11 @@ du_eval'45'VecList_184 v0 v1 v2 v3 v4 -- Type.BetaNBE.idEnv d_idEnv_250 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny d_idEnv_250 ~v0 v1 v2 = du_idEnv_250 v1 v2 du_idEnv_250 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny du_idEnv_250 v0 v1 = coe @@ -370,7 +370,7 @@ du_idEnv_250 v0 v1 -- Type.BetaNBE.nf d_nf_258 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_nf_258 v0 v1 v2 @@ -381,14 +381,14 @@ d_nf_258 v0 v1 v2 -- Type.BetaNBE.nf-VecList d_nf'45'VecList_268 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 d_nf'45'VecList_268 v0 v1 ~v2 v3 = du_nf'45'VecList_268 v0 v1 v3 du_nf'45'VecList_268 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 du_nf'45'VecList_268 v0 v1 v2 @@ -407,7 +407,7 @@ d_lookup'45'eval'45'VecList_288 :: Integer -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_lookup'45'eval'45'VecList_288 = erased diff --git a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Completeness.hs b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Completeness.hs index 770e067a8ff..3ff89ef7b7c 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Completeness.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Completeness.hs @@ -31,28 +31,28 @@ import qualified MAlonzo.Code.Utils -- Type.BetaNBE.Completeness.CR d_CR_10 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny -> AgdaAny -> () + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> () d_CR_10 = erased -- Type.BetaNBE.Completeness._.Unif d_Unif_64 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> AgdaAny -> AgdaAny) -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> AgdaAny -> AgdaAny) -> @@ -61,17 +61,17 @@ d_Unif_64 = erased -- Type.BetaNBE.Completeness.symCR d_symCR_100 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny d_symCR_100 ~v0 v1 v2 v3 v4 = du_symCR_100 v1 v2 v3 v4 du_symCR_100 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny du_symCR_100 v0 v1 v2 v3 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 -> erased - MAlonzo.Code.Utils.C_'9839'_772 -> erased - MAlonzo.Code.Utils.C__'8658'__774 v4 v5 + MAlonzo.Code.Utils.C_'42'_778 -> erased + MAlonzo.Code.Utils.C_'9839'_780 -> erased + MAlonzo.Code.Utils.C__'8658'__782 v4 v5 -> case coe v1 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v6 -> erased MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v6 @@ -103,18 +103,18 @@ du_symCR_100 v0 v1 v2 v3 -- Type.BetaNBE.Completeness.transCR d_transCR_158 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny d_transCR_158 ~v0 v1 v2 v3 v4 v5 v6 = du_transCR_158 v1 v2 v3 v4 v5 v6 du_transCR_158 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny du_transCR_158 v0 v1 v2 v3 v4 v5 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 -> erased - MAlonzo.Code.Utils.C_'9839'_772 -> erased - MAlonzo.Code.Utils.C__'8658'__774 v6 v7 + MAlonzo.Code.Utils.C_'42'_778 -> erased + MAlonzo.Code.Utils.C_'9839'_780 -> erased + MAlonzo.Code.Utils.C__'8658'__782 v6 v7 -> case coe v1 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v8 -> erased MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v8 @@ -168,11 +168,11 @@ du_transCR_158 v0 v1 v2 v3 v4 v5 -- Type.BetaNBE.Completeness.reflCR d_reflCR_256 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny d_reflCR_256 ~v0 v1 v2 v3 v4 = du_reflCR_256 v1 v2 v3 v4 du_reflCR_256 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny du_reflCR_256 v0 v1 v2 v3 = coe @@ -181,24 +181,24 @@ du_reflCR_256 v0 v1 v2 v3 -- Type.BetaNBE.Completeness.reflectCR d_reflectCR_266 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny d_reflectCR_266 ~v0 v1 ~v2 ~v3 v4 = du_reflectCR_266 v1 v4 du_reflectCR_266 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny du_reflectCR_266 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 -> erased - MAlonzo.Code.Utils.C_'9839'_772 -> erased - MAlonzo.Code.Utils.C__'8658'__774 v2 v3 -> coe v1 + MAlonzo.Code.Utils.C_'42'_778 -> erased + MAlonzo.Code.Utils.C_'9839'_780 -> erased + MAlonzo.Code.Utils.C__'8658'__782 v2 v3 -> coe v1 _ -> MAlonzo.RTE.mazUnreachableError -- Type.BetaNBE.Completeness.reifyCR d_reifyCR_284 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -207,9 +207,9 @@ d_reifyCR_284 = erased d_EnvCR_338 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> () d_EnvCR_338 = erased @@ -217,25 +217,25 @@ d_EnvCR_338 = erased d_CR'44''44''8902'_356 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny d_CR'44''44''8902'_356 ~v0 ~v1 ~v2 ~v3 ~v4 v5 ~v6 ~v7 v8 v9 v10 = du_CR'44''44''8902'_356 v5 v8 v9 v10 du_CR'44''44''8902'_356 :: - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny du_CR'44''44''8902'_356 v0 v1 v2 v3 = case coe v3 of @@ -245,8 +245,8 @@ du_CR'44''44''8902'_356 v0 v1 v2 v3 -- Type.BetaNBE.Completeness.AppCR d_AppCR_376 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny @@ -254,7 +254,7 @@ d_AppCR_376 v0 ~v1 v2 v3 v4 v5 v6 v7 v8 = du_AppCR_376 v0 v2 v3 v4 v5 v6 v7 v8 du_AppCR_376 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny @@ -277,8 +277,8 @@ du_AppCR_376 v0 v1 v2 v3 v4 v5 v6 v7 d_renVal'45'reflect_416 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> AgdaAny @@ -287,11 +287,11 @@ d_renVal'45'reflect_416 = erased d_ren'45'reify_444 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -299,18 +299,18 @@ d_ren'45'reify_444 = erased -- Type.BetaNBE.Completeness.renVal-id d_renVal'45'id_524 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny d_renVal'45'id_524 ~v0 v1 v2 v3 v4 = du_renVal'45'id_524 v1 v2 v3 v4 du_renVal'45'id_524 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny du_renVal'45'id_524 v0 v1 v2 v3 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 -> erased - MAlonzo.Code.Utils.C_'9839'_772 -> erased - MAlonzo.Code.Utils.C__'8658'__774 v4 v5 + MAlonzo.Code.Utils.C_'42'_778 -> erased + MAlonzo.Code.Utils.C_'9839'_780 -> erased + MAlonzo.Code.Utils.C__'8658'__782 v4 v5 -> case coe v1 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v6 -> erased MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v6 @@ -322,30 +322,30 @@ d_renVal'45'comp_576 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny d_renVal'45'comp_576 ~v0 ~v1 ~v2 v3 v4 v5 v6 v7 v8 = du_renVal'45'comp_576 v3 v4 v5 v6 v7 v8 du_renVal'45'comp_576 :: - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny du_renVal'45'comp_576 v0 v1 v2 v3 v4 v5 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 -> erased - MAlonzo.Code.Utils.C_'9839'_772 -> erased - MAlonzo.Code.Utils.C__'8658'__774 v6 v7 + MAlonzo.Code.Utils.C_'42'_778 -> erased + MAlonzo.Code.Utils.C_'9839'_780 -> erased + MAlonzo.Code.Utils.C__'8658'__782 v6 v7 -> case coe v3 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v8 -> erased MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v8 @@ -385,27 +385,27 @@ du_renVal'45'comp_576 v0 v1 v2 v3 v4 v5 d_renCR_670 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> AgdaAny -> AgdaAny d_renCR_670 ~v0 ~v1 v2 v3 v4 v5 v6 = du_renCR_670 v2 v3 v4 v5 v6 du_renCR_670 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> AgdaAny -> AgdaAny du_renCR_670 v0 v1 v2 v3 v4 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 -> erased - MAlonzo.Code.Utils.C_'9839'_772 -> erased - MAlonzo.Code.Utils.C__'8658'__774 v5 v6 + MAlonzo.Code.Utils.C_'42'_778 -> erased + MAlonzo.Code.Utils.C_'9839'_780 -> erased + MAlonzo.Code.Utils.C__'8658'__782 v5 v6 -> case coe v1 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v7 -> erased MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v7 @@ -442,9 +442,9 @@ du_renCR_670 v0 v1 v2 v3 v4 d_renVal'183'V_754 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> @@ -541,12 +541,12 @@ d_renVal'183'V_754 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 d_idext_840 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> AgdaAny d_idext_840 v0 v1 v2 v3 v4 v5 v6 @@ -556,7 +556,7 @@ d_idext_840 v0 v1 v2 v3 v4 v5 v6 MAlonzo.Code.Type.C__'8658'__26 v8 v9 -> erased MAlonzo.Code.Type.C_ƛ_28 v10 -> case coe v2 of - MAlonzo.Code.Utils.C__'8658'__774 v11 v12 + MAlonzo.Code.Utils.C__'8658'__782 v11 v12 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe @@ -906,15 +906,15 @@ d_idext_840 v0 v1 v2 v3 v4 v5 v6 du_AppCR_376 (coe v1) (coe v2) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v8) (coe v2)) (coe v10) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v8) (coe v2)) (coe v10) (coe v3)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v8) (coe v2)) (coe v10) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v8) (coe v2)) (coe v10) (coe v4)) (coe d_idext_840 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v8) (coe v2)) (coe v3) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v8) (coe v2)) (coe v3) (coe v4) (coe v5) (coe v10)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v0) (coe v8) @@ -935,11 +935,11 @@ d_idext_840 v0 v1 v2 v3 v4 v5 v6 d_idext'45'List_848 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -948,12 +948,12 @@ d_idext'45'List_848 = erased d_idext'45'VecList_858 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -963,15 +963,15 @@ d_renVal'45'eval_878 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> AgdaAny @@ -985,7 +985,7 @@ d_renVal'45'eval_878 v0 v1 v2 v3 v4 v5 v6 v7 v8 MAlonzo.Code.Type.C__'8658'__26 v10 v11 -> erased MAlonzo.Code.Type.C_ƛ_28 v12 -> case coe v3 of - MAlonzo.Code.Utils.C__'8658'__774 v13 v14 + MAlonzo.Code.Utils.C__'8658'__782 v13 v14 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe @@ -1409,7 +1409,7 @@ d_renVal'45'eval_878 v0 v1 v2 v3 v4 v5 v6 v7 v8 (coe v3) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v12) (coe v5)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) (coe v10) @@ -1419,11 +1419,11 @@ d_renVal'45'eval_878 v0 v1 v2 v3 v4 v5 v6 v7 v8 (coe v3) (coe MAlonzo.Code.Type.BetaNBE.d_renVal_46 - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) (coe v0) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v0) (coe v2) (coe v8) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v12) (coe v5))) (coe MAlonzo.Code.Type.BetaNBE.d_renVal_46 (coe v10) (coe v0) (coe v2) @@ -1436,7 +1436,7 @@ d_renVal'45'eval_878 v0 v1 v2 v3 v4 v5 v6 v7 v8 (coe v3) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v2) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v12) (coe (\ v14 -> @@ -1459,15 +1459,15 @@ d_renVal'45'eval_878 v0 v1 v2 v3 v4 v5 v6 v7 v8 d_renVal'183'V_754 (coe v0) (coe v2) (coe v10) (coe v3) (coe v8) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v12) (coe v5)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v12) (coe v5)) (coe d_idext_840 (coe v1) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) (coe v5) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v5) (coe v5) (coe (\ v14 v15 -> @@ -1493,15 +1493,15 @@ d_renVal'45'eval_878 v0 v1 v2 v3 v4 v5 v6 v7 v8 du_AppCR_376 (coe v2) (coe v3) (coe MAlonzo.Code.Type.BetaNBE.d_renVal_46 - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) (coe v0) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v0) (coe v2) (coe v8) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v12) (coe v5))) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v2) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v12) (coe (\ v14 -> @@ -1512,7 +1512,7 @@ d_renVal'45'eval_878 v0 v1 v2 v3 v4 v5 v6 v7 v8 (coe v14) (coe v0) (coe v2) (coe v8) (coe v15 v16))))) (coe d_renVal'45'eval_878 (coe v0) (coe v1) (coe v2) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v12) (coe v5) (coe v6) (coe v7) (coe v8)) (coe MAlonzo.Code.Type.BetaNBE.d_renVal_46 (coe v10) (coe v0) (coe v2) @@ -1547,13 +1547,13 @@ d_renVal'45'eval'45'List_896 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -1565,13 +1565,13 @@ d_renVal'45'eval'45'VecList_916 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -1579,17 +1579,17 @@ d_renVal'45'eval'45'VecList_916 = erased -- Type.BetaNBE.Completeness.ren-eval d_ren'45'eval_1144 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> AgdaAny @@ -1600,7 +1600,7 @@ d_ren'45'eval_1144 v0 v1 v2 v3 v4 v5 v6 v7 v8 MAlonzo.Code.Type.C__'8658'__26 v10 v11 -> erased MAlonzo.Code.Type.C_ƛ_28 v12 -> case coe v1 of - MAlonzo.Code.Utils.C__'8658'__774 v13 v14 + MAlonzo.Code.Utils.C__'8658'__782 v13 v14 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe @@ -2100,22 +2100,22 @@ d_ren'45'eval_1144 v0 v1 v2 v3 v4 v5 v6 v7 v8 du_AppCR_376 (coe v3) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v3) (coe v2) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v1)) (coe MAlonzo.Code.Type.RenamingSubstitution.d_ren_28 (coe v0) (coe v2) - (coe v8) (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v1)) + (coe v8) (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v1)) (coe v12)) (coe v5)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v3) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v1)) (coe v12) (coe (\ v14 -> let v15 = coe v8 v14 in coe (\ v16 -> coe v6 v14 (coe v15 v16))))) (coe d_ren'45'eval_1144 (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v1)) (coe v2) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v1)) (coe v2) (coe v3) (coe v12) (coe v5) (coe v6) (coe v7) (coe v8)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v3) (coe v2) (coe v10) @@ -2144,13 +2144,13 @@ d_ren'45'eval'45'List_1158 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -2162,13 +2162,13 @@ d_ren'45'eval'45'VecList_1174 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -2176,17 +2176,17 @@ d_ren'45'eval'45'VecList_1174 = erased -- Type.BetaNBE.Completeness.sub-eval d_sub'45'eval_1314 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> AgdaAny @@ -2200,7 +2200,7 @@ d_sub'45'eval_1314 v0 v1 v2 v3 v4 v5 v6 v7 v8 MAlonzo.Code.Type.C__'8658'__26 v10 v11 -> erased MAlonzo.Code.Type.C_ƛ_28 v12 -> case coe v1 of - MAlonzo.Code.Utils.C__'8658'__774 v13 v14 + MAlonzo.Code.Utils.C__'8658'__782 v13 v14 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe @@ -2873,15 +2873,15 @@ d_sub'45'eval_1314 v0 v1 v2 v3 v4 v5 v6 v7 v8 du_AppCR_376 (coe v3) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v3) (coe v2) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v1)) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v2) - (coe v8) (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v1)) + (coe v8) (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v1)) (coe v12)) (coe v5)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v3) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v1)) (coe v12) (coe (\ v14 v15 -> @@ -2889,7 +2889,7 @@ d_sub'45'eval_1314 v0 v1 v2 v3 v4 v5 v6 v7 v8 (coe v3) (coe v2) (coe v14) (coe v8 v14 v15) (coe v6)))) (coe d_sub'45'eval_1314 (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v10) (coe v1)) (coe v2) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v1)) (coe v2) (coe v3) (coe v12) (coe v5) (coe v6) (coe v7) (coe v8)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v3) (coe v2) (coe v10) @@ -2919,13 +2919,13 @@ d_sub'45'eval'45'List_1330 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -2937,13 +2937,13 @@ d_sub'45'eval'45'VecList_1348 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -2952,12 +2952,12 @@ d_sub'45'eval'45'VecList_1348 = erased d_fund_1482 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -3012,7 +3012,7 @@ d_fund_1482 v0 v1 v2 v3 v4 v5 v6 v7 v8 MAlonzo.Code.Type.Equality.C_Π'8801'β_22 v13 -> erased MAlonzo.Code.Type.Equality.C_ƛ'8801'β_24 v14 -> case coe v2 of - MAlonzo.Code.Utils.C__'8658'__774 v15 v16 + MAlonzo.Code.Utils.C__'8658'__782 v15 v16 -> case coe v6 of MAlonzo.Code.Type.C_ƛ_28 v20 -> case coe v7 of @@ -3430,15 +3430,15 @@ d_fund_1482 v0 v1 v2 v3 v4 v5 v6 v7 v8 du_AppCR_376 (coe v1) (coe v2) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v19) (coe v2)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v19) (coe v2)) (coe v21) (coe v3)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v19) (coe v2)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v19) (coe v2)) (coe v26) (coe v4)) (coe d_fund_1482 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v19) (coe v2)) (coe v3) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v19) (coe v2)) (coe v3) (coe v4) (coe v5) (coe v21) (coe v26) (coe v16)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v0) (coe v19) @@ -3589,11 +3589,11 @@ d_fund_1482 v0 v1 v2 v3 v4 v5 v6 v7 v8 d_fund'45'List_1492 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> @@ -3604,12 +3604,12 @@ d_fund'45'List_1492 = erased d_fund'45'VecList_1504 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> @@ -3619,15 +3619,15 @@ d_fund'45'VecList_1504 = erased -- Type.BetaNBE.Completeness.idCR d_idCR_1618 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny d_idCR_1618 ~v0 v1 ~v2 = du_idCR_1618 v1 -du_idCR_1618 :: MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny +du_idCR_1618 :: MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny du_idCR_1618 v0 = coe du_reflectCR_266 (coe v0) erased -- Type.BetaNBE.Completeness.completeness d_completeness_1626 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.Equality.T__'8801'β__10 -> @@ -3636,8 +3636,8 @@ d_completeness_1626 = erased -- Type.BetaNBE.Completeness.exte-lem d_exte'45'lem_1634 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny d_exte'45'lem_1634 v0 v1 v2 v3 = case coe v3 of diff --git a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/RenamingSubstitution.hs b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/RenamingSubstitution.hs index 1294d346f4d..4feae67ff2b 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/RenamingSubstitution.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/RenamingSubstitution.hs @@ -28,7 +28,7 @@ import qualified MAlonzo.Code.Utils -- Type.BetaNBE.RenamingSubstitution.reify-reflect d_reify'45'reflect_12 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -37,12 +37,12 @@ d_reify'45'reflect_12 = erased d_evalCRSubst_38 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -52,12 +52,12 @@ d_evalCRSubst_38 v0 v1 v2 v3 v4 v5 v6 v7 ~v8 du_evalCRSubst_38 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> AgdaAny @@ -70,8 +70,8 @@ du_evalCRSubst_38 v0 v1 v2 v3 v4 v5 v6 v7 d_ren'45'nf_56 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -81,8 +81,8 @@ d_ren'45'nf_56 = erased d_ren'45'nf'45'μ_74 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -98,10 +98,10 @@ d_SubNf_90 = erased d_subNf_104 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_subNf_104 v0 v1 v2 v3 v4 @@ -120,14 +120,14 @@ d_subNf_104 v0 v1 v2 v3 v4 -- Type.BetaNBE.RenamingSubstitution.subNf-id d_subNf'45'id_116 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'45'id_116 = erased -- Type.BetaNBE.RenamingSubstitution.subNf-id' d_subNf'45'id''_126 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'45'id''_126 = erased @@ -135,8 +135,8 @@ d_subNf'45'id''_126 = erased d_subNf'45''8715'_142 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.T__'8715''8902'__14 -> @@ -146,10 +146,10 @@ d_subNf'45''8715'_142 = erased d_subNf'45'nf_160 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'45'nf_160 = erased @@ -158,13 +158,13 @@ d_subNf'45'comp_182 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'45'comp_182 = erased @@ -172,21 +172,21 @@ d_subNf'45'comp_182 = erased d_extsNf_198 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_extsNf_198 ~v0 v1 v2 v3 v4 v5 = du_extsNf_198 v1 v2 v3 v4 v5 du_extsNf_198 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 du_extsNf_198 v0 v1 v2 v3 v4 @@ -205,22 +205,22 @@ du_extsNf_198 v0 v1 v2 v3 v4 d_subNf'45'cons_218 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_subNf'45'cons_218 ~v0 ~v1 v2 ~v3 v4 v5 v6 = du_subNf'45'cons_218 v2 v4 v5 v6 du_subNf'45'cons_218 :: - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 du_subNf'45'cons_218 v0 v1 v2 v3 @@ -231,8 +231,8 @@ du_subNf'45'cons_218 v0 v1 v2 v3 -- Type.BetaNBE.RenamingSubstitution._[_]Nf d__'91'_'93'Nf_236 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 @@ -253,16 +253,16 @@ d__'91'_'93'Nf_236 v0 v1 v2 v3 v4 d_subNf'45'cong_260 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'45'cong_260 = erased @@ -270,10 +270,10 @@ d_subNf'45'cong_260 = erased d_subNf'45'cong''_280 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> @@ -284,13 +284,13 @@ d_renNf'45'subNf_300 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_renNf'45'subNf_300 = erased @@ -299,13 +299,13 @@ d_subNf'45'renNf_324 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'45'renNf_324 = erased @@ -313,9 +313,9 @@ d_subNf'45'renNf_324 = erased d_ren'91''93'Nf_350 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -326,9 +326,9 @@ d_ren'91''93'Nf_350 = erased d_sub'91''93'Nf_378 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -339,9 +339,9 @@ d_sub'91''93'Nf_378 = erased d_subNf'45'lemma_404 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -350,8 +350,8 @@ d_subNf'45'lemma_404 = erased -- Type.BetaNBE.RenamingSubstitution.subNf-lemma' d_subNf'45'lemma''_422 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'45'lemma''_422 = erased @@ -359,9 +359,9 @@ d_subNf'45'lemma''_422 = erased d_sub'91''93'Nf''_446 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -372,10 +372,10 @@ d_sub'91''93'Nf''_446 = erased d_weakenNf'45'renNf_464 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_weakenNf'45'renNf_464 = erased @@ -383,17 +383,17 @@ d_weakenNf'45'renNf_464 = erased d_weakenNf'45'subNf_480 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_weakenNf'45'subNf_480 = erased -- Type.BetaNBE.RenamingSubstitution.weakenNf[] d_weakenNf'91''93'_494 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -402,10 +402,10 @@ d_weakenNf'91''93'_494 = erased d_sub'45'nf'45'Π_510 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'nf'45'Π_510 = erased @@ -413,8 +413,8 @@ d_sub'45'nf'45'Π_510 = erased d_sub'45'nf'45'μ_528 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -424,9 +424,9 @@ d_sub'45'nf'45'μ_528 = erased -- Type.BetaNBE.RenamingSubstitution.subNf-cons-[]Nf d_subNf'45'cons'45''91''93'Nf_548 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -436,7 +436,7 @@ d_subNf'45'cons'45''91''93'Nf_548 = erased -- Type.BetaNBE.RenamingSubstitution.subNf∅ d_subNf'8709'_566 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_subNf'8709'_566 v0 v1 v2 @@ -450,7 +450,7 @@ d_subNf'8709'_566 v0 v1 v2 -- Type.BetaNBE.RenamingSubstitution.subNf∅≡subNf d_subNf'8709''8801'subNf_582 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'8709''8801'subNf_582 = erased @@ -458,8 +458,8 @@ d_subNf'8709''8801'subNf_582 = erased d_subNf'8709''45'renNf_600 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> @@ -469,8 +469,8 @@ d_subNf'8709''45'renNf_600 = erased d_subNf'8709''45'subNf_616 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Soundness.hs b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Soundness.hs index ca9ae712671..e075d1bd7d0 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Soundness.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Soundness.hs @@ -31,37 +31,37 @@ import qualified MAlonzo.Code.Utils -- Type.BetaNBE.Soundness.SR d_SR_10 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> AgdaAny -> () d_SR_10 = erased -- Type.BetaNBE.Soundness.reflectSR d_reflectSR_54 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Type.Equality.T__'8801'β__10 -> AgdaAny d_reflectSR_54 ~v0 v1 ~v2 ~v3 v4 = du_reflectSR_54 v1 v4 du_reflectSR_54 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.Equality.T__'8801'β__10 -> AgdaAny du_reflectSR_54 v0 v1 = coe seq (coe v0) (coe v1) -- Type.BetaNBE.Soundness.reifySR d_reifySR_74 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Type.Equality.T__'8801'β__10 d_reifySR_74 v0 v1 ~v2 v3 v4 = du_reifySR_74 v0 v1 v3 v4 du_reifySR_74 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Type.Equality.T__'8801'β__10 du_reifySR_74 v0 v1 v2 v3 = case coe v1 of - MAlonzo.Code.Utils.C_'42'_770 -> coe v3 - MAlonzo.Code.Utils.C_'9839'_772 -> coe v3 - MAlonzo.Code.Utils.C__'8658'__774 v4 v5 + MAlonzo.Code.Utils.C_'42'_778 -> coe v3 + MAlonzo.Code.Utils.C_'9839'_780 -> coe v3 + MAlonzo.Code.Utils.C__'8658'__782 v4 v5 -> case coe v2 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v6 -> coe v3 MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v6 @@ -177,10 +177,10 @@ du_reifySR_74 v0 v1 v2 v3 d_SREnv_108 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> () d_SREnv_108 = erased @@ -188,26 +188,26 @@ d_SREnv_108 = erased d_SR'44''44''8902'_134 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> AgdaAny -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny d_SR'44''44''8902'_134 ~v0 ~v1 ~v2 ~v3 v4 ~v5 ~v6 ~v7 v8 v9 v10 = du_SR'44''44''8902'_134 v4 v8 v9 v10 du_SR'44''44''8902'_134 :: - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny du_SR'44''44''8902'_134 v0 v1 v2 v3 = case coe v3 of @@ -217,24 +217,24 @@ du_SR'44''44''8902'_134 v0 v1 v2 v3 -- Type.BetaNBE.Soundness.subSR d_subSR_156 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.Equality.T__'8801'β__10 -> AgdaAny -> AgdaAny -> AgdaAny d_subSR_156 ~v0 v1 v2 ~v3 v4 v5 v6 = du_subSR_156 v1 v2 v4 v5 v6 du_subSR_156 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.Equality.T__'8801'β__10 -> AgdaAny -> AgdaAny -> AgdaAny du_subSR_156 v0 v1 v2 v3 v4 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 v1 v2 v4 - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 v1 v2 v4 - MAlonzo.Code.Utils.C__'8658'__774 v5 v6 + MAlonzo.Code.Utils.C__'8658'__782 v5 v6 -> case coe v3 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v7 -> coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 v1 v2 v4 @@ -257,15 +257,15 @@ du_subSR_156 v0 v1 v2 v3 v4 d_renSR_202 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> AgdaAny -> AgdaAny -> AgdaAny d_renSR_202 v0 v1 v2 v3 v4 v5 v6 = case coe v3 of - MAlonzo.Code.Utils.C_'42'_770 + MAlonzo.Code.Utils.C_'42'_778 -> coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.RenamingSubstitution.d_ren_28 @@ -282,7 +282,7 @@ d_renSR_202 v0 v1 v2 v3 v4 v5 v6 (coe MAlonzo.Code.Type.Equality.C_sym'8801'β_16 (coe MAlonzo.Code.Type.Equality.du_'8801'2β_76)) - MAlonzo.Code.Utils.C_'9839'_772 + MAlonzo.Code.Utils.C_'9839'_780 -> coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 (MAlonzo.Code.Type.RenamingSubstitution.d_ren_28 @@ -299,7 +299,7 @@ d_renSR_202 v0 v1 v2 v3 v4 v5 v6 (coe MAlonzo.Code.Type.Equality.C_sym'8801'β_16 (coe MAlonzo.Code.Type.Equality.du_'8801'2β_76)) - MAlonzo.Code.Utils.C__'8658'__774 v7 v8 + MAlonzo.Code.Utils.C__'8658'__782 v7 v8 -> case coe v5 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v9 -> coe @@ -379,9 +379,9 @@ d_renSR_202 v0 v1 v2 v3 v4 v5 v6 d_exts'45'sub'45'cons_268 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Type.T__'8715''8902'__14 -> @@ -391,56 +391,56 @@ d_exts'45'sub'45'cons_268 = erased d_subSREnv_288 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny d_subSREnv_288 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 = du_subSREnv_288 v6 v7 v8 du_subSREnv_288 :: - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny du_subSREnv_288 v0 v1 v2 = coe v0 v1 v2 -- Type.BetaNBE.Soundness.SRweak d_SRweak_310 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny d_SRweak_310 ~v0 v1 v2 v3 v4 v5 v6 = du_SRweak_310 v1 v2 v3 v4 v5 v6 du_SRweak_310 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny du_SRweak_310 v0 v1 v2 v3 v4 v5 = coe @@ -460,8 +460,8 @@ du_SRweak_310 v0 v1 v2 v3 v4 v5 -- Type.BetaNBE.Soundness.SRApp d_SRApp_328 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny -> @@ -471,8 +471,8 @@ d_SRApp_328 v0 v1 v2 ~v3 v4 v5 v6 v7 v8 = du_SRApp_328 v0 v1 v2 v4 v5 v6 v7 v8 du_SRApp_328 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -486,7 +486,7 @@ du_SRApp_328 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Type.Equality.C_'183''8801'β_26 (coe du_reflectSR_54 - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v1) (coe v2)) (coe v4)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v1) (coe v2)) (coe v4)) (coe du_reifySR_74 (coe v0) (coe v1) (coe v6) (coe v7))) MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v8 -> case coe v4 of @@ -518,7 +518,7 @@ du_SRApp_328 v0 v1 v2 v3 v4 v5 v6 v7 MAlonzo.Code.Type.BetaNBE.d__'183'V__150 (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Type.BetaNBE.d_renVal_46 - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v1) (coe v2)) (coe v0) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v1) (coe v2)) (coe v0) (coe v0) (coe (\ v13 v14 -> v14)) (coe v3)) (coe v6)) (coe v12 v0 (\ v13 v14 -> v14) v5 v6 v7) @@ -529,14 +529,14 @@ du_SRApp_328 v0 v1 v2 v3 v4 v5 v6 v7 d_evalSR_358 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> AgdaAny d_evalSR_358 v0 v1 v2 v3 v4 v5 v6 @@ -548,7 +548,7 @@ d_evalSR_358 v0 v1 v2 v3 v4 v5 v6 (d_evalSR_358 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v8)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v8)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9) (coe MAlonzo.Code.Type.RenamingSubstitution.du_exts_336 (coe v1) (coe v4) (coe v8)) @@ -569,14 +569,14 @@ d_evalSR_358 v0 v1 v2 v3 v4 v5 v6 -> coe MAlonzo.Code.Type.Equality.C_'8658''8801'β_20 (d_evalSR_358 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v8) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8) (coe v4) (coe v5) (coe v6)) (d_evalSR_358 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v9) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9) (coe v4) (coe v5) (coe v6)) MAlonzo.Code.Type.C_ƛ_28 v10 -> case coe v2 of - MAlonzo.Code.Utils.C__'8658'__774 v11 v12 + MAlonzo.Code.Utils.C__'8658'__782 v11 v12 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe @@ -678,11 +678,11 @@ d_evalSR_358 v0 v1 v2 v3 v4 v5 v6 du_SRApp_328 (coe v1) (coe v8) (coe v2) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v8) (coe v2)) (coe v10) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v8) (coe v2)) (coe v10) (coe v5)) (coe d_evalSR_358 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v8) (coe v2)) (coe v10) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v8) (coe v2)) (coe v10) (coe v4) (coe v5) (coe v6)) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v1) @@ -699,34 +699,34 @@ d_evalSR_358 v0 v1 v2 v3 v4 v5 v6 (coe du_reifySR_74 (coe v1) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v9) (coe v5)) (coe d_evalSR_358 (coe v0) (coe v1) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v9) (coe v4) (coe v5) (coe v6))) (coe du_reifySR_74 (coe v1) (coe v8) @@ -744,7 +744,7 @@ d_evalSR_358 v0 v1 v2 v3 v4 v5 v6 -> coe MAlonzo.Code.Type.Equality.C_con'8801'β_34 (d_evalSR_358 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v8) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v8) (coe v4) (coe v5) (coe v6)) MAlonzo.Code.Type.C_SOP_40 v8 v9 -> coe @@ -758,12 +758,12 @@ d_evalSR'45'List_370 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Type.Equality.T__'91''8801''93'β__4 d_evalSR'45'List_370 v0 v1 v2 v3 v4 v5 @@ -773,7 +773,7 @@ d_evalSR'45'List_370 v0 v1 v2 v3 v4 v5 -> coe MAlonzo.Code.Type.Equality.C_cons'91''8801''93'β_60 (d_evalSR_358 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v6) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6) (coe v3) (coe v4) (coe v5)) (d_evalSR'45'List_370 (coe v0) (coe v1) (coe v7) (coe v3) (coe v4) (coe v5)) @@ -784,12 +784,12 @@ d_evalSR'45'VecList_384 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Type.Equality.T__'10216''91''8801''93''10217'β__8 d_evalSR'45'VecList_384 v0 v1 ~v2 v3 v4 v5 v6 @@ -798,12 +798,12 @@ du_evalSR'45'VecList_384 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> MAlonzo.Code.Type.Equality.T__'10216''91''8801''93''10217'β__8 du_evalSR'45'VecList_384 v0 v1 v2 v3 v4 v5 @@ -823,10 +823,10 @@ du_evalSR'45'VecList_384 v0 v1 v2 v3 v4 v5 -- Type.BetaNBE.Soundness.idSR d_idSR_462 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny d_idSR_462 ~v0 v1 ~v2 = du_idSR_462 v1 -du_idSR_462 :: MAlonzo.Code.Utils.T_Kind_768 -> AgdaAny +du_idSR_462 :: MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny du_idSR_462 v0 = coe du_reflectSR_54 (coe v0) @@ -834,7 +834,7 @@ du_idSR_462 v0 -- Type.BetaNBE.Soundness.soundness d_soundness_470 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.Equality.T__'8801'β__10 d_soundness_470 v0 v1 v2 diff --git a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Stability.hs b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Stability.hs index 5de88128061..c1426a74472 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Stability.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNBE/Stability.hs @@ -28,14 +28,14 @@ import qualified MAlonzo.Code.Utils -- Type.BetaNBE.Stability.stability d_stability_10 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_stability_10 = erased -- Type.BetaNBE.Stability.stabilityNe d_stabilityNe_14 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> AgdaAny d_stabilityNe_14 v0 v1 v2 = case coe v2 of @@ -50,7 +50,7 @@ d_stabilityNe_14 v0 v1 v2 MAlonzo.Code.Type.BetaNBE.d__'183'V__150 (coe v0) (coe v4) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v4) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v4) (coe v1)) (coe MAlonzo.Code.Type.BetaNormal.du_embNe_134 (coe v0) (coe v6)) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250)) (coe @@ -63,7 +63,7 @@ d_stabilityNe_14 v0 v1 v2 MAlonzo.Code.Type.BetaNBE.d__'183'V__150 (coe v0) (coe v4) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.du_reflect_22 - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v4) (coe v1)) (coe v6)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v4) (coe v1)) (coe v6)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) (coe v4) (coe @@ -78,15 +78,15 @@ d_stabilityNe_14 v0 v1 v2 (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v4) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v4) (coe v1)) (coe MAlonzo.Code.Type.BetaNormal.du_embNe_134 (coe v0) (coe v6)) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250)) (coe MAlonzo.Code.Type.BetaNBE.du_reflect_22 - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v4) (coe v1)) (coe v6)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v4) (coe v1)) (coe v6)) (coe d_stabilityNe_14 (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v4) (coe v1)) (coe v6)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v4) (coe v1)) (coe v6)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) (coe v4) (coe diff --git a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNormal.hs b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNormal.hs index 6591c343b87..02f79b52770 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNormal.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNormal.hs @@ -29,18 +29,18 @@ import qualified MAlonzo.Code.Utils -- Type.BetaNormal._⊢Nf⋆_ d__'8866'Nf'8902'__4 a0 a1 = () data T__'8866'Nf'8902'__4 - = C_Π_14 MAlonzo.Code.Utils.T_Kind_768 T__'8866'Nf'8902'__4 | + = C_Π_14 MAlonzo.Code.Utils.T_Kind_776 T__'8866'Nf'8902'__4 | C__'8658'__16 T__'8866'Nf'8902'__4 T__'8866'Nf'8902'__4 | C_ƛ_18 T__'8866'Nf'8902'__4 | C_ne_20 T__'8866'Ne'8902'__6 | C_con_22 T__'8866'Nf'8902'__4 | - C_μ_24 MAlonzo.Code.Utils.T_Kind_768 T__'8866'Nf'8902'__4 + C_μ_24 MAlonzo.Code.Utils.T_Kind_776 T__'8866'Nf'8902'__4 T__'8866'Nf'8902'__4 | C_SOP_28 Integer MAlonzo.Code.Data.Vec.Base.T_Vec_28 -- Type.BetaNormal._⊢Ne⋆_ d__'8866'Ne'8902'__6 a0 a1 = () data T__'8866'Ne'8902'__6 = C_'96'_8 MAlonzo.Code.Type.T__'8715''8902'__14 | - C__'183'__10 MAlonzo.Code.Utils.T_Kind_768 T__'8866'Ne'8902'__6 + C__'183'__10 MAlonzo.Code.Utils.T_Kind_776 T__'8866'Ne'8902'__6 T__'8866'Nf'8902'__4 | C_'94'_12 MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 -- Type.BetaNormal.RenNf @@ -57,10 +57,10 @@ d_RenNe_38 = erased d_renNf_46 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> T__'8866'Nf'8902'__4 -> T__'8866'Nf'8902'__4 d_renNf_46 v0 v1 v2 v3 v4 = case coe v4 of @@ -71,19 +71,19 @@ d_renNf_46 v0 v1 v2 v3 v4 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v6)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v6)) (coe MAlonzo.Code.Type.RenamingSubstitution.du_ext_18 (coe v2)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v7)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7)) C__'8658'__16 v6 v7 -> coe C__'8658'__16 (d_renNf_46 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6)) (d_renNf_46 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7)) C_ƛ_18 v8 -> case coe v3 of - MAlonzo.Code.Utils.C__'8658'__774 v9 v10 + MAlonzo.Code.Utils.C__'8658'__782 v9 v10 -> coe C_ƛ_18 (d_renNf_46 @@ -99,7 +99,7 @@ d_renNf_46 v0 v1 v2 v3 v4 -> coe C_con_22 (d_renNf_46 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v6)) C_μ_24 v6 v7 v8 -> coe @@ -107,13 +107,13 @@ d_renNf_46 v0 v1 v2 v3 v4 (d_renNf_46 (coe v0) (coe v1) (coe v2) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v7)) (d_renNf_46 (coe v0) (coe v1) (coe v2) (coe v6) (coe v8)) C_SOP_28 v6 v7 @@ -121,16 +121,16 @@ d_renNf_46 v0 v1 v2 v3 v4 C_SOP_28 v6 (coe du_renNf'45'VecList_58 (coe v0) (coe v1) (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v7)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7)) _ -> MAlonzo.RTE.mazUnreachableError -- Type.BetaNormal.renNe d_renNe_48 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> T__'8866'Ne'8902'__6 -> T__'8866'Ne'8902'__6 d_renNe_48 v0 v1 v2 v3 v4 = case coe v4 of @@ -140,7 +140,7 @@ d_renNe_48 v0 v1 v2 v3 v4 C__'183'__10 v6 (d_renNe_48 (coe v0) (coe v1) (coe v2) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v6) (coe v3)) (coe v8)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe v3)) (coe v8)) (d_renNf_46 (coe v0) (coe v1) (coe v2) (coe v6) (coe v9)) C_'94'_12 v7 -> coe C_'94'_12 v7 _ -> MAlonzo.RTE.mazUnreachableError @@ -148,10 +148,10 @@ d_renNe_48 v0 v1 v2 v3 v4 d_renNf'45'List_52 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [T__'8866'Nf'8902'__4] -> [T__'8866'Nf'8902'__4] d_renNf'45'List_52 v0 v1 v2 v3 v4 = case coe v4 of @@ -168,10 +168,10 @@ d_renNf'45'VecList_58 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 d_renNf'45'VecList_58 v0 v1 ~v2 v3 v4 v5 @@ -179,10 +179,10 @@ d_renNf'45'VecList_58 v0 v1 ~v2 v3 v4 v5 du_renNf'45'VecList_58 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 du_renNf'45'VecList_58 v0 v1 v2 v3 v4 @@ -199,8 +199,8 @@ du_renNf'45'VecList_58 v0 v1 v2 v3 v4 -- Type.BetaNormal.weakenNf d_weakenNf_122 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> T__'8866'Nf'8902'__4 -> T__'8866'Nf'8902'__4 d_weakenNf_122 v0 v1 v2 = coe @@ -210,7 +210,7 @@ d_weakenNf_122 v0 v1 v2 -- Type.BetaNormal.embNf d_embNf_128 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.T__'8866''8902'__20 d_embNf_128 v0 v1 v2 = case coe v2 of @@ -219,15 +219,15 @@ d_embNf_128 v0 v1 v2 MAlonzo.Code.Type.C_Π_24 v4 (d_embNf_128 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v4)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) C__'8658'__16 v4 v5 -> coe MAlonzo.Code.Type.C__'8658'__26 - (d_embNf_128 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v4)) - (d_embNf_128 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5)) + (d_embNf_128 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v4)) + (d_embNf_128 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) C_ƛ_18 v6 -> case coe v1 of - MAlonzo.Code.Utils.C__'8658'__774 v7 v8 + MAlonzo.Code.Utils.C__'8658'__782 v7 v8 -> coe MAlonzo.Code.Type.C_ƛ_28 (d_embNf_128 @@ -239,20 +239,20 @@ d_embNf_128 v0 v1 v2 -> coe MAlonzo.Code.Type.C_con_36 (d_embNf_128 - (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v4)) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v4)) C_μ_24 v4 v5 v6 -> coe MAlonzo.Code.Type.C_μ_32 v4 (d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v5)) (d_embNf_128 (coe v0) (coe v4) (coe v6)) C_SOP_28 v4 v5 @@ -260,12 +260,12 @@ d_embNf_128 v0 v1 v2 MAlonzo.Code.Type.C_SOP_40 v4 (coe du_embNf'45'VecList_148 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) _ -> MAlonzo.RTE.mazUnreachableError -- Type.BetaNormal.embNe d_embNe_134 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> T__'8866'Ne'8902'__6 -> MAlonzo.Code.Type.T__'8866''8902'__20 d_embNe_134 v0 ~v1 v2 = du_embNe_134 v0 v2 du_embNe_134 :: @@ -284,7 +284,7 @@ du_embNe_134 v0 v1 -- Type.BetaNormal.embNf-List d_embNf'45'List_140 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [T__'8866'Nf'8902'__4] -> [MAlonzo.Code.Type.T__'8866''8902'__20] d_embNf'45'List_140 v0 v1 v2 = case coe v2 of @@ -299,14 +299,14 @@ d_embNf'45'List_140 v0 v1 v2 d_embNf'45'VecList_148 :: Integer -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 d_embNf'45'VecList_148 ~v0 v1 v2 v3 = du_embNf'45'VecList_148 v1 v2 v3 du_embNf'45'VecList_148 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 du_embNf'45'VecList_148 v0 v1 v2 @@ -322,10 +322,10 @@ du_embNf'45'VecList_148 v0 v1 v2 d_ren'45'embNf_190 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'embNf_190 = erased @@ -333,10 +333,10 @@ d_ren'45'embNf_190 = erased d_ren'45'embNe_198 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> T__'8866'Ne'8902'__6 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'embNe_198 = erased @@ -344,10 +344,10 @@ d_ren'45'embNe_198 = erased d_ren'45'embNf'45'List_206 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [T__'8866'Nf'8902'__4] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'embNf'45'List_206 = erased @@ -355,11 +355,11 @@ d_ren'45'embNf'45'List_206 = erased d_ren'45'embNf'45'VecList_216 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'embNf'45'VecList_216 = erased @@ -368,7 +368,7 @@ d_lookup'45'renNf'45'VecList_296 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNormal/Equality.hs b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNormal/Equality.hs index 6699190931b..d6b63fd564a 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Type/BetaNormal/Equality.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Type/BetaNormal/Equality.hs @@ -27,16 +27,16 @@ import qualified MAlonzo.Code.Utils d_renNf'45'cong_18 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_renNf'45'cong_18 = erased @@ -44,16 +44,16 @@ d_renNf'45'cong_18 = erased d_renNe'45'cong_32 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_renNe'45'cong_32 = erased @@ -61,13 +61,13 @@ d_renNe'45'cong_32 = erased d_renNf'45'cong'45'List_46 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] -> @@ -77,13 +77,13 @@ d_renNf'45'cong'45'List_46 = erased d_renNf'45'cong'45'VecList_62 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> Integer -> @@ -93,28 +93,28 @@ d_renNf'45'cong'45'VecList_62 = erased -- Type.BetaNormal.Equality.renNf-id d_renNf'45'id_128 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_renNf'45'id_128 = erased -- Type.BetaNormal.Equality.renNe-id d_renNe'45'id_132 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_renNe'45'id_132 = erased -- Type.BetaNormal.Equality.renNe-id-List d_renNe'45'id'45'List_136 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_renNe'45'id'45'List_136 = erased -- Type.BetaNormal.Equality.renNe-id-VecList d_renNe'45'id'45'VecList_142 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -124,13 +124,13 @@ d_renNf'45'comp_186 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_renNf'45'comp_186 = erased @@ -139,13 +139,13 @@ d_renNe'45'comp_196 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_renNe'45'comp_196 = erased @@ -154,10 +154,10 @@ d_renNf'45'comp'45'List_204 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] -> @@ -169,10 +169,10 @@ d_renNf'45'comp'45'VecList_214 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/Type/Equality.hs b/plutus-metatheory/src/MAlonzo/Code/Type/Equality.hs index 9a3ca949475..a52bb3f4989 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Type/Equality.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Type/Equality.hs @@ -49,7 +49,7 @@ data T__'8801'β__10 -- Type.Equality.≡2β d_'8801'2β_76 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> T__'8801'β__10 @@ -60,10 +60,10 @@ du_'8801'2β_76 = coe C_refl'8801'β_14 d_ren'8801'β_80 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> T__'8801'β__10 -> T__'8801'β__10 @@ -92,10 +92,10 @@ d_ren'8801'β_80 v0 v1 v2 v3 v4 v5 v6 -> coe C_'8658''8801'β_20 (d_ren'8801'β_80 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v15) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v15) (coe v18) (coe v5) (coe v12)) (d_ren'8801'β_80 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v16) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v16) (coe v19) (coe v5) (coe v13)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -109,14 +109,14 @@ d_ren'8801'β_80 v0 v1 v2 v3 v4 v5 v6 (d_ren'8801'β_80 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v13)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v13)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v14) (coe v17) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v14) (coe v17) (coe MAlonzo.Code.Type.RenamingSubstitution.du_ext_18 (coe v5)) (coe v11)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError C_ƛ'8801'β_24 v12 -> case coe v2 of - MAlonzo.Code.Utils.C__'8658'__774 v13 v14 + MAlonzo.Code.Utils.C__'8658'__782 v13 v14 -> case coe v3 of MAlonzo.Code.Type.C_ƛ_28 v18 -> case coe v4 of @@ -141,7 +141,7 @@ d_ren'8801'β_80 v0 v1 v2 v3 v4 v5 v6 C_'183''8801'β_26 (d_ren'8801'β_80 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v17) (coe v2)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v17) (coe v2)) (coe v19) (coe v24) (coe v5) (coe v14)) (d_ren'8801'β_80 (coe v0) (coe v1) (coe v17) (coe v20) (coe v25) (coe v5) (coe v15)) @@ -157,13 +157,13 @@ d_ren'8801'β_80 v0 v1 v2 v3 v4 v5 v6 (d_ren'8801'β_80 (coe v0) (coe v1) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v16) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v16) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v16) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v16) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v17) (coe v21) (coe v5) (coe v13)) (d_ren'8801'β_80 (coe v0) (coe v1) (coe v16) (coe v18) (coe v22) (coe v5) (coe v14)) @@ -177,7 +177,7 @@ d_ren'8801'β_80 v0 v1 v2 v3 v4 v5 v6 -> coe C_con'8801'β_34 (d_ren'8801'β_80 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v12) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v12) (coe v14) (coe v5) (coe v10)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -221,7 +221,7 @@ d_ren'8801'β'45'List_88 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> T__'91''8801''93'β__4 -> T__'91''8801''93'β__4 @@ -236,7 +236,7 @@ d_ren'8801'β'45'List_88 v0 v1 v2 v3 v4 v5 -> coe C_cons'91''8801''93'β_60 (d_ren'8801'β_80 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v13) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v13) (coe v15) (coe v4) (coe v11)) (d_ren'8801'β'45'List_88 (coe v0) (coe v1) (coe v14) (coe v16) (coe v4) (coe v12)) @@ -250,7 +250,7 @@ d_ren'8801'β'45'VecList_98 :: Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> T__'10216''91''8801''93''10217'β__8 -> @@ -262,7 +262,7 @@ du_ren'8801'β'45'VecList_98 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> T__'10216''91''8801''93''10217'β__8 -> @@ -290,10 +290,10 @@ du_ren'8801'β'45'VecList_98 v0 v1 v2 v3 v4 v5 d_sub'8801'β_172 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> T__'8801'β__10 -> T__'8801'β__10 @@ -322,10 +322,10 @@ d_sub'8801'β_172 v0 v1 v2 v3 v4 v5 v6 -> coe C_'8658''8801'β_20 (d_sub'8801'β_172 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v15) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v15) (coe v18) (coe v5) (coe v12)) (d_sub'8801'β_172 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v16) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v16) (coe v19) (coe v5) (coe v13)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -339,7 +339,7 @@ d_sub'8801'β_172 v0 v1 v2 v3 v4 v5 v6 (d_sub'8801'β_172 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v13)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v13)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v14) (coe v17) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v14) (coe v17) (coe MAlonzo.Code.Type.RenamingSubstitution.du_exts_336 (coe v1) (coe v5) (coe v13)) @@ -348,7 +348,7 @@ d_sub'8801'β_172 v0 v1 v2 v3 v4 v5 v6 _ -> MAlonzo.RTE.mazUnreachableError C_ƛ'8801'β_24 v12 -> case coe v2 of - MAlonzo.Code.Utils.C__'8658'__774 v13 v14 + MAlonzo.Code.Utils.C__'8658'__782 v13 v14 -> case coe v3 of MAlonzo.Code.Type.C_ƛ_28 v18 -> case coe v4 of @@ -375,7 +375,7 @@ d_sub'8801'β_172 v0 v1 v2 v3 v4 v5 v6 C_'183''8801'β_26 (d_sub'8801'β_172 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v17) (coe v2)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v17) (coe v2)) (coe v19) (coe v24) (coe v5) (coe v14)) (d_sub'8801'β_172 (coe v0) (coe v1) (coe v17) (coe v20) (coe v25) (coe v5) (coe v15)) @@ -391,13 +391,13 @@ d_sub'8801'β_172 v0 v1 v2 v3 v4 v5 v6 (d_sub'8801'β_172 (coe v0) (coe v1) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v16) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v16) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v16) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v16) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v17) (coe v21) (coe v5) (coe v13)) (d_sub'8801'β_172 (coe v0) (coe v1) (coe v16) (coe v18) (coe v22) (coe v5) (coe v14)) @@ -411,7 +411,7 @@ d_sub'8801'β_172 v0 v1 v2 v3 v4 v5 v6 -> coe C_con'8801'β_34 (d_sub'8801'β_172 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_772) (coe v12) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v12) (coe v14) (coe v5) (coe v10)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -457,7 +457,7 @@ d_sub'8801'β'45'List_180 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> T__'91''8801''93'β__4 -> T__'91''8801''93'β__4 @@ -472,7 +472,7 @@ d_sub'8801'β'45'List_180 v0 v1 v2 v3 v4 v5 -> coe C_cons'91''8801''93'β_60 (d_sub'8801'β_172 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_770) (coe v13) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v13) (coe v15) (coe v4) (coe v11)) (d_sub'8801'β'45'List_180 (coe v0) (coe v1) (coe v14) (coe v16) (coe v4) (coe v12)) @@ -486,7 +486,7 @@ d_sub'8801'β'45'VecList_190 :: Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> T__'10216''91''8801''93''10217'β__8 -> @@ -498,7 +498,7 @@ du_sub'8801'β'45'VecList_190 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> T__'10216''91''8801''93''10217'β__8 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/Type/RenamingSubstitution.hs b/plutus-metatheory/src/MAlonzo/Code/Type/RenamingSubstitution.hs index f733e1965eb..03c393e2f49 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Type/RenamingSubstitution.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Type/RenamingSubstitution.hs @@ -33,19 +33,19 @@ d_Ren_4 = erased d_ext_18 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14 d_ext_18 ~v0 ~v1 v2 ~v3 v4 v5 = du_ext_18 v2 v4 v5 du_ext_18 :: - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14 du_ext_18 v0 v1 v2 @@ -58,10 +58,10 @@ du_ext_18 v0 v1 v2 d_ren_28 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 d_ren_28 v0 v1 v2 v3 v4 @@ -74,20 +74,20 @@ d_ren_28 v0 v1 v2 v3 v4 (d_ren_28 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v6)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v6)) - (coe du_ext_18 (coe v2)) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe du_ext_18 (coe v2)) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7)) MAlonzo.Code.Type.C__'8658'__26 v6 v7 -> coe MAlonzo.Code.Type.C__'8658'__26 (d_ren_28 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6)) (d_ren_28 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7)) MAlonzo.Code.Type.C_ƛ_28 v8 -> case coe v3 of - MAlonzo.Code.Utils.C__'8658'__774 v9 v10 + MAlonzo.Code.Utils.C__'8658'__782 v9 v10 -> coe MAlonzo.Code.Type.C_ƛ_28 (d_ren_28 @@ -100,7 +100,7 @@ d_ren_28 v0 v1 v2 v3 v4 MAlonzo.Code.Type.C__'183'__30 v6 (d_ren_28 (coe v0) (coe v1) (coe v2) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v6) (coe v3)) (coe v8)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe v3)) (coe v8)) (d_ren_28 (coe v0) (coe v1) (coe v2) (coe v6) (coe v9)) MAlonzo.Code.Type.C_μ_32 v6 v7 v8 -> coe @@ -108,13 +108,13 @@ d_ren_28 v0 v1 v2 v3 v4 (d_ren_28 (coe v0) (coe v1) (coe v2) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v7)) (d_ren_28 (coe v0) (coe v1) (coe v2) (coe v6) (coe v8)) MAlonzo.Code.Type.C_'94'_34 v7 @@ -123,23 +123,23 @@ d_ren_28 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.Type.C_con_36 (d_ren_28 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v6)) MAlonzo.Code.Type.C_SOP_40 v6 v7 -> coe MAlonzo.Code.Type.C_SOP_40 v6 (coe du_ren'45'VecList_38 (coe v0) (coe v1) (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v7)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7)) _ -> MAlonzo.RTE.mazUnreachableError -- Type.RenamingSubstitution.ren-List d_ren'45'List_32 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> [MAlonzo.Code.Type.T__'8866''8902'__20] d_ren'45'List_32 v0 v1 v2 v3 v4 @@ -155,11 +155,11 @@ d_ren'45'List_32 v0 v1 v2 v3 v4 d_ren'45'VecList_38 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 d_ren'45'VecList_38 v0 v1 v2 ~v3 v4 v5 @@ -167,10 +167,10 @@ d_ren'45'VecList_38 v0 v1 v2 ~v3 v4 v5 du_ren'45'VecList_38 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 du_ren'45'VecList_38 v0 v1 v2 v3 v4 @@ -186,8 +186,8 @@ du_ren'45'VecList_38 v0 v1 v2 v3 v4 -- Type.RenamingSubstitution.weaken d_weaken_98 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 d_weaken_98 v0 v1 v2 @@ -198,8 +198,8 @@ d_weaken_98 v0 v1 v2 -- Type.RenamingSubstitution.ext-id d_ext'45'id_102 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ext'45'id_102 = erased @@ -207,17 +207,17 @@ d_ext'45'id_102 = erased d_ext'45'cong_116 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ext'45'cong_116 = erased @@ -225,16 +225,16 @@ d_ext'45'cong_116 = erased d_ren'45'cong_132 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'cong_132 = erased @@ -242,16 +242,16 @@ d_ren'45'cong_132 = erased d_ren'45'cong'45'List_142 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'cong'45'List_142 = erased @@ -259,38 +259,38 @@ d_ren'45'cong'45'List_142 = erased d_ren'45'cong'45'VecList_154 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'cong'45'VecList_154 = erased -- Type.RenamingSubstitution.ren-id d_ren'45'id_216 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'id_216 = erased -- Type.RenamingSubstitution.ren-id-List d_ren'45'id'45'List_220 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'id'45'List_220 = erased -- Type.RenamingSubstitution.ren-id-VecList d_ren'45'id'45'VecList_226 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -300,14 +300,14 @@ d_ext'45'comp_266 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ext'45'comp_266 = erased @@ -316,13 +316,13 @@ d_ren'45'comp_274 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'comp_274 = erased @@ -331,13 +331,13 @@ d_ren'45'comp'45'List_280 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'comp'45'List_280 = erased @@ -346,14 +346,14 @@ d_ren'45'comp'45'VecList_288 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'comp'45'VecList_288 = erased @@ -366,21 +366,21 @@ d_Sub_322 = erased d_exts_336 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20 d_exts_336 ~v0 v1 v2 v3 v4 v5 = du_exts_336 v1 v2 v3 v4 v5 du_exts_336 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20 du_exts_336 v0 v1 v2 v3 v4 @@ -394,10 +394,10 @@ du_exts_336 v0 v1 v2 v3 v4 d_sub_346 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 d_sub_346 v0 v1 v2 v3 v4 @@ -410,19 +410,19 @@ d_sub_346 v0 v1 v2 v3 v4 (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v0) (coe v6)) (coe MAlonzo.Code.Type.C__'44''8902'__6 (coe v1) (coe v6)) (coe du_exts_336 (coe v1) (coe v2) (coe v6)) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v7)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7)) MAlonzo.Code.Type.C__'8658'__26 v6 v7 -> coe MAlonzo.Code.Type.C__'8658'__26 (d_sub_346 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6)) (d_sub_346 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_770) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7)) MAlonzo.Code.Type.C_ƛ_28 v8 -> case coe v3 of - MAlonzo.Code.Utils.C__'8658'__774 v9 v10 + MAlonzo.Code.Utils.C__'8658'__782 v9 v10 -> coe MAlonzo.Code.Type.C_ƛ_28 (d_sub_346 @@ -435,7 +435,7 @@ d_sub_346 v0 v1 v2 v3 v4 MAlonzo.Code.Type.C__'183'__30 v6 (d_sub_346 (coe v0) (coe v1) (coe v2) - (coe MAlonzo.Code.Utils.C__'8658'__774 (coe v6) (coe v3)) (coe v8)) + (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v6) (coe v3)) (coe v8)) (d_sub_346 (coe v0) (coe v1) (coe v2) (coe v6) (coe v9)) MAlonzo.Code.Type.C_μ_32 v6 v7 v8 -> coe @@ -443,13 +443,13 @@ d_sub_346 v0 v1 v2 v3 v4 (d_sub_346 (coe v0) (coe v1) (coe v2) (coe - MAlonzo.Code.Utils.C__'8658'__774 + MAlonzo.Code.Utils.C__'8658'__782 (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770)) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778)) (coe - MAlonzo.Code.Utils.C__'8658'__774 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_770))) + MAlonzo.Code.Utils.C__'8658'__782 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_778))) (coe v7)) (d_sub_346 (coe v0) (coe v1) (coe v2) (coe v6) (coe v8)) MAlonzo.Code.Type.C_'94'_34 v7 @@ -458,23 +458,23 @@ d_sub_346 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.Type.C_con_36 (d_sub_346 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'9839'_772) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v6)) MAlonzo.Code.Type.C_SOP_40 v6 v7 -> coe MAlonzo.Code.Type.C_SOP_40 v6 (coe du_sub'45'VecList_356 (coe v0) (coe v1) (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_770) (coe v7)) + (coe MAlonzo.Code.Utils.C_'42'_778) (coe v7)) _ -> MAlonzo.RTE.mazUnreachableError -- Type.RenamingSubstitution.sub-List d_sub'45'List_350 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> [MAlonzo.Code.Type.T__'8866''8902'__20] d_sub'45'List_350 v0 v1 v2 v3 v4 @@ -491,11 +491,11 @@ d_sub'45'List_350 v0 v1 v2 v3 v4 d_sub'45'VecList_356 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 d_sub'45'VecList_356 v0 v1 v2 ~v3 v4 v5 @@ -503,10 +503,10 @@ d_sub'45'VecList_356 v0 v1 v2 ~v3 v4 v5 du_sub'45'VecList_356 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 du_sub'45'VecList_356 v0 v1 v2 v3 v4 @@ -523,22 +523,22 @@ du_sub'45'VecList_356 v0 v1 v2 v3 v4 d_sub'45'cons_420 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20 d_sub'45'cons_420 ~v0 ~v1 v2 ~v3 v4 v5 v6 = du_sub'45'cons_420 v2 v4 v5 v6 du_sub'45'cons_420 :: - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20 du_sub'45'cons_420 v0 v1 v2 v3 @@ -549,8 +549,8 @@ du_sub'45'cons_420 v0 v1 v2 v3 -- Type.RenamingSubstitution._[_] d__'91'_'93'_432 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 @@ -565,8 +565,8 @@ d__'91'_'93'_432 v0 v1 v2 v3 v4 -- Type.RenamingSubstitution.exts-id d_exts'45'id_440 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_exts'45'id_440 = erased @@ -574,17 +574,17 @@ d_exts'45'id_440 = erased d_exts'45'cong_454 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_exts'45'cong_454 = erased @@ -592,16 +592,16 @@ d_exts'45'cong_454 = erased d_sub'45'cong_470 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'cong_470 = erased @@ -609,16 +609,16 @@ d_sub'45'cong_470 = erased d_sub'45'cong'45'List_480 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'cong'45'List_480 = erased @@ -626,38 +626,38 @@ d_sub'45'cong'45'List_480 = erased d_sub'45'cong'45'VecList_492 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'cong'45'VecList_492 = erased -- Type.RenamingSubstitution.sub-id d_sub'45'id_554 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'id_554 = erased -- Type.RenamingSubstitution.sub-id-List d_sub'45'id'45'List_558 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'id'45'List_558 = erased -- Type.RenamingSubstitution.sub-id-VecList d_sub'45'id'45'VecList_564 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -667,14 +667,14 @@ d_exts'45'ext_604 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_exts'45'ext_604 = erased @@ -683,13 +683,13 @@ d_sub'45'ren_612 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'ren_612 = erased @@ -698,13 +698,13 @@ d_sub'45'ren'45'List_618 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'ren'45'List_618 = erased @@ -713,14 +713,14 @@ d_sub'45'ren'45'VecList_626 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'ren'45'VecList_626 = erased @@ -729,14 +729,14 @@ d_ren'45'ext'45'exts_666 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'ext'45'exts_666 = erased @@ -745,13 +745,13 @@ d_ren'45'sub_674 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'sub_674 = erased @@ -760,13 +760,13 @@ d_ren'45'sub'45'List_680 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'sub'45'List_680 = erased @@ -775,14 +775,14 @@ d_ren'45'sub'45'VecList_688 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_ren'45'sub'45'VecList_688 = erased @@ -791,14 +791,14 @@ d_extscomp_728 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_extscomp_728 = erased @@ -807,13 +807,13 @@ d_sub'45'comp_738 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'comp_738 = erased @@ -822,13 +822,13 @@ d_sub'45'com'45'List_744 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'com'45'List_744 = erased @@ -837,14 +837,14 @@ d_sub'45'com'45'VecList_752 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> Integer -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'com'45'VecList_752 = erased @@ -852,9 +852,9 @@ d_sub'45'com'45'VecList_752 = erased d_ren'45'sub'45'cons_792 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -865,9 +865,9 @@ d_ren'45'sub'45'cons_792 = erased d_sub'45'sub'45'cons_810 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -878,8 +878,8 @@ d_sub'45'sub'45'cons_810 = erased d_ren'45'μ_828 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -889,12 +889,12 @@ d_ren'45'μ_828 = erased -- Type.RenamingSubstitution.ren-Π d_ren'45'Π_844 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -903,8 +903,8 @@ d_ren'45'Π_844 = erased d_sub'45'μ_858 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Type.T__'8866''8902'__20 -> @@ -914,21 +914,21 @@ d_sub'45'μ_858 = erased -- Type.RenamingSubstitution.sub-Π d_sub'45'Π_874 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sub'45'Π_874 = erased -- Type.RenamingSubstitution.sub-∅ d_sub'45''8709'_886 :: - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -936,7 +936,7 @@ d_sub'45''8709'_886 = erased -- Type.RenamingSubstitution.sub∅ d_sub'8709'_896 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 d_sub'8709'_896 v0 v1 v2 @@ -947,9 +947,9 @@ d_sub'8709'_896 v0 v1 v2 d_sub'8709''45'ren_906 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -958,9 +958,9 @@ d_sub'8709''45'ren_906 = erased d_sub'8709''45'sub_918 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_768 -> + MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 @@ -970,7 +970,7 @@ d_lookup'45'ren'45'VecList_932 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> @@ -982,7 +982,7 @@ d_lookup'45'sub'45'VecList_950 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> - (MAlonzo.Code.Utils.T_Kind_768 -> + (MAlonzo.Code.Utils.T_Kind_776 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped.hs index 3221586d027..09f74645bd5 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped.hs @@ -49,7 +49,7 @@ data T__'8866'_14 C_builtin_44 MAlonzo.Code.Builtin.T_Builtin_2 | C_error_46 -- Untyped.uglyDATA d_uglyDATA_64 :: - MAlonzo.Code.Utils.T_DATA_610 -> + MAlonzo.Code.Utils.T_DATA_618 -> 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 @@ -107,7 +107,7 @@ d_uglyTmCon_68 v0 -> coe ("(array [ something ])" :: Data.Text.Text) MAlonzo.Code.Builtin.Signature.C_pair_24 v4 v5 -> case coe v2 of - MAlonzo.Code.Utils.C__'44'__442 v6 v7 + MAlonzo.Code.Utils.C__'44'__450 v6 v7 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("(pair (" :: Data.Text.Text) @@ -129,18 +129,18 @@ d_uglyTmCon_68 v0 -- Untyped.uglyTmConList d_uglyTmConList_72 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> MAlonzo.Code.Agda.Builtin.String.T_String_6 d_uglyTmConList_72 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 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe ("" :: Data.Text.Text) + MAlonzo.Code.Utils.C__'8759'__460 v2 v3 -> case coe v3 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe d_uglyTmCon_68 (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v0) (coe v2)) - MAlonzo.Code.Utils.C__'8759'__452 v4 v5 + MAlonzo.Code.Utils.C__'8759'__460 v4 v5 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (d_uglyTmCon_68 @@ -287,13 +287,13 @@ du_extG_166 v0 v1 d_extricateUList_176 :: Integer -> [T__'8866'_14] -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.RawU.T_Untyped_208 + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.RawU.T_Untyped_208 d_extricateUList_176 v0 v1 = case coe v1 of - [] -> coe MAlonzo.Code.Utils.C_'91''93'_450 + [] -> coe MAlonzo.Code.Utils.C_'91''93'_458 (:) v2 v3 -> coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_extricateU_180 (coe v0) (coe v2)) (coe d_extricateUList_176 (coe v0) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError @@ -334,12 +334,12 @@ d_extricateU_180 v0 v1 [] -> coe MAlonzo.Code.RawU.C_UConstr_226 (coe v2) - (coe MAlonzo.Code.Utils.C_'91''93'_450) + (coe MAlonzo.Code.Utils.C_'91''93'_458) (:) v4 v5 -> coe MAlonzo.Code.RawU.C_UConstr_226 (coe v2) (coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe d_extricateU_180 (coe v0) (coe v4)) (coe d_extricateUList_176 (coe v0) (coe v5))) _ -> MAlonzo.RTE.mazUnreachableError @@ -381,22 +381,22 @@ du_extG''_220 v0 v1 _ -> let v2 = subInt (coe v1) (coe (1 :: Integer)) in coe (coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16) (coe v0 v2)) -- Untyped.scopeCheckUList d_scopeCheckUList_230 :: Integer -> - MAlonzo.Code.Utils.T_List_446 MAlonzo.Code.RawU.T_Untyped_208 -> + MAlonzo.Code.Utils.T_List_454 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 = case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) - MAlonzo.Code.Utils.C__'8759'__452 v2 v3 + MAlonzo.Code.Utils.C__'8759'__460 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe d_scopeCheckU_234 (coe v0) (coe v2)) @@ -422,16 +422,16 @@ d_scopeCheckU_234 v0 v1 = case coe v1 of MAlonzo.Code.RawU.C_UVar_210 v2 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_'96'_18) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_'96'_18) (coe - MAlonzo.Code.Utils.du_maybeToEither_86 + MAlonzo.Code.Utils.du_maybeToEither_94 (coe MAlonzo.Code.Scoped.C_deBError_578) - (MAlonzo.Code.Utils.d_natToFin_110 (coe v0) (coe v2))) + (MAlonzo.Code.Utils.d_natToFin_118 (coe v0) (coe v2))) MAlonzo.Code.RawU.C_ULambda_212 v2 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_ƛ_20) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_ƛ_20) (coe d_scopeCheckU_234 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) @@ -460,18 +460,18 @@ d_scopeCheckU_234 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_builtin_44 (coe v2)) MAlonzo.Code.RawU.C_UDelay_222 v2 -> coe - MAlonzo.Code.Utils.du_fmap_284 - (coe MAlonzo.Code.Utils.du_EitherP_336) (coe C_delay_26) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_delay_26) (coe d_scopeCheckU_234 (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) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_force_24) (coe d_scopeCheckU_234 (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)) + MAlonzo.Code.Utils.du_fmap_292 + (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_constr_34 (coe v2)) (coe d_scopeCheckUList_230 (coe v0) (coe v3)) MAlonzo.Code.RawU.C_UCase_228 v2 v3 -> coe diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/CEK.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/CEK.hs index 34cb6e0d8b9..288bed482df 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped/CEK.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/CEK.hs @@ -51,11 +51,11 @@ data T_Value_14 MAlonzo.Code.Untyped.T__'8866'_14 | C_V'45'constr_60 Integer T_Stack_6 | C_V'45'I'8658'_74 MAlonzo.Code.Builtin.T_Builtin_2 Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 Integer Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 T_BApp_42 | + MAlonzo.Code.Utils.T__'8724'_'8803'__188 Integer Integer + MAlonzo.Code.Utils.T__'8724'_'8803'__188 T_BApp_42 | C_V'45'IΠ_90 MAlonzo.Code.Builtin.T_Builtin_2 Integer Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 Integer Integer - MAlonzo.Code.Utils.T__'8724'_'8803'__180 T_BApp_42 + MAlonzo.Code.Utils.T__'8724'_'8803'__188 Integer Integer + MAlonzo.Code.Utils.T__'8724'_'8803'__188 T_BApp_42 -- Untyped.CEK.Env d_Env_16 a0 = () data T_Env_16 = C_'91''93'_18 | C__'8759'__22 T_Env_16 T_Value_14 @@ -125,24 +125,24 @@ d_dischargeB_142 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> T_BApp_42 -> MAlonzo.Code.Untyped.T__'8866'_14 d_dischargeB_142 v0 ~v1 ~v2 v3 ~v4 ~v5 v6 v7 = du_dischargeB_142 v0 v3 v6 v7 du_dischargeB_142 :: MAlonzo.Code.Builtin.T_Builtin_2 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> T_BApp_42 -> MAlonzo.Code.Untyped.T__'8866'_14 du_dischargeB_142 v0 v1 v2 v3 = case coe v3 of C_base_94 -> coe MAlonzo.Code.Untyped.C_builtin_44 (coe v0) C_app_106 v9 v10 -> case coe v2 of - MAlonzo.Code.Utils.C_bubble_192 v14 + MAlonzo.Code.Utils.C_bubble_200 v14 -> coe MAlonzo.Code.Untyped.C__'183'__22 (coe du_dischargeB_142 (coe v0) (coe v1) (coe v14) (coe v9)) @@ -150,7 +150,7 @@ du_dischargeB_142 v0 v1 v2 v3 _ -> MAlonzo.RTE.mazUnreachableError C_app'8902'_120 v10 -> case coe v1 of - MAlonzo.Code.Utils.C_bubble_192 v14 + MAlonzo.Code.Utils.C_bubble_200 v14 -> coe MAlonzo.Code.Untyped.C_force_24 (coe du_dischargeB_142 (coe v0) (coe v14) (coe v2) (coe v10)) @@ -209,10 +209,10 @@ d_V'45'I_258 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> T_BApp_42 -> T_Value_14 + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> T_BApp_42 -> T_Value_14 d_V'45'I_258 v0 v1 v2 v3 v4 v5 v6 v7 = case coe v2 of 0 -> coe @@ -231,7 +231,7 @@ d_BUILTIN_278 :: MAlonzo.Code.Builtin.T_Builtin_2 -> T_BApp_42 -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_410 T_Value_14 + MAlonzo.Code.Utils.T_RuntimeError_418 T_Value_14 d_BUILTIN_278 v0 = case coe v0 of MAlonzo.Code.Builtin.C_addInteger_4 @@ -240,28 +240,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -303,28 +303,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -366,28 +366,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -429,28 +429,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -476,7 +476,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414)) + MAlonzo.Code.Utils.C_userError_422)) (coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -503,28 +503,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -550,7 +550,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414)) + MAlonzo.Code.Utils.C_userError_422)) (coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -577,28 +577,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -624,7 +624,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414)) + MAlonzo.Code.Utils.C_userError_422)) (coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -651,28 +651,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -698,7 +698,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414)) + MAlonzo.Code.Utils.C_userError_422)) (coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -725,28 +725,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -803,28 +803,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -881,28 +881,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -959,28 +959,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -1020,28 +1020,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -1077,7 +1077,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v19 _ -> coe v19 @@ -1094,28 +1094,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_app_106 v24 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v24 of C_base_94 @@ -1123,7 +1123,7 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_V'45'con_50 v28 v29 @@ -1184,21 +1184,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -1228,28 +1228,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -1315,7 +1315,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414)) + MAlonzo.Code.Utils.C_userError_422)) _ -> MAlonzo.RTE.mazUnreachableError)) else coe seq @@ -1324,7 +1324,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414)) + MAlonzo.Code.Utils.C_userError_422)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v19 _ -> coe v19 @@ -1341,28 +1341,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -1403,28 +1403,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -1465,28 +1465,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -1527,21 +1527,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -1570,21 +1570,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -1613,21 +1613,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -1656,28 +1656,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_app_106 v24 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v24 of C_base_94 @@ -1685,7 +1685,7 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_V'45'con_50 v28 v29 @@ -1734,7 +1734,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v27 @@ -1760,28 +1760,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_app_106 v24 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v24 of C_base_94 @@ -1789,7 +1789,7 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_V'45'con_50 v28 v29 @@ -1838,7 +1838,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v27 @@ -1864,28 +1864,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_app_106 v24 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v24 of C_base_94 @@ -1893,7 +1893,7 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_V'45'con_50 v28 v29 @@ -1942,7 +1942,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v27 @@ -1968,28 +1968,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -2029,28 +2029,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -2091,21 +2091,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -2135,21 +2135,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -2177,7 +2177,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v11 _ -> coe v11 @@ -2190,14 +2190,14 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 @@ -2234,14 +2234,14 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 @@ -2273,14 +2273,14 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 @@ -2312,28 +2312,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app'8902'_120 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_app'8902'_120 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_base_94 @@ -2341,14 +2341,14 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v28 v29 -> case coe v28 of MAlonzo.Code.Builtin.Signature.C_pair_24 v31 v32 -> case coe v29 of - MAlonzo.Code.Utils.C__'44'__442 v33 v34 + MAlonzo.Code.Utils.C__'44'__450 v33 v34 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -2368,28 +2368,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app'8902'_120 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_app'8902'_120 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_base_94 @@ -2397,14 +2397,14 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v28 v29 -> case coe v28 of MAlonzo.Code.Builtin.Signature.C_pair_24 v31 v32 -> case coe v29 of - MAlonzo.Code.Utils.C__'44'__442 v33 v34 + MAlonzo.Code.Utils.C__'44'__450 v33 v34 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -2424,14 +2424,14 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 @@ -2448,11 +2448,11 @@ d_BUILTIN_278 v0 -> case coe v39 of MAlonzo.Code.Builtin.Signature.C_list_16 v42 -> case coe v40 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v17) - MAlonzo.Code.Utils.C__'8759'__452 v43 v44 + MAlonzo.Code.Utils.C__'8759'__460 v43 v44 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v9) @@ -2471,14 +2471,14 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 @@ -2511,7 +2511,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_list_16 v25) (coe - MAlonzo.Code.Utils.C__'8759'__452 + MAlonzo.Code.Utils.C__'8759'__460 (coe v26) (coe @@ -2522,7 +2522,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414)) + MAlonzo.Code.Utils.C_userError_422)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v10 _ -> coe v10 @@ -2537,35 +2537,35 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app'8902'_120 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v20 v21 -> case coe v20 of MAlonzo.Code.Builtin.Signature.C_list_16 v23 -> case coe v21 of - MAlonzo.Code.Utils.C__'8759'__452 v24 v25 + MAlonzo.Code.Utils.C__'8759'__460 v24 v25 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -2583,35 +2583,35 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app'8902'_120 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v20 v21 -> case coe v20 of MAlonzo.Code.Builtin.Signature.C_list_16 v23 -> case coe v21 of - MAlonzo.Code.Utils.C__'8759'__452 v24 v25 + MAlonzo.Code.Utils.C__'8759'__460 v24 v25 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -2632,35 +2632,35 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app'8902'_120 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v20 v21 -> case coe v20 of MAlonzo.Code.Builtin.Signature.C_list_16 v23 -> case coe v21 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -2671,7 +2671,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) (coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10)) - MAlonzo.Code.Utils.C__'8759'__452 v24 v25 + MAlonzo.Code.Utils.C__'8759'__460 v24 v25 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -2694,28 +2694,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app'8902'_120 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v20 v21 @@ -2730,7 +2730,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)) (coe - MAlonzo.Code.Utils.d_HSlengthOfArray_598 + MAlonzo.Code.Utils.d_HSlengthOfArray_606 erased v21)) _ -> coe v19 _ -> coe v19) @@ -2743,28 +2743,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app'8902'_120 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v20 v21 @@ -2778,7 +2778,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_array_20 v23) (coe - MAlonzo.Code.Utils.d_HSlistToArray_602 + MAlonzo.Code.Utils.d_HSlistToArray_610 erased v21)) _ -> coe v19 _ -> coe v19) @@ -2791,14 +2791,14 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 @@ -2838,7 +2838,7 @@ d_BUILTIN_278 v0 (coe v30) (coe - MAlonzo.Code.Utils.d_HSlengthOfArray_598 + MAlonzo.Code.Utils.d_HSlengthOfArray_606 erased v26) in coe @@ -2858,7 +2858,7 @@ d_BUILTIN_278 v0 (coe v28) (coe - MAlonzo.Code.Utils.d_HSindexArray_604 + MAlonzo.Code.Utils.d_HSindexArray_612 erased v26 v30))) @@ -2869,7 +2869,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414)) + MAlonzo.Code.Utils.C_userError_422)) _ -> MAlonzo.RTE.mazUnreachableError)) else coe seq @@ -2878,7 +2878,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414)) + MAlonzo.Code.Utils.C_userError_422)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v10 _ -> coe v10 @@ -2895,14 +2895,14 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 @@ -2927,27 +2927,27 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 -> case coe v54 of - MAlonzo.Code.Utils.C_ConstrDATA_612 v57 v58 + MAlonzo.Code.Utils.C_ConstrDATA_620 v57 v58 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v38) - MAlonzo.Code.Utils.C_MapDATA_614 v57 + MAlonzo.Code.Utils.C_MapDATA_622 v57 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v31) - MAlonzo.Code.Utils.C_ListDATA_616 v57 + MAlonzo.Code.Utils.C_ListDATA_624 v57 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v24) - MAlonzo.Code.Utils.C_iDATA_618 v57 + MAlonzo.Code.Utils.C_iDATA_626 v57 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v17) - MAlonzo.Code.Utils.C_bDATA_620 v57 + MAlonzo.Code.Utils.C_bDATA_628 v57 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -2971,28 +2971,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -3017,7 +3017,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v29) (coe - MAlonzo.Code.Utils.C_ConstrDATA_612 + MAlonzo.Code.Utils.C_ConstrDATA_620 (coe v21) (coe @@ -3039,21 +3039,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3077,7 +3077,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v22) (coe - MAlonzo.Code.Utils.C_MapDATA_614 + MAlonzo.Code.Utils.C_MapDATA_622 (coe v13))) _ -> coe v11 @@ -3095,21 +3095,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3127,7 +3127,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v17) (coe - MAlonzo.Code.Utils.C_ListDATA_616 + MAlonzo.Code.Utils.C_ListDATA_624 (coe v13))) _ -> coe v11 _ -> coe v11 @@ -3141,21 +3141,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3172,7 +3172,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)) (coe - MAlonzo.Code.Utils.C_iDATA_618 + MAlonzo.Code.Utils.C_iDATA_626 (coe v13))) _ -> coe v11 _ -> coe v11 @@ -3185,21 +3185,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3216,7 +3216,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)) (coe - MAlonzo.Code.Utils.C_bDATA_620 + MAlonzo.Code.Utils.C_bDATA_628 (coe v13))) _ -> coe v11 _ -> coe v11 @@ -3229,21 +3229,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3252,7 +3252,7 @@ d_BUILTIN_278 v0 -> case coe v15 of MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 -> case coe v13 of - MAlonzo.Code.Utils.C_ConstrDATA_612 v16 v17 + MAlonzo.Code.Utils.C_ConstrDATA_620 v16 v17 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -3269,7 +3269,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v15))) (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe v16) (coe v17))) _ -> coe v11 _ -> coe v11 @@ -3283,21 +3283,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3306,7 +3306,7 @@ d_BUILTIN_278 v0 -> case coe v15 of MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 -> case coe v13 of - MAlonzo.Code.Utils.C_MapDATA_614 v16 + MAlonzo.Code.Utils.C_MapDATA_622 v16 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -3334,21 +3334,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3357,7 +3357,7 @@ d_BUILTIN_278 v0 -> case coe v15 of MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 -> case coe v13 of - MAlonzo.Code.Utils.C_ListDATA_616 v16 + MAlonzo.Code.Utils.C_ListDATA_624 v16 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -3380,21 +3380,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3403,7 +3403,7 @@ d_BUILTIN_278 v0 -> case coe v15 of MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 -> case coe v13 of - MAlonzo.Code.Utils.C_iDATA_618 v16 + MAlonzo.Code.Utils.C_iDATA_626 v16 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -3425,21 +3425,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3448,7 +3448,7 @@ d_BUILTIN_278 v0 -> case coe v15 of MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 -> case coe v13 of - MAlonzo.Code.Utils.C_bDATA_620 v16 + MAlonzo.Code.Utils.C_bDATA_628 v16 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -3470,28 +3470,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -3514,7 +3514,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) (coe - MAlonzo.Code.Utils.d_eqDATA_622 + MAlonzo.Code.Utils.d_eqDATA_630 (coe v21) (coe @@ -3534,21 +3534,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3578,28 +3578,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -3626,7 +3626,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27)) (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe v21) (coe @@ -3646,21 +3646,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3681,7 +3681,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))) (coe - MAlonzo.Code.Utils.C_'91''93'_450))) + MAlonzo.Code.Utils.C_'91''93'_458))) _ -> coe v11 _ -> coe v11 _ -> coe v11) @@ -3693,21 +3693,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3734,7 +3734,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) (coe - MAlonzo.Code.Utils.C_'91''93'_450))) + MAlonzo.Code.Utils.C_'91''93'_458))) _ -> coe v11 _ -> coe v11 _ -> coe v11) @@ -3746,28 +3746,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -3807,21 +3807,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -3850,28 +3850,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -3911,28 +3911,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -3973,28 +3973,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -4031,7 +4031,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v19 _ -> coe v19 @@ -4048,21 +4048,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -4092,21 +4092,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -4134,7 +4134,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v11 _ -> coe v11 @@ -4147,28 +4147,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -4208,21 +4208,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -4251,28 +4251,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -4312,28 +4312,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -4374,28 +4374,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -4432,7 +4432,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v19 _ -> coe v19 @@ -4449,21 +4449,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -4493,21 +4493,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -4535,7 +4535,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v11 _ -> coe v11 @@ -4548,28 +4548,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -4610,28 +4610,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -4671,28 +4671,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -4733,21 +4733,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -4776,21 +4776,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -4819,28 +4819,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -4881,28 +4881,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_app_106 v24 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v24 of C_base_94 @@ -4910,7 +4910,7 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_V'45'con_50 v28 v29 @@ -4959,7 +4959,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v27 @@ -4985,28 +4985,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_app_106 v24 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v24 of C_base_94 @@ -5014,7 +5014,7 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_V'45'con_50 v28 v29 @@ -5075,28 +5075,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_app_106 v24 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v24 of C_base_94 @@ -5104,7 +5104,7 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_V'45'con_50 v28 v29 @@ -5165,28 +5165,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_app_106 v24 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v24 of C_base_94 @@ -5194,7 +5194,7 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_V'45'con_50 v28 v29 @@ -5255,21 +5255,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -5298,28 +5298,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -5356,7 +5356,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v19 _ -> coe v19 @@ -5373,28 +5373,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_app_106 v24 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v24 of C_base_94 @@ -5402,7 +5402,7 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_V'45'con_50 v28 v29 @@ -5435,7 +5435,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.d_writeBITS_406 v29 (coe - MAlonzo.Code.Utils.du_toList_504 + MAlonzo.Code.Utils.du_toList_512 (coe v33)) v39 in @@ -5456,7 +5456,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v27 @@ -5484,28 +5484,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -5542,7 +5542,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v19 _ -> coe v19 @@ -5559,28 +5559,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -5620,28 +5620,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -5681,21 +5681,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -5725,21 +5725,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -5769,21 +5769,21 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_base_94 -> let v11 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v9 of C_V'45'con_50 v12 v13 @@ -5812,28 +5812,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_app_106 v24 v25 -> let v26 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v24 of C_base_94 @@ -5841,7 +5841,7 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) in + MAlonzo.Code.Utils.C_userError_422) in coe (case coe v25 of C_V'45'con_50 v28 v29 @@ -5889,7 +5889,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v27 @@ -5915,14 +5915,14 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 @@ -5948,7 +5948,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_list_16 v32) (coe - MAlonzo.Code.Utils.du_dropLIST_520 + MAlonzo.Code.Utils.du_dropLIST_528 (coe v26) (coe @@ -5968,28 +5968,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -6013,11 +6013,11 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'multiScalarMul_422 (coe - MAlonzo.Code.Utils.du_toList_504 + MAlonzo.Code.Utils.du_toList_512 (coe v21)) (coe - MAlonzo.Code.Utils.du_toList_504 + MAlonzo.Code.Utils.du_toList_512 (coe v27)) in coe @@ -6037,7 +6037,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v19 @@ -6058,28 +6058,28 @@ d_BUILTIN_278 v0 let v2 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v1 of C_app_106 v8 v9 -> let v10 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v8 of C_app_106 v16 v17 -> let v18 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v16 of C_base_94 -> let v19 = coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_userError_414) in + (coe MAlonzo.Code.Utils.C_userError_422) in coe (case coe v17 of C_V'45'con_50 v20 v21 @@ -6103,11 +6103,11 @@ d_BUILTIN_278 v0 = coe MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'multiScalarMul_424 (coe - MAlonzo.Code.Utils.du_toList_504 + MAlonzo.Code.Utils.du_toList_512 (coe v21)) (coe - MAlonzo.Code.Utils.du_toList_504 + MAlonzo.Code.Utils.du_toList_512 (coe v27)) in coe @@ -6127,7 +6127,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe - MAlonzo.Code.Utils.C_userError_414) + MAlonzo.Code.Utils.C_userError_422) _ -> MAlonzo.RTE.mazUnreachableError) _ -> coe v19 @@ -6147,9 +6147,9 @@ d_BUILTIN_278 v0 d_mkFullyAppliedBuiltin_930 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> T_BApp_42 -> T_BApp_42 + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> T_BApp_42 -> T_BApp_42 d_mkFullyAppliedBuiltin_930 ~v0 ~v1 ~v2 ~v3 ~v4 v5 = du_mkFullyAppliedBuiltin_930 v5 du_mkFullyAppliedBuiltin_930 :: T_BApp_42 -> T_BApp_42 @@ -6158,18 +6158,18 @@ du_mkFullyAppliedBuiltin_930 v0 = coe v0 d_BUILTIN''_974 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> T_BApp_42 -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_410 T_Value_14 + MAlonzo.Code.Utils.T_RuntimeError_418 T_Value_14 d_BUILTIN''_974 v0 ~v1 ~v2 ~v3 ~v4 v5 = du_BUILTIN''_974 v0 v5 du_BUILTIN''_974 :: MAlonzo.Code.Builtin.T_Builtin_2 -> T_BApp_42 -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_410 T_Value_14 + MAlonzo.Code.Utils.T_RuntimeError_418 T_Value_14 du_BUILTIN''_974 v0 v1 = coe d_BUILTIN_278 v0 v1 -- Untyped.CEK.ival d_ival_980 :: MAlonzo.Code.Builtin.T_Builtin_2 -> T_Value_14 @@ -6179,7 +6179,7 @@ d_ival_980 v0 (coe MAlonzo.Code.Builtin.Signature.d_fv_96 (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))) - (coe MAlonzo.Code.Utils.C_start_184) (coe (0 :: Integer)) + (coe MAlonzo.Code.Utils.C_start_192) (coe (0 :: Integer)) (coe MAlonzo.Code.Data.List.Base.du_foldr_216 (let v1 = \ v1 -> addInt (coe (1 :: Integer)) (coe v1) in @@ -6190,7 +6190,7 @@ d_ival_980 v0 (coe MAlonzo.Code.Builtin.Signature.d_args_86 (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))))) - (coe MAlonzo.Code.Utils.C_start_184) (coe C_base_94) + (coe MAlonzo.Code.Utils.C_start_192) (coe C_base_94) -- Untyped.CEK.pushValueFrames d_pushValueFrames_984 :: T_Stack_6 -> T_Stack_6 -> T_Stack_6 d_pushValueFrames_984 v0 v1 @@ -6322,7 +6322,7 @@ d_step_1042 v0 (coe d_V'45'I_258 (coe v6) (coe v7) (coe (0 :: Integer)) (coe v8) (coe addInt (coe (1 :: Integer)) (coe v9)) - (coe v13) (coe MAlonzo.Code.Utils.C_bubble_192 v11) + (coe v13) (coe MAlonzo.Code.Utils.C_bubble_200 v11) (coe C_app_106 v12 v2))) C_V'45'IΠ_90 v6 v7 v8 v9 v10 v11 v12 v13 -> coe C_'9670'_228 _ -> MAlonzo.RTE.mazUnreachableError @@ -6342,7 +6342,7 @@ d_step_1042 v0 (coe d_V'45'I_258 (coe v5) (coe addInt (coe (1 :: Integer)) (coe v6)) (coe v7) - (coe MAlonzo.Code.Utils.C_bubble_192 v8) (coe v9) (coe v10) + (coe MAlonzo.Code.Utils.C_bubble_200 v8) (coe v9) (coe v10) (coe v11) (coe C_app'8902'_120 v12)) _ -> MAlonzo.RTE.mazUnreachableError C_constr'45'_210 v5 v6 v7 v8 v9 @@ -6387,12 +6387,12 @@ d_stepper_1284 :: Integer -> T_State_218 -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_410 T_State_218 + MAlonzo.Code.Utils.T_RuntimeError_418 T_State_218 d_stepper_1284 v0 v1 = case coe v0 of 0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_gasError_412) + (coe MAlonzo.Code.Utils.C_gasError_420) _ -> let v2 = subInt (coe v0) (coe (1 :: Integer)) in coe (let v3 = d_step_1042 (coe v1) in diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/CEKWithCost.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/CEKWithCost.hs index 4aaf1f16586..ae10d28fcf1 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped/CEKWithCost.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/CEKWithCost.hs @@ -37,15 +37,15 @@ d_spend_28 :: () -> MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> MAlonzo.Code.Cost.Base.T_StepKind_6 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 d_spend_28 ~v0 v1 v2 = du_spend_28 v1 v2 du_spend_28 :: MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> MAlonzo.Code.Cost.Base.T_StepKind_6 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 du_spend_28 v0 v1 = coe - MAlonzo.Code.Utils.du_tell_406 + MAlonzo.Code.Utils.du_tell_414 (coe MAlonzo.Code.Cost.Base.d_cekMachineCost_58 v0 (coe MAlonzo.Code.Cost.Base.C_BStep_36 (coe v1))) @@ -53,14 +53,14 @@ du_spend_28 v0 v1 d_spendStartupCost_32 :: () -> MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 d_spendStartupCost_32 ~v0 v1 = du_spendStartupCost_32 v1 du_spendStartupCost_32 :: MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 du_spendStartupCost_32 v0 = coe - MAlonzo.Code.Utils.du_tell_406 + MAlonzo.Code.Utils.du_tell_414 (coe MAlonzo.Code.Cost.Base.du_startupCost_66 (coe v0)) -- Untyped.CEKWithCost.extractConstants d_extractConstants_48 :: @@ -69,17 +69,17 @@ d_extractConstants_48 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> Integer -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Untyped.CEK.T_BApp_42 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 d_extractConstants_48 ~v0 ~v1 ~v2 ~v3 ~v4 v5 ~v6 ~v7 v8 v9 = du_extractConstants_48 v5 v8 v9 du_extractConstants_48 :: - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> - MAlonzo.Code.Utils.T__'8724'_'8803'__180 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Untyped.CEK.T_BApp_42 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 du_extractConstants_48 v0 v1 v2 @@ -88,14 +88,14 @@ du_extractConstants_48 v0 v1 v2 -> coe MAlonzo.Code.Data.Vec.Base.C_'91''93'_32 MAlonzo.Code.Untyped.CEK.C_app_106 v8 v9 -> case coe v1 of - MAlonzo.Code.Utils.C_bubble_192 v13 + MAlonzo.Code.Utils.C_bubble_200 v13 -> coe MAlonzo.Code.Data.Vec.Base.C__'8759'__38 v9 (coe du_extractConstants_48 (coe v0) (coe v13) (coe v8)) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Untyped.CEK.C_app'8902'_120 v9 -> case coe v0 of - MAlonzo.Code.Utils.C_bubble_192 v13 + MAlonzo.Code.Utils.C_bubble_200 v13 -> coe du_extractConstants_48 (coe v13) (coe v1) (coe v9) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -105,16 +105,16 @@ d_spendBuiltin_58 :: MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Untyped.CEK.T_BApp_42 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 d_spendBuiltin_58 ~v0 v1 v2 v3 = du_spendBuiltin_58 v1 v2 v3 du_spendBuiltin_58 :: MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Untyped.CEK.T_BApp_42 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 du_spendBuiltin_58 v0 v1 v2 = coe - MAlonzo.Code.Utils.du_tell_406 + MAlonzo.Code.Utils.du_tell_414 (coe MAlonzo.Code.Cost.Base.d_cekMachineCost_58 v0 (coe @@ -138,12 +138,12 @@ du_argsizes_68 v0 v1 (coe du_extractConstants_48 (coe - MAlonzo.Code.Utils.d_alldone_240 + MAlonzo.Code.Utils.d_alldone_248 (coe MAlonzo.Code.Builtin.Signature.d_fv_96 (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0)))) (coe - MAlonzo.Code.Utils.d_alldone_240 + MAlonzo.Code.Utils.d_alldone_248 (coe MAlonzo.Code.Builtin.Signature.d_args'9839'_92 (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0)))) @@ -153,41 +153,41 @@ d_stepC_70 :: () -> MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> MAlonzo.Code.Untyped.CEK.T_State_218 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 d_stepC_70 ~v0 v1 v2 = du_stepC_70 v1 v2 du_stepC_70 :: MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> MAlonzo.Code.Untyped.CEK.T_State_218 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 du_stepC_70 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 v2 v3 v4 v5 -> case coe v5 of MAlonzo.Code.Untyped.C_'96'_18 v6 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spend_28 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BVar_10)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe v3) (coe MAlonzo.Code.Untyped.CEK.du_lookup_232 (coe v4) (coe v6))) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0))) MAlonzo.Code.Untyped.C_ƛ_20 v6 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spend_28 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BLamAbs_12)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe v3) (coe @@ -195,14 +195,14 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0))) MAlonzo.Code.Untyped.C__'183'__22 v6 v7 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spend_28 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BApply_14)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 (coe v2) (coe @@ -214,14 +214,14 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0))) MAlonzo.Code.Untyped.C_force_24 v6 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spend_28 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BForce_18)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 (coe v2) (coe @@ -231,14 +231,14 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0))) MAlonzo.Code.Untyped.C_delay_26 v6 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spend_28 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BDelay_16)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe v3) (coe @@ -249,14 +249,14 @@ du_stepC_70 v0 v1 -> case coe v6 of MAlonzo.Code.RawU.C_tmCon_206 v7 v8 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spend_28 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BConst_8)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe v3) (coe MAlonzo.Code.Untyped.CEK.C_V'45'con_50 (coe v7) (coe v8))) @@ -266,15 +266,15 @@ du_stepC_70 v0 v1 -> case coe v7 of [] -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spend_28 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BConstr_22)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe v3) (coe @@ -283,15 +283,15 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0))) (:) v8 v9 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spend_28 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BConstr_22)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 (coe v2) (coe @@ -304,14 +304,14 @@ du_stepC_70 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Untyped.C_case_40 v6 v7 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spend_28 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BCase_24)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 (coe v2) (coe @@ -323,22 +323,22 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0))) MAlonzo.Code.Untyped.C_builtin_44 v6 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spend_28 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BBuiltin_20)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe v3) (coe MAlonzo.Code.Untyped.CEK.d_ival_980 (coe v6))) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0))) MAlonzo.Code.Untyped.C_error_46 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) _ -> MAlonzo.RTE.mazUnreachableError @@ -346,14 +346,14 @@ du_stepC_70 v0 v1 -> case coe v2 of MAlonzo.Code.Untyped.CEK.C_ε_10 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9633'_226 (coe v3)) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C__'44'__12 v4 v5 -> case coe v5 of MAlonzo.Code.Untyped.CEK.C_'45''183'_200 v6 v7 v8 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 (coe v6) (coe @@ -363,7 +363,7 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_'45''183'v_202 v6 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe @@ -375,7 +375,7 @@ du_stepC_70 v0 v1 -> case coe v6 of MAlonzo.Code.Untyped.CEK.C_V'45'ƛ_46 v7 v8 v9 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 (coe addInt (coe (1 :: Integer)) (coe v7)) (coe v4) @@ -383,32 +383,32 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'con_50 v7 v8 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'delay_54 v7 v8 v9 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'constr_60 v7 v8 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'I'8658'_74 v7 v8 v9 v10 v11 v12 v13 -> case coe v11 of 0 -> coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spendBuiltin_58 (coe v0) (coe v7) (coe MAlonzo.Code.Untyped.CEK.C_app_106 v13 v3)) (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Utils.du_either_22 (coe @@ -423,7 +423,7 @@ du_stepC_70 v0 v1 _ -> let v14 = subInt (coe v11) (coe (1 :: Integer)) in coe (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe v4) (coe @@ -431,12 +431,12 @@ du_stepC_70 v0 v1 (coe v8) (coe (0 :: Integer)) (coe v9) (coe addInt (coe (1 :: Integer)) (coe v10)) (coe v14) - (coe MAlonzo.Code.Utils.C_bubble_192 v12) + (coe MAlonzo.Code.Utils.C_bubble_200 v12) (coe MAlonzo.Code.Untyped.CEK.C_app_106 v13 v3))) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0))) MAlonzo.Code.Untyped.CEK.C_V'45'IΠ_90 v7 v8 v9 v10 v11 v12 v13 v14 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) _ -> MAlonzo.RTE.mazUnreachableError @@ -444,12 +444,12 @@ du_stepC_70 v0 v1 -> case coe v3 of MAlonzo.Code.Untyped.CEK.C_V'45'ƛ_46 v6 v7 v8 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'con_50 v6 v7 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'delay_54 v6 v7 v8 @@ -460,23 +460,23 @@ du_stepC_70 v0 v1 (coe v7) (coe v8)) MAlonzo.Code.Untyped.CEK.C_V'45'constr_60 v6 v7 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'I'8658'_74 v6 v7 v8 v9 v10 v11 v12 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'IΠ_90 v6 v7 v8 v9 v10 v11 v12 v13 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe v4) (coe MAlonzo.Code.Untyped.CEK.d_V'45'I_258 (coe v6) (coe addInt (coe (1 :: Integer)) (coe v7)) (coe v8) - (coe MAlonzo.Code.Utils.C_bubble_192 v9) (coe v10) (coe v11) + (coe MAlonzo.Code.Utils.C_bubble_200 v9) (coe v10) (coe v11) (coe v12) (coe MAlonzo.Code.Untyped.CEK.C_app'8902'_120 v13))) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) @@ -485,7 +485,7 @@ du_stepC_70 v0 v1 -> case coe v10 of [] -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe v4) (coe @@ -495,7 +495,7 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (:) v11 v12 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 (coe v6) (coe @@ -514,22 +514,22 @@ du_stepC_70 v0 v1 -> case coe v3 of MAlonzo.Code.Untyped.CEK.C_V'45'ƛ_46 v9 v10 v11 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'con_50 v9 v10 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'delay_54 v9 v10 v11 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'constr_60 v9 v10 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Data.Maybe.Base.du_maybe_32 (coe @@ -545,12 +545,12 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'I'8658'_74 v9 v10 v11 v12 v13 v14 v15 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_V'45'IΠ_90 v9 v10 v11 v12 v13 v14 v15 v16 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) _ -> MAlonzo.RTE.mazUnreachableError @@ -558,11 +558,11 @@ du_stepC_70 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Untyped.CEK.C_'9633'_226 v2 -> coe - MAlonzo.Code.Utils.C__'44'__380 (coe v1) + MAlonzo.Code.Utils.C__'44'__388 (coe v1) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_'9670'_228 -> coe - MAlonzo.Code.Utils.C__'44'__380 (coe v1) + MAlonzo.Code.Utils.C__'44'__388 (coe v1) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.CEKWithCost.stepperC-internal @@ -571,42 +571,42 @@ d_stepperC'45'internal_314 :: MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> Integer -> MAlonzo.Code.Untyped.CEK.T_State_218 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 d_stepperC'45'internal_314 ~v0 v1 v2 v3 = du_stepperC'45'internal_314 v1 v2 v3 du_stepperC'45'internal_314 :: MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> Integer -> MAlonzo.Code.Untyped.CEK.T_State_218 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 du_stepperC'45'internal_314 v0 v1 v2 = case coe v1 of 0 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Utils.C_inj'8321'_12 - (coe MAlonzo.Code.Utils.C_gasError_412)) + (coe MAlonzo.Code.Utils.C_gasError_420)) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) _ -> let v3 = subInt (coe v1) (coe (1 :: Integer)) in coe (coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe - MAlonzo.Code.Utils.d_wrvalue_376 + MAlonzo.Code.Utils.d_wrvalue_384 (coe du_go_328 (coe v0) (coe v3) (coe - MAlonzo.Code.Utils.d_wrvalue_376 + MAlonzo.Code.Utils.d_wrvalue_384 (coe du_stepC_70 (coe v0) (coe v2))))) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 v0 - (MAlonzo.Code.Utils.d_accum_378 + (MAlonzo.Code.Utils.d_accum_386 (coe du_stepC_70 (coe v0) (coe v2))) - (MAlonzo.Code.Utils.d_accum_378 + (MAlonzo.Code.Utils.d_accum_386 (coe du_go_328 (coe v0) (coe v3) (coe - MAlonzo.Code.Utils.d_wrvalue_376 + MAlonzo.Code.Utils.d_wrvalue_384 (coe du_stepC_70 (coe v0) (coe v2))))))) -- Untyped.CEKWithCost._.go d_go_328 :: @@ -615,13 +615,13 @@ d_go_328 :: Integer -> MAlonzo.Code.Untyped.CEK.T_State_218 -> MAlonzo.Code.Untyped.CEK.T_State_218 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 d_go_328 ~v0 v1 v2 ~v3 v4 = du_go_328 v1 v2 v4 du_go_328 :: MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> Integer -> MAlonzo.Code.Untyped.CEK.T_State_218 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 du_go_328 v0 v1 v2 = let v3 = coe du_stepperC'45'internal_314 (coe v0) (coe v1) (coe v2) in @@ -629,12 +629,12 @@ du_go_328 v0 v1 v2 (case coe v2 of MAlonzo.Code.Untyped.CEK.C_'9633'_226 v4 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v2)) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) MAlonzo.Code.Untyped.CEK.C_'9670'_228 -> coe - MAlonzo.Code.Utils.C__'44'__380 + MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v2)) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) _ -> coe v3) @@ -644,18 +644,18 @@ d_stepperC_338 :: MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> Integer -> MAlonzo.Code.Untyped.CEK.T_State_218 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 d_stepperC_338 ~v0 v1 v2 v3 = du_stepperC_338 v1 v2 v3 du_stepperC_338 :: MAlonzo.Code.Cost.Base.T_MachineParameters_46 -> Integer -> MAlonzo.Code.Untyped.CEK.T_State_218 -> - MAlonzo.Code.Utils.T_Writer_366 + MAlonzo.Code.Utils.T_Writer_374 du_stepperC_338 v0 v1 v2 = coe - MAlonzo.Code.Utils.du__'62''62'__274 + MAlonzo.Code.Utils.du__'62''62'__282 (coe - MAlonzo.Code.Utils.du_WriterMonad_390 + MAlonzo.Code.Utils.du_WriterMonad_398 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0)) (coe MAlonzo.Code.Cost.Base.d__'8729'__62 (coe v0))) (coe du_spendStartupCost_32 (coe v0)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Equality.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Equality.hs index cdd407bbba3..a888882de79 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped/Equality.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Equality.hs @@ -87,8 +87,8 @@ d_eqArray_46 :: forall xA. () -> T_HasEq_20 xA -> - MAlonzo.Code.Utils.T_Array_594 xA -> - MAlonzo.Code.Utils.T_Array_594 xA -> Bool + MAlonzo.Code.Utils.T_Array_602 xA -> + MAlonzo.Code.Utils.T_Array_602 xA -> Bool d_eqArray_46 = \ _ HasEq -> (==) -- Untyped.Equality.decEq-TmCon d_decEq'45'TmCon_48 :: @@ -151,7 +151,7 @@ d_decEq'45''10214'_'10215'tag_52 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 -> coe MAlonzo.Code.Data.Integer.Properties.d__'8799'__2800 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 - -> coe du_builtinEq_416 (coe d_HsEqBytestring_356) + -> coe du_builtinEq_420 (coe d_HsEqBytestring_360) MAlonzo.Code.Builtin.Constant.AtomicType.C_aString_12 -> coe MAlonzo.Code.Data.String.Properties.d__'8799'__54 MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14 @@ -160,44 +160,44 @@ d_decEq'45''10214'_'10215'tag_52 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16 -> coe MAlonzo.Code.Data.Bool.Properties.d__'8799'__3196 MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 - -> coe du_builtinEq_416 (coe d_HsEqDATA_390) + -> coe du_builtinEq_420 (coe d_HsEqDATA_394) MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 - -> coe du_builtinEq_416 (coe d_HsEqBlsG1_384) + -> coe du_builtinEq_420 (coe d_HsEqBlsG1_388) MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 - -> coe du_builtinEq_416 (coe d_HsEqBlsG2_386) + -> coe du_builtinEq_420 (coe d_HsEqBlsG2_390) MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 - -> coe du_builtinEq_416 (coe d_HsEqBlsMlResult_388) + -> coe du_builtinEq_420 (coe d_HsEqBlsMlResult_392) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.Signature.C_list_16 v2 -> coe (\ v3 -> case coe v3 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> coe (\ v4 -> case coe v4 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> 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 erased) - MAlonzo.Code.Utils.C__'8759'__452 v5 v6 + MAlonzo.Code.Utils.C__'8759'__460 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.RTE.mazUnreachableError) - MAlonzo.Code.Utils.C__'8759'__452 v4 v5 + MAlonzo.Code.Utils.C__'8759'__460 v4 v5 -> coe (\ v6 -> case coe v6 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> 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.Utils.C__'8759'__452 v7 v8 + MAlonzo.Code.Utils.C__'8759'__460 v7 v8 -> let v9 = coe d_decEq'45''10214'_'10215'tag_52 v2 v4 v7 in coe (case coe v9 of @@ -243,16 +243,16 @@ d_decEq'45''10214'_'10215'tag_52 v0 _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError) MAlonzo.Code.Builtin.Signature.C_array_20 v2 - -> coe du_decEq'45'Array'45''10214'_'10215'tag_458 + -> coe du_decEq'45'Array'45''10214'_'10215'tag_462 MAlonzo.Code.Builtin.Signature.C_pair_24 v2 v3 -> coe (\ v4 -> case coe v4 of - MAlonzo.Code.Utils.C__'44'__442 v5 v6 + MAlonzo.Code.Utils.C__'44'__450 v5 v6 -> coe (\ v7 -> case coe v7 of - MAlonzo.Code.Utils.C__'44'__442 v8 v9 + MAlonzo.Code.Utils.C__'44'__450 v8 v9 -> let v10 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 @@ -1227,74 +1227,82 @@ d_DecEq'45'ℤ_164 = coe C_constructor_14 (coe MAlonzo.Code.Data.Integer.Properties.d__'8799'__2800) +-- Untyped.Equality.DecEq-Fin +d_DecEq'45'Fin_168 :: Integer -> T_DecEq_6 +d_DecEq'45'Fin_168 ~v0 = du_DecEq'45'Fin_168 +du_DecEq'45'Fin_168 :: T_DecEq_6 +du_DecEq'45'Fin_168 + = coe + C_constructor_14 + (coe MAlonzo.Code.Data.Fin.Properties.du__'8799'__50) -- Untyped.Equality.DecEq-String -d_DecEq'45'String_166 :: T_DecEq_6 -d_DecEq'45'String_166 +d_DecEq'45'String_170 :: T_DecEq_6 +d_DecEq'45'String_170 = coe C_constructor_14 (coe MAlonzo.Code.Data.String.Properties.d__'8799'__54) -- Untyped.Equality.DecEq-Unit -d_DecEq'45'Unit_168 :: T_DecEq_6 -d_DecEq'45'Unit_168 +d_DecEq'45'Unit_172 :: T_DecEq_6 +d_DecEq'45'Unit_172 = coe C_constructor_14 (\ v0 v1 -> coe MAlonzo.Code.Data.Unit.Properties.du__'8799'__8) -- Untyped.Equality.DecEq-Bool -d_DecEq'45'Bool_170 :: T_DecEq_6 -d_DecEq'45'Bool_170 +d_DecEq'45'Bool_174 :: T_DecEq_6 +d_DecEq'45'Bool_174 = coe C_constructor_14 (coe MAlonzo.Code.Data.Bool.Properties.d__'8799'__3196) -- Untyped.Equality.DecEq-TyTag -d_DecEq'45'TyTag_172 :: T_DecEq_6 -d_DecEq'45'TyTag_172 +d_DecEq'45'TyTag_176 :: T_DecEq_6 +d_DecEq'45'TyTag_176 = coe C_constructor_14 (coe MAlonzo.Code.RawU.d_decTyTag_68) -- Untyped.Equality.DecEq-⟦_⟧tag -d_DecEq'45''10214'_'10215'tag_176 :: +d_DecEq'45''10214'_'10215'tag_180 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> T_DecEq_6 -d_DecEq'45''10214'_'10215'tag_176 v0 +d_DecEq'45''10214'_'10215'tag_180 v0 = coe C_constructor_14 (coe d_decEq'45''10214'_'10215'tag_52 (coe v0)) -- Untyped.Equality.listDec -d_listDec_182 :: +d_listDec_186 :: () -> (AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_listDec_182 ~v0 v1 v2 v3 = du_listDec_182 v1 v2 v3 -du_listDec_182 :: +d_listDec_186 ~v0 v1 v2 v3 = du_listDec_186 v1 v2 v3 +du_listDec_186 :: (AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_listDec_182 v0 v1 v2 +du_listDec_186 v0 v1 v2 = case coe v1 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> 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 erased) - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C__'8759'__460 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.RTE.mazUnreachableError - MAlonzo.Code.Utils.C__'8759'__452 v3 v4 + MAlonzo.Code.Utils.C__'8759'__460 v3 v4 -> case coe v2 of - MAlonzo.Code.Utils.C_'91''93'_450 + MAlonzo.Code.Utils.C_'91''93'_458 -> 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.Utils.C__'8759'__452 v5 v6 + MAlonzo.Code.Utils.C__'8759'__460 v5 v6 -> let v7 = coe v0 v3 v5 in coe (case coe v7 of @@ -1302,7 +1310,7 @@ du_listDec_182 v0 v1 v2 -> if coe v8 then coe seq (coe v9) - (let v10 = coe du_listDec_182 (coe v0) (coe v4) (coe v6) in + (let v10 = coe du_listDec_186 (coe v0) (coe v4) (coe v6) in coe (case coe v10 of MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v11 v12 @@ -1333,7 +1341,7 @@ du_listDec_182 v0 v1 v2 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.Equality..extendedlambda2 -d_'46'extendedlambda2_218 :: +d_'46'extendedlambda2_222 :: () -> (AgdaAny -> AgdaAny -> @@ -1342,27 +1350,27 @@ d_'46'extendedlambda2_218 :: AgdaAny -> (MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda2_218 = erased +d_'46'extendedlambda2_222 = erased -- Untyped.Equality..extendedlambda3 -d_'46'extendedlambda3_246 :: +d_'46'extendedlambda3_250 :: () -> (AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> (MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda3_246 = erased +d_'46'extendedlambda3_250 = erased -- Untyped.Equality.pairDec -d_pairDec_262 :: +d_pairDec_266 :: () -> () -> (AgdaAny -> @@ -1371,25 +1379,25 @@ d_pairDec_262 :: (AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> - MAlonzo.Code.Utils.T__'215'__428 AgdaAny AgdaAny -> - MAlonzo.Code.Utils.T__'215'__428 AgdaAny AgdaAny -> + MAlonzo.Code.Utils.T__'215'__436 AgdaAny AgdaAny -> + MAlonzo.Code.Utils.T__'215'__436 AgdaAny AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_pairDec_262 ~v0 ~v1 v2 v3 v4 v5 = du_pairDec_262 v2 v3 v4 v5 -du_pairDec_262 :: +d_pairDec_266 ~v0 ~v1 v2 v3 v4 v5 = du_pairDec_266 v2 v3 v4 v5 +du_pairDec_266 :: (AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> (AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> - MAlonzo.Code.Utils.T__'215'__428 AgdaAny AgdaAny -> - MAlonzo.Code.Utils.T__'215'__428 AgdaAny AgdaAny -> + MAlonzo.Code.Utils.T__'215'__436 AgdaAny AgdaAny -> + MAlonzo.Code.Utils.T__'215'__436 AgdaAny AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_pairDec_262 v0 v1 v2 v3 +du_pairDec_266 v0 v1 v2 v3 = case coe v2 of - MAlonzo.Code.Utils.C__'44'__442 v4 v5 + MAlonzo.Code.Utils.C__'44'__450 v4 v5 -> case coe v3 of - MAlonzo.Code.Utils.C__'44'__442 v6 v7 + MAlonzo.Code.Utils.C__'44'__450 v6 v7 -> let v8 = coe v0 v4 v6 in coe (let v9 = coe v1 v5 v7 in @@ -1457,7 +1465,7 @@ du_pairDec_262 v0 v1 v2 v3 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.Equality..extendedlambda4 -d_'46'extendedlambda4_306 :: +d_'46'extendedlambda4_310 :: () -> () -> (AgdaAny -> @@ -1475,9 +1483,9 @@ d_'46'extendedlambda4_306 :: MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda4_306 = erased +d_'46'extendedlambda4_310 = erased -- Untyped.Equality..extendedlambda5 -d_'46'extendedlambda5_322 :: +d_'46'extendedlambda5_326 :: () -> () -> (AgdaAny -> @@ -1495,30 +1503,30 @@ d_'46'extendedlambda5_322 :: MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda5_322 = erased +d_'46'extendedlambda5_326 = erased -- Untyped.Equality.DecEq-UList -d_DecEq'45'UList_328 :: () -> T_DecEq_6 -> T_DecEq_6 -d_DecEq'45'UList_328 ~v0 v1 = du_DecEq'45'UList_328 v1 -du_DecEq'45'UList_328 :: T_DecEq_6 -> T_DecEq_6 -du_DecEq'45'UList_328 v0 +d_DecEq'45'UList_332 :: () -> T_DecEq_6 -> T_DecEq_6 +d_DecEq'45'UList_332 ~v0 v1 = du_DecEq'45'UList_332 v1 +du_DecEq'45'UList_332 :: T_DecEq_6 -> T_DecEq_6 +du_DecEq'45'UList_332 v0 = coe - C_constructor_14 (coe du_listDec_182 (coe d__'8799'__12 (coe v0))) + C_constructor_14 (coe du_listDec_186 (coe d__'8799'__12 (coe v0))) -- Untyped.Equality.DecEq-Pair -d_DecEq'45'Pair_340 :: +d_DecEq'45'Pair_344 :: () -> () -> T_DecEq_6 -> T_DecEq_6 -> T_DecEq_6 -d_DecEq'45'Pair_340 ~v0 ~v1 v2 v3 = du_DecEq'45'Pair_340 v2 v3 -du_DecEq'45'Pair_340 :: T_DecEq_6 -> T_DecEq_6 -> T_DecEq_6 -du_DecEq'45'Pair_340 v0 v1 +d_DecEq'45'Pair_344 ~v0 ~v1 v2 v3 = du_DecEq'45'Pair_344 v2 v3 +du_DecEq'45'Pair_344 :: T_DecEq_6 -> T_DecEq_6 -> T_DecEq_6 +du_DecEq'45'Pair_344 v0 v1 = coe C_constructor_14 (coe - du_pairDec_262 (coe d__'8799'__12 (coe v0)) + du_pairDec_266 (coe d__'8799'__12 (coe v0)) (coe d__'8799'__12 (coe v1))) -- Untyped.Equality.fromDec -d_fromDec_350 :: () -> T_DecEq_6 -> T_HsEq_28 -d_fromDec_350 ~v0 v1 = du_fromDec_350 v1 -du_fromDec_350 :: T_DecEq_6 -> T_HsEq_28 -du_fromDec_350 v0 +d_fromDec_354 :: () -> T_DecEq_6 -> T_HsEq_28 +d_fromDec_354 ~v0 v1 = du_fromDec_354 v1 +du_fromDec_354 :: T_DecEq_6 -> T_HsEq_28 +du_fromDec_354 v0 = coe C_constructor_36 (coe @@ -1527,104 +1535,104 @@ du_fromDec_350 v0 MAlonzo.Code.Relation.Nullary.Decidable.Core.du_isYes_132 (coe d__'8799'__12 v0 v1 v2))) -- Untyped.Equality.HsEqBytestring -d_HsEqBytestring_356 :: T_HsEq_28 -d_HsEqBytestring_356 - = coe C_constructor_36 (coe MAlonzo.Code.Utils.d_eqByteString_422) +d_HsEqBytestring_360 :: T_HsEq_28 +d_HsEqBytestring_360 + = coe C_constructor_36 (coe MAlonzo.Code.Utils.d_eqByteString_430) -- Untyped.Equality.HsEqArray -d_HsEqArray_364 :: +d_HsEqArray_368 :: () -> T_HasEq_20 AgdaAny -> T_HsEq_28 -> T_HsEq_28 -d_HsEqArray_364 ~v0 ~v1 ~v2 = du_HsEqArray_364 -du_HsEqArray_364 :: T_HsEq_28 -du_HsEqArray_364 +d_HsEqArray_368 ~v0 ~v1 ~v2 = du_HsEqArray_368 +du_HsEqArray_368 :: T_HsEq_28 +du_HsEqArray_368 = coe C_constructor_36 (coe (\ v0 v1 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10)) -- Untyped.Equality.HsEqList -d_HsEqList_372 :: () -> T_DecEq_6 -> T_HsEq_28 -d_HsEqList_372 ~v0 v1 = du_HsEqList_372 v1 -du_HsEqList_372 :: T_DecEq_6 -> T_HsEq_28 -du_HsEqList_372 v0 - = coe du_fromDec_350 (coe du_DecEq'45'UList_328 (coe v0)) +d_HsEqList_376 :: () -> T_DecEq_6 -> T_HsEq_28 +d_HsEqList_376 ~v0 v1 = du_HsEqList_376 v1 +du_HsEqList_376 :: T_DecEq_6 -> T_HsEq_28 +du_HsEqList_376 v0 + = coe du_fromDec_354 (coe du_DecEq'45'UList_332 (coe v0)) -- Untyped.Equality.HsEqPair -d_HsEqPair_382 :: () -> () -> T_DecEq_6 -> T_DecEq_6 -> T_HsEq_28 -d_HsEqPair_382 ~v0 ~v1 v2 v3 = du_HsEqPair_382 v2 v3 -du_HsEqPair_382 :: T_DecEq_6 -> T_DecEq_6 -> T_HsEq_28 -du_HsEqPair_382 v0 v1 - = coe du_fromDec_350 (coe du_DecEq'45'Pair_340 (coe v0) (coe v1)) +d_HsEqPair_386 :: () -> () -> T_DecEq_6 -> T_DecEq_6 -> T_HsEq_28 +d_HsEqPair_386 ~v0 ~v1 v2 v3 = du_HsEqPair_386 v2 v3 +du_HsEqPair_386 :: T_DecEq_6 -> T_DecEq_6 -> T_HsEq_28 +du_HsEqPair_386 v0 v1 + = coe du_fromDec_354 (coe du_DecEq'45'Pair_344 (coe v0) (coe v1)) -- Untyped.Equality.HsEqBlsG1 -d_HsEqBlsG1_384 :: T_HsEq_28 -d_HsEqBlsG1_384 +d_HsEqBlsG1_388 :: T_HsEq_28 +d_HsEqBlsG1_388 = coe C_constructor_36 - (coe MAlonzo.Code.Utils.d_eqBls12'45'381'45'G1'45'Element_758) + (coe MAlonzo.Code.Utils.d_eqBls12'45'381'45'G1'45'Element_766) -- Untyped.Equality.HsEqBlsG2 -d_HsEqBlsG2_386 :: T_HsEq_28 -d_HsEqBlsG2_386 +d_HsEqBlsG2_390 :: T_HsEq_28 +d_HsEqBlsG2_390 = coe C_constructor_36 - (coe MAlonzo.Code.Utils.d_eqBls12'45'381'45'G2'45'Element_762) + (coe MAlonzo.Code.Utils.d_eqBls12'45'381'45'G2'45'Element_770) -- Untyped.Equality.HsEqBlsMlResult -d_HsEqBlsMlResult_388 :: T_HsEq_28 -d_HsEqBlsMlResult_388 +d_HsEqBlsMlResult_392 :: T_HsEq_28 +d_HsEqBlsMlResult_392 = coe C_constructor_36 - (coe MAlonzo.Code.Utils.d_eqBls12'45'381'45'MlResult_766) + (coe MAlonzo.Code.Utils.d_eqBls12'45'381'45'MlResult_774) -- Untyped.Equality.HsEqDATA -d_HsEqDATA_390 :: T_HsEq_28 -d_HsEqDATA_390 - = coe C_constructor_36 (coe MAlonzo.Code.Utils.d_eqDATA_622) +d_HsEqDATA_394 :: T_HsEq_28 +d_HsEqDATA_394 + = coe C_constructor_36 (coe MAlonzo.Code.Utils.d_eqDATA_630) -- Untyped.Equality.HsEq-⟦_⟧tag -d_HsEq'45''10214'_'10215'tag_394 :: +d_HsEq'45''10214'_'10215'tag_398 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> T_HsEq_28 -d_HsEq'45''10214'_'10215'tag_394 v0 +d_HsEq'45''10214'_'10215'tag_398 v0 = case coe v0 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v2 -> case coe v2 of MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 - -> coe du_fromDec_350 (coe d_DecEq'45'ℤ_164) + -> coe du_fromDec_354 (coe d_DecEq'45'ℤ_164) MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 - -> coe d_HsEqBytestring_356 + -> coe d_HsEqBytestring_360 MAlonzo.Code.Builtin.Constant.AtomicType.C_aString_12 - -> coe du_fromDec_350 (coe d_DecEq'45'String_166) + -> coe du_fromDec_354 (coe d_DecEq'45'String_170) MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14 - -> coe du_fromDec_350 (coe d_DecEq'45'Unit_168) + -> coe du_fromDec_354 (coe d_DecEq'45'Unit_172) MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16 - -> coe du_fromDec_350 (coe d_DecEq'45'Bool_170) + -> coe du_fromDec_354 (coe d_DecEq'45'Bool_174) MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 - -> coe d_HsEqDATA_390 + -> coe d_HsEqDATA_394 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 - -> coe d_HsEqBlsG1_384 + -> coe d_HsEqBlsG1_388 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 - -> coe d_HsEqBlsG2_386 + -> coe d_HsEqBlsG2_390 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 - -> coe d_HsEqBlsMlResult_388 + -> coe d_HsEqBlsMlResult_392 _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.Signature.C_list_16 v2 -> coe - du_HsEqList_372 (coe d_DecEq'45''10214'_'10215'tag_176 (coe v2)) + du_HsEqList_376 (coe d_DecEq'45''10214'_'10215'tag_180 (coe v2)) MAlonzo.Code.Builtin.Signature.C_array_20 v2 - -> coe du_HsEqArray_364 + -> coe du_HsEqArray_368 MAlonzo.Code.Builtin.Signature.C_pair_24 v2 v3 -> coe - du_HsEqPair_382 (coe d_DecEq'45''10214'_'10215'tag_176 (coe v2)) - (coe d_DecEq'45''10214'_'10215'tag_176 (coe v3)) + du_HsEqPair_386 (coe d_DecEq'45''10214'_'10215'tag_180 (coe v2)) + (coe d_DecEq'45''10214'_'10215'tag_180 (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.Equality.magicNeg -d_magicNeg_410 +d_magicNeg_414 = error "MAlonzo Runtime Error: postulate evaluated: Untyped.Equality.magicNeg" -- Untyped.Equality.builtinEq -d_builtinEq_416 :: +d_builtinEq_420 :: () -> T_HsEq_28 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_builtinEq_416 ~v0 v1 v2 v3 = du_builtinEq_416 v1 v2 v3 -du_builtinEq_416 :: +d_builtinEq_420 ~v0 v1 v2 v3 = du_builtinEq_420 v1 v2 v3 +du_builtinEq_420 :: T_HsEq_28 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_builtinEq_416 v0 v1 v2 +du_builtinEq_420 v0 v1 v2 = let v3 = coe d_hsEq_34 v0 v1 v2 in coe (if coe v3 @@ -1637,50 +1645,50 @@ du_builtinEq_416 v0 v1 v2 (coe v3) (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) -- Untyped.Equality.hsEqArrayHelper -d_hsEqArrayHelper_452 :: +d_hsEqArrayHelper_456 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> T_HsEq_28 -d_hsEqArrayHelper_452 ~v0 = du_hsEqArrayHelper_452 -du_hsEqArrayHelper_452 :: T_HsEq_28 -du_hsEqArrayHelper_452 = coe du_HsEqArray_364 +d_hsEqArrayHelper_456 ~v0 = du_hsEqArrayHelper_456 +du_hsEqArrayHelper_456 :: T_HsEq_28 +du_hsEqArrayHelper_456 = coe du_HsEqArray_368 -- Untyped.Equality.decEq-Array-⟦_⟧tag -d_decEq'45'Array'45''10214'_'10215'tag_458 :: +d_decEq'45'Array'45''10214'_'10215'tag_462 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> - MAlonzo.Code.Utils.T_Array_594 AgdaAny -> - MAlonzo.Code.Utils.T_Array_594 AgdaAny -> + MAlonzo.Code.Utils.T_Array_602 AgdaAny -> + MAlonzo.Code.Utils.T_Array_602 AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_decEq'45'Array'45''10214'_'10215'tag_458 ~v0 - = du_decEq'45'Array'45''10214'_'10215'tag_458 -du_decEq'45'Array'45''10214'_'10215'tag_458 :: - MAlonzo.Code.Utils.T_Array_594 AgdaAny -> - MAlonzo.Code.Utils.T_Array_594 AgdaAny -> +d_decEq'45'Array'45''10214'_'10215'tag_462 ~v0 + = du_decEq'45'Array'45''10214'_'10215'tag_462 +du_decEq'45'Array'45''10214'_'10215'tag_462 :: + MAlonzo.Code.Utils.T_Array_602 AgdaAny -> + MAlonzo.Code.Utils.T_Array_602 AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_decEq'45'Array'45''10214'_'10215'tag_458 - = coe du_builtinEq_416 (coe du_hsEqArrayHelper_452) +du_decEq'45'Array'45''10214'_'10215'tag_462 + = coe du_builtinEq_420 (coe du_hsEqArrayHelper_456) -- Untyped.Equality..extendedlambda6 -d_'46'extendedlambda6_502 :: +d_'46'extendedlambda6_506 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> AgdaAny -> AgdaAny -> (MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda6_502 = erased +d_'46'extendedlambda6_506 = erased -- Untyped.Equality..extendedlambda7 -d_'46'extendedlambda7_540 :: +d_'46'extendedlambda7_544 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> - MAlonzo.Code.Utils.T_List_446 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> (MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda7_540 = erased +d_'46'extendedlambda7_544 = erased -- Untyped.Equality..extendedlambda8 -d_'46'extendedlambda8_586 :: +d_'46'extendedlambda8_590 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> AgdaAny -> @@ -1691,9 +1699,9 @@ d_'46'extendedlambda8_586 :: MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda8_586 = erased +d_'46'extendedlambda8_590 = erased -- Untyped.Equality..extendedlambda9 -d_'46'extendedlambda9_610 :: +d_'46'extendedlambda9_614 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> (MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> @@ -1702,9 +1710,9 @@ d_'46'extendedlambda9_610 :: AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda9_610 = erased +d_'46'extendedlambda9_614 = erased -- Untyped.Equality..extendedlambda10 -d_'46'extendedlambda10_642 :: +d_'46'extendedlambda10_646 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> AgdaAny -> AgdaAny -> @@ -1712,9 +1720,9 @@ d_'46'extendedlambda10_642 :: MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda10_642 = erased +d_'46'extendedlambda10_646 = erased -- Untyped.Equality..extendedlambda11 -d_'46'extendedlambda11_662 :: +d_'46'extendedlambda11_666 :: Integer -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> @@ -1722,9 +1730,9 @@ d_'46'extendedlambda11_662 :: MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda11_662 = erased +d_'46'extendedlambda11_666 = erased -- Untyped.Equality..extendedlambda12 -d_'46'extendedlambda12_728 :: +d_'46'extendedlambda12_732 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -1732,9 +1740,9 @@ d_'46'extendedlambda12_728 :: MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda12_728 = erased +d_'46'extendedlambda12_732 = erased -- Untyped.Equality..extendedlambda13 -d_'46'extendedlambda13_808 :: +d_'46'extendedlambda13_812 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -1744,9 +1752,9 @@ d_'46'extendedlambda13_808 :: MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda13_808 = erased +d_'46'extendedlambda13_812 = erased -- Untyped.Equality..extendedlambda14 -d_'46'extendedlambda14_886 :: +d_'46'extendedlambda14_890 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -1754,9 +1762,9 @@ d_'46'extendedlambda14_886 :: MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda14_886 = erased +d_'46'extendedlambda14_890 = erased -- Untyped.Equality..extendedlambda15 -d_'46'extendedlambda15_950 :: +d_'46'extendedlambda15_954 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -1764,9 +1772,9 @@ d_'46'extendedlambda15_950 :: MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda15_950 = erased +d_'46'extendedlambda15_954 = erased -- Untyped.Equality..extendedlambda16 -d_'46'extendedlambda16_1014 :: +d_'46'extendedlambda16_1018 :: MAlonzo.Code.RawU.T_TmCon_202 -> MAlonzo.Code.RawU.T_TmCon_202 -> (MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> @@ -1774,9 +1782,9 @@ d_'46'extendedlambda16_1014 :: Integer -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda16_1014 = erased +d_'46'extendedlambda16_1018 = erased -- Untyped.Equality..extendedlambda17 -d_'46'extendedlambda17_1102 :: +d_'46'extendedlambda17_1106 :: Integer -> Integer -> [MAlonzo.Code.Untyped.T__'8866'_14] -> @@ -1786,9 +1794,9 @@ d_'46'extendedlambda17_1102 :: MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda17_1102 = erased +d_'46'extendedlambda17_1106 = erased -- Untyped.Equality..extendedlambda18 -d_'46'extendedlambda18_1198 :: +d_'46'extendedlambda18_1202 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> [MAlonzo.Code.Untyped.T__'8866'_14] -> @@ -1798,9 +1806,9 @@ d_'46'extendedlambda18_1198 :: MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda18_1198 = erased +d_'46'extendedlambda18_1202 = erased -- Untyped.Equality..extendedlambda19 -d_'46'extendedlambda19_1266 :: +d_'46'extendedlambda19_1270 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Builtin.T_Builtin_2 -> (MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> @@ -1808,4 +1816,4 @@ d_'46'extendedlambda19_1266 :: Integer -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda19_1266 = erased +d_'46'extendedlambda19_1270 = erased diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation.hs new file mode 100644 index 00000000000..a56247ed74c --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation.hs @@ -0,0 +1,360 @@ +{-# 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.Relation 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.Maybe +import qualified MAlonzo.Code.Agda.Builtin.Sigma +import qualified MAlonzo.Code.Builtin +import qualified MAlonzo.Code.Data.Fin.Base +import qualified MAlonzo.Code.RawU +import qualified MAlonzo.Code.Untyped +import qualified MAlonzo.Code.Untyped.Relation.Pointwise + +-- Untyped.Relation._+_ +d__'43'__10 a0 a1 a2 a3 a4 a5 = () +data T__'43'__10 = C_inl_24 AgdaAny | C_inr_32 AgdaAny +-- Untyped.Relation.Mu +d_Mu_36 a0 a1 a2 a3 = () +newtype T_Mu_36 = C_fix_46 AgdaAny +-- Untyped.Relation.Empty +d_Empty_48 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_Empty_48 = erased +-- Untyped.Relation.Const +d_Const_56 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_Const_56 = erased +-- Untyped.Relation.Refinement? +d_Refinement'63'_60 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_Refinement'63'_60 = erased +-- Untyped.Relation.refine? +d_refine'63'_74 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14 +d_refine'63'_74 v0 ~v1 v2 v3 = du_refine'63'_74 v0 v2 v3 +du_refine'63'_74 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14 +du_refine'63'_74 v0 v1 v2 + = let v3 = coe v1 v0 v2 in + coe + (case coe v3 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v4 + -> case coe v4 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v5 v6 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe v5) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe v3 + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.refine?-refines +d_refine'63''45'refines_98 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny +d_refine'63''45'refines_98 ~v0 v1 v2 v3 ~v4 ~v5 + = du_refine'63''45'refines_98 v1 v2 v3 +du_refine'63''45'refines_98 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +du_refine'63''45'refines_98 v0 v1 v2 + = let v3 = coe v0 v1 v2 in + coe + (case coe v3 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v4 + -> case coe v4 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v5 v6 -> coe v6 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation._<|>_ +d__'60''124''62'__124 :: + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d__'60''124''62'__124 ~v0 ~v1 ~v2 v3 v4 v5 v6 + = du__'60''124''62'__124 v3 v4 v5 v6 +du__'60''124''62'__124 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du__'60''124''62'__124 v0 v1 v2 v3 + = let v4 = coe v0 v2 v3 in + coe + (case coe v4 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v5 + -> case coe v5 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v6 v7 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v6) + (coe C_inl_24 v7)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> let v5 = coe v1 v2 v3 in + coe + (case coe v5 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v6 + -> case coe v6 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v7 v8 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v7) + (coe C_inr_32 v8)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe v5 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Equivalence +d_Equivalence_174 a0 = () +data T_Equivalence_174 + = C_constructor_190 (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny) + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny -> AgdaAny) + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) +-- Untyped.Relation.Equivalence.~-refl +d_'126''45'refl_184 :: + T_Equivalence_174 -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +d_'126''45'refl_184 v0 + = case coe v0 of + C_constructor_190 v1 v2 v3 -> coe v1 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Equivalence.~-trans +d_'126''45'trans_186 :: + T_Equivalence_174 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny -> AgdaAny +d_'126''45'trans_186 v0 + = case coe v0 of + C_constructor_190 v1 v2 v3 -> coe v2 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Equivalence.~-sym +d_'126''45'sym_188 :: + T_Equivalence_174 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny +d_'126''45'sym_188 v0 + = case coe v0 of + C_constructor_190 v1 v2 v3 -> coe v3 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.TermCompatible +d_TermCompatible_194 a0 = () +data T_TermCompatible_194 + = C_constructor_314 (Integer -> + MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny) + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) + (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 -> AgdaAny -> AgdaAny -> AgdaAny) + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) + (Integer -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.Relation.Pointwise.T_Pointwise_10 -> AgdaAny) + (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] -> + AgdaAny -> + MAlonzo.Code.Untyped.Relation.Pointwise.T_Pointwise_10 -> AgdaAny) + (MAlonzo.Code.RawU.T_TmCon_202 -> Integer -> AgdaAny) + (Integer -> MAlonzo.Code.Builtin.T_Builtin_2 -> AgdaAny) + (Integer -> AgdaAny) +-- Untyped.Relation.TermCompatible.compat-var +d_compat'45'var_260 :: + T_TermCompatible_194 -> + Integer -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny +d_compat'45'var_260 v0 + = case coe v0 of + C_constructor_314 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v1 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.TermCompatible.compat-ƛ +d_compat'45'ƛ_268 :: + T_TermCompatible_194 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny +d_compat'45'ƛ_268 v0 + = case coe v0 of + C_constructor_314 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v2 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.TermCompatible.compat-· +d_compat'45''183'_270 :: + T_TermCompatible_194 -> + 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 -> AgdaAny -> AgdaAny -> AgdaAny +d_compat'45''183'_270 v0 + = case coe v0 of + C_constructor_314 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v3 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.TermCompatible.compat-force +d_compat'45'force_272 :: + T_TermCompatible_194 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny +d_compat'45'force_272 v0 + = case coe v0 of + C_constructor_314 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v4 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.TermCompatible.compat-delay +d_compat'45'delay_274 :: + T_TermCompatible_194 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny +d_compat'45'delay_274 v0 + = case coe v0 of + C_constructor_314 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v5 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.TermCompatible.compat-constr +d_compat'45'constr_284 :: + T_TermCompatible_194 -> + Integer -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.Relation.Pointwise.T_Pointwise_10 -> AgdaAny +d_compat'45'constr_284 v0 + = case coe v0 of + C_constructor_314 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v6 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.TermCompatible.compat-case +d_compat'45'case_296 :: + T_TermCompatible_194 -> + 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] -> + AgdaAny -> + MAlonzo.Code.Untyped.Relation.Pointwise.T_Pointwise_10 -> AgdaAny +d_compat'45'case_296 v0 + = case coe v0 of + C_constructor_314 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v7 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.TermCompatible.compat-con +d_compat'45'con_302 :: + T_TermCompatible_194 -> + MAlonzo.Code.RawU.T_TmCon_202 -> Integer -> AgdaAny +d_compat'45'con_302 v0 + = case coe v0 of + C_constructor_314 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v8 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.TermCompatible.compat-builtin +d_compat'45'builtin_308 :: + T_TermCompatible_194 -> + Integer -> MAlonzo.Code.Builtin.T_Builtin_2 -> AgdaAny +d_compat'45'builtin_308 v0 + = case coe v0 of + C_constructor_314 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v9 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.TermCompatible.compat-error +d_compat'45'error_312 :: T_TermCompatible_194 -> Integer -> AgdaAny +d_compat'45'error_312 v0 + = case coe v0 of + C_constructor_314 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary.hs new file mode 100644 index 00000000000..a471b083b5b --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary.hs @@ -0,0 +1,20 @@ +{-# 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.Relation.Binary 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 + diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Core.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Core.hs new file mode 100644 index 00000000000..ae211745482 --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Core.hs @@ -0,0 +1,121 @@ +{-# 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.Relation.Binary.Core 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.Relation.Nullary.Decidable.Core +import qualified MAlonzo.Code.Relation.Nullary.Reflects +import qualified MAlonzo.Code.Untyped + +-- Untyped.Relation.Binary.Core.Relation +d_Relation_8 :: () +d_Relation_8 = erased +-- Untyped.Relation.Binary.Core.Relation* +d_Relation'42'_12 :: () +d_Relation'42'_12 = erased +-- Untyped.Relation.Binary.Core.Pointwise +d_Pointwise_20 a0 a1 a2 a3 = () +data T_Pointwise_20 + = C_'91''93'_26 | C__'8759'__36 AgdaAny T_Pointwise_20 +-- Untyped.Relation.Binary.Core.DecidableRel +d_DecidableRel_38 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_DecidableRel_38 = erased +-- Untyped.Relation.Binary.Core.pointwise? +d_pointwise'63'_56 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_pointwise'63'_56 ~v0 v1 v2 v3 v4 + = du_pointwise'63'_56 v1 v2 v3 v4 +du_pointwise'63'_56 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_pointwise'63'_56 v0 v1 v2 v3 + = case coe v2 of + [] + -> case coe v3 of + [] + -> 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_'91''93'_26)) + (:) v4 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.RTE.mazUnreachableError + (:) v4 v5 + -> case coe v3 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) + (:) v6 v7 + -> let v8 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v0 v1 v4 v6) + (coe du_pointwise'63'_56 (coe v0) (coe v1) (coe v5) (coe 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 + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C__'8759'__36 v12 v13)) + _ -> 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.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Modular.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Modular.hs new file mode 100644 index 00000000000..ebd8414add0 --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Modular.hs @@ -0,0 +1,3002 @@ +{-# 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.Relation.Binary.Modular 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.Maybe +import qualified MAlonzo.Code.Agda.Builtin.Sigma +import qualified MAlonzo.Code.Builtin +import qualified MAlonzo.Code.Data.Fin.Base +import qualified MAlonzo.Code.Data.Fin.Properties +import qualified MAlonzo.Code.Data.Irrelevant +import qualified MAlonzo.Code.Data.Nat.Properties +import qualified MAlonzo.Code.RawU +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.Equality +import qualified MAlonzo.Code.Untyped.Relation.Binary.Core +import qualified MAlonzo.Code.Untyped.Relation.Binary.Structures +import qualified MAlonzo.Code.VerifiedCompilation.UntypedViews + +-- Untyped.Relation.Binary.Modular.RelationT +d_RelationT_8 :: () +d_RelationT_8 = erased +-- Untyped.Relation.Binary.Modular._+_ +d__'43'__16 a0 a1 a2 a3 a4 a5 = () +data T__'43'__16 = C_inl_30 AgdaAny | C_inr_38 AgdaAny +-- Untyped.Relation.Binary.Modular.Empty +d_Empty_40 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_Empty_40 = erased +-- Untyped.Relation.Binary.Modular.Fix +d_Fix_50 a0 a1 a2 a3 = () +newtype T_Fix_50 = C_fix_60 AgdaAny +-- Untyped.Relation.Binary.Modular.Const +d_Const_62 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_Const_62 = erased +-- Untyped.Relation.Binary.Modular.Transitivity +d_Transitivity_68 a0 a1 a2 a3 = () +data T_Transitivity_68 + = C_transF_80 MAlonzo.Code.Untyped.T__'8866'_14 AgdaAny AgdaAny +-- Untyped.Relation.Binary.Modular.Symmetry +d_Symmetry_84 a0 a1 a2 a3 = () +newtype T_Symmetry_84 = C_symF_94 AgdaAny +-- Untyped.Relation.Binary.Modular.Reflexivity +d_Reflexivity_98 a0 a1 a2 a3 = () +data T_Reflexivity_98 = C_reflF_106 +-- Untyped.Relation.Binary.Modular.CompatVar +d_CompatVar_110 a0 a1 a2 a3 = () +data T_CompatVar_110 = C_'96'F__118 +-- Untyped.Relation.Binary.Modular.CompatLambda +d_CompatLambda_122 a0 a1 a2 a3 = () +newtype T_CompatLambda_122 = C_ƛF_132 AgdaAny +-- Untyped.Relation.Binary.Modular.CompatApply +d_CompatApply_136 a0 a1 a2 a3 = () +data T_CompatApply_136 = C__'183'F__150 AgdaAny AgdaAny +-- Untyped.Relation.Binary.Modular.CompatForce +d_CompatForce_154 a0 a1 a2 a3 = () +newtype T_CompatForce_154 = C_forceF_164 AgdaAny +-- Untyped.Relation.Binary.Modular.CompatDelay +d_CompatDelay_168 a0 a1 a2 a3 = () +newtype T_CompatDelay_168 = C_delayF_178 AgdaAny +-- Untyped.Relation.Binary.Modular.CompatCon +d_CompatCon_182 a0 a1 a2 a3 = () +data T_CompatCon_182 = C_conF_190 +-- Untyped.Relation.Binary.Modular.CompatConstr +d_CompatConstr_194 a0 a1 a2 a3 = () +newtype T_CompatConstr_194 + = C_constrF_206 MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 +-- Untyped.Relation.Binary.Modular.CompatCase +d_CompatCase_210 a0 a1 a2 a3 = () +data T_CompatCase_210 + = C_caseF_224 AgdaAny + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 +-- Untyped.Relation.Binary.Modular.CompatBuiltin +d_CompatBuiltin_228 a0 a1 a2 a3 = () +data T_CompatBuiltin_228 = C_builtinF_236 +-- Untyped.Relation.Binary.Modular.CompatError +d_CompatError_240 a0 a1 a2 a3 = () +data T_CompatError_240 = C_errorF_246 +-- Untyped.Relation.Binary.Modular.CompatTerm +d_CompatTerm_248 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_CompatTerm_248 = erased +-- Untyped.Relation.Binary.Modular.CompatTerm-TermCompatible +d_CompatTerm'45'TermCompatible_330 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> T__'43'__16 -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 +d_CompatTerm'45'TermCompatible_330 ~v0 v1 + = du_CompatTerm'45'TermCompatible_330 v1 +du_CompatTerm'45'TermCompatible_330 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> T__'43'__16 -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 +du_CompatTerm'45'TermCompatible_330 v0 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.C_constructor_150 + (coe + (\ v1 v2 -> + coe + v0 v1 (coe MAlonzo.Code.Untyped.C_'96'_18 (coe v2)) + (coe MAlonzo.Code.Untyped.C_'96'_18 (coe v2)) + (coe C_inl_30 (coe C_'96'F__118)))) + (coe + (\ v1 v2 v3 v4 -> + coe + v0 v1 (coe MAlonzo.Code.Untyped.C_ƛ_20 (coe v2)) + (coe MAlonzo.Code.Untyped.C_ƛ_20 (coe v3)) + (coe C_inr_38 (coe C_inl_30 (coe C_ƛF_132 v4))))) + (coe + (\ v1 v2 v3 v4 v5 v6 v7 -> + coe + v0 v1 (coe MAlonzo.Code.Untyped.C__'183'__22 (coe v2) (coe v4)) + (coe MAlonzo.Code.Untyped.C__'183'__22 (coe v3) (coe v5)) + (coe + C_inr_38 + (coe C_inr_38 (coe C_inl_30 (coe C__'183'F__150 v6 v7)))))) + (coe + (\ v1 v2 v3 v4 -> + coe + v0 v1 (coe MAlonzo.Code.Untyped.C_force_24 (coe v2)) + (coe MAlonzo.Code.Untyped.C_force_24 (coe v3)) + (coe + C_inr_38 + (coe + C_inr_38 (coe C_inr_38 (coe C_inl_30 (coe C_forceF_164 v4))))))) + (coe + (\ v1 v2 v3 v4 -> + coe + v0 v1 (coe MAlonzo.Code.Untyped.C_delay_26 (coe v2)) + (coe MAlonzo.Code.Untyped.C_delay_26 (coe v3)) + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 (coe C_inr_38 (coe C_inl_30 (coe C_delayF_178 v4)))))))) + (coe + (\ v1 v2 v3 v4 v5 -> + coe + v0 v1 (coe MAlonzo.Code.Untyped.C_constr_34 (coe v2) (coe v3)) + (coe MAlonzo.Code.Untyped.C_constr_34 (coe v2) (coe v4)) + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe C_inr_38 (coe C_inl_30 (coe C_constrF_206 v5)))))))))) + (coe + (\ v1 v2 v3 v4 v5 v6 v7 -> + coe + v0 v1 (coe MAlonzo.Code.Untyped.C_case_40 (coe v2) (coe v4)) + (coe MAlonzo.Code.Untyped.C_case_40 (coe v3) (coe v5)) + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe C_inr_38 (coe C_inl_30 (coe C_caseF_224 v6 v7))))))))))) + (coe + (\ v1 v2 -> + coe + v0 v2 (coe MAlonzo.Code.Untyped.C_con_28 (coe v1)) + (coe MAlonzo.Code.Untyped.C_con_28 (coe v1)) + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe C_inr_38 (coe C_inr_38 (coe C_inl_30 (coe C_conF_190))))))))) + (coe + (\ v1 v2 -> + coe + v0 v1 (coe MAlonzo.Code.Untyped.C_builtin_44 (coe v2)) + (coe MAlonzo.Code.Untyped.C_builtin_44 (coe v2)) + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe C_inr_38 (coe C_inl_30 (coe C_builtinF_236)))))))))))) + (coe + (\ v1 -> + coe + v0 v1 (coe MAlonzo.Code.Untyped.C_error_46) + (coe MAlonzo.Code.Untyped.C_error_46) + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe + C_inr_38 + (coe C_inr_38 (coe C_inl_30 (coe C_errorF_246))))))))))))) +-- Untyped.Relation.Binary.Modular.DecidableT +d_DecidableT_350 :: + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_DecidableT_350 = erased +-- Untyped.Relation.Binary.Modular._+-dec_ +d__'43''45'dec__360 :: + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d__'43''45'dec__360 ~v0 ~v1 v2 v3 v4 v5 v6 v7 v8 + = du__'43''45'dec__360 v2 v3 v4 v5 v6 v7 v8 +du__'43''45'dec__360 :: + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du__'43''45'dec__360 v0 v1 v2 v3 v4 v5 v6 + = let v7 = coe v0 v2 v3 v4 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 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_inl_30 v10)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v9) + (let v10 = coe v1 v2 v3 v4 v5 v6 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 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_inr_38 v13)) + _ -> 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) +-- Untyped.Relation.Binary.Modular.empty? +d_empty'63'_438 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_empty'63'_438 ~v0 ~v1 ~v2 ~v3 ~v4 = du_empty'63'_438 +du_empty'63'_438 :: + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_empty'63'_438 + = 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) +-- Untyped.Relation.Binary.Modular.Fix-dec +d_Fix'45'dec_448 :: + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_Fix'45'dec_448 ~v0 v1 v2 v3 v4 = du_Fix'45'dec_448 v1 v2 v3 v4 +du_Fix'45'dec_448 :: + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_Fix'45'dec_448 v0 v1 v2 v3 + = let v4 + = coe v0 erased (coe du_Fix'45'dec_448 (coe v0)) v1 v2 v3 in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_fix_60 v7)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Modular..extendedlambda1 +d_'46'extendedlambda1_476 :: + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + (AgdaAny -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> + T_Fix_50 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda1_476 = erased +-- Untyped.Relation.Binary.Modular.compatVar? +d_compatVar'63'_480 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatVar'63'_480 ~v0 ~v1 ~v2 v3 v4 = du_compatVar'63'_480 v3 v4 +du_compatVar'63'_480 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatVar'63'_480 v0 v1 + = let v2 + = \ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> let v4 = coe v2 v3 in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> coe + seq (coe v7) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v8 + -> let v9 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe v3) (coe v8) 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_'96'F__118))) + 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 + -> coe + seq + (coe + 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_'96'F__118))) + _ -> 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.Code.Untyped.C_ƛ_20 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_force_24 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_delay_26 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_constr_34 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_case_40 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_builtin_44 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_error_46 + -> let v8 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (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.RTE.mazUnreachableError + else (let v7 + = seq + (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) 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.VerifiedCompilation.UntypedViews.C_'96''33'_864 v12 + -> coe + seq (coe v12) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v13 + -> let v14 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe v3) + (coe v13) 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_'96'F__118))) + else (let v17 + = 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)) 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 + seq + (coe + 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_'96'F__118))) + _ -> 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.Code.Untyped.C_ƛ_20 v13 + -> 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 v13 v14 + -> 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_force_24 v13 + -> 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_delay_26 v13 + -> 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 v13 + -> 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 v13 v14 + -> 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_case_40 v13 v14 + -> 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_builtin_44 v13 + -> 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 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> 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.Code.Untyped.C__'183'__22 v3 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_force_24 v3 + -> 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.Code.Untyped.C_delay_26 v3 + -> 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.Code.Untyped.C_con_28 v3 + -> 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.Code.Untyped.C_constr_34 v3 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_case_40 v3 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_builtin_44 v3 + -> 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.Code.Untyped.C_error_46 + -> let v3 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v3) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Modular.compatApply? +d_compatApply'63'_534 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatApply'63'_534 ~v0 v1 v2 v3 v4 + = du_compatApply'63'_534 v1 v2 v3 v4 +du_compatApply'63'_534 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatApply'63'_534 v0 v1 v2 v3 + = let v4 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'183''63'__1230 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v2)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'183''63'__1230 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v3)) in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> case coe v7 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9 + -> case coe v8 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v12 v13 + -> case coe v2 of + MAlonzo.Code.Untyped.C__'183'__22 v14 v15 + -> coe + seq (coe v12) + (coe + seq (coe v13) + (case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v18 v19 + -> case coe v3 of + MAlonzo.Code.Untyped.C__'183'__22 v20 v21 + -> coe + seq (coe v18) + (coe + seq (coe v19) + (let v22 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + v0 v1 v14 + v20) + (coe + v0 v1 v15 + v21) 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 + -> 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'F__150 + v26 + v27)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Modular.compatLam? +d_compatLam'63'_614 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatLam'63'_614 ~v0 v1 v2 v3 v4 + = du_compatLam'63'_614 v1 v2 v3 v4 +du_compatLam'63'_614 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatLam'63'_614 v0 v1 v2 v3 + = let v4 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_ƛ'63'_1128 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v2)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_ƛ'63'_1128 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v3)) in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> case coe v7 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9 + -> case coe v8 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_ƛ'33'_876 v11 + -> case coe v2 of + MAlonzo.Code.Untyped.C_ƛ_20 v12 + -> coe + seq (coe v11) + (case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_ƛ'33'_876 v14 + -> case coe v3 of + MAlonzo.Code.Untyped.C_ƛ_20 v15 + -> coe + seq (coe v14) + (let v16 + = coe + v0 + (addInt + (coe + (1 :: Integer)) + (coe v1)) + v12 v15 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_ƛF_132 + 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.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Modular.compatForce? +d_compatForce'63'_678 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatForce'63'_678 ~v0 v1 v2 v3 v4 + = du_compatForce'63'_678 v1 v2 v3 v4 +du_compatForce'63'_678 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatForce'63'_678 v0 v1 v2 v3 + = let v4 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_force'63'_1344 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v2)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_force'63'_1344 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v3)) in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> case coe v7 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9 + -> case coe v8 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_force'33'_906 v11 + -> case coe v2 of + MAlonzo.Code.Untyped.C_force_24 v12 + -> coe + seq (coe v11) + (case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_force'33'_906 v14 + -> case coe v3 of + MAlonzo.Code.Untyped.C_force_24 v15 + -> coe + seq (coe v14) + (let v16 = coe v0 v1 v12 v15 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_forceF_164 + 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.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Modular.compatDelay? +d_compatDelay'63'_742 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatDelay'63'_742 ~v0 v1 v2 v3 v4 + = du_compatDelay'63'_742 v1 v2 v3 v4 +du_compatDelay'63'_742 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatDelay'63'_742 v0 v1 v2 v3 + = let v4 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_delay'63'_1422 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v2)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_delay'63'_1422 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v3)) in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> case coe v7 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9 + -> case coe v8 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_delay'33'_918 v11 + -> case coe v2 of + MAlonzo.Code.Untyped.C_delay_26 v12 + -> coe + seq (coe v11) + (case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_delay'33'_918 v14 + -> case coe v3 of + MAlonzo.Code.Untyped.C_delay_26 v15 + -> coe + seq (coe v14) + (let v16 = coe v0 v1 v12 v15 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_delayF_178 + 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.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Modular.compatConstr? +d_compatConstr'63'_806 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatConstr'63'_806 ~v0 v1 v2 v3 v4 + = du_compatConstr'63'_806 v1 v2 v3 v4 +du_compatConstr'63'_806 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatConstr'63'_806 v0 v1 v2 v3 + = let v4 + = \ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (let v5 + = \ v5 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v2 of + MAlonzo.Code.Untyped.C_'96'_18 v6 + -> let v7 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_ƛ_20 v6 + -> let v7 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v6 v7 + -> let v8 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_force_24 v6 + -> let v7 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_delay_26 v6 + -> let v7 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v6 + -> let v7 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_constr_34 v6 v7 + -> let v8 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v4 v6) (coe v5 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 v3 of + MAlonzo.Code.Untyped.C_'96'_18 v14 + -> let v15 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_ƛ_20 v14 + -> let v15 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v14 v15 + -> let v16 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_force_24 v14 + -> let v15 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_delay_26 v14 + -> let v15 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v14 + -> let v15 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + 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.Data.Nat.Properties.d__'8799'__2796 + (coe v6) (coe v14)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) 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 + -> coe + seq + (coe + v21) + (let v22 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Core.du_pointwise'63'_56 + (coe + v0) + (coe + v1) + (coe + v7) + (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 + C_constrF_206 + 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 + 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 + -> coe + seq + (coe + v26) + (let v27 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Core.du_pointwise'63'_56 + (coe + v0) + (coe + v1) + (coe + v7) + (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 + C_constrF_206 + 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)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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.Code.Untyped.C_case_40 v14 v15 + -> let v16 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_builtin_44 v14 + -> let v15 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_error_46 + -> let v14 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> 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 + -> coe + seq (coe v17) + (coe + seq (coe v18) + (case coe v3 of + MAlonzo.Code.Untyped.C_'96'_18 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_ƛ_20 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C__'183'__22 v19 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_force_24 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_delay_26 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_con_28 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + 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.Data.Nat.Properties.d__'8799'__2796 + (coe v6) + (coe + v19)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) 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 + -> coe + seq + (coe + v26) + (let v27 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Core.du_pointwise'63'_56 + (coe + v0) + (coe + v1) + (coe + v7) + (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 + C_constrF_206 + 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)) + _ -> 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 + -> coe + seq + (coe + v31) + (let v32 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Core.du_pointwise'63'_56 + (coe + v0) + (coe + v1) + (coe + v7) + (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 + C_constrF_206 + 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)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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.Code.Untyped.C_case_40 v19 v20 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_builtin_44 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (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 v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> 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.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_builtin_44 v6 + -> let v7 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_error_46 + -> let v6 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v6) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError)) +-- Untyped.Relation.Binary.Modular.compatCase? +d_compatCase'63'_904 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatCase'63'_904 ~v0 v1 v2 v3 v4 + = du_compatCase'63'_904 v1 v2 v3 v4 +du_compatCase'63'_904 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatCase'63'_904 v0 v1 v2 v3 + = let v4 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_case'63'_1502 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v2)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_case'63'_1502 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v3)) in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> case coe v7 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9 + -> case coe v8 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_case'33'_936 v12 v13 + -> case coe v2 of + MAlonzo.Code.Untyped.C_case_40 v14 v15 + -> coe + seq (coe v12) + (coe + seq (coe v13) + (case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_case'33'_936 v18 v19 + -> case coe v3 of + MAlonzo.Code.Untyped.C_case_40 v20 v21 + -> coe + seq (coe v18) + (coe + seq (coe v19) + (let v22 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + v0 v1 v14 + v20) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Core.du_pointwise'63'_56 + (coe v0) + (coe v1) + (coe v15) + (coe + v21)) 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 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v23) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_caseF_224 + v26 + v27)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Modular.compatCon? +d_compatCon'63'_984 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatCon'63'_984 ~v0 ~v1 ~v2 v3 v4 = du_compatCon'63'_984 v3 v4 +du_compatCon'63'_984 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatCon'63'_984 v0 v1 + = let v2 + = \ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> 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.Code.Untyped.C_ƛ_20 v3 + -> 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.Code.Untyped.C__'183'__22 v3 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_force_24 v3 + -> 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.Code.Untyped.C_delay_26 v3 + -> 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.Code.Untyped.C_con_28 v3 + -> let v4 = coe v2 v3 in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> coe + seq (coe v7) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_ƛ_20 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_force_24 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_delay_26 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v8 + -> let v9 + = MAlonzo.Code.Untyped.Equality.d_decEq'45'TmCon_48 + (coe v3) (coe v8) 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_conF_190))) + 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 + -> coe + seq + (coe + 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_conF_190))) + _ -> 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.Code.Untyped.C_constr_34 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_case_40 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_builtin_44 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_error_46 + -> let v8 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (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.RTE.mazUnreachableError + else (let v7 + = seq + (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) 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.VerifiedCompilation.UntypedViews.C_con'33'_964 v13 + -> coe + seq (coe v13) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v14 + -> 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_ƛ_20 v14 + -> 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 v14 v15 + -> 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_force_24 v14 + -> 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_delay_26 v14 + -> 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 v14 + -> let v15 + = MAlonzo.Code.Untyped.Equality.d_decEq'45'TmCon_48 + (coe v3) + (coe v14) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then coe + seq + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_conF_190))) + 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 + -> coe + seq + (coe + 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_conF_190))) + _ -> 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.Code.Untyped.C_constr_34 v14 v15 + -> 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_case_40 v14 v15 + -> 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_builtin_44 v14 + -> 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 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_constr_34 v3 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_case_40 v3 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_builtin_44 v3 + -> 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.Code.Untyped.C_error_46 + -> let v3 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v3) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Modular.compatBuiltin? +d_compatBuiltin'63'_1038 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatBuiltin'63'_1038 ~v0 ~v1 ~v2 v3 v4 + = du_compatBuiltin'63'_1038 v3 v4 +du_compatBuiltin'63'_1038 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatBuiltin'63'_1038 v0 v1 + = let v2 + = \ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> 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.Code.Untyped.C_ƛ_20 v3 + -> 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.Code.Untyped.C__'183'__22 v3 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_force_24 v3 + -> 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.Code.Untyped.C_delay_26 v3 + -> 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.Code.Untyped.C_con_28 v3 + -> 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.Code.Untyped.C_constr_34 v3 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_case_40 v3 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_builtin_44 v3 + -> let v4 = coe v2 v3 in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> coe + seq (coe v7) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_ƛ_20 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_force_24 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_delay_26 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_constr_34 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_case_40 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_builtin_44 v8 + -> let v9 + = MAlonzo.Code.Builtin.d_decBuiltin_440 + (coe v3) (coe v8) 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_builtinF_236))) + 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 + -> coe + seq + (coe + 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_builtinF_236))) + _ -> 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.Code.Untyped.C_error_46 + -> let v8 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (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.RTE.mazUnreachableError + else (let v7 + = seq + (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) 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.VerifiedCompilation.UntypedViews.C_builtin'33'_974 v13 + -> coe + seq (coe v13) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v14 + -> 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_ƛ_20 v14 + -> 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 v14 v15 + -> 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_force_24 v14 + -> 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_delay_26 v14 + -> 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 v14 + -> 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 v14 v15 + -> 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_case_40 v14 v15 + -> 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_builtin_44 v14 + -> let v15 + = MAlonzo.Code.Builtin.d_decBuiltin_440 + (coe v3) + (coe v14) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then coe + seq + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_builtinF_236))) + 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 + -> coe + seq + (coe + 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_builtinF_236))) + _ -> 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.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_error_46 + -> let v3 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v3) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Modular.compatError? +d_compatError'63'_1092 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatError'63'_1092 ~v0 ~v1 ~v2 v3 v4 + = du_compatError'63'_1092 v3 v4 +du_compatError'63'_1092 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatError'63'_1092 v0 v1 + = let v2 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_error'63'_1886 + (coe v0)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_error'63'_1886 + (coe v1)) in + coe + (case coe v2 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v3 v4 + -> if coe v3 + then case coe v4 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v5 + -> case coe v5 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v6 v7 + -> coe + seq (coe v6) + (coe + seq (coe v7) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v3) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_errorF_246)))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v4) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v3) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Modular.compatTerm? +d_compatTerm'63'_1120 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatTerm'63'_1120 ~v0 = du_compatTerm'63'_1120 +du_compatTerm'63'_1120 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatTerm'63'_1120 + = coe + du__'43''45'dec__360 + (\ v0 v1 v2 v3 v4 -> coe du_compatVar'63'_480 v3 v4) + (coe + du__'43''45'dec__360 + (\ v0 v1 v2 v3 v4 -> coe du_compatLam'63'_614 v1 v2 v3 v4) + (coe + du__'43''45'dec__360 + (\ v0 v1 v2 v3 v4 -> coe du_compatApply'63'_534 v1 v2 v3 v4) + (coe + du__'43''45'dec__360 + (\ v0 v1 v2 v3 v4 -> coe du_compatForce'63'_678 v1 v2 v3 v4) + (coe + du__'43''45'dec__360 + (\ v0 v1 v2 v3 v4 -> coe du_compatDelay'63'_742 v1 v2 v3 v4) + (coe + du__'43''45'dec__360 + (\ v0 v1 v2 v3 v4 -> coe du_compatCon'63'_984 v3 v4) + (coe + du__'43''45'dec__360 + (\ v0 v1 v2 v3 v4 -> coe du_compatConstr'63'_806 v1 v2 v3 v4) + (coe + du__'43''45'dec__360 + (\ v0 v1 v2 v3 v4 -> coe du_compatCase'63'_904 v1 v2 v3 v4) + (coe + du__'43''45'dec__360 + (\ v0 v1 v2 v3 v4 -> coe du_compatBuiltin'63'_1038 v3 v4) + (coe + du__'43''45'dec__360 + (\ v0 v1 v2 v3 v4 -> coe du_compatError'63'_1092 v3 v4) + (\ v0 v1 v2 v3 v4 -> coe du_empty'63'_438)))))))))) + erased +-- Untyped.Relation.Binary.Modular._<|>_ +d__'60''124''62'__1128 :: + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + ((Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d__'60''124''62'__1128 ~v0 ~v1 ~v2 v3 v4 v5 v6 + = du__'60''124''62'__1128 v3 v4 v5 v6 +du__'60''124''62'__1128 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du__'60''124''62'__1128 v0 v1 v2 v3 + = let v4 = coe v0 v2 v3 in + coe + (case coe v4 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v5 + -> case coe v5 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v6 v7 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v6) + (coe C_inl_30 v7)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> let v5 = coe v1 v2 v3 in + coe + (case coe v5 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v6 + -> case coe v6 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v7 v8 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v7) + (coe C_inr_38 v8)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe v5 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError) diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Properties.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Properties.hs new file mode 100644 index 00000000000..378ee89dc30 --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Properties.hs @@ -0,0 +1,289 @@ +{-# 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.Relation.Binary.Properties 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.Maybe +import qualified MAlonzo.Code.Agda.Builtin.Sigma +import qualified MAlonzo.Code.Untyped +import qualified MAlonzo.Code.Untyped.Relation.Binary.Core + +-- Untyped.Relation.Binary.Properties.Reflexive +d_Reflexive_8 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_Reflexive_8 = erased +-- Untyped.Relation.Binary.Properties.Transitive +d_Transitive_16 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_Transitive_16 = erased +-- Untyped.Relation.Binary.Properties.Symmetric +d_Symmetric_28 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_Symmetric_28 = erased +-- Untyped.Relation.Binary.Properties.Idempotent +d_Idempotent_38 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_Idempotent_38 = erased +-- Untyped.Relation.Binary.Properties._⊆_ +d__'8838'__50 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d__'8838'__50 = erased +-- Untyped.Relation.Binary.Properties.⊆-trans +d_'8838''45'trans_68 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny +d_'8838''45'trans_68 ~v0 ~v1 ~v2 v3 v4 v5 v6 v7 v8 + = du_'8838''45'trans_68 v3 v4 v5 v6 v7 v8 +du_'8838''45'trans_68 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny +du_'8838''45'trans_68 v0 v1 v2 v3 v4 v5 + = coe v1 v2 v3 v4 (coe v0 v2 v3 v4 v5) +-- Untyped.Relation.Binary.Properties.Transform +d_Transform_76 :: () +d_Transform_76 = erased +-- Untyped.Relation.Binary.Properties.Transform? +d_Transform'63'_80 :: () +d_Transform'63'_80 = erased +-- Untyped.Relation.Binary.Properties.Transform₂ +d_Transform'8322'_84 :: () +d_Transform'8322'_84 = erased +-- Untyped.Relation.Binary.Properties.Deterministicᵣ +d_Deterministic'7523'_88 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_Deterministic'7523'_88 = erased +-- Untyped.Relation.Binary.Properties.Deterministicₗ +d_Deterministic'8343'_100 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_Deterministic'8343'_100 = erased +-- Untyped.Relation.Binary.Properties.Compatible +d_Compatible_112 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + () +d_Compatible_112 = erased +-- Untyped.Relation.Binary.Properties.Compatible₂ +d_Compatible'8322'_124 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + () +d_Compatible'8322'_124 = erased +-- Untyped.Relation.Binary.Properties.pointwise-refl +d_pointwise'45'refl_146 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 +d_pointwise'45'refl_146 v0 ~v1 v2 v3 + = du_pointwise'45'refl_146 v0 v2 v3 +du_pointwise'45'refl_146 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 +du_pointwise'45'refl_146 v0 v1 v2 + = case coe v1 of + [] -> coe MAlonzo.Code.Untyped.Relation.Binary.Core.C_'91''93'_26 + (:) v3 v4 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Core.C__'8759'__36 + (coe v2 v0 v3) + (coe du_pointwise'45'refl_146 (coe v0) (coe v4) (coe v2)) + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Properties.Refines +d_Refines_158 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_Refines_158 = erased +-- Untyped.Relation.Binary.Properties.Refines? +d_Refines'63'_168 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_Refines'63'_168 = erased +-- Untyped.Relation.Binary.Properties.Refines?-⊆ +d_Refines'63''45''8838'_188 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny +d_Refines'63''45''8838'_188 ~v0 ~v1 ~v2 v3 v4 v5 v6 v7 v8 + = du_Refines'63''45''8838'_188 v3 v4 v5 v6 v7 v8 +du_Refines'63''45''8838'_188 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny +du_Refines'63''45''8838'_188 v0 v1 v2 v3 v4 v5 + = coe v0 v2 v3 v4 (coe v1 v2 v3 v4 v5) +-- Untyped.Relation.Binary.Properties.Refinement? +d_Refinement'63'_196 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + () +d_Refinement'63'_196 = erased +-- Untyped.Relation.Binary.Properties.refine? +d_refine'63'_210 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14 +d_refine'63'_210 v0 ~v1 v2 v3 = du_refine'63'_210 v0 v2 v3 +du_refine'63'_210 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14 +du_refine'63'_210 v0 v1 v2 + = let v3 = coe v1 v0 v2 in + coe + (case coe v3 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v4 + -> case coe v4 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v5 v6 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe v5) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe v3 + _ -> MAlonzo.RTE.mazUnreachableError) +-- Untyped.Relation.Binary.Properties.refine?-refines +d_refine'63''45'refines_234 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny +d_refine'63''45'refines_234 ~v0 v1 v2 v3 ~v4 ~v5 + = du_refine'63''45'refines_234 v1 v2 v3 +du_refine'63''45'refines_234 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +du_refine'63''45'refines_234 v0 v1 v2 + = let v3 = coe v0 v1 v2 in + coe + (case coe v3 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v4 + -> case coe v4 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v5 v6 -> coe v6 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Structures.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Structures.hs new file mode 100644 index 00000000000..d077f5159c5 --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Structures.hs @@ -0,0 +1,200 @@ +{-# 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.Relation.Binary.Structures 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.Builtin +import qualified MAlonzo.Code.Data.Fin.Base +import qualified MAlonzo.Code.RawU +import qualified MAlonzo.Code.Untyped +import qualified MAlonzo.Code.Untyped.Relation.Binary.Core + +-- Untyped.Relation.Binary.Structures.Equivalence +d_Equivalence_10 a0 = () +data T_Equivalence_10 + = C_constructor_26 (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny) + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny -> AgdaAny) + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) +-- Untyped.Relation.Binary.Structures.Equivalence.~-refl +d_'126''45'refl_20 :: + T_Equivalence_10 -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +d_'126''45'refl_20 v0 + = case coe v0 of + C_constructor_26 v1 v2 v3 -> coe v1 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.Equivalence.~-trans +d_'126''45'trans_22 :: + T_Equivalence_10 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny -> AgdaAny +d_'126''45'trans_22 v0 + = case coe v0 of + C_constructor_26 v1 v2 v3 -> coe v2 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.Equivalence.~-sym +d_'126''45'sym_24 :: + T_Equivalence_10 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny +d_'126''45'sym_24 v0 + = case coe v0 of + C_constructor_26 v1 v2 v3 -> coe v3 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.TermCompatible +d_TermCompatible_30 a0 = () +data T_TermCompatible_30 + = C_constructor_150 (Integer -> + MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny) + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) + (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 -> AgdaAny -> AgdaAny -> AgdaAny) + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) + (Integer -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 -> + AgdaAny) + (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] -> + AgdaAny -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 -> + AgdaAny) + (MAlonzo.Code.RawU.T_TmCon_202 -> Integer -> AgdaAny) + (Integer -> MAlonzo.Code.Builtin.T_Builtin_2 -> AgdaAny) + (Integer -> AgdaAny) +-- Untyped.Relation.Binary.Structures.TermCompatible.compat-var +d_compat'45'var_96 :: + T_TermCompatible_30 -> + Integer -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny +d_compat'45'var_96 v0 + = case coe v0 of + C_constructor_150 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v1 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.TermCompatible.compat-ƛ +d_compat'45'ƛ_104 :: + T_TermCompatible_30 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny +d_compat'45'ƛ_104 v0 + = case coe v0 of + C_constructor_150 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v2 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.TermCompatible.compat-· +d_compat'45''183'_106 :: + T_TermCompatible_30 -> + 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 -> AgdaAny -> AgdaAny -> AgdaAny +d_compat'45''183'_106 v0 + = case coe v0 of + C_constructor_150 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v3 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.TermCompatible.compat-force +d_compat'45'force_108 :: + T_TermCompatible_30 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny +d_compat'45'force_108 v0 + = case coe v0 of + C_constructor_150 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v4 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.TermCompatible.compat-delay +d_compat'45'delay_110 :: + T_TermCompatible_30 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny +d_compat'45'delay_110 v0 + = case coe v0 of + C_constructor_150 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v5 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.TermCompatible.compat-constr +d_compat'45'constr_120 :: + T_TermCompatible_30 -> + Integer -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 -> AgdaAny +d_compat'45'constr_120 v0 + = case coe v0 of + C_constructor_150 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v6 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.TermCompatible.compat-case +d_compat'45'case_132 :: + T_TermCompatible_30 -> + 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] -> + AgdaAny -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 -> AgdaAny +d_compat'45'case_132 v0 + = case coe v0 of + C_constructor_150 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v7 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.TermCompatible.compat-con +d_compat'45'con_138 :: + T_TermCompatible_30 -> + MAlonzo.Code.RawU.T_TmCon_202 -> Integer -> AgdaAny +d_compat'45'con_138 v0 + = case coe v0 of + C_constructor_150 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v8 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.TermCompatible.compat-builtin +d_compat'45'builtin_144 :: + T_TermCompatible_30 -> + Integer -> MAlonzo.Code.Builtin.T_Builtin_2 -> AgdaAny +d_compat'45'builtin_144 v0 + = case coe v0 of + C_constructor_150 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v9 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Relation.Binary.Structures.TermCompatible.compat-error +d_compat'45'error_148 :: T_TermCompatible_30 -> Integer -> AgdaAny +d_compat'45'error_148 v0 + = case coe v0 of + C_constructor_150 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Transform.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Transform.hs new file mode 100644 index 00000000000..6ccc5c8273e --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Transform.hs @@ -0,0 +1,610 @@ +{-# 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.Transform 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.Data.Maybe.Base +import qualified MAlonzo.Code.Untyped +import qualified MAlonzo.Code.Untyped.Relation.Binary.Core +import qualified MAlonzo.Code.Untyped.Relation.Binary.Structures + +-- Untyped.Transform._↑_ +d__'8593'__8 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +d__'8593'__8 v0 v1 v2 + = coe v0 v1 (d_subterms_20 (coe v0) (coe v1) (coe v2)) +-- Untyped.Transform._↑*_ +d__'8593''42'__14 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] +d__'8593''42'__14 v0 v1 v2 + = case coe v2 of + [] -> coe v2 + (:) v3 v4 + -> coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe d__'8593'__8 (coe v0) (coe v1) (coe v3)) + (coe d__'8593''42'__14 (coe v0) (coe v1) (coe v4)) + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Transform.subterms +d_subterms_20 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +d_subterms_20 v0 v1 v2 + = coe du_'46'extendedlambda0_38 (coe v0) (coe v1) (coe v2) +-- Untyped.Transform..extendedlambda0 +d_'46'extendedlambda0_38 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +d_'46'extendedlambda0_38 v0 v1 ~v2 v3 + = du_'46'extendedlambda0_38 v0 v1 v3 +du_'46'extendedlambda0_38 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +du_'46'extendedlambda0_38 v0 v1 v2 + = case coe v2 of + MAlonzo.Code.Untyped.C_'96'_18 v3 -> coe v2 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + d__'8593'__8 (coe v0) (coe addInt (coe (1 :: Integer)) (coe v1)) + (coe v3)) + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe d__'8593'__8 (coe v0) (coe v1) (coe v3)) + (coe d__'8593'__8 (coe v0) (coe v1) (coe v4)) + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe + MAlonzo.Code.Untyped.C_force_24 + (coe d__'8593'__8 (coe v0) (coe v1) (coe v3)) + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe + MAlonzo.Code.Untyped.C_delay_26 + (coe d__'8593'__8 (coe v0) (coe v1) (coe v3)) + MAlonzo.Code.Untyped.C_con_28 v3 -> coe v2 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe + MAlonzo.Code.Untyped.C_constr_34 (coe v3) + (coe d__'8593''42'__14 (coe v0) (coe v1) (coe v4)) + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> coe + MAlonzo.Code.Untyped.C_case_40 + (coe d__'8593'__8 (coe v0) (coe v1) (coe v3)) + (coe d__'8593''42'__14 (coe v0) (coe v1) (coe v4)) + MAlonzo.Code.Untyped.C_builtin_44 v3 -> coe v2 + MAlonzo.Code.Untyped.C_error_46 -> coe v2 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Transform._↑?_ +d__'8593''63'__68 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +d__'8593''63'__68 v0 v1 v2 + = coe + MAlonzo.Code.Data.Maybe.Base.du_fromMaybe_46 + (d_sub_80 (coe v0) (coe v1) (coe v2)) + (coe v0 v1 (d_sub_80 (coe v0) (coe v1) (coe v2))) +-- Untyped.Transform._↑?*_ +d__'8593''63''42'__74 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] +d__'8593''63''42'__74 v0 v1 v2 + = case coe v2 of + [] -> coe v2 + (:) v3 v4 + -> coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe d__'8593''63'__68 (coe v0) (coe v1) (coe v3)) + (coe d__'8593''63''42'__74 (coe v0) (coe v1) (coe v4)) + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Transform.sub +d_sub_80 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +d_sub_80 v0 v1 v2 + = coe du_'46'extendedlambda1_100 (coe v0) (coe v1) (coe v2) +-- Untyped.Transform..extendedlambda1 +d_'46'extendedlambda1_100 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +d_'46'extendedlambda1_100 v0 v1 ~v2 v3 + = du_'46'extendedlambda1_100 v0 v1 v3 +du_'46'extendedlambda1_100 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +du_'46'extendedlambda1_100 v0 v1 v2 + = case coe v2 of + MAlonzo.Code.Untyped.C_'96'_18 v3 -> coe v2 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + d__'8593''63'__68 (coe v0) + (coe addInt (coe (1 :: Integer)) (coe v1)) (coe v3)) + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe d__'8593''63'__68 (coe v0) (coe v1) (coe v3)) + (coe d__'8593''63'__68 (coe v0) (coe v1) (coe v4)) + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe + MAlonzo.Code.Untyped.C_force_24 + (coe d__'8593''63'__68 (coe v0) (coe v1) (coe v3)) + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe + MAlonzo.Code.Untyped.C_delay_26 + (coe d__'8593''63'__68 (coe v0) (coe v1) (coe v3)) + MAlonzo.Code.Untyped.C_con_28 v3 -> coe v2 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe + MAlonzo.Code.Untyped.C_constr_34 (coe v3) + (coe d__'8593''63''42'__74 (coe v0) (coe v1) (coe v4)) + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> coe + MAlonzo.Code.Untyped.C_case_40 + (coe d__'8593''63'__68 (coe v0) (coe v1) (coe v3)) + (coe d__'8593''63''42'__74 (coe v0) (coe v1) (coe v4)) + MAlonzo.Code.Untyped.C_builtin_44 v3 -> coe v2 + MAlonzo.Code.Untyped.C_error_46 -> coe v2 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Transform.Refines.↑-refines +d_'8593''45'refines_162 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny) -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +d_'8593''45'refines_162 ~v0 v1 v2 v3 v4 v5 v6 + = du_'8593''45'refines_162 v1 v2 v3 v4 v5 v6 +du_'8593''45'refines_162 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny) -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +du_'8593''45'refines_162 v0 v1 v2 v3 v4 v5 + = coe + v0 v4 v5 (d_subterms_20 (coe v2) (coe v4) (coe v5)) + (coe v2 v4 (d_subterms_20 (coe v2) (coe v4) (coe v5))) + (coe + du_subterms'45'refines_170 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v5)) + (coe v3 v4 (d_subterms_20 (coe v2) (coe v4) (coe v5))) +-- Untyped.Transform.Refines.↑*-refines +d_'8593''42''45'refines_168 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny) -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 +d_'8593''42''45'refines_168 ~v0 v1 v2 v3 v4 v5 v6 + = du_'8593''42''45'refines_168 v1 v2 v3 v4 v5 v6 +du_'8593''42''45'refines_168 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny) -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 +du_'8593''42''45'refines_168 v0 v1 v2 v3 v4 v5 + = case coe v5 of + [] -> coe MAlonzo.Code.Untyped.Relation.Binary.Core.C_'91''93'_26 + (:) v6 v7 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Core.C__'8759'__36 + (coe + du_'8593''45'refines_162 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v6)) + (coe + du_'8593''42''45'refines_168 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v7)) + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Transform.Refines.subterms-refines +d_subterms'45'refines_170 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny) -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +d_subterms'45'refines_170 ~v0 v1 v2 v3 v4 v5 v6 + = du_subterms'45'refines_170 v1 v2 v3 v4 v5 v6 +du_subterms'45'refines_170 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny) -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +du_subterms'45'refines_170 v0 v1 v2 v3 v4 v5 + = case coe v5 of + MAlonzo.Code.Untyped.C_'96'_18 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'var_96 + v1 v4 v6 + MAlonzo.Code.Untyped.C_ƛ_20 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'ƛ_104 + v1 v4 v6 + (d__'8593'__8 + (coe v2) (coe addInt (coe (1 :: Integer)) (coe v4)) (coe v6)) + (coe + du_'8593''45'refines_162 (coe v0) (coe v1) (coe v2) (coe v3) + (coe addInt (coe (1 :: Integer)) (coe v4)) (coe v6)) + MAlonzo.Code.Untyped.C__'183'__22 v6 v7 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45''183'_106 + v1 v4 v6 (d__'8593'__8 (coe v2) (coe v4) (coe v6)) v7 + (d__'8593'__8 (coe v2) (coe v4) (coe v7)) + (coe + du_'8593''45'refines_162 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v6)) + (coe + du_'8593''45'refines_162 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v7)) + MAlonzo.Code.Untyped.C_force_24 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'force_108 + v1 v4 v6 (d__'8593'__8 (coe v2) (coe v4) (coe v6)) + (coe + du_'8593''45'refines_162 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v6)) + MAlonzo.Code.Untyped.C_delay_26 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'delay_110 + v1 v4 v6 (d__'8593'__8 (coe v2) (coe v4) (coe v6)) + (coe + du_'8593''45'refines_162 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v6)) + MAlonzo.Code.Untyped.C_con_28 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'con_138 + v1 v6 v4 + MAlonzo.Code.Untyped.C_constr_34 v6 v7 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'constr_120 + v1 v4 v6 v7 (d__'8593''42'__14 (coe v2) (coe v4) (coe v7)) + (coe + du_'8593''42''45'refines_168 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v7)) + MAlonzo.Code.Untyped.C_case_40 v6 v7 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'case_132 + v1 v4 v6 (d__'8593'__8 (coe v2) (coe v4) (coe v6)) v7 + (d__'8593''42'__14 (coe v2) (coe v4) (coe v7)) + (coe + du_'8593''45'refines_162 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v6)) + (coe + du_'8593''42''45'refines_168 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v7)) + MAlonzo.Code.Untyped.C_builtin_44 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'builtin_144 + v1 v4 v6 + MAlonzo.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'error_148 + v1 v4 + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Transform.Refines?.↑?-refines +d_'8593''63''45'refines_270 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +d_'8593''63''45'refines_270 ~v0 v1 v2 v3 v4 v5 v6 + = du_'8593''63''45'refines_270 v1 v2 v3 v4 v5 v6 +du_'8593''63''45'refines_270 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +du_'8593''63''45'refines_270 v0 v1 v2 v3 v4 v5 + = let v6 + = coe + du_sub'45'refines_278 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) + (coe v5) in + coe + (let v7 = coe v2 v4 (d_sub_80 (coe v2) (coe v4) (coe v5)) in + coe + (case coe v7 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v8 + -> coe + v0 v4 v5 + (coe du_'46'extendedlambda1_100 (coe v2) (coe v4) (coe v5)) v8 v6 + (coe + v3 v4 (coe du_'46'extendedlambda1_100 (coe v2) (coe v4) (coe v5)) + v8 erased) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe v6 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- Untyped.Transform.Refines?.↑?*-refines +d_'8593''63''42''45'refines_276 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 +d_'8593''63''42''45'refines_276 ~v0 v1 v2 v3 v4 v5 v6 + = du_'8593''63''42''45'refines_276 v1 v2 v3 v4 v5 v6 +du_'8593''63''42''45'refines_276 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 +du_'8593''63''42''45'refines_276 v0 v1 v2 v3 v4 v5 + = case coe v5 of + [] -> coe MAlonzo.Code.Untyped.Relation.Binary.Core.C_'91''93'_26 + (:) v6 v7 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Core.C__'8759'__36 + (coe + du_'8593''63''45'refines_270 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v6)) + (coe + du_'8593''63''42''45'refines_276 (coe v0) (coe v1) (coe v2) + (coe v3) (coe v4) (coe v7)) + _ -> MAlonzo.RTE.mazUnreachableError +-- Untyped.Transform.Refines?.sub-refines +d_sub'45'refines_278 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +d_sub'45'refines_278 ~v0 v1 v2 v3 v4 v5 v6 + = du_sub'45'refines_278 v1 v2 v3 v4 v5 v6 +du_sub'45'refines_278 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14) -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) -> + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny +du_sub'45'refines_278 v0 v1 v2 v3 v4 v5 + = case coe v5 of + MAlonzo.Code.Untyped.C_'96'_18 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'var_96 + v1 v4 v6 + MAlonzo.Code.Untyped.C_ƛ_20 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'ƛ_104 + v1 v4 v6 + (d__'8593''63'__68 + (coe v2) (coe addInt (coe (1 :: Integer)) (coe v4)) (coe v6)) + (coe + du_'8593''63''45'refines_270 (coe v0) (coe v1) (coe v2) (coe v3) + (coe addInt (coe (1 :: Integer)) (coe v4)) (coe v6)) + MAlonzo.Code.Untyped.C__'183'__22 v6 v7 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45''183'_106 + v1 v4 v6 (d__'8593''63'__68 (coe v2) (coe v4) (coe v6)) v7 + (d__'8593''63'__68 (coe v2) (coe v4) (coe v7)) + (coe + du_'8593''63''45'refines_270 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v6)) + (coe + du_'8593''63''45'refines_270 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v7)) + MAlonzo.Code.Untyped.C_force_24 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'force_108 + v1 v4 v6 (d__'8593''63'__68 (coe v2) (coe v4) (coe v6)) + (coe + du_'8593''63''45'refines_270 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v6)) + MAlonzo.Code.Untyped.C_delay_26 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'delay_110 + v1 v4 v6 (d__'8593''63'__68 (coe v2) (coe v4) (coe v6)) + (coe + du_'8593''63''45'refines_270 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v6)) + MAlonzo.Code.Untyped.C_con_28 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'con_138 + v1 v6 v4 + MAlonzo.Code.Untyped.C_constr_34 v6 v7 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'constr_120 + v1 v4 v6 v7 (d__'8593''63''42'__74 (coe v2) (coe v4) (coe v7)) + (coe + du_'8593''63''42''45'refines_276 (coe v0) (coe v1) (coe v2) + (coe v3) (coe v4) (coe v7)) + MAlonzo.Code.Untyped.C_case_40 v6 v7 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'case_132 + v1 v4 v6 (d__'8593''63'__68 (coe v2) (coe v4) (coe v6)) v7 + (d__'8593''63''42'__74 (coe v2) (coe v4) (coe v7)) + (coe + du_'8593''63''45'refines_270 (coe v0) (coe v1) (coe v2) (coe v3) + (coe v4) (coe v6)) + (coe + du_'8593''63''42''45'refines_276 (coe v0) (coe v1) (coe v2) + (coe v3) (coe v4) (coe v7)) + MAlonzo.Code.Untyped.C_builtin_44 v6 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'builtin_144 + v1 v4 v6 + MAlonzo.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.Untyped.Relation.Binary.Structures.d_compat'45'error_148 + v1 v4 + _ -> MAlonzo.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/MAlonzo/Code/Utils.hs b/plutus-metatheory/src/MAlonzo/Code/Utils.hs index 5ed79eab371..5e72e405a52 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Utils.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Utils.hs @@ -126,31 +126,43 @@ du_decIf_68 v0 v1 v2 then coe seq (coe v4) (coe v1) else coe seq (coe v4) (coe v2) _ -> MAlonzo.RTE.mazUnreachableError +-- Utils._<|>_ +d__'60''124''62'__84 :: + () -> Maybe AgdaAny -> Maybe AgdaAny -> Maybe AgdaAny +d__'60''124''62'__84 ~v0 v1 v2 = du__'60''124''62'__84 v1 v2 +du__'60''124''62'__84 :: + Maybe AgdaAny -> Maybe AgdaAny -> Maybe AgdaAny +du__'60''124''62'__84 v0 v1 + = case coe v0 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v2 -> coe v0 + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe v1 + _ -> MAlonzo.RTE.mazUnreachableError -- Utils.maybeToEither -d_maybeToEither_86 :: +d_maybeToEither_94 :: () -> () -> AgdaAny -> Maybe AgdaAny -> T_Either_6 AgdaAny AgdaAny -d_maybeToEither_86 ~v0 ~v1 v2 = du_maybeToEither_86 v2 -du_maybeToEither_86 :: +d_maybeToEither_94 ~v0 ~v1 v2 = du_maybeToEither_94 v2 +du_maybeToEither_94 :: AgdaAny -> Maybe AgdaAny -> T_Either_6 AgdaAny AgdaAny -du_maybeToEither_86 v0 +du_maybeToEither_94 v0 = coe MAlonzo.Code.Data.Maybe.Base.du_maybe_32 (coe C_inj'8322'_14) (coe C_inj'8321'_12 (coe v0)) -- Utils.try -d_try_94 :: +d_try_102 :: () -> () -> Maybe AgdaAny -> AgdaAny -> T_Either_6 AgdaAny AgdaAny -d_try_94 ~v0 ~v1 v2 v3 = du_try_94 v2 v3 -du_try_94 :: Maybe AgdaAny -> AgdaAny -> T_Either_6 AgdaAny AgdaAny -du_try_94 v0 v1 +d_try_102 ~v0 ~v1 v2 v3 = du_try_102 v2 v3 +du_try_102 :: + Maybe AgdaAny -> AgdaAny -> T_Either_6 AgdaAny AgdaAny +du_try_102 v0 v1 = coe MAlonzo.Code.Data.Maybe.Base.du_maybe_32 (coe C_inj'8322'_14) (coe C_inj'8321'_12 (coe v1)) (coe v0) -- Utils.eitherToMaybe -d_eitherToMaybe_104 :: +d_eitherToMaybe_112 :: () -> () -> T_Either_6 AgdaAny AgdaAny -> Maybe AgdaAny -d_eitherToMaybe_104 ~v0 ~v1 v2 = du_eitherToMaybe_104 v2 -du_eitherToMaybe_104 :: T_Either_6 AgdaAny AgdaAny -> Maybe AgdaAny -du_eitherToMaybe_104 v0 +d_eitherToMaybe_112 ~v0 ~v1 v2 = du_eitherToMaybe_112 v2 +du_eitherToMaybe_112 :: T_Either_6 AgdaAny AgdaAny -> Maybe AgdaAny +du_eitherToMaybe_112 v0 = case coe v0 of C_inj'8321'_12 v1 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 @@ -158,9 +170,9 @@ du_eitherToMaybe_104 v0 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe v1) _ -> MAlonzo.RTE.mazUnreachableError -- Utils.natToFin -d_natToFin_110 :: +d_natToFin_118 :: Integer -> Integer -> Maybe MAlonzo.Code.Data.Fin.Base.T_Fin_10 -d_natToFin_110 v0 v1 +d_natToFin_118 v0 v1 = let v2 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.du_map'8242'_178 @@ -188,7 +200,7 @@ d_natToFin_110 v0 v1 seq (coe v4) (coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) _ -> MAlonzo.RTE.mazUnreachableError) -- Utils.cong₃ -d_cong'8323'_152 :: +d_cong'8323'_160 :: () -> () -> () -> @@ -204,9 +216,9 @@ d_cong'8323'_152 :: AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -d_cong'8323'_152 = erased +d_cong'8323'_160 = erased -- Utils.≡-subst-removable -d_'8801''45'subst'45'removable_174 :: +d_'8801''45'subst'45'removable_182 :: MAlonzo.Code.Agda.Primitive.T_Level_18 -> MAlonzo.Code.Agda.Primitive.T_Level_18 -> () -> @@ -216,191 +228,191 @@ d_'8801''45'subst'45'removable_174 :: MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -d_'8801''45'subst'45'removable_174 = erased +d_'8801''45'subst'45'removable_182 = erased -- Utils._∔_≣_ -d__'8724'_'8803'__180 a0 a1 a2 = () -data T__'8724'_'8803'__180 - = C_start_184 | C_bubble_192 T__'8724'_'8803'__180 +d__'8724'_'8803'__188 a0 a1 a2 = () +data T__'8724'_'8803'__188 + = C_start_192 | C_bubble_200 T__'8724'_'8803'__188 -- Utils.unique∔ -d_unique'8724'_204 :: +d_unique'8724'_212 :: Integer -> Integer -> Integer -> - T__'8724'_'8803'__180 -> - T__'8724'_'8803'__180 -> + T__'8724'_'8803'__188 -> + T__'8724'_'8803'__188 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -d_unique'8724'_204 = erased +d_unique'8724'_212 = erased -- Utils.+2∔ -d_'43'2'8724'_216 :: +d_'43'2'8724'_224 :: Integer -> Integer -> Integer -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> - T__'8724'_'8803'__180 -d_'43'2'8724'_216 v0 ~v1 ~v2 ~v3 = du_'43'2'8724'_216 v0 -du_'43'2'8724'_216 :: Integer -> T__'8724'_'8803'__180 -du_'43'2'8724'_216 v0 + T__'8724'_'8803'__188 +d_'43'2'8724'_224 v0 ~v1 ~v2 ~v3 = du_'43'2'8724'_224 v0 +du_'43'2'8724'_224 :: Integer -> T__'8724'_'8803'__188 +du_'43'2'8724'_224 v0 = case coe v0 of - 0 -> coe C_start_184 + 0 -> coe C_start_192 _ -> let v1 = subInt (coe v0) (coe (1 :: Integer)) in - coe (coe C_bubble_192 (coe du_'43'2'8724'_216 (coe v1))) + coe (coe C_bubble_200 (coe du_'43'2'8724'_224 (coe v1))) -- Utils.∔2+ -d_'8724'2'43'_234 :: +d_'8724'2'43'_242 :: Integer -> Integer -> Integer -> - T__'8724'_'8803'__180 -> + T__'8724'_'8803'__188 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -d_'8724'2'43'_234 = erased +d_'8724'2'43'_242 = erased -- Utils.alldone -d_alldone_240 :: Integer -> T__'8724'_'8803'__180 -d_alldone_240 v0 = coe du_'43'2'8724'_216 (coe v0) +d_alldone_248 :: Integer -> T__'8724'_'8803'__188 +d_alldone_248 v0 = coe du_'43'2'8724'_224 (coe v0) -- Utils.Monad -d_Monad_246 a0 = () -data T_Monad_246 - = C_constructor_290 (() -> AgdaAny -> AgdaAny) +d_Monad_254 a0 = () +data T_Monad_254 + = C_constructor_298 (() -> AgdaAny -> AgdaAny) (() -> () -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny) -- Utils.Monad.return -d_return_262 :: T_Monad_246 -> () -> AgdaAny -> AgdaAny -d_return_262 v0 +d_return_270 :: T_Monad_254 -> () -> AgdaAny -> AgdaAny +d_return_270 v0 = case coe v0 of - C_constructor_290 v1 v2 -> coe v1 + C_constructor_298 v1 v2 -> coe v1 _ -> MAlonzo.RTE.mazUnreachableError -- Utils.Monad._>>=_ -d__'62''62''61'__268 :: - T_Monad_246 -> +d__'62''62''61'__276 :: + T_Monad_254 -> () -> () -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny -d__'62''62''61'__268 v0 +d__'62''62''61'__276 v0 = case coe v0 of - C_constructor_290 v1 v2 -> coe v2 + C_constructor_298 v1 v2 -> coe v2 _ -> MAlonzo.RTE.mazUnreachableError -- Utils.Monad._>>_ -d__'62''62'__274 :: +d__'62''62'__282 :: (() -> ()) -> - T_Monad_246 -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny -d__'62''62'__274 ~v0 v1 ~v2 ~v3 v4 v5 = du__'62''62'__274 v1 v4 v5 -du__'62''62'__274 :: T_Monad_246 -> AgdaAny -> AgdaAny -> AgdaAny -du__'62''62'__274 v0 v1 v2 - = coe d__'62''62''61'__268 v0 erased erased v1 (\ v3 -> v2) + T_Monad_254 -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny +d__'62''62'__282 ~v0 v1 ~v2 ~v3 v4 v5 = du__'62''62'__282 v1 v4 v5 +du__'62''62'__282 :: T_Monad_254 -> AgdaAny -> AgdaAny -> AgdaAny +du__'62''62'__282 v0 v1 v2 + = coe d__'62''62''61'__276 v0 erased erased v1 (\ v3 -> v2) -- Utils.Monad.fmap -d_fmap_284 :: +d_fmap_292 :: (() -> ()) -> - T_Monad_246 -> + T_Monad_254 -> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -d_fmap_284 ~v0 v1 ~v2 ~v3 v4 v5 = du_fmap_284 v1 v4 v5 -du_fmap_284 :: - T_Monad_246 -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -du_fmap_284 v0 v1 v2 +d_fmap_292 ~v0 v1 ~v2 ~v3 v4 v5 = du_fmap_292 v1 v4 v5 +du_fmap_292 :: + T_Monad_254 -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny +du_fmap_292 v0 v1 v2 = coe - d__'62''62''61'__268 v0 erased erased v2 - (\ v3 -> coe d_return_262 v0 erased (coe v1 v3)) + d__'62''62''61'__276 v0 erased erased v2 + (\ v3 -> coe d_return_270 v0 erased (coe v1 v3)) -- Utils._._>>_ -d__'62''62'__294 :: +d__'62''62'__302 :: (() -> ()) -> - T_Monad_246 -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny -d__'62''62'__294 ~v0 v1 = du__'62''62'__294 v1 -du__'62''62'__294 :: - T_Monad_246 -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny -du__'62''62'__294 v0 v1 v2 v3 v4 - = coe du__'62''62'__274 (coe v0) v3 v4 + T_Monad_254 -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny +d__'62''62'__302 ~v0 v1 = du__'62''62'__302 v1 +du__'62''62'__302 :: + T_Monad_254 -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny +du__'62''62'__302 v0 v1 v2 v3 v4 + = coe du__'62''62'__282 (coe v0) v3 v4 -- Utils._._>>=_ -d__'62''62''61'__296 :: - T_Monad_246 -> +d__'62''62''61'__304 :: + T_Monad_254 -> () -> () -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny -d__'62''62''61'__296 v0 = coe d__'62''62''61'__268 (coe v0) +d__'62''62''61'__304 v0 = coe d__'62''62''61'__276 (coe v0) -- Utils._.fmap -d_fmap_298 :: +d_fmap_306 :: (() -> ()) -> - T_Monad_246 -> + T_Monad_254 -> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -d_fmap_298 ~v0 v1 = du_fmap_298 v1 -du_fmap_298 :: - T_Monad_246 -> +d_fmap_306 ~v0 v1 = du_fmap_306 v1 +du_fmap_306 :: + T_Monad_254 -> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -du_fmap_298 v0 v1 v2 v3 v4 = coe du_fmap_284 (coe v0) v3 v4 +du_fmap_306 v0 v1 v2 v3 v4 = coe du_fmap_292 (coe v0) v3 v4 -- Utils._.return -d_return_300 :: T_Monad_246 -> () -> AgdaAny -> AgdaAny -d_return_300 v0 = coe d_return_262 (coe v0) +d_return_308 :: T_Monad_254 -> () -> AgdaAny -> AgdaAny +d_return_308 v0 = coe d_return_270 (coe v0) -- Utils.MaybeMonad -d_MaybeMonad_302 :: T_Monad_246 -d_MaybeMonad_302 +d_MaybeMonad_310 :: T_Monad_254 +d_MaybeMonad_310 = coe - C_constructor_290 + C_constructor_298 (coe (\ v0 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16)) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Data.Maybe.Base.du__'62''62''61'__72 v2 v3)) -- Utils.sumBind -d_sumBind_310 :: +d_sumBind_318 :: () -> () -> () -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> (AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -d_sumBind_310 ~v0 ~v1 ~v2 v3 v4 = du_sumBind_310 v3 v4 -du_sumBind_310 :: +d_sumBind_318 ~v0 ~v1 ~v2 v3 v4 = du_sumBind_318 v3 v4 +du_sumBind_318 :: MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> (AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -du_sumBind_310 v0 v1 +du_sumBind_318 v0 v1 = case coe v0 of MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v2 -> coe v1 v2 MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v2 -> coe v0 _ -> MAlonzo.RTE.mazUnreachableError -- Utils.SumMonad -d_SumMonad_324 :: () -> T_Monad_246 -d_SumMonad_324 ~v0 = du_SumMonad_324 -du_SumMonad_324 :: T_Monad_246 -du_SumMonad_324 +d_SumMonad_332 :: () -> T_Monad_254 +d_SumMonad_332 ~v0 = du_SumMonad_332 +du_SumMonad_332 :: T_Monad_254 +du_SumMonad_332 = coe - C_constructor_290 + C_constructor_298 (coe (\ v0 -> coe MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38)) - (coe (\ v0 v1 -> coe du_sumBind_310)) + (coe (\ v0 v1 -> coe du_sumBind_318)) -- Utils.EitherMonad -d_EitherMonad_330 :: () -> T_Monad_246 -d_EitherMonad_330 ~v0 = du_EitherMonad_330 -du_EitherMonad_330 :: T_Monad_246 -du_EitherMonad_330 +d_EitherMonad_338 :: () -> T_Monad_254 +d_EitherMonad_338 ~v0 = du_EitherMonad_338 +du_EitherMonad_338 :: T_Monad_254 +du_EitherMonad_338 = coe - C_constructor_290 (coe (\ v0 -> coe C_inj'8322'_14)) + C_constructor_298 (coe (\ v0 -> coe C_inj'8322'_14)) (coe (\ v0 v1 -> coe du_eitherBind_54)) -- Utils.EitherP -d_EitherP_336 :: () -> T_Monad_246 -d_EitherP_336 ~v0 = du_EitherP_336 -du_EitherP_336 :: T_Monad_246 -du_EitherP_336 +d_EitherP_344 :: () -> T_Monad_254 +d_EitherP_344 ~v0 = du_EitherP_344 +du_EitherP_344 :: T_Monad_254 +du_EitherP_344 = coe - C_constructor_290 (coe (\ v0 -> coe C_inj'8322'_14)) + C_constructor_298 (coe (\ v0 -> coe C_inj'8322'_14)) (coe (\ v0 v1 -> coe du_eitherBind_54)) -- Utils.withE -d_withE_344 :: +d_withE_352 :: () -> () -> () -> (AgdaAny -> AgdaAny) -> T_Either_6 AgdaAny AgdaAny -> T_Either_6 AgdaAny AgdaAny -d_withE_344 ~v0 ~v1 ~v2 v3 v4 = du_withE_344 v3 v4 -du_withE_344 :: +d_withE_352 ~v0 ~v1 ~v2 v3 v4 = du_withE_352 v3 v4 +du_withE_352 :: (AgdaAny -> AgdaAny) -> T_Either_6 AgdaAny AgdaAny -> T_Either_6 AgdaAny AgdaAny -du_withE_344 v0 v1 +du_withE_352 v0 v1 = case coe v1 of C_inj'8321'_12 v2 -> coe C_inj'8321'_12 (coe v0 v2) C_inj'8322'_14 v2 -> coe v1 _ -> MAlonzo.RTE.mazUnreachableError -- Utils.dec2Either -d_dec2Either_356 :: +d_dec2Either_364 :: () -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -> T_Either_6 (AgdaAny -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) AgdaAny -d_dec2Either_356 ~v0 v1 = du_dec2Either_356 v1 -du_dec2Either_356 :: +d_dec2Either_364 ~v0 v1 = du_dec2Either_364 v1 +du_dec2Either_364 :: MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -> T_Either_6 (AgdaAny -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) AgdaAny -du_dec2Either_356 v0 +du_dec2Either_364 v0 = case coe v0 of MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v1 v2 -> if coe v1 @@ -411,198 +423,198 @@ du_dec2Either_356 v0 else coe seq (coe v2) (coe C_inj'8321'_12 erased) _ -> MAlonzo.RTE.mazUnreachableError -- Utils.Writer -d_Writer_366 a0 a1 = () -data T_Writer_366 = C__'44'__380 AgdaAny AgdaAny +d_Writer_374 a0 a1 = () +data T_Writer_374 = C__'44'__388 AgdaAny AgdaAny -- Utils.Writer.wrvalue -d_wrvalue_376 :: T_Writer_366 -> AgdaAny -d_wrvalue_376 v0 +d_wrvalue_384 :: T_Writer_374 -> AgdaAny +d_wrvalue_384 v0 = case coe v0 of - C__'44'__380 v1 v2 -> coe v1 + C__'44'__388 v1 v2 -> coe v1 _ -> MAlonzo.RTE.mazUnreachableError -- Utils.Writer.accum -d_accum_378 :: T_Writer_366 -> AgdaAny -d_accum_378 v0 +d_accum_386 :: T_Writer_374 -> AgdaAny +d_accum_386 v0 = case coe v0 of - C__'44'__380 v1 v2 -> coe v2 + C__'44'__388 v1 v2 -> coe v2 _ -> MAlonzo.RTE.mazUnreachableError -- Utils.WriterMonad.WriterMonad -d_WriterMonad_390 :: - () -> AgdaAny -> (AgdaAny -> AgdaAny -> AgdaAny) -> T_Monad_246 -d_WriterMonad_390 ~v0 v1 v2 = du_WriterMonad_390 v1 v2 -du_WriterMonad_390 :: - AgdaAny -> (AgdaAny -> AgdaAny -> AgdaAny) -> T_Monad_246 -du_WriterMonad_390 v0 v1 +d_WriterMonad_398 :: + () -> AgdaAny -> (AgdaAny -> AgdaAny -> AgdaAny) -> T_Monad_254 +d_WriterMonad_398 ~v0 v1 v2 = du_WriterMonad_398 v1 v2 +du_WriterMonad_398 :: + AgdaAny -> (AgdaAny -> AgdaAny -> AgdaAny) -> T_Monad_254 +du_WriterMonad_398 v0 v1 = coe - C_constructor_290 - (coe (\ v2 v3 -> coe C__'44'__380 (coe v3) (coe v0))) + C_constructor_298 + (coe (\ v2 v3 -> coe C__'44'__388 (coe v3) (coe v0))) (coe (\ v2 v3 v4 -> case coe v4 of - C__'44'__380 v5 v6 + C__'44'__388 v5 v6 -> coe (\ v7 -> coe - C__'44'__380 (coe d_wrvalue_376 (coe v7 v5)) - (coe v1 v6 (d_accum_378 (coe v7 v5)))) + C__'44'__388 (coe d_wrvalue_384 (coe v7 v5)) + (coe v1 v6 (d_accum_386 (coe v7 v5)))) _ -> MAlonzo.RTE.mazUnreachableError)) -- Utils.WriterMonad.tell -d_tell_406 :: +d_tell_414 :: () -> AgdaAny -> - (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> T_Writer_366 -d_tell_406 ~v0 ~v1 ~v2 v3 = du_tell_406 v3 -du_tell_406 :: AgdaAny -> T_Writer_366 -du_tell_406 v0 + (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> T_Writer_374 +d_tell_414 ~v0 ~v1 ~v2 v3 = du_tell_414 v3 +du_tell_414 :: AgdaAny -> T_Writer_374 +du_tell_414 v0 = coe - C__'44'__380 (coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8) (coe v0) + C__'44'__388 (coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8) (coe v0) -- Utils.RuntimeError -d_RuntimeError_410 = () -type T_RuntimeError_410 = RuntimeError -pattern C_gasError_412 = GasError -pattern C_userError_414 = UserError -pattern C_runtimeTypeError_416 = RuntimeTypeError -check_gasError_412 :: T_RuntimeError_410 -check_gasError_412 = GasError -check_userError_414 :: T_RuntimeError_410 -check_userError_414 = UserError -check_runtimeTypeError_416 :: T_RuntimeError_410 -check_runtimeTypeError_416 = RuntimeTypeError -cover_RuntimeError_410 :: RuntimeError -> () -cover_RuntimeError_410 x +d_RuntimeError_418 = () +type T_RuntimeError_418 = RuntimeError +pattern C_gasError_420 = GasError +pattern C_userError_422 = UserError +pattern C_runtimeTypeError_424 = RuntimeTypeError +check_gasError_420 :: T_RuntimeError_418 +check_gasError_420 = GasError +check_userError_422 :: T_RuntimeError_418 +check_userError_422 = UserError +check_runtimeTypeError_424 :: T_RuntimeError_418 +check_runtimeTypeError_424 = RuntimeTypeError +cover_RuntimeError_418 :: RuntimeError -> () +cover_RuntimeError_418 x = case x of GasError -> () UserError -> () RuntimeTypeError -> () -- Utils.ByteString -type T_ByteString_418 = BS.ByteString -d_ByteString_418 +type T_ByteString_426 = BS.ByteString +d_ByteString_426 = error "MAlonzo Runtime Error: postulate evaluated: Utils.ByteString" -- Utils.mkByteString -d_mkByteString_420 +d_mkByteString_428 = error "MAlonzo Runtime Error: postulate evaluated: Utils.mkByteString" -- Utils.eqByteString -d_eqByteString_422 :: T_ByteString_418 -> T_ByteString_418 -> Bool -d_eqByteString_422 = (==) +d_eqByteString_430 :: T_ByteString_426 -> T_ByteString_426 -> Bool +d_eqByteString_430 = (==) -- Utils._×_ -d__'215'__428 a0 a1 = () -type T__'215'__428 a0 a1 = Pair a0 a1 -pattern C__'44'__442 a0 a1 = (,) a0 a1 -check__'44'__442 :: - forall xA. forall xB. xA -> xB -> T__'215'__428 xA xB -check__'44'__442 = (,) -cover__'215'__428 :: Pair a1 a2 -> () -cover__'215'__428 x +d__'215'__436 a0 a1 = () +type T__'215'__436 a0 a1 = Pair a0 a1 +pattern C__'44'__450 a0 a1 = (,) a0 a1 +check__'44'__450 :: + forall xA. forall xB. xA -> xB -> T__'215'__436 xA xB +check__'44'__450 = (,) +cover__'215'__436 :: Pair a1 a2 -> () +cover__'215'__436 x = case x of (,) _ _ -> () -- Utils._×_.proj₁ -d_proj'8321'_438 :: T__'215'__428 AgdaAny AgdaAny -> AgdaAny -d_proj'8321'_438 v0 +d_proj'8321'_446 :: T__'215'__436 AgdaAny AgdaAny -> AgdaAny +d_proj'8321'_446 v0 = case coe v0 of - C__'44'__442 v1 v2 -> coe v1 + C__'44'__450 v1 v2 -> coe v1 _ -> MAlonzo.RTE.mazUnreachableError -- Utils._×_.proj₂ -d_proj'8322'_440 :: T__'215'__428 AgdaAny AgdaAny -> AgdaAny -d_proj'8322'_440 v0 +d_proj'8322'_448 :: T__'215'__436 AgdaAny AgdaAny -> AgdaAny +d_proj'8322'_448 v0 = case coe v0 of - C__'44'__442 v1 v2 -> coe v2 + C__'44'__450 v1 v2 -> coe v2 _ -> MAlonzo.RTE.mazUnreachableError -- Utils.List -d_List_446 a0 = () -type T_List_446 a0 = [] a0 -pattern C_'91''93'_450 = [] -pattern C__'8759'__452 a0 a1 = (:) a0 a1 -check_'91''93'_450 :: forall xA. T_List_446 xA -check_'91''93'_450 = [] -check__'8759'__452 :: - forall xA. xA -> T_List_446 xA -> T_List_446 xA -check__'8759'__452 = (:) -cover_List_446 :: [] a1 -> () -cover_List_446 x +d_List_454 a0 = () +type T_List_454 a0 = [] a0 +pattern C_'91''93'_458 = [] +pattern C__'8759'__460 a0 a1 = (:) a0 a1 +check_'91''93'_458 :: forall xA. T_List_454 xA +check_'91''93'_458 = [] +check__'8759'__460 :: + forall xA. xA -> T_List_454 xA -> T_List_454 xA +check__'8759'__460 = (:) +cover_List_454 :: [] a1 -> () +cover_List_454 x = case x of [] -> () (:) _ _ -> () -- Utils.All -d_All_460 a0 a1 a2 a3 = () -data T_All_460 = C_'91''93'_468 | C__'8759'__478 AgdaAny T_All_460 +d_All_468 a0 a1 a2 a3 = () +data T_All_468 = C_'91''93'_476 | C__'8759'__486 AgdaAny T_All_468 -- Utils.length -d_length_482 :: () -> T_List_446 AgdaAny -> Integer -d_length_482 ~v0 v1 = du_length_482 v1 -du_length_482 :: T_List_446 AgdaAny -> Integer -du_length_482 v0 +d_length_490 :: () -> T_List_454 AgdaAny -> Integer +d_length_490 ~v0 v1 = du_length_490 v1 +du_length_490 :: T_List_454 AgdaAny -> Integer +du_length_490 v0 = case coe v0 of - C_'91''93'_450 -> coe (0 :: Integer) - C__'8759'__452 v1 v2 - -> coe addInt (coe (1 :: Integer)) (coe du_length_482 (coe v2)) + C_'91''93'_458 -> coe (0 :: Integer) + C__'8759'__460 v1 v2 + -> coe addInt (coe (1 :: Integer)) (coe du_length_490 (coe v2)) _ -> MAlonzo.RTE.mazUnreachableError -- Utils.map -d_map_492 :: +d_map_500 :: () -> () -> - (AgdaAny -> AgdaAny) -> T_List_446 AgdaAny -> T_List_446 AgdaAny -d_map_492 ~v0 ~v1 v2 v3 = du_map_492 v2 v3 -du_map_492 :: - (AgdaAny -> AgdaAny) -> T_List_446 AgdaAny -> T_List_446 AgdaAny -du_map_492 v0 v1 + (AgdaAny -> AgdaAny) -> T_List_454 AgdaAny -> T_List_454 AgdaAny +d_map_500 ~v0 ~v1 v2 v3 = du_map_500 v2 v3 +du_map_500 :: + (AgdaAny -> AgdaAny) -> T_List_454 AgdaAny -> T_List_454 AgdaAny +du_map_500 v0 v1 = case coe v1 of - C_'91''93'_450 -> coe v1 - C__'8759'__452 v2 v3 + C_'91''93'_458 -> coe v1 + C__'8759'__460 v2 v3 -> coe - C__'8759'__452 (coe v0 v2) (coe du_map_492 (coe v0) (coe v3)) + C__'8759'__460 (coe v0 v2) (coe du_map_500 (coe v0) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError -- Utils.toList -d_toList_504 :: () -> T_List_446 AgdaAny -> [AgdaAny] -d_toList_504 ~v0 v1 = du_toList_504 v1 -du_toList_504 :: T_List_446 AgdaAny -> [AgdaAny] -du_toList_504 v0 +d_toList_512 :: () -> T_List_454 AgdaAny -> [AgdaAny] +d_toList_512 ~v0 v1 = du_toList_512 v1 +du_toList_512 :: T_List_454 AgdaAny -> [AgdaAny] +du_toList_512 v0 = case coe v0 of - C_'91''93'_450 -> coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16 - C__'8759'__452 v1 v2 + C_'91''93'_458 -> coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16 + C__'8759'__460 v1 v2 -> coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe v1) - (coe du_toList_504 (coe v2)) + (coe du_toList_512 (coe v2)) _ -> MAlonzo.RTE.mazUnreachableError -- Utils.fromList -d_fromList_512 :: () -> [AgdaAny] -> T_List_446 AgdaAny -d_fromList_512 ~v0 v1 = du_fromList_512 v1 -du_fromList_512 :: [AgdaAny] -> T_List_446 AgdaAny -du_fromList_512 v0 +d_fromList_520 :: () -> [AgdaAny] -> T_List_454 AgdaAny +d_fromList_520 ~v0 v1 = du_fromList_520 v1 +du_fromList_520 :: [AgdaAny] -> T_List_454 AgdaAny +du_fromList_520 v0 = case coe v0 of - [] -> coe C_'91''93'_450 + [] -> coe C_'91''93'_458 (:) v1 v2 - -> coe C__'8759'__452 (coe v1) (coe du_fromList_512 (coe v2)) + -> coe C__'8759'__460 (coe v1) (coe du_fromList_520 (coe v2)) _ -> MAlonzo.RTE.mazUnreachableError -- Utils.dropLIST -d_dropLIST_520 :: - () -> Integer -> T_List_446 AgdaAny -> T_List_446 AgdaAny -d_dropLIST_520 ~v0 v1 v2 = du_dropLIST_520 v1 v2 -du_dropLIST_520 :: - Integer -> T_List_446 AgdaAny -> T_List_446 AgdaAny -du_dropLIST_520 v0 v1 +d_dropLIST_528 :: + () -> Integer -> T_List_454 AgdaAny -> T_List_454 AgdaAny +d_dropLIST_528 ~v0 v1 v2 = du_dropLIST_528 v1 v2 +du_dropLIST_528 :: + Integer -> T_List_454 AgdaAny -> T_List_454 AgdaAny +du_dropLIST_528 v0 v1 = case coe v0 of _ | coe geqInt (coe v0) (coe (0 :: Integer)) -> - coe du_drop_532 (coe v0) (coe v1) + coe du_drop_540 (coe v0) (coe v1) _ -> coe v1 -- Utils._.drop -d_drop_532 :: +d_drop_540 :: () -> Integer -> - T_List_446 AgdaAny -> - () -> Integer -> T_List_446 AgdaAny -> T_List_446 AgdaAny -d_drop_532 ~v0 ~v1 ~v2 ~v3 v4 v5 = du_drop_532 v4 v5 -du_drop_532 :: Integer -> T_List_446 AgdaAny -> T_List_446 AgdaAny -du_drop_532 v0 v1 + T_List_454 AgdaAny -> + () -> Integer -> T_List_454 AgdaAny -> T_List_454 AgdaAny +d_drop_540 ~v0 ~v1 ~v2 ~v3 v4 v5 = du_drop_540 v4 v5 +du_drop_540 :: Integer -> T_List_454 AgdaAny -> T_List_454 AgdaAny +du_drop_540 v0 v1 = case coe v0 of 0 -> coe v1 _ -> let v2 = subInt (coe v0) (coe (1 :: Integer)) in coe (case coe v1 of - C_'91''93'_450 -> coe v1 - C__'8759'__452 v3 v4 -> coe du_drop_532 (coe v2) (coe v4) + C_'91''93'_458 -> coe v1 + C__'8759'__460 v3 v4 -> coe du_drop_540 (coe v2) (coe v4) _ -> MAlonzo.RTE.mazUnreachableError) -- Utils.map-cong -d_map'45'cong_556 :: +d_map'45'cong_564 :: () -> () -> [AgdaAny] -> @@ -610,79 +622,79 @@ d_map'45'cong_556 :: (AgdaAny -> AgdaAny) -> (AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -d_map'45'cong_556 = erased +d_map'45'cong_564 = erased -- Utils.sequence -d_sequence_572 :: - () -> (() -> ()) -> T_Monad_246 -> T_List_446 AgdaAny -> AgdaAny -d_sequence_572 ~v0 ~v1 v2 v3 = du_sequence_572 v2 v3 -du_sequence_572 :: T_Monad_246 -> T_List_446 AgdaAny -> AgdaAny -du_sequence_572 v0 v1 +d_sequence_580 :: + () -> (() -> ()) -> T_Monad_254 -> T_List_454 AgdaAny -> AgdaAny +d_sequence_580 ~v0 ~v1 v2 v3 = du_sequence_580 v2 v3 +du_sequence_580 :: T_Monad_254 -> T_List_454 AgdaAny -> AgdaAny +du_sequence_580 v0 v1 = case coe v1 of - C_'91''93'_450 -> coe d_return_262 v0 erased v1 - C__'8759'__452 v2 v3 + C_'91''93'_458 -> coe d_return_270 v0 erased v1 + C__'8759'__460 v2 v3 -> coe - d__'62''62''61'__268 v0 erased erased v2 + d__'62''62''61'__276 v0 erased erased v2 (\ v4 -> coe - d__'62''62''61'__268 v0 erased erased - (coe du_sequence_572 (coe v0) (coe v3)) + d__'62''62''61'__276 v0 erased erased + (coe du_sequence_580 (coe v0) (coe v3)) (\ v5 -> - coe d_return_262 v0 erased (coe C__'8759'__452 (coe v4) (coe v5)))) + coe d_return_270 v0 erased (coe C__'8759'__460 (coe v4) (coe v5)))) _ -> MAlonzo.RTE.mazUnreachableError -- Utils.mapM -d_mapM_590 :: +d_mapM_598 :: () -> () -> (() -> ()) -> - T_Monad_246 -> - (AgdaAny -> AgdaAny) -> T_List_446 AgdaAny -> AgdaAny -d_mapM_590 ~v0 ~v1 ~v2 v3 v4 v5 = du_mapM_590 v3 v4 v5 -du_mapM_590 :: - T_Monad_246 -> - (AgdaAny -> AgdaAny) -> T_List_446 AgdaAny -> AgdaAny -du_mapM_590 v0 v1 v2 - = coe du_sequence_572 (coe v0) (coe du_map_492 (coe v1) (coe v2)) + T_Monad_254 -> + (AgdaAny -> AgdaAny) -> T_List_454 AgdaAny -> AgdaAny +d_mapM_598 ~v0 ~v1 ~v2 v3 v4 v5 = du_mapM_598 v3 v4 v5 +du_mapM_598 :: + T_Monad_254 -> + (AgdaAny -> AgdaAny) -> T_List_454 AgdaAny -> AgdaAny +du_mapM_598 v0 v1 v2 + = coe du_sequence_580 (coe v0) (coe du_map_500 (coe v1) (coe v2)) -- Utils.Array -type T_Array_594 a0 = Strict.Vector a0 -d_Array_594 +type T_Array_602 a0 = Strict.Vector a0 +d_Array_602 = error "MAlonzo Runtime Error: postulate evaluated: Utils.Array" -- Utils.HSlengthOfArray -d_HSlengthOfArray_598 :: forall xA. () -> T_Array_594 xA -> Integer -d_HSlengthOfArray_598 = \() -> \as -> toInteger (Strict.length as) +d_HSlengthOfArray_606 :: forall xA. () -> T_Array_602 xA -> Integer +d_HSlengthOfArray_606 = \() -> \as -> toInteger (Strict.length as) -- Utils.HSlistToArray -d_HSlistToArray_602 :: - forall xA. () -> T_List_446 xA -> T_Array_594 xA -d_HSlistToArray_602 = \() -> Strict.fromList +d_HSlistToArray_610 :: + forall xA. () -> T_List_454 xA -> T_Array_602 xA +d_HSlistToArray_610 = \() -> Strict.fromList -- Utils.HSindexArray -d_HSindexArray_604 :: - forall xA. () -> T_Array_594 xA -> Integer -> xA -d_HSindexArray_604 +d_HSindexArray_612 :: + forall xA. () -> T_Array_602 xA -> Integer -> xA +d_HSindexArray_612 = \() -> \as -> \i -> as Strict.! (fromInteger i) -- Utils.mkArray -d_mkArray_608 +d_mkArray_616 = error "MAlonzo Runtime Error: postulate evaluated: Utils.mkArray" -- Utils.DATA -d_DATA_610 = () -type T_DATA_610 = Data -pattern C_ConstrDATA_612 a0 a1 = D.Constr a0 a1 -pattern C_MapDATA_614 a0 = D.Map a0 -pattern C_ListDATA_616 a0 = D.List a0 -pattern C_iDATA_618 a0 = D.I a0 -pattern C_bDATA_620 a0 = D.B a0 -check_ConstrDATA_612 :: - Integer -> T_List_446 T_DATA_610 -> T_DATA_610 -check_ConstrDATA_612 = D.Constr -check_MapDATA_614 :: - T_List_446 (T__'215'__428 T_DATA_610 T_DATA_610) -> T_DATA_610 -check_MapDATA_614 = D.Map -check_ListDATA_616 :: T_List_446 T_DATA_610 -> T_DATA_610 -check_ListDATA_616 = D.List -check_iDATA_618 :: Integer -> T_DATA_610 -check_iDATA_618 = D.I -check_bDATA_620 :: T_ByteString_418 -> T_DATA_610 -check_bDATA_620 = D.B -cover_DATA_610 :: Data -> () -cover_DATA_610 x +d_DATA_618 = () +type T_DATA_618 = Data +pattern C_ConstrDATA_620 a0 a1 = D.Constr a0 a1 +pattern C_MapDATA_622 a0 = D.Map a0 +pattern C_ListDATA_624 a0 = D.List a0 +pattern C_iDATA_626 a0 = D.I a0 +pattern C_bDATA_628 a0 = D.B a0 +check_ConstrDATA_620 :: + Integer -> T_List_454 T_DATA_618 -> T_DATA_618 +check_ConstrDATA_620 = D.Constr +check_MapDATA_622 :: + T_List_454 (T__'215'__436 T_DATA_618 T_DATA_618) -> T_DATA_618 +check_MapDATA_622 = D.Map +check_ListDATA_624 :: T_List_454 T_DATA_618 -> T_DATA_618 +check_ListDATA_624 = D.List +check_iDATA_626 :: Integer -> T_DATA_618 +check_iDATA_626 = D.I +check_bDATA_628 :: T_ByteString_426 -> T_DATA_618 +check_bDATA_628 = D.B +cover_DATA_618 :: Data -> () +cover_DATA_618 x = case x of D.Constr _ _ -> () D.Map _ -> () @@ -690,52 +702,52 @@ cover_DATA_610 x D.I _ -> () D.B _ -> () -- Utils.eqDATA -d_eqDATA_622 :: T_DATA_610 -> T_DATA_610 -> Bool -d_eqDATA_622 = (==) +d_eqDATA_630 :: T_DATA_618 -> T_DATA_618 -> Bool +d_eqDATA_630 = (==) -- Utils.Bls12-381-G1-Element -type T_Bls12'45'381'45'G1'45'Element_756 = G1.Element -d_Bls12'45'381'45'G1'45'Element_756 +type T_Bls12'45'381'45'G1'45'Element_764 = G1.Element +d_Bls12'45'381'45'G1'45'Element_764 = error "MAlonzo Runtime Error: postulate evaluated: Utils.Bls12-381-G1-Element" -- Utils.eqBls12-381-G1-Element -d_eqBls12'45'381'45'G1'45'Element_758 :: - T_Bls12'45'381'45'G1'45'Element_756 -> - T_Bls12'45'381'45'G1'45'Element_756 -> Bool -d_eqBls12'45'381'45'G1'45'Element_758 = (==) +d_eqBls12'45'381'45'G1'45'Element_766 :: + T_Bls12'45'381'45'G1'45'Element_764 -> + T_Bls12'45'381'45'G1'45'Element_764 -> Bool +d_eqBls12'45'381'45'G1'45'Element_766 = (==) -- Utils.Bls12-381-G2-Element -type T_Bls12'45'381'45'G2'45'Element_760 = G2.Element -d_Bls12'45'381'45'G2'45'Element_760 +type T_Bls12'45'381'45'G2'45'Element_768 = G2.Element +d_Bls12'45'381'45'G2'45'Element_768 = error "MAlonzo Runtime Error: postulate evaluated: Utils.Bls12-381-G2-Element" -- Utils.eqBls12-381-G2-Element -d_eqBls12'45'381'45'G2'45'Element_762 :: - T_Bls12'45'381'45'G2'45'Element_760 -> - T_Bls12'45'381'45'G2'45'Element_760 -> Bool -d_eqBls12'45'381'45'G2'45'Element_762 = (==) +d_eqBls12'45'381'45'G2'45'Element_770 :: + T_Bls12'45'381'45'G2'45'Element_768 -> + T_Bls12'45'381'45'G2'45'Element_768 -> Bool +d_eqBls12'45'381'45'G2'45'Element_770 = (==) -- Utils.Bls12-381-MlResult -type T_Bls12'45'381'45'MlResult_764 = Pairing.MlResult -d_Bls12'45'381'45'MlResult_764 +type T_Bls12'45'381'45'MlResult_772 = Pairing.MlResult +d_Bls12'45'381'45'MlResult_772 = error "MAlonzo Runtime Error: postulate evaluated: Utils.Bls12-381-MlResult" -- Utils.eqBls12-381-MlResult -d_eqBls12'45'381'45'MlResult_766 :: - T_Bls12'45'381'45'MlResult_764 -> - T_Bls12'45'381'45'MlResult_764 -> Bool -d_eqBls12'45'381'45'MlResult_766 = (==) +d_eqBls12'45'381'45'MlResult_774 :: + T_Bls12'45'381'45'MlResult_772 -> + T_Bls12'45'381'45'MlResult_772 -> Bool +d_eqBls12'45'381'45'MlResult_774 = (==) -- Utils.Kind -d_Kind_768 = () -type T_Kind_768 = KIND -pattern C_'42'_770 = Star -pattern C_'9839'_772 = Sharp -pattern C__'8658'__774 a0 a1 = Arrow a0 a1 -check_'42'_770 :: T_Kind_768 -check_'42'_770 = Star -check_'9839'_772 :: T_Kind_768 -check_'9839'_772 = Sharp -check__'8658'__774 :: T_Kind_768 -> T_Kind_768 -> T_Kind_768 -check__'8658'__774 = Arrow -cover_Kind_768 :: KIND -> () -cover_Kind_768 x +d_Kind_776 = () +type T_Kind_776 = KIND +pattern C_'42'_778 = Star +pattern C_'9839'_780 = Sharp +pattern C__'8658'__782 a0 a1 = Arrow a0 a1 +check_'42'_778 :: T_Kind_776 +check_'42'_778 = Star +check_'9839'_780 :: T_Kind_776 +check_'9839'_780 = Sharp +check__'8658'__782 :: T_Kind_776 -> T_Kind_776 -> T_Kind_776 +check__'8658'__782 = Arrow +cover_Kind_776 :: KIND -> () +cover_Kind_776 x = case x of Star -> () Sharp -> () diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation.hs index bfec8fb207c..78fad2e26c6 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.UCaseReduce 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,12 +113,18 @@ 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_applyToCaseT_24 + MAlonzo.Code.VerifiedCompilation.Trace.C_applyToCaseT_22 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.du_decider_192 (coe MAlonzo.Code.VerifiedCompilation.UApplyToCase.d_a2c'63''7580''7580'_24 (coe (0 :: Integer))) + MAlonzo.Code.VerifiedCompilation.Trace.C_caseReduceT_24 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.du_decider_192 + (coe + MAlonzo.Code.VerifiedCompilation.UCaseReduce.d_decide_526 + (coe (0 :: Integer))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.Certificate @@ -144,7 +151,7 @@ d_certify_46 v0 (\ v7 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe MAlonzo.Code.Utils.C__'44'__442 (coe v6) (coe v7)))) + (coe MAlonzo.Code.Utils.C__'44'__450 (coe v6) (coe v7)))) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_26 v9 v10 v11 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_counterExample_8 (coe v9)) @@ -175,7 +182,7 @@ d_checkScope_100 :: Maybe MAlonzo.Code.Untyped.T__'8866'_14 d_checkScope_100 v0 = coe - MAlonzo.Code.Utils.du_eitherToMaybe_104 + MAlonzo.Code.Utils.du_eitherToMaybe_112 (coe MAlonzo.Code.Untyped.d_scopeCheckU0_276 (coe v0)) -- VerifiedCompilation.checkScopeᵗ d_checkScope'7511'_102 :: 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/Compatibility.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Compatibility.hs new file mode 100644 index 00000000000..74e253399e2 --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Compatibility.hs @@ -0,0 +1,2518 @@ +{-# 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.Compatibility 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.Builtin +import qualified MAlonzo.Code.Data.Fin.Base +import qualified MAlonzo.Code.Data.Fin.Properties +import qualified MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base +import qualified MAlonzo.Code.Data.Nat.Properties +import qualified MAlonzo.Code.RawU +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.Equality +import qualified MAlonzo.Code.VerifiedCompilation.UntypedViews + +-- VerifiedCompilation.Compatibility.Rel +d_Rel_4 :: Integer -> () +d_Rel_4 = erased +-- VerifiedCompilation.Compatibility.CompatVar +d_CompatVar_28 a0 a1 a2 = () +data T_CompatVar_28 = C_'96''7580'_34 +-- VerifiedCompilation.Compatibility.CompatApply +d_CompatApply_40 a0 a1 a2 a3 = () +data T_CompatApply_40 = C__'183''7580'__46 AgdaAny AgdaAny +-- VerifiedCompilation.Compatibility.CompatLam +d_CompatLam_52 a0 a1 a2 a3 = () +newtype T_CompatLam_52 = C_ƛ'7580'_60 AgdaAny +-- VerifiedCompilation.Compatibility.CompatForce +d_CompatForce_66 a0 a1 a2 a3 = () +newtype T_CompatForce_66 = C_force'7580'_70 AgdaAny +-- VerifiedCompilation.Compatibility.CompatDelay +d_CompatDelay_76 a0 a1 a2 a3 = () +newtype T_CompatDelay_76 = C_delay'7580'_80 AgdaAny +-- VerifiedCompilation.Compatibility.CompatCase +d_CompatCase_86 a0 a1 a2 a3 = () +data T_CompatCase_86 + = C_case'7580'_90 AgdaAny + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 +-- VerifiedCompilation.Compatibility.CompatConstr +d_CompatConstr_96 a0 a1 a2 a3 = () +newtype T_CompatConstr_96 + = C_constr'7580'_102 MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 +-- VerifiedCompilation.Compatibility.CompatCon +d_CompatCon_106 a0 a1 a2 = () +data T_CompatCon_106 = C_con'7580'_112 +-- VerifiedCompilation.Compatibility.CompatError +d_CompatError_116 a0 a1 a2 = () +data T_CompatError_116 = C_error'7580'_120 +-- VerifiedCompilation.Compatibility.CompatBuiltin +d_CompatBuiltin_124 a0 a1 a2 = () +data T_CompatBuiltin_124 = C_builtin'7580'_130 +-- VerifiedCompilation.Compatibility.CompatTerm +d_CompatTerm_134 :: + Integer -> + (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 -> () +d_CompatTerm_134 = erased +-- VerifiedCompilation.Compatibility.compatVar? +d_compatVar'63'_142 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatVar'63'_142 ~v0 v1 v2 = du_compatVar'63'_142 v1 v2 +du_compatVar'63'_142 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatVar'63'_142 v0 v1 + = let v2 + = \ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> let v4 = coe v2 v3 in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> coe + seq (coe v7) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v8 + -> let v9 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe v3) (coe v8) 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_'96''7580'_34))) + 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 + -> coe + seq + (coe + 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_'96''7580'_34))) + _ -> 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.Code.Untyped.C_ƛ_20 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_force_24 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_delay_26 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_constr_34 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_case_40 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_builtin_44 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_error_46 + -> let v8 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (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.RTE.mazUnreachableError + else (let v7 + = seq + (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) 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.VerifiedCompilation.UntypedViews.C_'96''33'_864 v12 + -> coe + seq (coe v12) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v13 + -> let v14 + = coe + MAlonzo.Code.Data.Fin.Properties.du__'8799'__50 + (coe v3) + (coe v13) 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_'96''7580'_34))) + else (let v17 + = 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)) 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 + seq + (coe + 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_'96''7580'_34))) + _ -> 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.Code.Untyped.C_ƛ_20 v13 + -> 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 v13 v14 + -> 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_force_24 v13 + -> 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_delay_26 v13 + -> 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 v13 + -> 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 v13 v14 + -> 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_case_40 v13 v14 + -> 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_builtin_44 v13 + -> 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 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> 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.Code.Untyped.C__'183'__22 v3 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_force_24 v3 + -> 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.Code.Untyped.C_delay_26 v3 + -> 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.Code.Untyped.C_con_28 v3 + -> 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.Code.Untyped.C_constr_34 v3 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_case_40 v3 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_builtin_44 v3 + -> 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.Code.Untyped.C_error_46 + -> let v3 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v3) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.Compatibility.compatApply? +d_compatApply'63'_188 :: + 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 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatApply'63'_188 ~v0 ~v1 v2 v3 v4 + = du_compatApply'63'_188 v2 v3 v4 +du_compatApply'63'_188 :: + (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.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatApply'63'_188 v0 v1 v2 + = let v3 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'183''63'__1230 + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v1)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'183''63'__1230 + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v2)) 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.Agda.Builtin.Sigma.C__'44'__32 v7 v8 + -> case coe v7 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v11 v12 + -> case coe v1 of + MAlonzo.Code.Untyped.C__'183'__22 v13 v14 + -> coe + seq (coe v11) + (coe + seq (coe v12) + (case coe v8 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'183''33'__894 v17 v18 + -> case coe v2 of + MAlonzo.Code.Untyped.C__'183'__22 v19 v20 + -> coe + seq (coe v17) + (coe + seq (coe v18) + (let v21 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + v0 v13 v19) + (coe + v0 v14 + v20) 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 + -> 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''7580'__46 + v25 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v5) + (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) +-- VerifiedCompilation.Compatibility.compatLam? +d_compatLam'63'_278 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (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.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatLam'63'_278 v0 ~v1 v2 v3 v4 + = du_compatLam'63'_278 v0 v2 v3 v4 +du_compatLam'63'_278 :: + Integer -> + (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.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatLam'63'_278 v0 v1 v2 v3 + = let v4 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_ƛ'63'_1128 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v2)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_ƛ'63'_1128 + (\ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v3)) in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> case coe v7 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9 + -> case coe v8 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_ƛ'33'_876 v11 + -> case coe v2 of + MAlonzo.Code.Untyped.C_ƛ_20 v12 + -> coe + seq (coe v11) + (case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_ƛ'33'_876 v14 + -> case coe v3 of + MAlonzo.Code.Untyped.C_ƛ_20 v15 + -> coe + seq (coe v14) + (let v16 + = coe + v1 + (addInt + (coe + (1 :: Integer)) + (coe v0)) + v12 v15 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_ƛ'7580'_60 + 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.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.Compatibility.compatForce? +d_compatForce'63'_344 :: + 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 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatForce'63'_344 ~v0 ~v1 v2 v3 v4 + = du_compatForce'63'_344 v2 v3 v4 +du_compatForce'63'_344 :: + (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.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatForce'63'_344 v0 v1 v2 + = let v3 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_force'63'_1344 + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v1)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_force'63'_1344 + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v2)) 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.Agda.Builtin.Sigma.C__'44'__32 v7 v8 + -> case coe v7 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_force'33'_906 v10 + -> case coe v1 of + MAlonzo.Code.Untyped.C_force_24 v11 + -> coe + seq (coe v10) + (case coe v8 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_force'33'_906 v13 + -> case coe v2 of + MAlonzo.Code.Untyped.C_force_24 v14 + -> coe + seq (coe v13) + (let v15 = coe v0 v11 v14 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_force'7580'_70 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + 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)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> 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.Relation.Nullary.Decidable.Core.C__because__32 + (coe v4) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.Compatibility.compatDelay? +d_compatDelay'63'_410 :: + 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 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatDelay'63'_410 ~v0 ~v1 v2 v3 v4 + = du_compatDelay'63'_410 v2 v3 v4 +du_compatDelay'63'_410 :: + (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.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatDelay'63'_410 v0 v1 v2 + = let v3 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_delay'63'_1422 + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v1)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_delay'63'_1422 + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v2)) 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.Agda.Builtin.Sigma.C__'44'__32 v7 v8 + -> case coe v7 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_delay'33'_918 v10 + -> case coe v1 of + MAlonzo.Code.Untyped.C_delay_26 v11 + -> coe + seq (coe v10) + (case coe v8 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_delay'33'_918 v13 + -> case coe v2 of + MAlonzo.Code.Untyped.C_delay_26 v14 + -> coe + seq (coe v13) + (let v15 = coe v0 v11 v14 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_delay'7580'_80 + v18)) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + 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)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> 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.Relation.Nullary.Decidable.Core.C__because__32 + (coe v4) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.Compatibility.pointwise? +d_pointwise'63'_488 :: + () -> + () -> + (AgdaAny -> AgdaAny -> ()) -> + (AgdaAny -> + AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + [AgdaAny] -> + [AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_pointwise'63'_488 ~v0 ~v1 ~v2 v3 v4 v5 + = du_pointwise'63'_488 v3 v4 v5 +du_pointwise'63'_488 :: + (AgdaAny -> + AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + [AgdaAny] -> + [AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_pointwise'63'_488 v0 v1 v2 + = case coe v1 of + [] + -> case coe v2 of + [] + -> 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 + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56)) + (:) 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.RTE.mazUnreachableError + (:) v3 v4 + -> 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) + (:) v5 v6 + -> let v7 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v0 v3 v5) + (coe du_pointwise'63'_488 (coe v0) (coe v4) (coe 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 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> 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.Binary.Pointwise.Base.C__'8759'__62 + v11 v12)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.Compatibility.compatConstr? +d_compatConstr'63'_544 :: + 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 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatConstr'63'_544 ~v0 ~v1 v2 v3 v4 + = du_compatConstr'63'_544 v2 v3 v4 +du_compatConstr'63'_544 :: + (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.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatConstr'63'_544 v0 v1 v2 + = let v3 + = \ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (let v4 + = \ v4 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v5 + -> let v6 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v6) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_ƛ_20 v5 + -> let v6 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v6) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v5 v6 + -> let v7 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_force_24 v5 + -> let v6 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v6) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_delay_26 v5 + -> let v6 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v6) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v5 + -> let v6 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v6) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_constr_34 v5 v6 + -> let v7 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v3 v5) (coe v4 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 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + seq (coe v11) + (coe + seq (coe v12) + (case coe v2 of + MAlonzo.Code.Untyped.C_'96'_18 v13 + -> let v14 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_ƛ_20 v13 + -> let v14 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v13 v14 + -> let v15 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_force_24 v13 + -> let v14 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_delay_26 v13 + -> let v14 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v13 + -> let v14 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_constr_34 v13 v14 + -> let v15 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.Data.Nat.Properties.d__'8799'__2796 + (coe v5) (coe v13)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) 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 + -> case coe v18 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v19 v20 + -> coe + seq + (coe + v20) + (let v21 + = coe + du_pointwise'63'_488 + (coe + v0) + (coe + v6) + (coe + v14) 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_constr'7580'_102 + 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 + 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_constr'33'_954 v24 v25 + -> coe + seq + (coe + v25) + (let v26 + = coe + du_pointwise'63'_488 + (coe + v0) + (coe + v6) + (coe + v14) 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 + C_constr'7580'_102 + 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 + _ -> 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.Code.Untyped.C_case_40 v13 v14 + -> let v15 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v15) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_builtin_44 v13 + -> let v14 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v14) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_error_46 + -> let v13 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (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 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_constr'33'_954 v16 v17 + -> coe + seq (coe v16) + (coe + seq (coe v17) + (case coe v2 of + MAlonzo.Code.Untyped.C_'96'_18 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_ƛ_20 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C__'183'__22 v18 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_force_24 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_delay_26 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_con_28 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_constr_34 v18 v19 + -> let v20 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.Data.Nat.Properties.d__'8799'__2796 + (coe v5) + (coe + v18)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) 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.Agda.Builtin.Sigma.C__'44'__32 v24 v25 + -> coe + seq + (coe + v25) + (let v26 + = coe + du_pointwise'63'_488 + (coe + v0) + (coe + v6) + (coe + v19) 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 + C_constr'7580'_102 + 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 + _ -> 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_constr'33'_954 v29 v30 + -> coe + seq + (coe + v30) + (let v31 + = coe + du_pointwise'63'_488 + (coe + v0) + (coe + v6) + (coe + v19) 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 + C_constr'7580'_102 + 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 + _ -> 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.Code.Untyped.C_case_40 v18 v19 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + MAlonzo.Code.Untyped.C_builtin_44 v18 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v8) + (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 v8) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> 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_case_40 v5 v6 + -> let v7 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v7) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_builtin_44 v5 + -> let v6 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v6) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_error_46 + -> 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.RTE.mazUnreachableError)) +-- VerifiedCompilation.Compatibility.compatCase? +d_compatCase'63'_644 :: + 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 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatCase'63'_644 ~v0 ~v1 v2 v3 v4 + = du_compatCase'63'_644 v2 v3 v4 +du_compatCase'63'_644 :: + (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.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatCase'63'_644 v0 v1 v2 + = let v3 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_case'63'_1502 + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v1)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_case'63'_1502 + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v3 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe v2)) 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.Agda.Builtin.Sigma.C__'44'__32 v7 v8 + -> case coe v7 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_case'33'_936 v11 v12 + -> case coe v1 of + MAlonzo.Code.Untyped.C_case_40 v13 v14 + -> coe + seq (coe v11) + (coe + seq (coe v12) + (case coe v8 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_case'33'_936 v17 v18 + -> case coe v2 of + MAlonzo.Code.Untyped.C_case_40 v19 v20 + -> coe + seq (coe v17) + (coe + seq (coe v18) + (let v21 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + v0 v13 v19) + (coe + du_pointwise'63'_488 + (coe v0) + (coe v14) + (coe + v20)) 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 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v22) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_case'7580'_90 + v25 + v26)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v5) + (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) +-- VerifiedCompilation.Compatibility.compatCon? +d_compatCon'63'_724 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatCon'63'_724 ~v0 v1 v2 = du_compatCon'63'_724 v1 v2 +du_compatCon'63'_724 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatCon'63'_724 v0 v1 + = let v2 + = \ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> 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.Code.Untyped.C_ƛ_20 v3 + -> 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.Code.Untyped.C__'183'__22 v3 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_force_24 v3 + -> 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.Code.Untyped.C_delay_26 v3 + -> 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.Code.Untyped.C_con_28 v3 + -> let v4 = coe v2 v3 in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> coe + seq (coe v7) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_ƛ_20 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_force_24 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_delay_26 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v8 + -> let v9 + = MAlonzo.Code.Untyped.Equality.d_decEq'45'TmCon_48 + (coe v3) (coe v8) 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_con'7580'_112))) + 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 + -> coe + seq + (coe + 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_con'7580'_112))) + _ -> 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.Code.Untyped.C_constr_34 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_case_40 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_builtin_44 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_error_46 + -> let v8 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (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.RTE.mazUnreachableError + else (let v7 + = seq + (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) 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.VerifiedCompilation.UntypedViews.C_con'33'_964 v13 + -> coe + seq (coe v13) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v14 + -> 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_ƛ_20 v14 + -> 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 v14 v15 + -> 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_force_24 v14 + -> 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_delay_26 v14 + -> 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 v14 + -> let v15 + = MAlonzo.Code.Untyped.Equality.d_decEq'45'TmCon_48 + (coe v3) + (coe v14) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then coe + seq + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_con'7580'_112))) + 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 + -> coe + seq + (coe + 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_con'7580'_112))) + _ -> 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.Code.Untyped.C_constr_34 v14 v15 + -> 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_case_40 v14 v15 + -> 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_builtin_44 v14 + -> 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 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_constr_34 v3 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_case_40 v3 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_builtin_44 v3 + -> 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.Code.Untyped.C_error_46 + -> let v3 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v3) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.Compatibility.compatBuiltin? +d_compatBuiltin'63'_768 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatBuiltin'63'_768 ~v0 v1 v2 = du_compatBuiltin'63'_768 v1 v2 +du_compatBuiltin'63'_768 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatBuiltin'63'_768 v0 v1 + = let v2 + = \ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> 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.Code.Untyped.C_ƛ_20 v3 + -> 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.Code.Untyped.C__'183'__22 v3 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_force_24 v3 + -> 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.Code.Untyped.C_delay_26 v3 + -> 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.Code.Untyped.C_con_28 v3 + -> 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.Code.Untyped.C_constr_34 v3 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_case_40 v3 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_builtin_44 v3 + -> let v4 = coe v2 v3 in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> coe + seq (coe v7) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_ƛ_20 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C__'183'__22 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_force_24 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_delay_26 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_con_28 v8 + -> let v9 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_constr_34 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_case_40 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v10) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + MAlonzo.Code.Untyped.C_builtin_44 v8 + -> let v9 + = MAlonzo.Code.Builtin.d_decBuiltin_440 + (coe v3) (coe v8) 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_builtin'7580'_130))) + 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 + -> coe + seq + (coe + 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_builtin'7580'_130))) + _ -> 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.Code.Untyped.C_error_46 + -> let v8 + = coe + MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (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.RTE.mazUnreachableError + else (let v7 + = seq + (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) 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.VerifiedCompilation.UntypedViews.C_builtin'33'_974 v13 + -> coe + seq (coe v13) + (case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v14 + -> 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_ƛ_20 v14 + -> 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 v14 v15 + -> 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_force_24 v14 + -> 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_delay_26 v14 + -> 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 v14 + -> 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 v14 v15 + -> 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_case_40 v14 v15 + -> 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_builtin_44 v14 + -> let v15 + = MAlonzo.Code.Builtin.d_decBuiltin_440 + (coe v3) + (coe v14) in + coe + (case coe v15 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v16 v17 + -> if coe v16 + then coe + seq + (coe + v17) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe + v16) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_builtin'7580'_130))) + 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 + -> coe + seq + (coe + 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_builtin'7580'_130))) + _ -> 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.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_error_46 + -> let v3 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in + coe + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v3) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.Compatibility.compatError? +d_compatError'63'_812 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatError'63'_812 ~v0 v1 v2 = du_compatError'63'_812 v1 v2 +du_compatError'63'_812 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatError'63'_812 v0 v1 + = let v2 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_error'63'_1886 + (coe v0)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_error'63'_1886 + (coe v1)) in + coe + (case coe v2 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v3 v4 + -> if coe v3 + then case coe v4 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v5 + -> case coe v5 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v6 v7 + -> coe + seq (coe v6) + (coe + seq (coe v7) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v3) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + erased))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v4) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v3) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.Compatibility.compatTerm? +d_compatTerm'63'_842 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + (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.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_compatTerm'63'_842 v0 ~v1 v2 v3 v4 + = du_compatTerm'63'_842 v0 v2 v3 v4 +du_compatTerm'63'_842 :: + Integer -> + (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.Untyped.T__'8866'_14 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_compatTerm'63'_842 v0 v1 v2 v3 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'8846''45'dec__96 + (coe du_compatApply'63'_188 (coe v1 v0) (coe v2) (coe v3)) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'8846''45'dec__96 + (coe du_compatVar'63'_142 (coe v2) (coe v3)) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'8846''45'dec__96 + (coe du_compatLam'63'_278 (coe v0) (coe v1) (coe v2) (coe v3)) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'8846''45'dec__96 + (coe du_compatForce'63'_344 (coe v1 v0) (coe v2) (coe v3)) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'8846''45'dec__96 + (coe du_compatDelay'63'_410 (coe v1 v0) (coe v2) (coe v3)) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'8846''45'dec__96 + (coe du_compatConstr'63'_544 (coe v1 v0) (coe v2) (coe v3)) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'8846''45'dec__96 + (coe du_compatCase'63'_644 (coe v1 v0) (coe v2) (coe v3)) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'8846''45'dec__96 + (coe du_compatCon'63'_724 (coe v2) (coe v3)) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'8846''45'dec__96 + (coe du_compatBuiltin'63'_768 (coe v2) (coe v3)) + (coe du_compatError'63'_812 (coe v2) (coe v3)))))))))) diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Trace.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Trace.hs index 30419baf8d0..5a048ef4180 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Trace.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/Trace.hs @@ -31,105 +31,105 @@ d_UncertifiedOptTag_4 = () 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 +pattern C_cseT_10 = 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 +check_cseT_10 :: T_UncertifiedOptTag_4 +check_cseT_10 = 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 -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_applyToCaseT_24 = ApplyToCase -cover_CertifiedOptTag_14 :: CertifiedOptStage -> () -cover_CertifiedOptTag_14 x +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_applyToCaseT_22 = ApplyToCase +pattern C_caseReduceT_24 = CaseReduce +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_applyToCaseT_22 :: T_CertifiedOptTag_12 +check_applyToCaseT_22 = ApplyToCase +check_caseReduceT_24 :: T_CertifiedOptTag_12 +check_caseReduceT_24 = CaseReduce +cover_CertifiedOptTag_12 :: CertifiedOptStage -> () +cover_CertifiedOptTag_12 x = case x of FloatDelay -> () ForceDelay -> () ForceCaseDelay -> () Inline -> () ApplyToCase -> () + CaseReduce -> () -- VerifiedCompilation.Trace.OptTag d_OptTag_26 :: () 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'8321'_12 (coe C_cseT_10) -- 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) + = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_applyToCaseT_22) -- 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) + = coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_caseReduceT_24) -- VerifiedCompilation.Trace.InlineHints d_InlineHints_46 = () type T_InlineHints_46 = Hints.Inline @@ -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 @@ -223,12 +223,12 @@ d_Dump_96 :: () d_Dump_96 = erased -- VerifiedCompilation.Trace.toTrace d_toTrace_98 :: - [MAlonzo.Code.Utils.T__'215'__428 + [MAlonzo.Code.Utils.T__'215'__436 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) - (MAlonzo.Code.Utils.T__'215'__428 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) + (MAlonzo.Code.Utils.T__'215'__436 T_Hints_72 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.RawU.T_Untyped_208 MAlonzo.Code.RawU.T_Untyped_208))] -> Maybe T_Trace_80 @@ -242,88 +242,88 @@ d_toTrace_98 v0 _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.Trace._.go d_go_108 :: - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) - (MAlonzo.Code.Utils.T__'215'__428 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) + (MAlonzo.Code.Utils.T__'215'__436 T_Hints_72 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.RawU.T_Untyped_208 MAlonzo.Code.RawU.T_Untyped_208)) -> - [MAlonzo.Code.Utils.T__'215'__428 + [MAlonzo.Code.Utils.T__'215'__436 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) - (MAlonzo.Code.Utils.T__'215'__428 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) + (MAlonzo.Code.Utils.T__'215'__436 T_Hints_72 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.RawU.T_Untyped_208 MAlonzo.Code.RawU.T_Untyped_208))] -> - MAlonzo.Code.Utils.T__'215'__428 + MAlonzo.Code.Utils.T__'215'__436 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) - (MAlonzo.Code.Utils.T__'215'__428 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) + (MAlonzo.Code.Utils.T__'215'__436 T_Hints_72 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.RawU.T_Untyped_208 MAlonzo.Code.RawU.T_Untyped_208)) -> - [MAlonzo.Code.Utils.T__'215'__428 + [MAlonzo.Code.Utils.T__'215'__436 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) - (MAlonzo.Code.Utils.T__'215'__428 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) + (MAlonzo.Code.Utils.T__'215'__436 T_Hints_72 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.RawU.T_Untyped_208 MAlonzo.Code.RawU.T_Untyped_208))] -> T_Trace_80 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__'215'__436 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) - (MAlonzo.Code.Utils.T__'215'__428 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) + (MAlonzo.Code.Utils.T__'215'__436 T_Hints_72 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.RawU.T_Untyped_208 MAlonzo.Code.RawU.T_Untyped_208)) -> - [MAlonzo.Code.Utils.T__'215'__428 + [MAlonzo.Code.Utils.T__'215'__436 (MAlonzo.Code.Utils.T_Either_6 - T_UncertifiedOptTag_4 T_CertifiedOptTag_14) - (MAlonzo.Code.Utils.T__'215'__428 + T_UncertifiedOptTag_4 T_CertifiedOptTag_12) + (MAlonzo.Code.Utils.T__'215'__436 T_Hints_72 - (MAlonzo.Code.Utils.T__'215'__428 + (MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.RawU.T_Untyped_208 MAlonzo.Code.RawU.T_Untyped_208))] -> T_Trace_80 du_go_108 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C__'44'__442 v2 v3 + MAlonzo.Code.Utils.C__'44'__450 v2 v3 -> case coe v3 of - MAlonzo.Code.Utils.C__'44'__442 v4 v5 + MAlonzo.Code.Utils.C__'44'__450 v4 v5 -> case coe v5 of - MAlonzo.Code.Utils.C__'44'__442 v6 v7 + MAlonzo.Code.Utils.C__'44'__450 v6 v7 -> case coe v1 of [] -> coe C_step_84 (coe v2) (coe v4) (coe v6) (coe C_done_86 (coe v7)) (:) v8 v9 -> case coe v8 of - MAlonzo.Code.Utils.C__'44'__442 v10 v11 + MAlonzo.Code.Utils.C__'44'__450 v10 v11 -> case coe v11 of - MAlonzo.Code.Utils.C__'44'__442 v12 v13 + MAlonzo.Code.Utils.C__'44'__450 v12 v13 -> case coe v13 of - MAlonzo.Code.Utils.C__'44'__442 v14 v15 + MAlonzo.Code.Utils.C__'44'__450 v14 v15 -> coe C_step_84 (coe v2) (coe v4) (coe v6) (coe du_go_108 (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe v10) (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe v12) (coe - MAlonzo.Code.Utils.C__'44'__442 + MAlonzo.Code.Utils.C__'44'__450 (coe v7) (coe v15)))) (coe v9)) _ -> MAlonzo.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UApplyToCase.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UApplyToCase.hs index f73cd58b456..150a92278cc 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UApplyToCase.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UApplyToCase.hs @@ -33,7 +33,7 @@ import qualified MAlonzo.Code.VerifiedCompilation.UntypedViews -- VerifiedCompilation.UApplyToCase.ApplyToCase d_ApplyToCase_4 a0 a1 a2 = () newtype T_ApplyToCase_4 - = C_a2c_16 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 + = C_a2c_16 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -- VerifiedCompilation.UApplyToCase.a2c?ᶜᶜ d_a2c'63''7580''7580'_24 :: Integer -> @@ -42,7 +42,7 @@ d_a2c'63''7580''7580'_24 :: MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 d_a2c'63''7580''7580'_24 v0 = coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_164 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_160 (coe v0) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_ApplyToCaseT_38) (coe d_a2c'63'_32) @@ -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'_1618 (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'__2188 (\ v3 -> - coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_1880) + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) (\ v3 -> coe - MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_1880)) in + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158)) in coe (let v4 = coe - MAlonzo.Code.VerifiedCompilation.UntypedViews.du_singleton'63'_1970 in + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_singleton'63'_2332 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'__2180 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'__2180 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'__2180 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'__2180 v30 v31 -> case coe v6 of (:) v32 v33 @@ -270,13 +270,13 @@ d_'46'extendedlambda1_94 :: [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.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_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..95604ce48d1 --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCSE.hs @@ -0,0 +1,145 @@ +{-# 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.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.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_4 a0 a1 a2 = () +newtype T_UCSE_4 + = C_cse_14 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 +-- VerifiedCompilation.UCSE.UntypedCSE +d_UntypedCSE_22 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_UntypedCSE_22 = erased +-- VerifiedCompilation.UCSE.isUntypedCSE? +d_isUntypedCSE'63'_26 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_isUntypedCSE'63'_26 v0 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_160 + (coe v0) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_CseT_36) + (coe d_isUCSE'63'_30) +-- VerifiedCompilation.UCSE.isUCSE? +d_isUCSE'63'_30 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_isUCSE'63'_30 v0 v1 v2 + = let v3 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_isApp'63'_168 + (coe v0) + (coe + (\ v3 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_isLambda'63'_72 + (coe v3) + (\ v4 v5 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_isTerm'63'_784))) + (\ v3 v4 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_isTerm'63'_784) + (coe v2) 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_isapp_156 v9 v10 + -> case coe v2 of + MAlonzo.Code.Untyped.C__'183'__22 v11 v12 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_islambda_64 v14 + -> case coe v11 of + MAlonzo.Code.Untyped.C_ƛ_20 v15 + -> coe + seq (coe v14) + (coe + seq (coe v10) + (let v16 + = coe + d_isUntypedCSE'63'_26 v0 v1 + (MAlonzo.Code.Untyped.RenamingSubstitution.d__'91'_'93'_478 + (coe v0) (coe v15) + (coe v12)) in + coe + (case coe v16 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v17 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe C_cse_14 v17) + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v20 v21 v22 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + v20 v21 v22 + _ -> 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_CseT_36 v1 v2) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.UCSE..extendedlambda0 +d_'46'extendedlambda0_46 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + (MAlonzo.Code.VerifiedCompilation.UntypedViews.T_isApp_144 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + T_UCSE_4 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda0_46 = erased +-- VerifiedCompilation.UCSE..extendedlambda1 +d_'46'extendedlambda1_78 :: + 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_8 -> + 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_10 -> + AgdaAny -> + AgdaAny -> T_UCSE_4 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda1_78 = erased diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs index d08b4b86363..78bdf44e132 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs @@ -558,7 +558,7 @@ d_isCaseOfCase'63'_256 :: MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 d_isCaseOfCase'63'_256 v0 = coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_164 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_160 (coe v0) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_CaseOfCaseT_40) (coe d_isCoC'63'_264) @@ -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..792737c2000 --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce.hs @@ -0,0 +1,3304 @@ +{-# 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.Bool +import qualified MAlonzo.Code.Agda.Builtin.Equality +import qualified MAlonzo.Code.Agda.Builtin.Maybe +import qualified MAlonzo.Code.Agda.Builtin.Sigma +import qualified MAlonzo.Code.Builtin.Constant.AtomicType +import qualified MAlonzo.Code.Builtin.Signature +import qualified MAlonzo.Code.Data.Bool.Base +import qualified MAlonzo.Code.Data.Bool.Properties +import qualified MAlonzo.Code.Data.Maybe.Base +import qualified MAlonzo.Code.RawU +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.Equality +import qualified MAlonzo.Code.Untyped.Reduction +import qualified MAlonzo.Code.Untyped.Relation.Binary.Core +import qualified MAlonzo.Code.Untyped.Relation.Binary.Modular +import qualified MAlonzo.Code.Untyped.Relation.Binary.Properties +import qualified MAlonzo.Code.Untyped.Relation.Binary.Structures +import qualified MAlonzo.Code.Untyped.Transform +import qualified MAlonzo.Code.Utils +import qualified MAlonzo.Code.VerifiedCompilation.Certificate +import qualified MAlonzo.Code.VerifiedCompilation.Trace +import qualified MAlonzo.Code.VerifiedCompilation.UntypedViews + +-- VerifiedCompilation.UCaseReduce.Rules.CaseConstr +d_CaseConstr_24 a0 a1 a2 a3 = () +newtype T_CaseConstr_24 + = C_case'45'constr_38 MAlonzo.Code.Untyped.T__'8866'_14 +-- VerifiedCompilation.UCaseReduce.Rules.CaseUnit +d_CaseUnit_42 a0 a1 a2 a3 = () +data T_CaseUnit_42 = C_case'45'unit_50 +-- VerifiedCompilation.UCaseReduce.Rules.CaseFalse₁ +d_CaseFalse'8321'_54 a0 a1 a2 a3 = () +data T_CaseFalse'8321'_54 = C_case'45'false'8321'_62 +-- VerifiedCompilation.UCaseReduce.Rules.CaseBool +d_CaseBool_66 a0 a1 a2 a3 = () +data T_CaseBool_66 = C_case'45'bool_78 +-- VerifiedCompilation.UCaseReduce.Rules.CaseInteger +d_CaseInteger_82 a0 a1 a2 a3 = () +data T_CaseInteger_82 = C_case'45'integer_94 +-- VerifiedCompilation.UCaseReduce.Rules.CaseCons₁ +d_CaseCons'8321'_98 a0 a1 a2 a3 = () +data T_CaseCons'8321'_98 = C_case'45'cons'8321'_112 +-- VerifiedCompilation.UCaseReduce.Rules.CaseCons₂ +d_CaseCons'8322'_116 a0 a1 a2 a3 = () +data T_CaseCons'8322'_116 = C_case'45'cons'8322'_132 +-- VerifiedCompilation.UCaseReduce.Rules.CaseNil +d_CaseNil_136 a0 a1 a2 a3 = () +data T_CaseNil_136 = C_case'45'nil_148 +-- VerifiedCompilation.UCaseReduce.Rules.CasePair +d_CasePair_152 a0 a1 a2 a3 = () +data T_CasePair_152 = C_case'45'pair_168 +-- VerifiedCompilation.UCaseReduce.Reduction +d_Reduction_170 :: + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_Reduction_170 = erased +-- VerifiedCompilation.UCaseReduce._~_ +d__'126'__172 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d__'126'__172 = erased +-- VerifiedCompilation.UCaseReduce.cr-refl' +d_cr'45'refl''_200 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +d_cr'45'refl''_200 ~v0 ~v1 ~v2 ~v3 = du_cr'45'refl''_200 +du_cr'45'refl''_200 :: + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +du_cr'45'refl''_200 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_fix_60 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe MAlonzo.Code.Untyped.Relation.Binary.Modular.C_reflF_106))))) +-- VerifiedCompilation.UCaseReduce.cr-refl* +d_cr'45'refl'42'_206 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 +d_cr'45'refl'42'_206 v0 v1 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_pointwise'45'refl_146 + (coe v0) (coe v1) + (coe + (\ v2 v3 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_fix_60 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_reflF_106))))))) +-- VerifiedCompilation.UCaseReduce.cr-TermCompat +d_cr'45'TermCompat_208 :: + MAlonzo.Code.Untyped.Relation.Binary.Structures.T_TermCompatible_30 +d_cr'45'TermCompat_208 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du_CompatTerm'45'TermCompatible_330 + (coe + (\ v0 v1 v2 v3 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_fix_60 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v3)))) +-- VerifiedCompilation.UCaseReduce.red-constr +d_red'45'constr_258 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_red'45'constr_258 ~v0 ~v1 v2 = du_red'45'constr_258 v2 +du_red'45'constr_258 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du_red'45'constr_258 v0 + = let v1 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_constr'63'_1618 + (\ v1 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v1 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) in + coe + (let v2 + = \ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_con_28 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v1 v3) (coe v2 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v13 v14 + -> case coe v3 of + MAlonzo.Code.Untyped.C_constr_34 v15 v16 + -> coe + seq (coe v13) + (coe + seq (coe v14) + (coe + seq (coe v10) + (let v17 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe v15) + (coe v4) in + coe + (case coe v17 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v18 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.Reduction.du_iterApp_242 + (coe v18) + (coe v16)) + (coe + C_case'45'constr_38 + v18)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v17 + _ -> MAlonzo.RTE.mazUnreachableError)))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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_case'33'_936 v14 v15 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v18 v19 + -> case coe v3 of + MAlonzo.Code.Untyped.C_constr_34 v20 v21 + -> coe + seq (coe v18) + (coe + seq (coe v19) + (coe + seq + (coe v15) + (let v22 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe + v20) + (coe + v4) in + coe + (case coe + v22 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v23 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.Reduction.du_iterApp_242 + (coe + v23) + (coe + v21)) + (coe + C_case'45'constr_38 + v23)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v22 + _ -> MAlonzo.RTE.mazUnreachableError)))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_error_46 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCaseReduce.red-unit +d_red'45'unit_304 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_red'45'unit_304 ~v0 ~v1 v2 = du_red'45'unit_304 v2 +du_red'45'unit_304 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du_red'45'unit_304 v0 + = let v1 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_con'63'_1732 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_tmCon'63'_1918 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14)) + (\ v1 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158)) in + coe + (let v2 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2188 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'91''93''63'_2244) in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_con_28 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v1 v3) (coe v2 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v13 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'33'_992 v15 + -> coe + seq (coe v15) + (case coe v10 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v18 v19 + -> case coe v4 of + (:) v20 v21 + -> coe + seq (coe v18) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe v20) + (coe + C_case'45'unit_50))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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_case'33'_936 v14 v15 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v18 + -> case coe v18 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'33'_992 v20 + -> coe + seq (coe v20) + (case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v23 v24 + -> case coe + v4 of + (:) v25 v26 + -> coe + seq + (coe + v23) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + v25) + (coe + C_case'45'unit_50))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_error_46 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCaseReduce.red-false₁ +d_red'45'false'8321'_324 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_red'45'false'8321'_324 ~v0 ~v1 v2 = du_red'45'false'8321'_324 v2 +du_red'45'false'8321'_324 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du_red'45'false'8321'_324 v0 + = let v1 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_con'63'_1732 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_tmCon'63'_1918 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) + (coe + MAlonzo.Code.Data.Bool.Properties.d__'8799'__3196 + (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8))) in + coe + (let v2 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2188 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'91''93''63'_2244) in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_con_28 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v1 v3) (coe v2 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v13 + -> coe + seq (coe v13) + (case coe v10 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v16 v17 + -> case coe v4 of + (:) v18 v19 + -> coe + seq (coe v16) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe v18) + (coe + C_case'45'false'8321'_62))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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_case'33'_936 v14 v15 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v18 + -> coe + seq (coe v18) + (case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v21 v22 + -> case coe v4 of + (:) v23 v24 + -> coe + seq + (coe + v21) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + v23) + (coe + C_case'45'false'8321'_62))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_error_46 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCaseReduce.red-bool +d_red'45'bool_342 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_red'45'bool_342 ~v0 ~v1 v2 = du_red'45'bool_342 v2 +du_red'45'bool_342 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du_red'45'bool_342 v0 + = let v1 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_con'63'_1732 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_tmCon'63'_1918 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) + (\ v1 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158)) in + coe + (let v2 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2188 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2188 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'91''93''63'_2244)) in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_con_28 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v1 v3) (coe v2 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v13 + -> case coe v3 of + MAlonzo.Code.Untyped.C_con_28 v14 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'33'_992 v16 + -> case coe v14 of + MAlonzo.Code.RawU.C_tmCon_206 v17 v18 + -> coe + seq (coe v16) + (case coe v10 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v21 v22 + -> case coe v4 of + (:) v23 v24 + -> coe + seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v27 v28 + -> case coe + v24 of + (:) v29 v30 + -> coe + seq + (coe + v27) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Data.Bool.Base.du_if_then_else__44 + (coe + v18) + (coe + v29) + (coe + v23)) + (coe + C_case'45'bool_78))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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_case'33'_936 v14 v15 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v18 + -> case coe v3 of + MAlonzo.Code.Untyped.C_con_28 v19 + -> case coe v18 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'33'_992 v21 + -> case coe + v19 of + MAlonzo.Code.RawU.C_tmCon_206 v22 v23 + -> coe + seq + (coe + v21) + (case coe + v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v26 v27 + -> case coe + v4 of + (:) v28 v29 + -> coe + seq + (coe + v26) + (case coe + v27 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v32 v33 + -> case coe + v29 of + (:) v34 v35 + -> coe + seq + (coe + v32) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Data.Bool.Base.du_if_then_else__44 + (coe + v23) + (coe + v34) + (coe + v28)) + (coe + C_case'45'bool_78))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_error_46 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCaseReduce.red-integer +d_red'45'integer_364 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_red'45'integer_364 ~v0 ~v1 v2 = du_red'45'integer_364 v2 +du_red'45'integer_364 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du_red'45'integer_364 v0 + = let v1 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_con'63'_1732 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_tmCon'63'_1918 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.d_pos'63'_2342)) in + coe + (let v2 + = \ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_con_28 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v1 v3) (coe v2 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v13 + -> case coe v3 of + MAlonzo.Code.Untyped.C_con_28 v14 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'33'_992 v16 + -> case coe v14 of + MAlonzo.Code.RawU.C_tmCon_206 v17 v18 + -> coe + seq (coe v16) + (coe + seq (coe v10) + (let v19 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe + v18) + (coe + v4) in + coe + (case coe v19 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v20 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + v20) + (coe + C_case'45'integer_94)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v19 + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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_case'33'_936 v14 v15 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v18 + -> case coe v3 of + MAlonzo.Code.Untyped.C_con_28 v19 + -> case coe v18 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'33'_992 v21 + -> case coe + v19 of + MAlonzo.Code.RawU.C_tmCon_206 v22 v23 + -> coe + seq + (coe + v21) + (coe + seq + (coe + v15) + (let v24 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe + v23) + (coe + v4) in + coe + (case coe + v24 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v25 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + v25) + (coe + C_case'45'integer_94)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v24 + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_error_46 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCaseReduce.red-cons₁ +d_red'45'cons'8321'_404 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_red'45'cons'8321'_404 ~v0 ~v1 v2 = du_red'45'cons'8321'_404 v2 +du_red'45'cons'8321'_404 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du_red'45'cons'8321'_404 v0 + = let v1 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_con'63'_1732 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_tmCon'45'list'63'_2010 + (coe + (\ v1 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_cons'63'_2272 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v2 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158)))) in + coe + (let v2 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2188 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'91''93''63'_2244) in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_con_28 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v1 v3) (coe v2 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v13 + -> case coe v3 of + MAlonzo.Code.Untyped.C_con_28 v14 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'45'list'33'_1006 v17 + -> case coe v14 of + MAlonzo.Code.RawU.C_tmCon_206 v18 v19 + -> case coe v18 of + MAlonzo.Code.Builtin.Signature.C_list_16 v21 + -> case coe v17 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_cons'33'_2264 v24 v25 + -> case coe + v19 of + MAlonzo.Code.Utils.C__'8759'__460 v26 v27 + -> coe + seq + (coe + v24) + (coe + seq + (coe + v25) + (case coe + v10 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v30 v31 + -> case coe + v4 of + (:) v32 v33 + -> coe + seq + (coe + v30) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + v32) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + v21) + (coe + v26)))) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + MAlonzo.Code.Builtin.Signature.C_list_16 + v21) + (coe + v27)))) + (coe + C_case'45'cons'8321'_112))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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_case'33'_936 v14 v15 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v18 + -> case coe v3 of + MAlonzo.Code.Untyped.C_con_28 v19 + -> case coe v18 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'45'list'33'_1006 v22 + -> case coe + v19 of + MAlonzo.Code.RawU.C_tmCon_206 v23 v24 + -> case coe + v23 of + MAlonzo.Code.Builtin.Signature.C_list_16 v26 + -> case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_cons'33'_2264 v29 v30 + -> case coe + v24 of + MAlonzo.Code.Utils.C__'8759'__460 v31 v32 + -> coe + seq + (coe + v29) + (coe + seq + (coe + v30) + (case coe + v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v35 v36 + -> case coe + v4 of + (:) v37 v38 + -> coe + seq + (coe + v35) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + v37) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + v26) + (coe + v31)))) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + MAlonzo.Code.Builtin.Signature.C_list_16 + v26) + (coe + v32)))) + (coe + C_case'45'cons'8321'_112))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_error_46 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCaseReduce.red-cons₂ +d_red'45'cons'8322'_430 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_red'45'cons'8322'_430 ~v0 ~v1 v2 = du_red'45'cons'8322'_430 v2 +du_red'45'cons'8322'_430 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du_red'45'cons'8322'_430 v0 + = let v1 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_con'63'_1732 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_tmCon'45'list'63'_2010 + (coe + (\ v1 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_cons'63'_2272 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v2 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158)))) in + coe + (let v2 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2188 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2188 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'91''93''63'_2244)) in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_con_28 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v1 v3) (coe v2 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v13 + -> case coe v3 of + MAlonzo.Code.Untyped.C_con_28 v14 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'45'list'33'_1006 v17 + -> case coe v14 of + MAlonzo.Code.RawU.C_tmCon_206 v18 v19 + -> case coe v18 of + MAlonzo.Code.Builtin.Signature.C_list_16 v21 + -> case coe v17 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_cons'33'_2264 v24 v25 + -> case coe + v19 of + MAlonzo.Code.Utils.C__'8759'__460 v26 v27 + -> coe + seq + (coe + v24) + (coe + seq + (coe + v25) + (case coe + v10 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v30 v31 + -> case coe + v4 of + (:) v32 v33 + -> coe + seq + (coe + v30) + (case coe + v31 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v36 v37 + -> coe + seq + (coe + v36) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + v32) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + v21) + (coe + v26)))) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + MAlonzo.Code.Builtin.Signature.C_list_16 + v21) + (coe + v27)))) + (coe + C_case'45'cons'8322'_132))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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_case'33'_936 v14 v15 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v18 + -> case coe v3 of + MAlonzo.Code.Untyped.C_con_28 v19 + -> case coe v18 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'45'list'33'_1006 v22 + -> case coe + v19 of + MAlonzo.Code.RawU.C_tmCon_206 v23 v24 + -> case coe + v23 of + MAlonzo.Code.Builtin.Signature.C_list_16 v26 + -> case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_cons'33'_2264 v29 v30 + -> case coe + v24 of + MAlonzo.Code.Utils.C__'8759'__460 v31 v32 + -> coe + seq + (coe + v29) + (coe + seq + (coe + v30) + (case coe + v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v35 v36 + -> case coe + v4 of + (:) v37 v38 + -> coe + seq + (coe + v35) + (case coe + v36 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v41 v42 + -> coe + seq + (coe + v41) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + v37) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + v26) + (coe + v31)))) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + MAlonzo.Code.Builtin.Signature.C_list_16 + v26) + (coe + v32)))) + (coe + C_case'45'cons'8322'_132))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_error_46 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCaseReduce.red-nil +d_red'45'nil_456 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_red'45'nil_456 ~v0 ~v1 v2 = du_red'45'nil_456 v2 +du_red'45'nil_456 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du_red'45'nil_456 v0 + = let v1 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_con'63'_1732 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_tmCon'45'list'63'_2010 + (coe + (\ v1 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_nil'63'_2328))) in + coe + (let v2 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2188 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2188 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'91''93''63'_2244)) in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_con_28 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v1 v3) (coe v2 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v13 + -> coe + seq (coe v13) + (case coe v10 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v16 v17 + -> case coe v4 of + (:) v18 v19 + -> coe + seq (coe v16) + (case coe v17 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v22 v23 + -> case coe v19 of + (:) v24 v25 + -> coe + seq + (coe v22) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + v24) + (coe + C_case'45'nil_148))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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_case'33'_936 v14 v15 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v18 + -> coe + seq (coe v18) + (case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v21 v22 + -> case coe v4 of + (:) v23 v24 + -> coe + seq + (coe + v21) + (case coe + v22 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v27 v28 + -> case coe + v24 of + (:) v29 v30 + -> coe + seq + (coe + v27) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + v29) + (coe + C_case'45'nil_148))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_error_46 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCaseReduce.red-pair +d_red'45'pair_478 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_red'45'pair_478 ~v0 ~v1 v2 = du_red'45'pair_478 v2 +du_red'45'pair_478 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du_red'45'pair_478 v0 + = let v1 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_con'63'_1732 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_tmCon'45'pair'63'_2080 + (coe + (\ v1 v2 v3 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158))) in + coe + (let v2 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du__'8759''63'__2188 + (\ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'91''93''63'_2244) in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_ƛ_20 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_force_24 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_delay_26 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_con_28 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v1 v3) (coe v2 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v13 + -> case coe v3 of + MAlonzo.Code.Untyped.C_con_28 v14 + -> case coe v13 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'45'pair'33'_1024 v18 + -> case coe v14 of + MAlonzo.Code.RawU.C_tmCon_206 v19 v20 + -> case coe v19 of + MAlonzo.Code.Builtin.Signature.C_pair_24 v22 v23 + -> case coe v20 of + MAlonzo.Code.Utils.C__'44'__450 v24 v25 + -> coe + seq + (coe + v18) + (case coe + v10 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v28 v29 + -> case coe + v4 of + (:) v30 v31 + -> coe + seq + (coe + v28) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + v30) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + v22) + (coe + v24)))) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + v23) + (coe + v25)))) + (coe + C_case'45'pair_168))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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_case'33'_936 v14 v15 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_con'33'_964 v18 + -> case coe v3 of + MAlonzo.Code.Untyped.C_con_28 v19 + -> case coe v18 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'45'pair'33'_1024 v23 + -> case coe + v19 of + MAlonzo.Code.RawU.C_tmCon_206 v24 v25 + -> case coe + v24 of + MAlonzo.Code.Builtin.Signature.C_pair_24 v27 v28 + -> case coe + v25 of + MAlonzo.Code.Utils.C__'44'__450 v29 v30 + -> coe + seq + (coe + v23) + (case coe + v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C__'8759''33'__2180 v33 v34 + -> case coe + v4 of + (:) v35 v36 + -> coe + seq + (coe + v33) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + v35) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + v27) + (coe + v29)))) + (coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + v28) + (coe + v30)))) + (coe + C_case'45'pair_168))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v10) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v3 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + MAlonzo.Code.Untyped.C_error_46 + -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCaseReduce.reduce +d_reduce_504 :: + Integer -> + (Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_reduce_504 v0 ~v1 = du_reduce_504 v0 +du_reduce_504 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +du_reduce_504 v0 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v1 -> coe du_red'45'constr_258)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v1 -> coe du_red'45'unit_304)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v1 -> coe du_red'45'false'8321'_324)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v1 -> coe du_red'45'bool_342)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v1 -> coe du_red'45'integer_364)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v1 -> coe du_red'45'cons'8321'_404)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v1 -> coe du_red'45'cons'8322'_430)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v1 -> coe du_red'45'nil_456)) + (coe (\ v1 -> coe du_red'45'pair_478))))))))) + (coe v0) +-- VerifiedCompilation.UCaseReduce.reduceM +d_reduceM_506 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Maybe MAlonzo.Code.Untyped.T__'8866'_14 +d_reduceM_506 v0 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_refine'63'_210 + (coe v0) (coe (\ v1 -> coe du_reduce_504 (coe v1))) +-- VerifiedCompilation.UCaseReduce.case-reduce +d_case'45'reduce_508 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +d_case'45'reduce_508 v0 v1 + = coe + MAlonzo.Code.Untyped.Transform.d__'8593''63'__68 + (coe d_reduceM_506) (coe v0) (coe v1) +-- VerifiedCompilation.UCaseReduce.case-reduce* +d_case'45'reduce'42'_512 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] +d_case'45'reduce'42'_512 v0 v1 + = coe + MAlonzo.Code.Untyped.Transform.d__'8593''63''42'__74 + (coe d_reduceM_506) (coe v0) (coe v1) +-- VerifiedCompilation.UCaseReduce.CaseReduce +d_CaseReduce_516 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_CaseReduce_516 = erased +-- VerifiedCompilation.UCaseReduce.decide +d_decide_526 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_decide_526 v0 v1 v2 + = let v3 + = MAlonzo.Code.Untyped.Equality.d_decEq'45''8866'_56 + (coe v0) + (coe + MAlonzo.Code.Data.Maybe.Base.du_maybe_32 (coe (\ v3 -> v3)) + (coe + MAlonzo.Code.Untyped.Transform.d_sub_80 + (coe + (\ v3 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_refine'63'_210 + (coe v3) (coe (\ v4 -> coe du_reduce_504 (coe v4))))) + (coe v0) (coe v1)) + (let v3 + = coe + MAlonzo.Code.Untyped.Transform.du_'46'extendedlambda1_100 + (coe + (\ v3 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_refine'63'_210 + (coe v3) (coe (\ v4 -> coe du_reduce_504 (coe v4))))) + (coe v0) (coe v1) in + coe + (let v4 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'unit_304)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'false'8321'_324)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'bool_342)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'integer_364)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'cons'8321'_404)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'cons'8322'_430)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'nil_456)) + (coe (\ v4 -> coe du_red'45'pair_478)))))))) in + coe + (let v5 + = coe + MAlonzo.Code.Untyped.Transform.du_'46'extendedlambda1_100 + (coe + (\ v5 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_refine'63'_210 + (coe v5) (coe (\ v6 -> coe du_reduce_504 (coe v6))))) + (coe v0) (coe v1) in + coe + (let v6 + = coe + MAlonzo.Code.Untyped.Transform.du_'46'extendedlambda1_100 + (coe + (\ v6 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_refine'63'_210 + (coe v6) (coe (\ v7 -> coe du_reduce_504 (coe v7))))) + (coe v0) (coe v1) in + coe + (let v7 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_constr'63'_1618 + (\ v7 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v7 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) in + coe + (let v8 + = \ v8 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v6 of + MAlonzo.Code.Untyped.C_'96'_18 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C__'183'__22 v9 v10 + -> let v11 = coe v4 v0 v3 in + coe + (case coe v11 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v13) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v13) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v11 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_force_24 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_delay_26 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_con_28 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_constr_34 v9 v10 + -> let v11 = coe v4 v0 v3 in + coe + (case coe v11 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v13) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v13) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v11 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v9 v10 + -> let v11 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v7 v9) (coe v8 v10) 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.Agda.Builtin.Sigma.C__'44'__32 v15 v16 + -> case coe v5 of + MAlonzo.Code.Untyped.C_case_40 v17 v18 + -> case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v21 v22 + -> case coe + v17 of + MAlonzo.Code.Untyped.C_constr_34 v23 v24 + -> let v25 + = seq + (coe + v21) + (coe + seq + (coe + v22) + (coe + seq + (coe + v16) + (let v25 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe + v23) + (coe + v18) in + coe + (case coe + v25 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v26 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.Reduction.du_iterApp_242 + (coe + v26) + (coe + v24)) + (coe + C_case'45'constr_38 + v26)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v25 + _ -> MAlonzo.RTE.mazUnreachableError)))) in + coe + (case coe + v25 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v26 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v27 v28 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v27) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> let v26 + = coe + v4 + v0 + v3 in + coe + (case coe + v26 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v27 + -> case coe + v27 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v28 v29 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v28) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v27 + -> case coe + v27 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v28 v29 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v28) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v26 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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 + -> case coe v17 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_case'33'_936 v20 v21 + -> case coe + v5 of + MAlonzo.Code.Untyped.C_case_40 v22 v23 + -> case coe + v20 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v26 v27 + -> case coe + v22 of + MAlonzo.Code.Untyped.C_constr_34 v28 v29 + -> let v30 + = seq + (coe + v26) + (coe + seq + (coe + v27) + (coe + seq + (coe + v21) + (let v30 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe + v28) + (coe + v23) in + coe + (case coe + v30 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v31 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.Reduction.du_iterApp_242 + (coe + v31) + (coe + v29)) + (coe + C_case'45'constr_38 + v31)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v30 + _ -> MAlonzo.RTE.mazUnreachableError)))) in + coe + (case coe + v30 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v31 + -> case coe + v31 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v32 v33 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v32) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> let v31 + = coe + v4 + v0 + v3 in + coe + (case coe + v31 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v32 + -> case coe + v32 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v33 v34 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v33) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe + v31 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v32 + -> case coe + v32 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v33 v34 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v33) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v17 + = seq + (coe v16) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) in + coe + (case coe v17 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v18 + -> case coe + v18 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v19 v20 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v19) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> let v18 + = coe + v4 + v0 + v3 in + coe + (case coe + v18 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v19 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v20 v21 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v20) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe + v18 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v19 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v20 v21 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v20) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v18 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_error_46 + -> let v9 = coe v4 v0 v3 in + coe + (case coe v9 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v10 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v11) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v9 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v10 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v11) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v9 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError)))))))) + (coe v2) 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 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe v6) + _ -> 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.case-reduce-refines +d_case'45'reduce'45'refines_550 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +d_case'45'reduce'45'refines_550 v0 v1 + = coe + MAlonzo.Code.Untyped.Transform.du_'8593''63''45'refines_270 + (coe + (\ v2 v3 v4 v5 v6 v7 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_fix_60 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_transF_80 v4 v6 + v7)))))) + (coe d_cr'45'TermCompat_208) (coe d_reduceM_506) + (coe du_reduceM'45''126'_560) (coe v0) (coe v1) +-- VerifiedCompilation.UCaseReduce._.red⊆cr +d_red'8838'cr_556 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T__'43'__16 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +d_red'8838'cr_556 ~v0 ~v1 ~v2 ~v3 ~v4 v5 = du_red'8838'cr_556 v5 +du_red'8838'cr_556 :: + MAlonzo.Code.Untyped.Relation.Binary.Modular.T__'43'__16 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +du_red'8838'cr_556 v0 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_fix_60 + (coe MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 v0) +-- VerifiedCompilation.UCaseReduce._.reduce-refine +d_reduce'45'refine_558 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T__'43'__16 +d_reduce'45'refine_558 ~v0 ~v1 v2 = du_reduce'45'refine_558 v2 +du_reduce'45'refine_558 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T__'43'__16 +du_reduce'45'refine_558 v0 v1 v2 v3 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_refine'63''45'refines_234 + (coe (\ v4 -> coe du_reduce_504 (coe v4))) (coe v0) v1 +-- VerifiedCompilation.UCaseReduce._.reduceM-~ +d_reduceM'45''126'_560 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +d_reduceM'45''126'_560 ~v0 ~v1 v2 = du_reduceM'45''126'_560 v2 +du_reduceM'45''126'_560 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +du_reduceM'45''126'_560 v0 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_Refines'63''45''8838'_188 + (\ v1 v2 v3 v4 -> coe du_red'8838'cr_556 v4) + (coe du_reduce'45'refine_558) (coe v0) +-- VerifiedCompilation.UCaseReduce.sound +d_sound_568 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +d_sound_568 v0 v1 ~v2 ~v3 = du_sound_568 v0 v1 +du_sound_568 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +du_sound_568 v0 v1 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_fix_60 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_transF_80 + (d_case'45'reduce_508 (coe v0) (coe v1)) + (d_case'45'reduce'45'refines_550 (coe v0) (coe v1)) + (coe du_cr'45'refl''_200))))) +-- VerifiedCompilation.UCaseReduce._≈_ +d__'8776'__572 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d__'8776'__572 = erased +-- VerifiedCompilation.UCaseReduce._≈*_ +d__'8776''42'__578 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> () +d__'8776''42'__578 = erased +-- VerifiedCompilation.UCaseReduce.Decide.sound-both +d_sound'45'both_596 :: + Integer -> + (MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +d_sound'45'both_596 ~v0 ~v1 v2 v3 v4 ~v5 + = du_sound'45'both_596 v2 v3 v4 +du_sound'45'both_596 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 +du_sound'45'both_596 v0 v1 v2 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_fix_60 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_transF_80 + (d_case'45'reduce_508 (coe v0) (coe v1)) + (d_case'45'reduce'45'refines_550 (coe v0) (coe v1)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_fix_60 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_transF_80 + (d_case'45'reduce_508 (coe v0) (coe v2)) (coe du_cr'45'refl''_200) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_fix_60 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inr_38 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_inl_30 + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.C_symF_94 + (d_case'45'reduce'45'refines_550 + (coe v0) (coe v2))))))))))))))))) +-- VerifiedCompilation.UCaseReduce.Decide.decide-~ +d_decide'45''126'_604 :: + Integer -> + (MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.Relation.Binary.Modular.T_Fix_50 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_decide'45''126'_604 v0 ~v1 v2 v3 + = du_decide'45''126'_604 v0 v2 v3 +du_decide'45''126'_604 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +du_decide'45''126'_604 v0 v1 v2 + = let v3 + = MAlonzo.Code.Untyped.Equality.d_decEq'45''8866'_56 + (coe v0) + (coe + MAlonzo.Code.Data.Maybe.Base.du_maybe_32 (coe (\ v3 -> v3)) + (coe + MAlonzo.Code.Untyped.Transform.d_sub_80 + (coe + (\ v3 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_refine'63'_210 + (coe v3) (coe (\ v4 -> coe du_reduce_504 (coe v4))))) + (coe v0) (coe v1)) + (let v3 + = coe + MAlonzo.Code.Untyped.Transform.du_'46'extendedlambda1_100 + (coe + (\ v3 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_refine'63'_210 + (coe v3) (coe (\ v4 -> coe du_reduce_504 (coe v4))))) + (coe v0) (coe v1) in + coe + (let v4 + = coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'unit_304)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'false'8321'_324)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'bool_342)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'integer_364)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'cons'8321'_404)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'cons'8322'_430)) + (coe + MAlonzo.Code.Untyped.Relation.Binary.Modular.du__'60''124''62'__1128 + (coe (\ v4 -> coe du_red'45'nil_456)) + (coe (\ v4 -> coe du_red'45'pair_478)))))))) in + coe + (let v5 + = coe + MAlonzo.Code.Untyped.Transform.du_'46'extendedlambda1_100 + (coe + (\ v5 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_refine'63'_210 + (coe v5) (coe (\ v6 -> coe du_reduce_504 (coe v6))))) + (coe v0) (coe v1) in + coe + (let v6 + = coe + MAlonzo.Code.Untyped.Transform.du_'46'extendedlambda1_100 + (coe + (\ v6 -> + coe + MAlonzo.Code.Untyped.Relation.Binary.Properties.du_refine'63'_210 + (coe v6) (coe (\ v7 -> coe du_reduce_504 (coe v7))))) + (coe v0) (coe v1) in + coe + (let v7 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_constr'63'_1618 + (\ v7 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v7 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) in + coe + (let v8 + = \ v8 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v6 of + MAlonzo.Code.Untyped.C_'96'_18 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_ƛ_20 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C__'183'__22 v9 v10 + -> let v11 = coe v4 v0 v3 in + coe + (case coe v11 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v13) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v13) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v11 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_force_24 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_delay_26 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_con_28 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_constr_34 v9 v10 + -> let v11 = coe v4 v0 v3 in + coe + (case coe v11 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v13) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v12 + -> case coe v12 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v13 v14 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v13) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v11 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v9 v10 + -> let v11 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v7 v9) (coe v8 v10) 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.Agda.Builtin.Sigma.C__'44'__32 v15 v16 + -> case coe v5 of + MAlonzo.Code.Untyped.C_case_40 v17 v18 + -> case coe v15 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v21 v22 + -> case coe + v17 of + MAlonzo.Code.Untyped.C_constr_34 v23 v24 + -> let v25 + = seq + (coe + v21) + (coe + seq + (coe + v22) + (coe + seq + (coe + v16) + (let v25 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe + v23) + (coe + v18) in + coe + (case coe + v25 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v26 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.Reduction.du_iterApp_242 + (coe + v26) + (coe + v24)) + (coe + C_case'45'constr_38 + v26)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v25 + _ -> MAlonzo.RTE.mazUnreachableError)))) in + coe + (case coe + v25 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v26 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v27 v28 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v27) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> let v26 + = coe + v4 + v0 + v3 in + coe + (case coe + v26 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v27 + -> case coe + v27 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v28 v29 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v28) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe + v26 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v27 + -> case coe + v27 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v28 v29 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v28) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v26 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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 + -> case coe v17 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_case'33'_936 v20 v21 + -> case coe + v5 of + MAlonzo.Code.Untyped.C_case_40 v22 v23 + -> case coe + v20 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v26 v27 + -> case coe + v22 of + MAlonzo.Code.Untyped.C_constr_34 v28 v29 + -> let v30 + = seq + (coe + v26) + (coe + seq + (coe + v27) + (coe + seq + (coe + v21) + (let v30 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe + v28) + (coe + v23) in + coe + (case coe + v30 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v31 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe + MAlonzo.Code.Untyped.Reduction.du_iterApp_242 + (coe + v31) + (coe + v29)) + (coe + C_case'45'constr_38 + v31)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v30 + _ -> MAlonzo.RTE.mazUnreachableError)))) in + coe + (case coe + v30 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v31 + -> case coe + v31 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v32 v33 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v32) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> let v31 + = coe + v4 + v0 + v3 in + coe + (case coe + v31 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v32 + -> case coe + v32 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v33 v34 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v33) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe + v31 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v32 + -> case coe + v32 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v33 v34 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v33) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v31 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else (let v17 + = seq + (coe v16) + (coe + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) in + coe + (case coe v17 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v18 + -> case coe + v18 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v19 v20 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v19) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> let v18 + = coe + v4 + v0 + v3 in + coe + (case coe + v18 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v19 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v20 v21 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v20) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe + v18 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v19 + -> case coe + v19 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v20 v21 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + v20) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + v18 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v9 + -> let v10 = coe v4 v0 v3 in + coe + (case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v11 + -> case coe v11 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v12 v13 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v12) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v10 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_error_46 + -> let v9 = coe v4 v0 v3 in + coe + (case coe v9 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v10 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v11) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> case coe v9 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v10 + -> case coe v10 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v11 v12 + -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe v11) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe v9 + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError)))))))) + (coe d_case'45'reduce_508 (coe v0) (coe v2)) in + coe + (case coe v3 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v4 v5 + -> if coe v4 + then coe + seq (coe v5) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 + (coe du_sound'45'both_596 (coe v0) (coe v1) (coe v2))) + 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) diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce/Equivalence.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce/Equivalence.hs new file mode 100644 index 00000000000..70f76969bf1 --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce/Equivalence.hs @@ -0,0 +1,771 @@ +{-# 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.Equivalence 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.Maybe +import qualified MAlonzo.Code.Agda.Builtin.Sigma +import qualified MAlonzo.Code.Builtin +import qualified MAlonzo.Code.Data.Fin.Base +import qualified MAlonzo.Code.Data.Irrelevant +import qualified MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base +import qualified MAlonzo.Code.RawU +import qualified MAlonzo.Code.Relation.Binary.Bundles +import qualified MAlonzo.Code.Relation.Binary.Reasoning.Base.Single +import qualified MAlonzo.Code.Relation.Binary.Reasoning.Syntax +import qualified MAlonzo.Code.Relation.Binary.Structures +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.Equality +import qualified MAlonzo.Code.Untyped.Reduction +import qualified MAlonzo.Code.Untyped.Relation +import qualified MAlonzo.Code.Untyped.Transform +import qualified MAlonzo.Code.VerifiedCompilation.Certificate +import qualified MAlonzo.Code.VerifiedCompilation.Trace +import qualified MAlonzo.Code.VerifiedCompilation.UCaseReduce.Inductive +import qualified MAlonzo.Code.VerifiedCompilation.UntypedTranslation +import qualified MAlonzo.Code.VerifiedCompilation.UntypedViews + +-- VerifiedCompilation.UCaseReduce.Equivalence.reduce +d_reduce_30 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +d_reduce_30 ~v0 v1 = du_reduce_30 v1 +du_reduce_30 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +du_reduce_30 v0 + = case coe v0 of + MAlonzo.Code.Untyped.C_case_40 v1 v2 + -> case coe v1 of + MAlonzo.Code.Untyped.C_constr_34 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 (coe v3) (coe v2) in + coe + (case coe v5 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v6 + -> coe + MAlonzo.Code.Untyped.Reduction.du_iterApp_242 (coe v6) (coe v4) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe v0 + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> coe v0 + _ -> coe v0 +-- VerifiedCompilation.UCaseReduce.Equivalence.norm +d_norm_48 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +d_norm_48 v0 v1 + = coe + MAlonzo.Code.Untyped.Transform.d__'8593'__8 + (\ v2 v3 -> coe du_reduce_30 v3) (coe v0) (coe v1) +-- VerifiedCompilation.UCaseReduce.Equivalence.norm* +d_norm'42'_54 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] +d_norm'42'_54 v0 v1 + = coe + MAlonzo.Code.Untyped.Transform.d__'8593''42'__14 + (\ v2 v3 -> coe du_reduce_30 v3) (coe v0) (coe v1) +-- VerifiedCompilation.UCaseReduce.Equivalence.CaseReduce +d_CaseReduce_58 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_CaseReduce_58 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.decide +d_decide_70 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_decide_70 v0 v1 v2 + = let v3 + = MAlonzo.Code.Untyped.Equality.d_decEq'45''8866'_56 + (coe v0) + (coe + du_reduce_30 + (coe + MAlonzo.Code.Untyped.Transform.du_'46'extendedlambda0_38 + (\ v3 v4 -> coe du_reduce_30 v4) (coe v0) (coe v1))) + (coe d_norm_48 (coe v0) (coe v2)) 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 + -> coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe v6) + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v5) + (coe + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 + (coe MAlonzo.Code.VerifiedCompilation.Trace.C_caseReduceT_14) v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.UCaseReduce.Equivalence._~_ +d__'126'__94 a0 a1 a2 = () +data T__'126'__94 + = C_case'45'constr_100 MAlonzo.Code.Untyped.T__'8866'_14 | + C_'126''45'refl_102 | + C_'126''45'trans_104 MAlonzo.Code.Untyped.T__'8866'_14 T__'126'__94 + T__'126'__94 | + C_'126''45'sym_106 T__'126'__94 | C_'126''45'var_110 | + C_'126''45'lam_112 T__'126'__94 | + C_'126''45'app_114 T__'126'__94 T__'126'__94 | + C_'126''45'force_116 T__'126'__94 | + C_'126''45'delay_118 T__'126'__94 | + C_'126''45'constr_120 MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 | + C_'126''45'case_122 T__'126'__94 + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 | + C_'126''45'con_126 | C_'126''45'builtin_130 | C_'126''45'error_132 +-- VerifiedCompilation.UCaseReduce.Equivalence.~-compat +d_'126''45'compat_134 :: + MAlonzo.Code.Untyped.Relation.T_TermCompatible_118 +d_'126''45'compat_134 + = coe + MAlonzo.Code.Untyped.Relation.C_constructor_238 + (coe (\ v0 v1 -> coe C_'126''45'var_110)) + (coe (\ v0 v1 v2 v3 -> coe C_'126''45'lam_112 v3)) + (coe (\ v0 v1 v2 v3 v4 v5 v6 -> coe C_'126''45'app_114 v5 v6)) + (coe (\ v0 v1 v2 v3 -> coe C_'126''45'force_116 v3)) + (coe (\ v0 v1 v2 v3 -> coe C_'126''45'delay_118 v3)) + (coe (\ v0 v1 v2 v3 -> coe C_'126''45'constr_120)) + (coe (\ v0 v1 v2 v3 v4 v5 v6 -> coe C_'126''45'case_122 v5 v6)) + (coe (\ v0 v1 -> coe C_'126''45'con_126)) + (coe (\ v0 v1 -> coe C_'126''45'builtin_130)) + (coe (\ v0 -> coe C_'126''45'error_132)) +-- VerifiedCompilation.UCaseReduce.Equivalence.~-setoid +d_'126''45'setoid_136 :: + Integer -> MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_46 +d_'126''45'setoid_136 ~v0 = du_'126''45'setoid_136 +du_'126''45'setoid_136 :: + MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_46 +du_'126''45'setoid_136 + = coe + MAlonzo.Code.Relation.Binary.Bundles.C_constructor_84 + (coe + MAlonzo.Code.Relation.Binary.Structures.C_constructor_46 + (\ v0 -> coe C_'126''45'refl_102) + (\ v0 v1 v2 -> coe C_'126''45'sym_106 v2) + (\ v0 v1 v2 v3 v4 -> coe C_'126''45'trans_104 v1 v3 v4)) +-- VerifiedCompilation.UCaseReduce.Equivalence.reduce-id +d_reduce'45'id_144 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + (MAlonzo.Code.VerifiedCompilation.UntypedViews.T_case'7510'_926 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_reduce'45'id_144 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.reduce-~ +d_reduce'45''126'_282 :: + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> T__'126'__94 +d_reduce'45''126'_282 ~v0 v1 = du_reduce'45''126'_282 v1 +du_reduce'45''126'_282 :: + MAlonzo.Code.Untyped.T__'8866'_14 -> T__'126'__94 +du_reduce'45''126'_282 v0 + = let v1 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_constr'63'_1618 + (\ v1 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) + (\ v1 -> + coe + MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158) in + coe + (let v2 + = \ v2 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v0 of + MAlonzo.Code.Untyped.C_'96'_18 v3 -> coe C_'126''45'refl_102 + MAlonzo.Code.Untyped.C_ƛ_20 v3 -> coe C_'126''45'refl_102 + MAlonzo.Code.Untyped.C__'183'__22 v3 v4 -> coe C_'126''45'refl_102 + MAlonzo.Code.Untyped.C_force_24 v3 -> coe C_'126''45'refl_102 + MAlonzo.Code.Untyped.C_delay_26 v3 -> coe C_'126''45'refl_102 + MAlonzo.Code.Untyped.C_con_28 v3 -> coe C_'126''45'refl_102 + MAlonzo.Code.Untyped.C_constr_34 v3 v4 -> coe C_'126''45'refl_102 + MAlonzo.Code.Untyped.C_case_40 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v1 v3) (coe v2 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> case coe v9 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v13 v14 + -> case coe v3 of + MAlonzo.Code.Untyped.C_constr_34 v15 v16 + -> coe + seq (coe v13) + (coe + seq (coe v14) + (coe + seq (coe v10) + (let v17 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe v15) + (coe v4) in + coe + (case coe v17 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v18 + -> coe + C_case'45'constr_100 + v18 + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + C_'126''45'refl_102 + _ -> MAlonzo.RTE.mazUnreachableError)))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> 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_case'33'_936 v14 v15 + -> case coe v14 of + MAlonzo.Code.VerifiedCompilation.UntypedViews.C_constr'33'_954 v18 v19 + -> case coe v3 of + MAlonzo.Code.Untyped.C_constr_34 v20 v21 + -> coe + seq (coe v18) + (coe + seq (coe v19) + (coe + seq + (coe v15) + (let v22 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe + v20) + (coe + v4) in + coe + (case coe + v22 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v23 + -> coe + C_case'45'constr_100 + v23 + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + C_'126''45'refl_102 + _ -> MAlonzo.RTE.mazUnreachableError)))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe seq (coe v10) (coe C_'126''45'refl_102) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_builtin_44 v3 -> coe C_'126''45'refl_102 + MAlonzo.Code.Untyped.C_error_46 -> coe C_'126''45'refl_102 + _ -> MAlonzo.RTE.mazUnreachableError)) +-- VerifiedCompilation.UCaseReduce.Equivalence.norm-∼ +d_norm'45''8764'_330 :: + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> T__'126'__94 +d_norm'45''8764'_330 v0 v1 + = coe + MAlonzo.Code.Untyped.Transform.du_'8593''45'extensive_162 + (coe (\ v2 v3 v4 v5 v6 v7 -> coe C_'126''45'trans_104 v4 v6 v7)) + (coe d_'126''45'compat_134) (\ v2 v3 -> coe du_reduce_30 v3) + (\ v2 v3 -> coe du_reduce'45''126'_282 v3) (coe v0) (coe v1) +-- VerifiedCompilation.UCaseReduce.Equivalence.sound +d_sound_350 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> T__'126'__94 +d_sound_350 v0 v1 v2 ~v3 = du_sound_350 v0 v1 v2 +du_sound_350 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> T__'126'__94 +du_sound_350 v0 v1 v2 + = coe + MAlonzo.Code.Relation.Binary.Reasoning.Syntax.du_begin__46 + (\ v3 v4 v5 -> + coe + MAlonzo.Code.Relation.Binary.Reasoning.Base.Single.du_start_36 v5) + v1 v2 + (coe + MAlonzo.Code.Relation.Binary.Reasoning.Syntax.du_step'45''8776''45''10217'_370 + (coe + MAlonzo.Code.Relation.Binary.Reasoning.Base.Single.du_'8764''45'go_40 + (\ v3 v4 v5 v6 v7 -> coe C_'126''45'trans_104 v4 v6 v7)) + v1 (d_norm_48 (coe v0) (coe v1)) v2 + (coe + MAlonzo.Code.Relation.Binary.Reasoning.Syntax.du_step'45''8801''45''10217'_438 + (\ v3 v4 v5 v6 v7 -> v7) (d_norm_48 (coe v0) (coe v1)) + (d_norm_48 (coe v0) (coe v2)) v2 + (coe + MAlonzo.Code.Relation.Binary.Reasoning.Syntax.du_step'45''8776''45''10217'_370 + (coe + MAlonzo.Code.Relation.Binary.Reasoning.Base.Single.du_'8764''45'go_40 + (\ v3 v4 v5 v6 v7 -> coe C_'126''45'trans_104 v4 v6 v7)) + (d_norm_48 (coe v0) (coe v2)) v2 v2 + (coe + MAlonzo.Code.Relation.Binary.Reasoning.Syntax.du__'8718'_494 + (coe + MAlonzo.Code.Relation.Binary.Reasoning.Base.Single.du_stop_54 + (\ v3 -> coe C_'126''45'refl_102)) + (coe v2)) + (coe C_'126''45'sym_106 (d_norm'45''8764'_330 (coe v0) (coe v2)))) + erased) + (d_norm'45''8764'_330 (coe v0) (coe v1))) +-- VerifiedCompilation.UCaseReduce.Equivalence.iterApp-norm +d_iterApp'45'norm_408 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_iterApp'45'norm_408 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.iterApp-≡ +d_iterApp'45''8801'_412 :: + 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] -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_iterApp'45''8801'_412 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.lookup-norm +d_lookup'45'norm_428 :: + Integer -> + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_lookup'45'norm_428 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.case-constr-≡-c +d_case'45'constr'45''8801''45'c_450 :: + Integer -> + Integer -> + [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.Agda.Builtin.Equality.T__'8801'__12 +d_case'45'constr'45''8801''45'c_450 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.pw-≡ +d_pw'45''8801'_470 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_pw'45''8801'_470 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.constr-≡ +d_constr'45''8801'_484 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + Integer -> + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_constr'45''8801'_484 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.case-≡ +d_case'45''8801'_492 :: + 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] -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_case'45''8801'_492 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.complete +d_complete_506 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + T__'126'__94 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_complete_506 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.complete* +d_complete'42'_508 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -> + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 +d_complete'42'_508 ~v0 v1 v2 v3 = du_complete'42'_508 v1 v2 v3 +du_complete'42'_508 :: + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -> + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 +du_complete'42'_508 v0 v1 v2 + = case coe v2 of + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56 + -> coe v2 + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v7 v8 + -> case coe v0 of + (:) v9 v10 + -> case coe v1 of + (:) v11 v12 + -> coe + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 + erased (coe du_complete'42'_508 (coe v10) (coe v12) (coe v8)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UCaseReduce.Equivalence.reduce-case +d_reduce'45'case_558 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + (MAlonzo.Code.VerifiedCompilation.UntypedViews.T_constr'7510'_944 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_reduce'45'case_558 = erased +-- VerifiedCompilation.UCaseReduce.Equivalence.norm-CR +d_norm'45'CR_600 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 +d_norm'45'CR_600 v0 v1 + = case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v2 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_22) + MAlonzo.Code.Untyped.C_ƛ_20 v2 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_28 + (d_norm'45'CR_600 + (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2))) + MAlonzo.Code.Untyped.C__'183'__22 v2 v3 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_38 + (d_norm'45'CR_600 (coe v0) (coe v2)) + (d_norm'45'CR_600 (coe v0) (coe v3))) + MAlonzo.Code.Untyped.C_force_24 v2 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_force_44 + (d_norm'45'CR_600 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C_delay_26 v2 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_delay_50 + (d_norm'45'CR_600 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C_con_28 v2 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_54) + MAlonzo.Code.Untyped.C_constr_34 v2 v3 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_constr_62 + (d_norm'45'CR'42'_606 (coe v0) (coe v3))) + MAlonzo.Code.Untyped.C_case_40 v2 v3 + -> let v4 + = MAlonzo.Code.Untyped.Transform.d__'8593''42'__14 + (\ v4 v5 -> coe du_reduce_30 v5) (coe v0) (coe v3) in + coe + (let v5 + = coe + du_reduce_30 + (coe + MAlonzo.Code.Untyped.Transform.du_'46'extendedlambda0_38 + (\ v5 v6 -> coe du_reduce_30 v6) (coe v0) (coe v2)) in + coe + (let v6 + = \ v6 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (let v7 + = \ v7 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v5 of + MAlonzo.Code.Untyped.C_'96'_18 v8 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 (coe v0) (coe v3)) + (d_norm'45'CR_600 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C_ƛ_20 v8 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 (coe v0) (coe v3)) + (d_norm'45'CR_600 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C__'183'__22 v8 v9 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 (coe v0) (coe v3)) + (d_norm'45'CR_600 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C_force_24 v8 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 (coe v0) (coe v3)) + (d_norm'45'CR_600 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C_delay_26 v8 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 (coe v0) (coe v3)) + (d_norm'45'CR_600 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C_con_28 v8 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 (coe v0) (coe v3)) + (d_norm'45'CR_600 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C_constr_34 v8 v9 + -> let v10 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v6 v8) (coe v7 v9) 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 + -> coe + seq (coe v14) + (coe + seq (coe v15) + (let v16 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe v8) (coe v4) in + coe + (case coe v16 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v17 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_88 + (coe + MAlonzo.Code.VerifiedCompilation.UCaseReduce.Inductive.C_casereduce''_218 + v17 v9 + (MAlonzo.Code.Untyped.Transform.d__'8593''42'__14 + (\ v18 v19 -> + coe + du_reduce_30 + v19) + (coe v0) + (coe v3)) + v8 + (d_norm'45'CR_600 + (coe v0) + (coe v2)) + (d_norm'45'CR'42'_606 + (coe v0) + (coe v3))) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 + (coe v0) + (coe v3)) + (d_norm'45'CR_600 + (coe v0) + (coe v2))) + _ -> 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_constr'33'_954 v19 v20 + -> coe + seq (coe v19) + (coe + seq (coe v20) + (let v21 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe + v8) + (coe + v4) in + coe + (case coe + v21 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v22 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_88 + (coe + MAlonzo.Code.VerifiedCompilation.UCaseReduce.Inductive.C_casereduce''_218 + v22 + v9 + (MAlonzo.Code.Untyped.Transform.d__'8593''42'__14 + (\ v23 + v24 -> + coe + du_reduce_30 + v24) + (coe + v0) + (coe + v3)) + v8 + (d_norm'45'CR_600 + (coe + v0) + (coe + v2)) + (d_norm'45'CR'42'_606 + (coe + v0) + (coe + v3))) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 + (coe + v0) + (coe + v3)) + (d_norm'45'CR_600 + (coe + v0) + (coe + v2))) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v15) + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 + (coe v0) (coe v3)) + (d_norm'45'CR_600 + (coe v0) (coe v2)))) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v8 v9 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 (coe v0) (coe v3)) + (d_norm'45'CR_600 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C_builtin_44 v8 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 (coe v0) (coe v3)) + (d_norm'45'CR_600 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_case_72 + (d_norm'45'CR'42'_606 (coe v0) (coe v3)) + (d_norm'45'CR_600 (coe v0) (coe v2))) + _ -> MAlonzo.RTE.mazUnreachableError)))) + MAlonzo.Code.Untyped.C_builtin_44 v2 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_builtin_76) + MAlonzo.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_error_78) + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UCaseReduce.Equivalence.norm-CR* +d_norm'45'CR'42'_606 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 +d_norm'45'CR'42'_606 v0 v1 + = case coe v1 of + [] + -> coe + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56 + (:) v2 v3 + -> coe + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 + (d_norm'45'CR_600 (coe v0) (coe v2)) + (d_norm'45'CR'42'_606 (coe v0) (coe v3)) + _ -> MAlonzo.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce/Inductive.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce/Inductive.hs new file mode 100644 index 00000000000..b257878ad71 --- /dev/null +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce/Inductive.hs @@ -0,0 +1,603 @@ +{-# 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.Inductive 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.Equality +import qualified MAlonzo.Code.Agda.Builtin.List +import qualified MAlonzo.Code.Agda.Builtin.Maybe +import qualified MAlonzo.Code.Agda.Builtin.Sigma +import qualified MAlonzo.Code.Data.Fin.Base +import qualified MAlonzo.Code.Data.Irrelevant +import qualified MAlonzo.Code.Data.List.Base +import qualified MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base +import qualified MAlonzo.Code.RawU +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.VerifiedCompilation.Certificate +import qualified MAlonzo.Code.VerifiedCompilation.Trace +import qualified MAlonzo.Code.VerifiedCompilation.UntypedTranslation +import qualified MAlonzo.Code.VerifiedCompilation.UntypedViews + +-- VerifiedCompilation.UCaseReduce.Inductive.CaseReduce +d_CaseReduce_6 a0 a1 a2 = () +data T_CaseReduce_6 + = C_casereduce_20 MAlonzo.Code.Untyped.T__'8866'_14 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 +-- VerifiedCompilation.UCaseReduce.Inductive.isCaseReduce? +d_isCaseReduce'63'_28 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_isCaseReduce'63'_28 v0 + = coe + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_160 + (coe v0) + (coe MAlonzo.Code.VerifiedCompilation.Trace.C_caseReduceT_14) + (coe d_isCR'63'_44) +-- VerifiedCompilation.UCaseReduce.Inductive.justEq +d_justEq_36 :: + () -> + AgdaAny -> + AgdaAny -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_justEq_36 = erased +-- VerifiedCompilation.UCaseReduce.Inductive.isCR? +d_isCR'63'_44 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 +d_isCR'63'_44 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'_28 + 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_20 + 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 + (coe + MAlonzo.Code.VerifiedCompilation.Trace.C_caseReduceT_14) + 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 + (coe MAlonzo.Code.VerifiedCompilation.Trace.C_caseReduceT_14) v1 + v2) + _ -> MAlonzo.RTE.mazUnreachableError) +-- VerifiedCompilation.UCaseReduce.Inductive..extendedlambda0 +d_'46'extendedlambda0_60 :: + 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_6 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda0_60 = erased +-- VerifiedCompilation.UCaseReduce.Inductive..extendedlambda1 +d_'46'extendedlambda1_88 :: + 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_6 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda1_88 = erased +-- VerifiedCompilation.UCaseReduce.Inductive..extendedlambda2 +d_'46'extendedlambda2_92 :: + 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_8 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda2_92 = erased +-- VerifiedCompilation.UCaseReduce.Inductive..extendedlambda3 +d_'46'extendedlambda3_144 :: + 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_8 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> + () -> + () -> + MAlonzo.Code.VerifiedCompilation.Trace.T_SimplifierTag_4 -> + AgdaAny -> + AgdaAny -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + Integer -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + T_CaseReduce_6 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'46'extendedlambda3_144 = erased +-- VerifiedCompilation.UCaseReduce.Inductive.UCaseReduce +d_UCaseReduce_152 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 -> () +d_UCaseReduce_152 = erased +-- VerifiedCompilation.UCaseReduce.Inductive.ast₁ +d_ast'8321'_154 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_ast'8321'_154 + = 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_330 (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.Inductive.ast₁' +d_ast'8321'''_156 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_ast'8321'''_156 + = 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_330 (coe (99 :: Integer))) +-- VerifiedCompilation.UCaseReduce.Inductive.ast +d_ast_160 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_ast_160 + = 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_330 (coe (12 :: Integer))) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Untyped.du_con'45'integer_330 (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_330 (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.Inductive.ast' +d_ast''_162 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_ast''_162 + = coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe + MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (42 :: Integer))) + (coe + MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (99 :: Integer))) +-- VerifiedCompilation.UCaseReduce.Inductive.conInt +d_conInt_164 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 +d_conInt_164 v0 + = coe + MAlonzo.Code.Untyped.C_con_28 + (coe + MAlonzo.Code.RawU.C_tmCon_206 + (coe + MAlonzo.Code.RawU.du_tag2TyTag_232 + (coe MAlonzo.Code.RawU.C_integer_30)) + (coe v0)) +-- VerifiedCompilation.UCaseReduce.Inductive.does +d_does_170 :: + () -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> Bool +d_does_170 ~v0 v1 = du_does_170 v1 +du_does_170 :: + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> Bool +du_does_170 v0 + = case coe v0 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v1 + -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 + MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v4 v5 v6 + -> coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UCaseReduce.Inductive.witness +d_witness_176 :: + () -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny +d_witness_176 ~v0 v1 ~v2 = du_witness_176 v1 +du_witness_176 :: + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> + AgdaAny +du_witness_176 v0 + = case coe v0 of + MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v1 + -> coe v1 + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UCaseReduce.Inductive.¬witness +d_'172'witness_184 :: + () -> + MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -> + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> + AgdaAny -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_'172'witness_184 = erased +-- VerifiedCompilation.UCaseReduce.Inductive.Ex.M +d_M_190 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_M_190 + = coe + MAlonzo.Code.Untyped.C_case_40 + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: 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_constr_34 (coe (0 :: 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_constr_34 (coe (1 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16))) +-- VerifiedCompilation.UCaseReduce.Inductive.Ex.M' +d_M''_192 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_M''_192 + = coe + MAlonzo.Code.Untyped.C_constr_34 (coe (0 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) +-- VerifiedCompilation.UCaseReduce.Inductive.Ex.N +d_N_196 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_N_196 + = coe + MAlonzo.Code.Untyped.C_case_40 (coe d_M_190) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Untyped.C_constr_34 (coe (42 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)) +-- VerifiedCompilation.UCaseReduce.Inductive.Ex.N' +d_N''_198 :: MAlonzo.Code.Untyped.T__'8866'_14 +d_N''_198 + = coe + MAlonzo.Code.Untyped.C_constr_34 (coe (42 :: Integer)) + (coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) +-- VerifiedCompilation.UCaseReduce.Inductive.Ex.problem +d_problem_200 :: + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> + MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 +d_problem_200 = erased +-- VerifiedCompilation.UCaseReduce.Inductive.CaseReduce' +d_CaseReduce''_202 a0 a1 a2 = () +data T_CaseReduce''_202 + = C_casereduce''_218 MAlonzo.Code.Untyped.T__'8866'_14 + [MAlonzo.Code.Untyped.T__'8866'_14] + [MAlonzo.Code.Untyped.T__'8866'_14] Integer + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 + MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 +-- VerifiedCompilation.UCaseReduce.Inductive.CaseReduce'' +d_CaseReduce''''_222 a0 a1 a2 = () +data T_CaseReduce''''_222 + = C_casereduce''''_238 MAlonzo.Code.Untyped.T__'8866'_14 + [MAlonzo.Code.Untyped.T__'8866'_14] Integer + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 +-- VerifiedCompilation.UCaseReduce.Inductive.cr'' +d_cr''''_242 :: + Integer -> + MAlonzo.Code.Untyped.T__'8866'_14 -> + MAlonzo.Code.Untyped.T__'8866'_14 +d_cr''''_242 v0 v1 + = case coe v1 of + MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe v1 + MAlonzo.Code.Untyped.C_ƛ_20 v2 + -> coe + MAlonzo.Code.Untyped.C_ƛ_20 + (coe + d_cr''''_242 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) + MAlonzo.Code.Untyped.C__'183'__22 v2 v3 + -> coe + MAlonzo.Code.Untyped.C__'183'__22 + (coe d_cr''''_242 (coe v0) (coe v2)) + (coe d_cr''''_242 (coe v0) (coe v3)) + MAlonzo.Code.Untyped.C_force_24 v2 + -> coe + MAlonzo.Code.Untyped.C_force_24 + (coe d_cr''''_242 (coe v0) (coe v2)) + MAlonzo.Code.Untyped.C_delay_26 v2 + -> coe + MAlonzo.Code.Untyped.C_delay_26 + (coe d_cr''''_242 (coe v0) (coe v2)) + MAlonzo.Code.Untyped.C_con_28 v2 -> coe v1 + MAlonzo.Code.Untyped.C_constr_34 v2 v3 + -> coe + MAlonzo.Code.Untyped.C_constr_34 (coe v2) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + MAlonzo.Code.Untyped.C_case_40 v2 v3 + -> let v4 = d_cr''''_242 (coe v0) (coe v2) in + coe + (let v5 + = \ v5 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (let v6 + = \ v6 -> + coe MAlonzo.Code.VerifiedCompilation.UntypedViews.du_'8943'_2158 in + coe + (case coe v4 of + MAlonzo.Code.Untyped.C_'96'_18 v7 + -> coe + MAlonzo.Code.Untyped.C_case_40 (coe v4) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + MAlonzo.Code.Untyped.C_ƛ_20 v7 + -> coe + MAlonzo.Code.Untyped.C_case_40 (coe v4) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + MAlonzo.Code.Untyped.C__'183'__22 v7 v8 + -> coe + MAlonzo.Code.Untyped.C_case_40 (coe v4) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + MAlonzo.Code.Untyped.C_force_24 v7 + -> coe + MAlonzo.Code.Untyped.C_case_40 (coe v4) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + MAlonzo.Code.Untyped.C_delay_26 v7 + -> coe + MAlonzo.Code.Untyped.C_case_40 (coe v4) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + MAlonzo.Code.Untyped.C_con_28 v7 + -> coe + MAlonzo.Code.Untyped.C_case_40 (coe v4) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + MAlonzo.Code.Untyped.C_constr_34 v7 v8 + -> let v9 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v5 v7) (coe v6 v8) 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 + -> coe + seq (coe v13) + (coe + seq (coe v14) + (let v15 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe v7) (coe v3) in + coe + (case coe v15 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v16 + -> coe + d_cr''''_242 (coe v0) + (coe + MAlonzo.Code.Untyped.Reduction.du_iterApp_242 + (coe v16) (coe v8)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Untyped.C_case_40 + (coe v4) + (coe + d_cr'''''42'_246 + (coe v0) (coe v3)) + _ -> 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_constr'33'_954 v18 v19 + -> coe + seq (coe v18) + (coe + seq (coe v19) + (let v20 + = coe + MAlonzo.Code.Untyped.CEK.du_lookup'63'_996 + (coe v7) + (coe + v3) in + coe + (case coe v20 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v21 + -> coe + d_cr''''_242 + (coe + v0) + (coe + MAlonzo.Code.Untyped.Reduction.du_iterApp_242 + (coe + v21) + (coe + v8)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Untyped.C_case_40 + (coe + v4) + (coe + d_cr'''''42'_246 + (coe + v0) + (coe + v3)) + _ -> MAlonzo.RTE.mazUnreachableError))) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v14) + (coe + MAlonzo.Code.Untyped.C_case_40 + (coe v4) + (coe + d_cr'''''42'_246 (coe v0) + (coe v3))) + _ -> MAlonzo.RTE.mazUnreachableError)) + _ -> MAlonzo.RTE.mazUnreachableError) + MAlonzo.Code.Untyped.C_case_40 v7 v8 + -> coe + MAlonzo.Code.Untyped.C_case_40 (coe v4) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + MAlonzo.Code.Untyped.C_builtin_44 v7 + -> coe + MAlonzo.Code.Untyped.C_case_40 (coe v4) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + MAlonzo.Code.Untyped.C_error_46 + -> coe + MAlonzo.Code.Untyped.C_case_40 (coe v4) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + _ -> MAlonzo.RTE.mazUnreachableError))) + MAlonzo.Code.Untyped.C_builtin_44 v2 -> coe v1 + MAlonzo.Code.Untyped.C_error_46 -> coe v1 + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UCaseReduce.Inductive.cr''* +d_cr'''''42'_246 :: + Integer -> + [MAlonzo.Code.Untyped.T__'8866'_14] -> + [MAlonzo.Code.Untyped.T__'8866'_14] +d_cr'''''42'_246 v0 v1 + = case coe v1 of + [] -> coe v1 + (:) v2 v3 + -> coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe d_cr''''_242 (coe v0) (coe v2)) + (coe d_cr'''''42'_246 (coe v0) (coe v3)) + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UCaseReduce.Inductive.cr-CR'' +d_cr'45'CR''''_348 + = error + "MAlonzo Runtime Error: postulate evaluated: VerifiedCompilation.UCaseReduce.Inductive.cr-CR''" diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UFloatDelay.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UFloatDelay.hs index 048f2a7a446..683dee00ea4 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UFloatDelay.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UFloatDelay.hs @@ -522,8 +522,8 @@ du_subs'45'delay_404 v0 v1 -- VerifiedCompilation.UFloatDelay.FlD d_FlD_464 a0 a1 a2 = () data T_FlD_464 - = C_floatdelay_476 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 + = C_floatdelay_476 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 MAlonzo.Code.Untyped.Purity.T_Pure_6 -- VerifiedCompilation.UFloatDelay.FloatDelay d_FloatDelay_484 :: @@ -539,7 +539,7 @@ d_isFloatDelay'63'_488 :: MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 d_isFloatDelay'63'_488 v0 = coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_164 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_160 (coe v0) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_FloatDelayT_28) (coe d_isFlD'63'_492) @@ -767,13 +767,13 @@ d_'46'extendedlambda10_582 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -785,18 +785,18 @@ d_'46'extendedlambda11_630 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> T_FlD_464 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 d_'46'extendedlambda11_630 = erased -- VerifiedCompilation.UFloatDelay..extendedlambda12 @@ -806,9 +806,9 @@ d_'46'extendedlambda12_676 :: (MAlonzo.Code.Untyped.Purity.T_Pure_6 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> T_FlD_464 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 d_'46'extendedlambda12_676 = erased diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceCaseDelay.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceCaseDelay.hs index 256b8a64df2..6b77f2f6eca 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceCaseDelay.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceCaseDelay.hs @@ -149,7 +149,7 @@ du_go_76 v0 d_FCD_84 a0 a1 a2 = () data T_FCD_84 = C_isFCD_86 MAlonzo.Code.Data.List.Relation.Unary.All.T_All_44 - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -- VerifiedCompilation.UForceCaseDelay.ForceCaseDelay d_ForceCaseDelay_92 :: @@ -165,7 +165,7 @@ d_isForceCaseDelay'63'_94 :: MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 d_isForceCaseDelay'63'_94 v0 = coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_164 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_160 (coe v0) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_ForceCaseDelayT_32) (coe d_isFCD'63'_96) @@ -376,13 +376,13 @@ d_'46'extendedlambda4_228 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_14 -> + MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12 -> AgdaAny -> AgdaAny -> [MAlonzo.Code.Untyped.T__'8866'_14] -> @@ -401,12 +401,12 @@ 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 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> MAlonzo.Code.Data.List.Relation.Unary.All.T_All_44 -> T_FCD_84 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 d_'46'extendedlambda5_280 = erased diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs index b3d0a1c28ae..1edf4623994 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs @@ -38,7 +38,7 @@ data T_pureFD_6 = C_forcedelay_14 T_pureFD_6 | C_pushfd_24 T_pureFD_6 T_pureFD_6 | C__'10814'__32 MAlonzo.Code.Untyped.T__'8866'_14 T_pureFD_6 T_pureFD_6 | - C_translationfd_38 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 | + C_translationfd_38 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 | C_appfd_46 | C_appfd'8315''185'_54 -- VerifiedCompilation.UForceDelay.forceappdelay d_forceappdelay_58 :: T_pureFD_6 @@ -64,17 +64,17 @@ d_forceappdelay_58 (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_delay_54 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_delay_50 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_26))))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_22))))) (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe (1 :: Integer)) (coe MAlonzo.Code.Untyped.C_'96'_18 @@ -82,27 +82,27 @@ d_forceappdelay_58 (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_42 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_32 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_28 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_92 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_88 (coe C_forcedelay_14 (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_26))))))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_22))))))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_26))))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_22))))) -- VerifiedCompilation.UForceDelay.test4 d_test4_72 :: Integer -> @@ -130,11 +130,11 @@ d_test4_72 v0 v1 v2 v3 (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_force_48 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_force_44 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_92 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_88 (coe C_appfd_46))))) (coe C__'10814'__32 @@ -158,7 +158,7 @@ d_test4_72 v0 v1 v2 v3 (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe MAlonzo.Code.Untyped.C__'183'__22 @@ -171,7 +171,7 @@ d_test4_72 v0 v1 v2 v3 (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe v0) (coe v2)))) (coe C__'10814'__32 @@ -193,33 +193,33 @@ d_test4_72 v0 v1 v2 v3 (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_42 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_32 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_28 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_92 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_88 (coe C_pushfd_24 (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe addInt (coe (2 :: Integer)) (coe v0)) (coe MAlonzo.Code.Untyped.C_delay_26 (coe v1)))) (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe MAlonzo.Code.Untyped.RenamingSubstitution.d_weaken_88 (coe v0) (coe v3)))))))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe v0) (coe v2))))) (coe C__'10814'__32 @@ -237,39 +237,39 @@ d_test4_72 v0 v1 v2 v3 (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_42 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_32 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_28 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_42 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_app_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_32 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_ƛ_28 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_92 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_istranslation_88 (coe C_forcedelay_14 (coe C_translationfd_38 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe addInt (coe (2 :: Integer)) (coe v0)) (coe v1))))))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe MAlonzo.Code.Untyped.RenamingSubstitution.d_weaken_88 (coe v0) (coe v3))))))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe v0) (coe v2))))) (coe C_appfd'8315''185'_54)))) -- VerifiedCompilation.UForceDelay.Zipper @@ -295,13 +295,13 @@ d_FD_112 a0 a1 a2 a3 = () data T_FD_112 = C_force_116 T_FD_112 | C_delay_118 T_FD_112 | C_app_120 T_FD_112 - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 | + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 | C_abs_122 T_FD_112 | - C_last'45'delay_124 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 | - C_last'45'abs_126 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 | + C_last'45'delay_124 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 | + C_last'45'abs_126 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 | C_ifThenElse_128 MAlonzo.Code.Untyped.Purity.T_Pure_6 MAlonzo.Code.Untyped.Purity.T_Pure_6 - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 T_FD_112 T_FD_112 -- VerifiedCompilation.UForceDelay.ForceDelay d_ForceDelay_136 :: @@ -321,13 +321,13 @@ d_simpleSuccess_138 (coe C_last'45'delay_124 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_58)))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_54)))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_58))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_54))) -- VerifiedCompilation.UForceDelay.multiApplied d_multiApplied_140 :: T_FD_112 d_multiApplied_140 @@ -348,17 +348,17 @@ d_multiApplied_140 (coe C_last'45'delay_124 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_26))))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_22))))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_26)))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_22)))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_26)))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_22)))) -- VerifiedCompilation.UForceDelay.nested d_nested_142 :: T_FD_112 d_nested_142 @@ -379,17 +379,17 @@ d_nested_142 (coe C_last'45'abs_126 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_58))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_54))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_58)))))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_54)))))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_58)))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_54)))) -- VerifiedCompilation.UForceDelay.forceDelaySimpleBefore d_forceDelaySimpleBefore_144 :: MAlonzo.Code.Untyped.T__'8866'_14 d_forceDelaySimpleBefore_144 @@ -478,21 +478,21 @@ d_forceDelaySimple_148 (coe C_last'45'abs_126 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_26))))))))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_var_22))))))))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe (0 :: Integer)) (coe MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (1 :: Integer)))))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe (0 :: Integer)) (coe MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (2 :: Integer)))))) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1600 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe (0 :: Integer)) (coe MAlonzo.Code.Untyped.du_con'45'integer_330 (coe (3 :: Integer)))) @@ -559,20 +559,20 @@ d_ifThenElseProof_174 C_ifThenElse_128 (coe MAlonzo.Code.Untyped.Purity.C_con_66) (coe MAlonzo.Code.Untyped.Purity.C_con_66) (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 - (coe MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_58)) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 + (coe MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_54)) (coe C_last'45'delay_124 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_58))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_54))) (coe C_last'45'delay_124 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_98 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_match_94 (coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_58)))) + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.C_con_54)))) -- VerifiedCompilation.UForceDelay.isForceDelay? d_isForceDelay'63'_178 :: Integer -> @@ -581,7 +581,7 @@ d_isForceDelay'63'_178 :: MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 d_isForceDelay'63'_178 v0 = coe - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_164 + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_translation'63'_160 (coe v0) (coe MAlonzo.Code.VerifiedCompilation.Trace.d_ForceDelayT_30) (coe (\ v1 -> d_isFD'63'_184 (coe v1) (coe C_'9633'_82))) @@ -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 @@ -2267,13 +2267,13 @@ d_'46'extendedlambda3_320 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> T_FD_112 -> - (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_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,19 +2322,19 @@ 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 -> MAlonzo.Code.Untyped.T__'8866'_14 -> T_FD_112 -> - (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_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 @@ -2348,13 +2348,13 @@ d_'46'extendedlambda7_518 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> T_FD_112 -> - (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_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 -> @@ -2428,13 +2428,13 @@ d_'46'extendedlambda10_750 :: T_Zipper_78 -> MAlonzo.Code.Untyped.Purity.T_Pure_6 -> MAlonzo.Code.Untyped.Purity.T_Pure_6 -> - (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_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 -> @@ -2464,13 +2464,13 @@ d_'46'extendedlambda11_814 :: T_Zipper_78 -> MAlonzo.Code.Untyped.Purity.T_Pure_6 -> MAlonzo.Code.Untyped.Purity.T_Pure_6 -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> (T_FD_112 -> 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_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 -> @@ -2499,14 +2499,14 @@ d_'46'extendedlambda12_880 :: T_Zipper_78 -> MAlonzo.Code.Untyped.Purity.T_Pure_6 -> MAlonzo.Code.Untyped.Purity.T_Pure_6 -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> T_FD_112 -> (T_FD_112 -> 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_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 -> @@ -2538,7 +2538,7 @@ d_'46'extendedlambda13_1034 :: T_Zipper_78 -> MAlonzo.Code.Untyped.Purity.T_Pure_6 -> MAlonzo.Code.Untyped.Purity.T_Pure_6 -> - MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> T_FD_112 -> T_FD_112 -> (T_FD_112 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> @@ -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 -> @@ -2578,13 +2578,13 @@ d_'46'extendedlambda15_1190 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_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 -> @@ -2675,13 +2675,13 @@ d_'46'extendedlambda20_1454 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_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 -> @@ -2774,13 +2774,13 @@ d_'46'extendedlambda25_1698 :: T_Zipper_78 -> MAlonzo.Code.Untyped.T__'8866'_14 -> T_FD_112 -> - (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_12 -> + (MAlonzo.Code.VerifiedCompilation.UntypedTranslation.T_Translation_8 -> 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_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..bc9bed5d942 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedTranslation.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedTranslation.hs @@ -33,30 +33,27 @@ import qualified MAlonzo.Code.Utils import qualified MAlonzo.Code.VerifiedCompilation.Certificate import qualified MAlonzo.Code.VerifiedCompilation.Trace --- VerifiedCompilation.UntypedTranslation.Relation -d_Relation_4 :: () -d_Relation_4 = erased -- VerifiedCompilation.UntypedTranslation.Translation -d_Translation_12 a0 a1 a2 a3 = () -data T_Translation_12 - = C_istranslation_92 AgdaAny | C_match_98 T_TransMatch_18 +d_Translation_8 a0 a1 a2 a3 = () +data T_Translation_8 + = C_istranslation_88 AgdaAny | C_match_94 T_TransMatch_14 -- VerifiedCompilation.UntypedTranslation.TransMatch -d_TransMatch_18 a0 a1 a2 a3 = () -data T_TransMatch_18 - = C_var_26 | C_ƛ_32 T_Translation_12 | - C_app_42 T_Translation_12 T_Translation_12 | - C_force_48 T_Translation_12 | C_delay_54 T_Translation_12 | - C_con_58 | - C_constr_66 MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 | - C_case_76 MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 - T_Translation_12 | - C_builtin_80 | C_error_82 +d_TransMatch_14 a0 a1 a2 a3 = () +data T_TransMatch_14 + = C_var_22 | C_ƛ_28 T_Translation_8 | + C_app_38 T_Translation_8 T_Translation_8 | + C_force_44 T_Translation_8 | C_delay_50 T_Translation_8 | + C_con_54 | + C_constr_62 MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 | + C_case_72 MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 + T_Translation_8 | + C_builtin_76 | C_error_78 -- VerifiedCompilation.UntypedTranslation.untypedIx -d_untypedIx_102 :: +d_untypedIx_98 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> Integer -d_untypedIx_102 ~v0 v1 = du_untypedIx_102 v1 -du_untypedIx_102 :: MAlonzo.Code.Untyped.T__'8866'_14 -> Integer -du_untypedIx_102 v0 +d_untypedIx_98 ~v0 v1 = du_untypedIx_98 v1 +du_untypedIx_98 :: MAlonzo.Code.Untyped.T__'8866'_14 -> Integer +du_untypedIx_98 v0 = case coe v0 of MAlonzo.Code.Untyped.C_'96'_18 v1 -> coe (1 :: Integer) MAlonzo.Code.Untyped.C_ƛ_20 v1 -> coe (2 :: Integer) @@ -70,24 +67,24 @@ du_untypedIx_102 v0 MAlonzo.Code.Untyped.C_error_46 -> coe (10 :: Integer) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedTranslation.matchIx -d_matchIx_136 :: +d_matchIx_132 :: (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> - T_TransMatch_18 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -d_matchIx_136 = erased + T_TransMatch_14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 +d_matchIx_132 = erased -- VerifiedCompilation.UntypedTranslation.translation? -d_translation'63'_164 :: +d_translation'63'_160 :: Integer -> (Integer -> 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 -> (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -95,13 +92,13 @@ d_translation'63'_164 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -d_translation'63'_164 v0 ~v1 v2 v3 v4 v5 - = du_translation'63'_164 v0 v2 v3 v4 v5 -du_translation'63'_164 :: +d_translation'63'_160 v0 ~v1 v2 v3 v4 v5 + = du_translation'63'_160 v0 v2 v3 v4 v5 +du_translation'63'_160 :: 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 -> @@ -109,7 +106,7 @@ du_translation'63'_164 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -du_translation'63'_164 v0 v1 v2 v3 v4 +du_translation'63'_160 v0 v1 v2 v3 v4 = let v5 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.du_map'8242'_178 @@ -117,12 +114,12 @@ du_translation'63'_164 v0 v1 v2 v3 v4 (\ v5 -> coe MAlonzo.Code.Data.Nat.Properties.du_'8801''8658''8801''7495'_2786 - (coe du_untypedIx_102 (coe v3))) + (coe du_untypedIx_98 (coe v3))) (coe MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_72 (coe - eqInt (coe du_untypedIx_102 (coe v3)) - (coe du_untypedIx_102 (coe v4)))) in + eqInt (coe du_untypedIx_98 (coe v3)) + (coe du_untypedIx_98 (coe v4)))) in coe (let v6 = case coe v5 of @@ -137,7 +134,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v9 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v9) + (coe C_istranslation_88 v9) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v12 v13 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v12 v13 @@ -160,7 +157,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v12 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v12) + (coe C_istranslation_88 v12) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v15 v16 v17 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -191,7 +188,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 (coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_match_98 (coe C_var_26))) + C_match_94 (coe C_var_22))) else coe seq (coe v15) (let v16 = coe v2 v0 v3 v4 in @@ -201,7 +198,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_istranslation_92 + C_istranslation_88 v17) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v20 v21 v22 -> coe @@ -225,7 +222,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -247,7 +244,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -269,7 +266,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -291,7 +288,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -313,7 +310,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -335,7 +332,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -357,7 +354,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -379,7 +376,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -401,7 +398,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -425,7 +422,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v12 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v12) + (coe C_istranslation_88 v12) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v15 v16 v17 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -449,7 +446,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -467,7 +464,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 -> let v13 = coe - du_translation'63'_164 + du_translation'63'_160 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v1) (coe v2) (coe v7) (coe v9) in coe @@ -475,7 +472,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_match_98 (coe C_ƛ_32 v14)) + (coe C_match_94 (coe C_ƛ_28 v14)) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> let v20 = coe v2 v0 v3 v4 in coe @@ -483,7 +480,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v21 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v21) + (coe C_istranslation_88 v21) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v24 v25 v26 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -506,7 +503,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -528,7 +525,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -550,7 +547,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -572,7 +569,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -594,7 +591,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -616,7 +613,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -638,7 +635,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -660,7 +657,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -684,7 +681,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -708,7 +705,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -730,7 +727,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -748,14 +745,14 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 -> let v15 = coe - du_translation'63'_164 (coe v0) (coe v1) + du_translation'63'_160 (coe v0) (coe v1) (coe v2) (coe v8) (coe v11) in coe (case coe v15 of MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v16 -> let v17 = coe - du_translation'63'_164 (coe v0) + du_translation'63'_160 (coe v0) (coe v1) (coe v2) (coe v7) (coe v10) in coe @@ -764,8 +761,8 @@ du_translation'63'_164 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_match_98 - (coe C_app_42 v18 v16)) + C_match_94 + (coe C_app_38 v18 v16)) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v21 v22 v23 -> let v24 = coe v2 v0 v3 v4 in coe @@ -774,7 +771,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_istranslation_92 + C_istranslation_88 v25) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v28 v29 v30 -> coe @@ -789,7 +786,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v23 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v23) + (coe C_istranslation_88 v23) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v26 v27 v28 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -812,7 +809,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -834,7 +831,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -856,7 +853,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -878,7 +875,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v16 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v16) + (coe C_istranslation_88 v16) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v19 v20 v21 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -900,7 +897,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v16 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v16) + (coe C_istranslation_88 v16) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v19 v20 v21 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -922,7 +919,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -944,7 +941,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -968,7 +965,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v12 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v12) + (coe C_istranslation_88 v12) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v15 v16 v17 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -992,7 +989,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1014,7 +1011,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1036,7 +1033,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1054,14 +1051,14 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 -> let v13 = coe - du_translation'63'_164 (coe v0) (coe v1) + du_translation'63'_160 (coe v0) (coe v1) (coe v2) (coe v7) (coe v9) in coe (case coe v13 of MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_match_98 (coe C_force_48 v14)) + (coe C_match_94 (coe C_force_44 v14)) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> let v20 = coe v2 v0 v3 v4 in coe @@ -1069,7 +1066,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v21 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v21) + (coe C_istranslation_88 v21) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v24 v25 v26 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1092,7 +1089,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1114,7 +1111,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1136,7 +1133,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1158,7 +1155,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1180,7 +1177,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1202,7 +1199,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1226,7 +1223,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v12 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v12) + (coe C_istranslation_88 v12) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v15 v16 v17 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1250,7 +1247,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1272,7 +1269,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1294,7 +1291,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1316,7 +1313,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1334,14 +1331,14 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v12 -> let v13 = coe - du_translation'63'_164 (coe v0) (coe v1) + du_translation'63'_160 (coe v0) (coe v1) (coe v2) (coe v7) (coe v9) in coe (case coe v13 of MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_match_98 (coe C_delay_54 v14)) + (coe C_match_94 (coe C_delay_50 v14)) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> let v20 = coe v2 v0 v3 v4 in coe @@ -1349,7 +1346,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v21 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v21) + (coe C_istranslation_88 v21) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v24 v25 v26 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1372,7 +1369,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1394,7 +1391,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1416,7 +1413,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1438,7 +1435,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1460,7 +1457,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1484,7 +1481,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v12 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v12) + (coe C_istranslation_88 v12) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v15 v16 v17 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1508,7 +1505,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1530,7 +1527,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1552,7 +1549,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1574,7 +1571,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1596,7 +1593,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1624,7 +1621,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 (coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_match_98 (coe C_con_58))) + C_match_94 (coe C_con_54))) else coe seq (coe v15) (let v16 = coe v2 v0 v3 v4 in @@ -1634,7 +1631,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_istranslation_92 + C_istranslation_88 v17) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v20 v21 v22 -> coe @@ -1658,7 +1655,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1680,7 +1677,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1702,7 +1699,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1724,7 +1721,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1748,7 +1745,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1772,7 +1769,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1794,7 +1791,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1816,7 +1813,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v16 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v16) + (coe C_istranslation_88 v16) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v19 v20 v21 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1838,7 +1835,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1860,7 +1857,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1882,7 +1879,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1921,7 +1918,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v16 -> let v17 = coe - du_decPointwiseTranslation'63'_176 + du_decPointwiseTranslation'63'_172 (coe v0) (coe v1) (coe v2) (coe v8) (coe v11) in coe @@ -1930,8 +1927,8 @@ du_translation'63'_164 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_match_98 - (coe C_constr_66 v18)) + C_match_94 + (coe C_constr_62 v18)) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v21 v22 v23 -> let v24 = coe @@ -1946,7 +1943,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_istranslation_92 + C_istranslation_88 v25) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v28 v29 v30 -> coe @@ -1961,7 +1958,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v23 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v23) + (coe C_istranslation_88 v23) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v26 v27 v28 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -1984,7 +1981,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v16 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v16) + (coe C_istranslation_88 v16) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v19 v20 v21 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2006,7 +2003,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2028,7 +2025,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2052,7 +2049,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2076,7 +2073,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2098,7 +2095,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2120,7 +2117,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v16 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v16) + (coe C_istranslation_88 v16) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v19 v20 v21 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2142,7 +2139,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2164,7 +2161,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2186,7 +2183,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2208,7 +2205,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v16 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v16) + (coe C_istranslation_88 v16) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v19 v20 v21 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2226,14 +2223,14 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v14 -> let v15 = coe - du_translation'63'_164 (coe v0) (coe v1) + du_translation'63'_160 (coe v0) (coe v1) (coe v2) (coe v7) (coe v10) in coe (case coe v15 of MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v16 -> let v17 = coe - du_decPointwiseTranslation'63'_176 + du_decPointwiseTranslation'63'_172 (coe v0) (coe v1) (coe v2) (coe v8) (coe v11) in coe @@ -2242,8 +2239,8 @@ du_translation'63'_164 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_match_98 - (coe C_case_76 v18 v16)) + C_match_94 + (coe C_case_72 v18 v16)) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v21 v22 v23 -> let v24 = coe v2 v0 v3 v4 in coe @@ -2252,7 +2249,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_istranslation_92 + C_istranslation_88 v25) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v28 v29 v30 -> coe @@ -2267,7 +2264,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v23 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v23) + (coe C_istranslation_88 v23) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v26 v27 v28 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2290,7 +2287,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2312,7 +2309,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2336,7 +2333,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v12 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v12) + (coe C_istranslation_88 v12) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v15 v16 v17 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2360,7 +2357,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2382,7 +2379,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2404,7 +2401,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2426,7 +2423,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2448,7 +2445,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2470,7 +2467,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2492,7 +2489,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2514,7 +2511,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v15 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v15) + (coe C_istranslation_88 v15) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v18 v19 v20 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2582,9 +2579,9 @@ du_translation'63'_164 v0 v1 v2 v3 v4 (coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_match_98 + C_match_94 (coe - C_builtin_80))) + C_builtin_76))) else coe seq (coe v18) (let v19 @@ -2599,7 +2596,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_istranslation_92 + C_istranslation_88 v20) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v23 v24 v25 -> coe @@ -2626,9 +2623,9 @@ du_translation'63'_164 v0 v1 v2 v3 v4 (coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_match_98 + C_match_94 (coe - C_builtin_80))) + C_builtin_76))) else coe seq (coe v18) (let v19 @@ -2644,7 +2641,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 (coe - C_istranslation_92 + C_istranslation_88 v20) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v23 v24 v25 -> coe @@ -2671,7 +2668,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2695,7 +2692,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v11 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v11) + (coe C_istranslation_88 v11) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v14 v15 v16 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2719,7 +2716,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2741,7 +2738,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2763,7 +2760,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2785,7 +2782,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2807,7 +2804,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2829,7 +2826,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2851,7 +2848,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2873,7 +2870,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v14 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v14) + (coe C_istranslation_88 v14) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v17 v18 v19 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2895,7 +2892,7 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 v13 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_istranslation_92 v13) + (coe C_istranslation_88 v13) MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 v16 v17 v18 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_ce_52 @@ -2913,21 +2910,21 @@ du_translation'63'_164 v0 v1 v2 v3 v4 MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v10 -> coe MAlonzo.Code.VerifiedCompilation.Certificate.C_proof_44 - (coe C_match_98 (coe C_error_82)) + (coe C_match_94 (coe C_error_78)) _ -> coe v7 _ -> coe v7 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError)) -- VerifiedCompilation.UntypedTranslation.decPointwiseTranslation? -d_decPointwiseTranslation'63'_176 :: +d_decPointwiseTranslation'63'_172 :: Integer -> (Integer -> 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 -> (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -2935,13 +2932,13 @@ d_decPointwiseTranslation'63'_176 :: [MAlonzo.Code.Untyped.T__'8866'_14] -> [MAlonzo.Code.Untyped.T__'8866'_14] -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -d_decPointwiseTranslation'63'_176 v0 ~v1 v2 v3 v4 v5 - = du_decPointwiseTranslation'63'_176 v0 v2 v3 v4 v5 -du_decPointwiseTranslation'63'_176 :: +d_decPointwiseTranslation'63'_172 v0 ~v1 v2 v3 v4 v5 + = du_decPointwiseTranslation'63'_172 v0 v2 v3 v4 v5 +du_decPointwiseTranslation'63'_172 :: 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 -> @@ -2949,7 +2946,7 @@ du_decPointwiseTranslation'63'_176 :: [MAlonzo.Code.Untyped.T__'8866'_14] -> [MAlonzo.Code.Untyped.T__'8866'_14] -> MAlonzo.Code.VerifiedCompilation.Certificate.T_ProofOrCE_38 -du_decPointwiseTranslation'63'_176 v0 v1 v2 v3 v4 +du_decPointwiseTranslation'63'_172 v0 v1 v2 v3 v4 = case coe v3 of [] -> case coe v4 of @@ -2970,12 +2967,12 @@ du_decPointwiseTranslation'63'_176 v0 v1 v2 v3 v4 (:) v7 v8 -> let v9 = coe - du_translation'63'_164 (coe v0) (coe v1) (coe v2) (coe v5) + du_translation'63'_160 (coe v0) (coe v1) (coe v2) (coe v5) (coe v7) in coe (let v10 = coe - du_decPointwiseTranslation'63'_176 (coe v0) (coe v1) (coe v2) + du_decPointwiseTranslation'63'_172 (coe v0) (coe v1) (coe v2) (coe v6) (coe v8) in coe (case coe v9 of @@ -2999,7 +2996,7 @@ du_decPointwiseTranslation'63'_176 v0 v1 v2 v3 v4 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedTranslation.convert-pointwise -d_convert'45'pointwise_1506 :: +d_convert'45'pointwise_1502 :: (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> @@ -3014,9 +3011,9 @@ d_convert'45'pointwise_1506 :: MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) -> MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -> MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -d_convert'45'pointwise_1506 ~v0 ~v1 v2 v3 v4 v5 v6 - = du_convert'45'pointwise_1506 v2 v3 v4 v5 v6 -du_convert'45'pointwise_1506 :: +d_convert'45'pointwise_1502 ~v0 ~v1 v2 v3 v4 v5 v6 + = du_convert'45'pointwise_1502 v2 v3 v4 v5 v6 +du_convert'45'pointwise_1502 :: Integer -> [MAlonzo.Code.Untyped.T__'8866'_14] -> [MAlonzo.Code.Untyped.T__'8866'_14] -> @@ -3025,7 +3022,7 @@ du_convert'45'pointwise_1506 :: MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) -> MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -> MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -du_convert'45'pointwise_1506 v0 v1 v2 v3 v4 +du_convert'45'pointwise_1502 v0 v1 v2 v3 v4 = case coe v4 of MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56 -> coe v4 @@ -3038,13 +3035,13 @@ du_convert'45'pointwise_1506 v0 v1 v2 v3 v4 MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 (coe v3 v0 v11 v13 v9) (coe - du_convert'45'pointwise_1506 (coe v0) (coe v12) (coe v14) (coe v3) + du_convert'45'pointwise_1502 (coe v0) (coe v12) (coe v14) (coe v3) (coe v10)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedTranslation.convert -d_convert_1526 :: +d_convert_1522 :: (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> @@ -3057,104 +3054,104 @@ d_convert_1526 :: (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) -> - T_Translation_12 -> T_Translation_12 -d_convert_1526 ~v0 ~v1 v2 v3 v4 v5 v6 - = du_convert_1526 v2 v3 v4 v5 v6 -du_convert_1526 :: + T_Translation_8 -> T_Translation_8 +d_convert_1522 ~v0 ~v1 v2 v3 v4 v5 v6 + = du_convert_1522 v2 v3 v4 v5 v6 +du_convert_1522 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> AgdaAny -> AgdaAny) -> - T_Translation_12 -> T_Translation_12 -du_convert_1526 v0 v1 v2 v3 v4 + T_Translation_8 -> T_Translation_8 +du_convert_1522 v0 v1 v2 v3 v4 = case coe v4 of - C_istranslation_92 v7 - -> coe C_istranslation_92 (coe v3 v0 v1 v2 v7) - C_match_98 v7 + C_istranslation_88 v7 + -> coe C_istranslation_88 (coe v3 v0 v1 v2 v7) + C_match_94 v7 -> case coe v7 of - C_var_26 -> coe C_match_98 (coe C_var_26) - C_ƛ_32 v10 + C_var_22 -> coe C_match_94 (coe C_var_22) + C_ƛ_28 v10 -> case coe v1 of MAlonzo.Code.Untyped.C_ƛ_20 v11 -> case coe v2 of MAlonzo.Code.Untyped.C_ƛ_20 v12 -> coe - C_match_98 + C_match_94 (coe - C_ƛ_32 + C_ƛ_28 (coe - du_convert_1526 (coe addInt (coe (1 :: Integer)) (coe v0)) + du_convert_1522 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v11) (coe v12) (coe v3) (coe v10))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - C_app_42 v12 v13 + C_app_38 v12 v13 -> case coe v1 of MAlonzo.Code.Untyped.C__'183'__22 v14 v15 -> case coe v2 of MAlonzo.Code.Untyped.C__'183'__22 v16 v17 -> coe - C_match_98 + C_match_94 (coe - C_app_42 + C_app_38 (coe - du_convert_1526 (coe v0) (coe v14) (coe v16) (coe v3) + du_convert_1522 (coe v0) (coe v14) (coe v16) (coe v3) (coe v12)) (coe - du_convert_1526 (coe v0) (coe v15) (coe v17) (coe v3) + du_convert_1522 (coe v0) (coe v15) (coe v17) (coe v3) (coe v13))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - C_force_48 v10 + C_force_44 v10 -> case coe v1 of MAlonzo.Code.Untyped.C_force_24 v11 -> case coe v2 of MAlonzo.Code.Untyped.C_force_24 v12 -> coe - C_match_98 + C_match_94 (coe - C_force_48 + C_force_44 (coe - du_convert_1526 (coe v0) (coe v11) (coe v12) (coe v3) + du_convert_1522 (coe v0) (coe v11) (coe v12) (coe v3) (coe v10))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - C_delay_54 v10 + C_delay_50 v10 -> case coe v1 of MAlonzo.Code.Untyped.C_delay_26 v11 -> case coe v2 of MAlonzo.Code.Untyped.C_delay_26 v12 -> coe - C_match_98 + C_match_94 (coe - C_delay_54 + C_delay_50 (coe - du_convert_1526 (coe v0) (coe v11) (coe v12) (coe v3) + du_convert_1522 (coe v0) (coe v11) (coe v12) (coe v3) (coe v10))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - C_con_58 -> coe C_match_98 (coe C_con_58) - C_constr_66 v11 + C_con_54 -> coe C_match_94 (coe C_con_54) + C_constr_62 v11 -> case coe v1 of MAlonzo.Code.Untyped.C_constr_34 v12 v13 -> case coe v2 of MAlonzo.Code.Untyped.C_constr_34 v14 v15 -> coe - C_match_98 + C_match_94 (coe - C_constr_66 + C_constr_62 (coe - du_convert'45'pointwise_1506 (coe v0) (coe v13) (coe v15) + du_convert'45'pointwise_1502 (coe v0) (coe v13) (coe v15) (coe (\ v16 v17 v18 -> coe - du_convert_1526 (coe v16) (coe v17) (coe v18) + du_convert_1522 (coe v16) (coe v17) (coe v18) (coe v3))) (coe v11))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - C_case_76 v12 v13 + C_case_72 v12 v13 -> case coe v1 of MAlonzo.Code.Untyped.C_case_40 v14 v15 -> case coe v2 of @@ -3162,57 +3159,57 @@ du_convert_1526 v0 v1 v2 v3 v4 -> case coe v12 of MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56 -> coe - C_match_98 + C_match_94 (coe - C_case_76 v12 + C_case_72 v12 (coe - du_convert_1526 (coe v0) (coe v14) (coe v16) (coe v3) + du_convert_1522 (coe v0) (coe v14) (coe v16) (coe v3) (coe v13))) MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v22 v23 -> coe - C_match_98 + C_match_94 (coe - C_case_76 + C_case_72 (coe - du_convert'45'pointwise_1506 (coe v0) (coe v15) + du_convert'45'pointwise_1502 (coe v0) (coe v15) (coe v17) (coe (\ v24 v25 v26 -> coe - du_convert_1526 (coe v24) (coe v25) (coe v26) + du_convert_1522 (coe v24) (coe v25) (coe v26) (coe v3))) (coe MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v22 v23)) (coe - du_convert_1526 (coe v0) (coe v14) (coe v16) (coe v3) + du_convert_1522 (coe v0) (coe v14) (coe v16) (coe v3) (coe v13))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - C_builtin_80 -> coe C_match_98 (coe C_builtin_80) - C_error_82 -> coe C_match_98 v7 + C_builtin_76 -> coe C_match_94 (coe C_builtin_76) + C_error_78 -> coe C_match_94 v7 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedTranslation.pointwise-reflexive -d_pointwise'45'reflexive_1590 :: +d_pointwise'45'reflexive_1586 :: (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> (Integer -> - MAlonzo.Code.Untyped.T__'8866'_14 -> T_Translation_12) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> T_Translation_8) -> Integer -> [MAlonzo.Code.Untyped.T__'8866'_14] -> MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -d_pointwise'45'reflexive_1590 ~v0 v1 v2 v3 - = du_pointwise'45'reflexive_1590 v1 v2 v3 -du_pointwise'45'reflexive_1590 :: +d_pointwise'45'reflexive_1586 ~v0 v1 v2 v3 + = du_pointwise'45'reflexive_1586 v1 v2 v3 +du_pointwise'45'reflexive_1586 :: (Integer -> - MAlonzo.Code.Untyped.T__'8866'_14 -> T_Translation_12) -> + MAlonzo.Code.Untyped.T__'8866'_14 -> T_Translation_8) -> Integer -> [MAlonzo.Code.Untyped.T__'8866'_14] -> MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 -du_pointwise'45'reflexive_1590 v0 v1 v2 +du_pointwise'45'reflexive_1586 v0 v1 v2 = case coe v2 of [] -> coe @@ -3221,61 +3218,61 @@ du_pointwise'45'reflexive_1590 v0 v1 v2 -> coe MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 (coe v0 v1 v3) - (coe du_pointwise'45'reflexive_1590 (coe v0) (coe v1) (coe v4)) + (coe du_pointwise'45'reflexive_1586 (coe v0) (coe v1) (coe v4)) _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedTranslation.reflexive -d_reflexive_1600 :: +d_reflexive_1596 :: (Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> - Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> T_Translation_12 -d_reflexive_1600 ~v0 v1 v2 = du_reflexive_1600 v1 v2 -du_reflexive_1600 :: - Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> T_Translation_12 -du_reflexive_1600 v0 v1 + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> T_Translation_8 +d_reflexive_1596 ~v0 v1 v2 = du_reflexive_1596 v1 v2 +du_reflexive_1596 :: + Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> T_Translation_8 +du_reflexive_1596 v0 v1 = case coe v1 of - MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe C_match_98 (coe C_var_26) + MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe C_match_94 (coe C_var_22) MAlonzo.Code.Untyped.C_ƛ_20 v2 -> coe - C_match_98 + C_match_94 (coe - C_ƛ_32 + C_ƛ_28 (coe - du_reflexive_1600 (coe addInt (coe (1 :: Integer)) (coe v0)) + du_reflexive_1596 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2))) MAlonzo.Code.Untyped.C__'183'__22 v2 v3 -> coe - C_match_98 + C_match_94 (coe - C_app_42 (coe du_reflexive_1600 (coe v0) (coe v2)) - (coe du_reflexive_1600 (coe v0) (coe v3))) + C_app_38 (coe du_reflexive_1596 (coe v0) (coe v2)) + (coe du_reflexive_1596 (coe v0) (coe v3))) MAlonzo.Code.Untyped.C_force_24 v2 -> coe - C_match_98 - (coe C_force_48 (coe du_reflexive_1600 (coe v0) (coe v2))) + C_match_94 + (coe C_force_44 (coe du_reflexive_1596 (coe v0) (coe v2))) MAlonzo.Code.Untyped.C_delay_26 v2 -> coe - C_match_98 - (coe C_delay_54 (coe du_reflexive_1600 (coe v0) (coe v2))) - MAlonzo.Code.Untyped.C_con_28 v2 -> coe C_match_98 (coe C_con_58) + C_match_94 + (coe C_delay_50 (coe du_reflexive_1596 (coe v0) (coe v2))) + MAlonzo.Code.Untyped.C_con_28 v2 -> coe C_match_94 (coe C_con_54) MAlonzo.Code.Untyped.C_constr_34 v2 v3 -> coe - C_match_98 + C_match_94 (coe - C_constr_66 + C_constr_62 (coe - du_pointwise'45'reflexive_1590 (coe du_reflexive_1600) (coe v0) + du_pointwise'45'reflexive_1586 (coe du_reflexive_1596) (coe v0) (coe v3))) MAlonzo.Code.Untyped.C_case_40 v2 v3 -> coe - C_match_98 + C_match_94 (coe - C_case_76 + C_case_72 (coe - du_pointwise'45'reflexive_1590 (coe du_reflexive_1600) (coe v0) + du_pointwise'45'reflexive_1586 (coe du_reflexive_1596) (coe v0) (coe v3)) - (coe du_reflexive_1600 (coe v0) (coe v2))) + (coe du_reflexive_1596 (coe v0) (coe v2))) MAlonzo.Code.Untyped.C_builtin_44 v2 - -> coe C_match_98 (coe C_builtin_80) - MAlonzo.Code.Untyped.C_error_46 -> coe C_match_98 (coe C_error_82) + -> coe C_match_94 (coe C_builtin_76) + MAlonzo.Code.Untyped.C_error_46 -> coe C_match_94 (coe C_error_78) _ -> MAlonzo.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs index 8909eaaf35c..4bab933a6cc 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs @@ -20,12 +20,14 @@ import qualified Data.Text import qualified MAlonzo.Code.Agda.Builtin.Bool import qualified MAlonzo.Code.Agda.Builtin.Sigma import qualified MAlonzo.Code.Builtin +import qualified MAlonzo.Code.Builtin.Signature import qualified MAlonzo.Code.Data.Fin.Base import qualified MAlonzo.Code.RawU 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.Equality +import qualified MAlonzo.Code.Utils -- VerifiedCompilation.UntypedViews.Pred d_Pred_6 :: () @@ -985,21 +987,32 @@ 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.tmConᵖ +d_tmCon'7510'_984 a0 a1 a2 = () +newtype T_tmCon'7510'_984 = C_tmCon'33'_992 AgdaAny +-- VerifiedCompilation.UntypedViews.tmCon-listᵖ +d_tmCon'45'list'7510'_998 a0 a1 = () +newtype T_tmCon'45'list'7510'_998 + = C_tmCon'45'list'33'_1006 AgdaAny +-- VerifiedCompilation.UntypedViews.tmCon-pairᵖ +d_tmCon'45'pair'7510'_1014 a0 a1 = () +newtype T_tmCon'45'pair'7510'_1014 + = C_tmCon'45'pair'33'_1024 AgdaAny -- VerifiedCompilation.UntypedViews.`? -d_'96''63'_982 :: +d_'96''63'_1028 :: 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'_1028 ~v0 ~v1 v2 v3 = du_'96''63'_1028 v2 v3 +du_'96''63'_1028 :: (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'_1028 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> let v3 = coe v0 v2 in @@ -1070,20 +1083,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'_1128 :: 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'_1128 ~v0 ~v1 v2 v3 = du_ƛ'63'_1128 v2 v3 +du_ƛ'63'_1128 :: (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'_1128 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe @@ -1154,7 +1167,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'__1230 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> @@ -1164,16 +1177,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'__1230 ~v0 ~v1 ~v2 v3 v4 v5 + = du__'183''63'__1230 v3 v4 v5 +du__'183''63'__1230 :: (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'__1230 v0 v1 v2 = case coe v2 of MAlonzo.Code.Untyped.C_'96'_18 v3 -> coe @@ -1250,20 +1263,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'_1344 :: 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'_1344 ~v0 ~v1 v2 v3 = du_force'63'_1344 v2 v3 +du_force'63'_1344 :: (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'_1344 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe @@ -1334,20 +1347,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'_1422 :: 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'_1422 ~v0 ~v1 v2 v3 = du_delay'63'_1422 v2 v3 +du_delay'63'_1422 :: (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'_1422 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe @@ -1418,7 +1431,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'_1502 :: Integer -> (MAlonzo.Code.Untyped.T__'8866'_14 -> ()) -> ([MAlonzo.Code.Untyped.T__'8866'_14] -> ()) -> @@ -1428,15 +1441,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'_1502 ~v0 ~v1 ~v2 v3 v4 v5 = du_case'63'_1502 v3 v4 v5 +du_case'63'_1502 :: (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'_1502 v0 v1 v2 = case coe v2 of MAlonzo.Code.Untyped.C_'96'_18 v3 -> coe @@ -1513,7 +1526,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'_1618 :: Integer -> (Integer -> ()) -> ([MAlonzo.Code.Untyped.T__'8866'_14] -> ()) -> @@ -1523,16 +1536,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'_1618 ~v0 ~v1 ~v2 v3 v4 v5 + = du_constr'63'_1618 v3 v4 v5 +du_constr'63'_1618 :: (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'_1618 v0 v1 v2 = case coe v2 of MAlonzo.Code.Untyped.C_'96'_18 v3 -> coe @@ -1609,20 +1622,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'_1732 :: 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'_1732 ~v0 ~v1 v2 v3 = du_con'63'_1732 v2 v3 +du_con'63'_1732 :: (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'_1732 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe @@ -1693,20 +1706,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'_1810 :: 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'_1810 ~v0 ~v1 v2 v3 = du_builtin'63'_1810 v2 v3 +du_builtin'63'_1810 :: (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'_1810 v0 v1 = case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v2 -> coe @@ -1777,15 +1790,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'_1886 :: 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'_1886 ~v0 v1 = du_error'63'_1886 v1 +du_error'63'_1886 :: MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_error'63'_1840 v0 +du_error'63'_1886 v0 = case coe v0 of MAlonzo.Code.Untyped.C_'96'_18 v1 -> coe @@ -1840,28 +1853,276 @@ du_error'63'_1840 v0 MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 (coe C_error'33'_978)) _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UntypedViews.tmCon? +d_tmCon'63'_1918 :: + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + (AgdaAny -> ()) -> + (AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_tmCon'63'_1918 v0 ~v1 v2 v3 = du_tmCon'63'_1918 v0 v2 v3 +du_tmCon'63'_1918 :: + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + (AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_tmCon'63'_1918 v0 v1 v2 + = case coe v2 of + MAlonzo.Code.RawU.C_tmCon_206 v3 v4 + -> let v5 = MAlonzo.Code.RawU.d_decTyTag_68 (coe v0) (coe v3) in + coe + (case coe v5 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v6 v7 + -> if coe v6 + then coe + seq (coe v7) + (let v8 = coe v1 v4 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 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v9) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_tmCon'33'_992 v11)) + _ -> 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)) + else coe + 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)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UntypedViews.list? +d_list'63'_1986 :: + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_list'63'_1986 v0 + = case coe v0 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v2 + -> 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.Builtin.Signature.C_list_16 v2 + -> 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 MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v2) erased)) + MAlonzo.Code.Builtin.Signature.C_array_20 v2 + -> 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.Builtin.Signature.C_pair_24 v2 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.RTE.mazUnreachableError +-- VerifiedCompilation.UntypedViews.pair? +d_pair'63'_1998 :: + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_pair'63'_1998 v0 + = case coe v0 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v2 + -> 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.Builtin.Signature.C_list_16 v2 + -> 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.Builtin.Signature.C_array_20 v2 + -> 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.Builtin.Signature.C_pair_24 v2 v3 + -> 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 + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 + (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v2) (coe v3)) + erased)) + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UntypedViews.tmCon-list? +d_tmCon'45'list'63'_2010 :: + (MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> ()) -> + (MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_tmCon'45'list'63'_2010 ~v0 v1 v2 + = du_tmCon'45'list'63'_2010 v1 v2 +du_tmCon'45'list'63'_2010 :: + (MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_tmCon'45'list'63'_2010 v0 v1 + = case coe v1 of + MAlonzo.Code.RawU.C_tmCon_206 v2 v3 + -> let v4 = d_list'63'_1986 (coe v2) in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> case coe v7 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9 + -> let v10 = coe v0 v8 v3 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 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v11) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe + C_tmCon'45'list'33'_1006 + v13)) + _ -> 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.RTE.mazUnreachableError + else coe + seq (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UntypedViews.tmCon-pair? +d_tmCon'45'pair'63'_2080 :: + (MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Utils.T__'215'__436 AgdaAny AgdaAny -> ()) -> + (MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Utils.T__'215'__436 AgdaAny AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_tmCon'45'pair'63'_2080 ~v0 v1 v2 + = du_tmCon'45'pair'63'_2080 v1 v2 +du_tmCon'45'pair'63'_2080 :: + (MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Utils.T__'215'__436 AgdaAny AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_tmCon'45'pair'63'_2080 v0 v1 + = case coe v1 of + MAlonzo.Code.RawU.C_tmCon_206 v2 v3 + -> let v4 = d_pair'63'_1998 (coe v2) in + coe + (case coe v4 of + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v5 v6 + -> if coe v5 + then case coe v6 of + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 v7 + -> case coe v7 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v10 v11 + -> let v12 = coe v0 v10 v11 v3 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_tmCon'45'pair'33'_1024 + 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 + _ -> MAlonzo.RTE.mazUnreachableError + else coe + seq (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v5) + (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.UntypedViews.match -d_match_1870 a0 a1 = () -data T_match_1870 = C_match'33'_1876 +d_match_2148 a0 a1 = () +data T_match_2148 = C_match'33'_2154 -- VerifiedCompilation.UntypedViews.⋯ -d_'8943'_1880 :: +d_'8943'_2158 :: () -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_'8943'_1880 ~v0 ~v1 = du_'8943'_1880 -du_'8943'_1880 :: +d_'8943'_2158 ~v0 ~v1 = du_'8943'_2158 +du_'8943'_2158 :: MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_'8943'_1880 +du_'8943'_2158 = 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'_2154)) -- VerifiedCompilation.UntypedViews._∷ᵖ_ -d__'8759''7510'__1890 a0 a1 a2 a3 = () -data T__'8759''7510'__1890 = C__'8759''33'__1902 AgdaAny AgdaAny +d__'8759''7510'__2168 a0 a1 a2 a3 = () +data T__'8759''7510'__2168 = C__'8759''33'__2180 AgdaAny AgdaAny -- VerifiedCompilation.UntypedViews._∷?_ -d__'8759''63'__1910 :: +d__'8759''63'__2188 :: () -> (AgdaAny -> ()) -> ([AgdaAny] -> ()) -> @@ -1870,15 +2131,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'__2188 ~v0 ~v1 ~v2 v3 v4 v5 + = du__'8759''63'__2188 v3 v4 v5 +du__'8759''63'__2188 :: (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'__2188 v0 v1 v2 = case coe v2 of [] -> coe @@ -1903,7 +2164,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'__2180 v9 v10)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError else coe @@ -1915,16 +2176,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'_2236 a0 a1 = () +data T_'91''93''7510'_2236 = C_'91''93''33'_2240 -- VerifiedCompilation.UntypedViews.[]? -d_'91''93''63'_1966 :: +d_'91''93''63'_2244 :: () -> [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'_2244 ~v0 v1 = du_'91''93''63'_2244 v1 +du_'91''93''63'_2244 :: [AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_'91''93''63'_1966 v0 +du_'91''93''63'_2244 v0 = case coe v0 of [] -> coe @@ -1937,215 +2198,385 @@ du_'91''93''63'_1966 v0 (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UntypedViews.consᵖ +d_cons'7510'_2252 a0 a1 a2 a3 = () +data T_cons'7510'_2252 = C_cons'33'_2264 AgdaAny AgdaAny +-- VerifiedCompilation.UntypedViews.cons? +d_cons'63'_2272 :: + () -> + (AgdaAny -> ()) -> + (MAlonzo.Code.Utils.T_List_454 AgdaAny -> ()) -> + (AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + (MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_cons'63'_2272 ~v0 ~v1 ~v2 v3 v4 v5 = du_cons'63'_2272 v3 v4 v5 +du_cons'63'_2272 :: + (AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + (MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_cons'63'_2272 v0 v1 v2 + = case coe v2 of + MAlonzo.Code.Utils.C_'91''93'_458 + -> 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.Utils.C__'8759'__460 v3 v4 + -> let v5 + = coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 + (coe v0 v3) (coe v1 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 + -> case coe v8 of + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10 + -> coe + MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 + (coe v6) + (coe + MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 + (coe C_cons'33'_2264 v9 v10)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + else coe + 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)) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError +-- VerifiedCompilation.UntypedViews.nilᵖ +d_nil'7510'_2320 a0 a1 = () +data T_nil'7510'_2320 = C_nil'33'_2324 +-- VerifiedCompilation.UntypedViews.nil? +d_nil'63'_2328 :: + () -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_nil'63'_2328 ~v0 v1 = du_nil'63'_2328 v1 +du_nil'63'_2328 :: + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +du_nil'63'_2328 v0 + = case coe v0 of + MAlonzo.Code.Utils.C_'91''93'_458 + -> 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 erased) + MAlonzo.Code.Utils.C__'8759'__460 v1 v2 + -> 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.singleton? -d_singleton'63'_1970 :: +d_singleton'63'_2332 :: () -> [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'_2332 ~v0 = du_singleton'63'_2332 +du_singleton'63'_2332 :: [AgdaAny] -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_singleton'63'_1970 +du_singleton'63'_2332 = coe - du__'8759''63'__1910 (\ v0 -> coe du_'8943'_1880) - (coe du_'91''93''63'_1966) + du__'8759''63'__2188 (\ v0 -> coe du_'8943'_2158) + (coe du_'91''93''63'_2244) +-- VerifiedCompilation.UntypedViews.posᵖ +d_pos'7510'_2334 a0 = () +data T_pos'7510'_2334 = C_pos'33'_2338 +-- VerifiedCompilation.UntypedViews.pos? +d_pos'63'_2342 :: + Integer -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 +d_pos'63'_2342 v0 + = case coe v0 of + _ | coe geqInt (coe v0) (coe (0 :: Integer)) -> + 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_pos'33'_2338)) + _ -> 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) -- VerifiedCompilation.UntypedViews.Inhabited -d_Inhabited_1980 a0 = () -newtype T_Inhabited_1980 = C_inh_1988 AgdaAny +d_Inhabited_2356 a0 = () +newtype T_Inhabited_2356 = C_inh_2364 AgdaAny -- VerifiedCompilation.UntypedViews.Inhabited.inhabitant -d_inhabitant_1986 :: T_Inhabited_1980 -> AgdaAny -d_inhabitant_1986 v0 +d_inhabitant_2362 :: T_Inhabited_2356 -> AgdaAny +d_inhabitant_2362 v0 = case coe v0 of - C_inh_1988 v1 -> coe v1 + C_inh_2364 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_2368 :: T_Inhabited_2356 -> AgdaAny +d_inhabitant_2368 v0 = coe d_inhabitant_2362 (coe v0) -- VerifiedCompilation.UntypedViews.inh-var -d_inh'45'var_1998 :: +d_inh'45'var_2374 :: 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_2356 -> T_Inhabited_2356 +d_inh'45'var_2374 ~v0 ~v1 v2 = du_inh'45'var_2374 v2 +du_inh'45'var_2374 :: T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'var_2374 v0 + = coe C_inh_2364 (coe C_'96''33'_864 (d_inhabitant_2362 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-lam -d_inh'45'lam_2010 :: +d_inh'45'lam_2386 :: 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_2356 -> T_Inhabited_2356 +d_inh'45'lam_2386 ~v0 ~v1 ~v2 v3 = du_inh'45'lam_2386 v3 +du_inh'45'lam_2386 :: T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'lam_2386 v0 + = coe C_inh_2364 (coe C_ƛ'33'_876 (d_inhabitant_2362 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-app -d_inh'45'app_2022 :: +d_inh'45'app_2398 :: 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_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +d_inh'45'app_2398 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 + = du_inh'45'app_2398 v5 v6 +du_inh'45'app_2398 :: + T_Inhabited_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'app_2398 v0 v1 = coe - C_inh_1988 + C_inh_2364 (coe - C__'183''33'__894 (d_inhabitant_1986 (coe v0)) - (d_inhabitant_1986 (coe v1))) + C__'183''33'__894 (d_inhabitant_2362 (coe v0)) + (d_inhabitant_2362 (coe v1))) -- VerifiedCompilation.UntypedViews.inh-force -d_inh'45'force_2030 :: +d_inh'45'force_2406 :: 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_2356 -> T_Inhabited_2356 +d_inh'45'force_2406 ~v0 ~v1 ~v2 v3 = du_inh'45'force_2406 v3 +du_inh'45'force_2406 :: T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'force_2406 v0 + = coe C_inh_2364 (coe C_force'33'_906 (d_inhabitant_2362 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-delay -d_inh'45'delay_2038 :: +d_inh'45'delay_2414 :: 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_2356 -> T_Inhabited_2356 +d_inh'45'delay_2414 ~v0 ~v1 ~v2 v3 = du_inh'45'delay_2414 v3 +du_inh'45'delay_2414 :: T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'delay_2414 v0 + = coe C_inh_2364 (coe C_delay'33'_918 (d_inhabitant_2362 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-case -d_inh'45'case_2050 :: +d_inh'45'case_2426 :: 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_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +d_inh'45'case_2426 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 + = du_inh'45'case_2426 v5 v6 +du_inh'45'case_2426 :: + T_Inhabited_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'case_2426 v0 v1 = coe - C_inh_1988 + C_inh_2364 (coe - C_case'33'_936 (d_inhabitant_1986 (coe v0)) - (d_inhabitant_1986 (coe v1))) + C_case'33'_936 (d_inhabitant_2362 (coe v0)) + (d_inhabitant_2362 (coe v1))) -- VerifiedCompilation.UntypedViews.inh-constr -d_inh'45'constr_2062 :: +d_inh'45'constr_2438 :: 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_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +d_inh'45'constr_2438 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 + = du_inh'45'constr_2438 v5 v6 +du_inh'45'constr_2438 :: + T_Inhabited_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'constr_2438 v0 v1 = coe - C_inh_1988 + C_inh_2364 (coe - C_constr'33'_954 (d_inhabitant_1986 (coe v0)) - (d_inhabitant_1986 (coe v1))) + C_constr'33'_954 (d_inhabitant_2362 (coe v0)) + (d_inhabitant_2362 (coe v1))) -- VerifiedCompilation.UntypedViews.inh-builtin -d_inh'45'builtin_2070 :: +d_inh'45'builtin_2446 :: 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_2356 -> T_Inhabited_2356 +d_inh'45'builtin_2446 ~v0 ~v1 ~v2 v3 = du_inh'45'builtin_2446 v3 +du_inh'45'builtin_2446 :: T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'builtin_2446 v0 = coe - C_inh_1988 (coe C_builtin'33'_974 (d_inhabitant_1986 (coe v0))) + C_inh_2364 (coe C_builtin'33'_974 (d_inhabitant_2362 (coe v0))) -- VerifiedCompilation.UntypedViews.inh-con -d_inh'45'con_2078 :: +d_inh'45'con_2454 :: 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_2356 -> T_Inhabited_2356 +d_inh'45'con_2454 ~v0 ~v1 ~v2 v3 = du_inh'45'con_2454 v3 +du_inh'45'con_2454 :: T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'con_2454 v0 + = coe C_inh_2364 (coe C_con'33'_964 (d_inhabitant_2362 (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_2458 :: Integer -> T_Inhabited_2356 +d_inh'45'error_2458 ~v0 = du_inh'45'error_2458 +du_inh'45'error_2458 :: T_Inhabited_2356 +du_inh'45'error_2458 = coe C_inh_2364 (coe C_error'33'_978) +-- VerifiedCompilation.UntypedViews.inh-tmCon +d_inh'45'tmCon_2466 :: + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + AgdaAny -> (AgdaAny -> ()) -> T_Inhabited_2356 -> T_Inhabited_2356 +d_inh'45'tmCon_2466 ~v0 ~v1 ~v2 v3 = du_inh'45'tmCon_2466 v3 +du_inh'45'tmCon_2466 :: T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'tmCon_2466 v0 + = coe C_inh_2364 (coe C_tmCon'33'_992 (d_inhabitant_2362 (coe v0))) +-- VerifiedCompilation.UntypedViews.inh-tmCon-list +d_inh'45'tmCon'45'list_2474 :: + (MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> ()) -> + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + T_Inhabited_2356 -> T_Inhabited_2356 +d_inh'45'tmCon'45'list_2474 ~v0 ~v1 ~v2 v3 + = du_inh'45'tmCon'45'list_2474 v3 +du_inh'45'tmCon'45'list_2474 :: + T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'tmCon'45'list_2474 v0 + = coe + C_inh_2364 + (coe C_tmCon'45'list'33'_1006 (d_inhabitant_2362 (coe v0))) +-- VerifiedCompilation.UntypedViews.inh-tmCon-pair +d_inh'45'tmCon'45'pair_2484 :: + (MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Utils.T__'215'__436 AgdaAny AgdaAny -> ()) -> + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> + MAlonzo.Code.Utils.T__'215'__436 AgdaAny AgdaAny -> + T_Inhabited_2356 -> T_Inhabited_2356 +d_inh'45'tmCon'45'pair_2484 ~v0 ~v1 ~v2 ~v3 v4 + = du_inh'45'tmCon'45'pair_2484 v4 +du_inh'45'tmCon'45'pair_2484 :: + T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'tmCon'45'pair_2484 v0 + = coe + C_inh_2364 + (coe C_tmCon'45'pair'33'_1024 (d_inhabitant_2362 (coe v0))) -- 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_2490 :: () -> AgdaAny -> T_Inhabited_2356 +d_inh'45'match_2490 ~v0 ~v1 = du_inh'45'match_2490 +du_inh'45'match_2490 :: T_Inhabited_2356 +du_inh'45'match_2490 = coe C_inh_2364 (coe C_match'33'_2154) -- VerifiedCompilation.UntypedViews.inh-× -d_inh'45''215'_2094 :: +d_inh'45''215'_2496 :: () -> - () -> 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_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +d_inh'45''215'_2496 ~v0 ~v1 v2 v3 = du_inh'45''215'_2496 v2 v3 +du_inh'45''215'_2496 :: + T_Inhabited_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45''215'_2496 v0 v1 = coe - C_inh_1988 + C_inh_2364 (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 - (coe d_inhabitant_1986 (coe v0)) (coe d_inhabitant_1986 (coe v1))) + (coe d_inhabitant_2362 (coe v0)) (coe d_inhabitant_2362 (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'_2502 :: () -> AgdaAny -> T_Inhabited_2356 +d_inh'45''8801'_2502 ~v0 ~v1 = du_inh'45''8801'_2502 +du_inh'45''8801'_2502 :: T_Inhabited_2356 +du_inh'45''8801'_2502 = coe C_inh_2364 erased -- VerifiedCompilation.UntypedViews.inh-∷ᵖ -d_inh'45''8759''7510'_2112 :: +d_inh'45''8759''7510'_2514 :: () -> 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_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +d_inh'45''8759''7510'_2514 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 + = du_inh'45''8759''7510'_2514 v5 v6 +du_inh'45''8759''7510'_2514 :: + T_Inhabited_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45''8759''7510'_2514 v0 v1 = coe - C_inh_1988 + C_inh_2364 (coe - C__'8759''33'__1902 (d_inhabitant_1986 (coe v0)) - (d_inhabitant_1986 (coe v1))) + C__'8759''33'__2180 (d_inhabitant_2362 (coe v0)) + (d_inhabitant_2362 (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'_2518 :: () -> T_Inhabited_2356 +d_inh'45''91''93''7510'_2518 ~v0 = du_inh'45''91''93''7510'_2518 +du_inh'45''91''93''7510'_2518 :: T_Inhabited_2356 +du_inh'45''91''93''7510'_2518 = coe C_inh_2364 erased +-- VerifiedCompilation.UntypedViews.inh-consᵖ +d_inh'45'cons'7510'_2530 :: + () -> + AgdaAny -> + MAlonzo.Code.Utils.T_List_454 AgdaAny -> + (AgdaAny -> ()) -> + (MAlonzo.Code.Utils.T_List_454 AgdaAny -> ()) -> + T_Inhabited_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +d_inh'45'cons'7510'_2530 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 + = du_inh'45'cons'7510'_2530 v5 v6 +du_inh'45'cons'7510'_2530 :: + T_Inhabited_2356 -> T_Inhabited_2356 -> T_Inhabited_2356 +du_inh'45'cons'7510'_2530 v0 v1 + = coe + C_inh_2364 + (coe + C_cons'33'_2264 (d_inhabitant_2362 (coe v0)) + (d_inhabitant_2362 (coe v1))) +-- VerifiedCompilation.UntypedViews.inh-nilᵖ +d_inh'45'nil'7510'_2534 :: () -> T_Inhabited_2356 +d_inh'45'nil'7510'_2534 ~v0 = du_inh'45'nil'7510'_2534 +du_inh'45'nil'7510'_2534 :: T_Inhabited_2356 +du_inh'45'nil'7510'_2534 = coe C_inh_2364 erased +-- VerifiedCompilation.UntypedViews.inh-posᵖ +d_inh'45'pos'7510'_2538 :: Integer -> T_Inhabited_2356 +d_inh'45'pos'7510'_2538 ~v0 = du_inh'45'pos'7510'_2538 +du_inh'45'pos'7510'_2538 :: T_Inhabited_2356 +du_inh'45'pos'7510'_2538 = coe C_inh_2364 (coe C_pos'33'_2338) -- VerifiedCompilation.UntypedViews.AddComm -d_AddComm_2118 a0 a1 a2 = () -data T_AddComm_2118 = C_addComm_2124 +d_AddComm_2542 a0 a1 a2 = () +data T_AddComm_2542 = C_addComm_2548 -- VerifiedCompilation.UntypedViews.addComm? -d_addComm'63'_2130 :: +d_addComm'63'_2554 :: 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'_2554 v0 v1 v2 = let v3 = coe - du__'183''63'__1184 + du__'183''63'__1230 (coe - du_builtin'63'_1764 + du_builtin'63'_1810 (coe MAlonzo.Code.Builtin.d_decBuiltin_440 (coe MAlonzo.Code.Builtin.C_addInteger_4))) - (\ v3 -> coe du_'8943'_1880) in + (\ v3 -> coe du_'8943'_2158) in coe - (let v4 = \ v4 -> coe du_'8943'_1880 in + (let v4 = \ v4 -> coe du_'8943'_2158 in coe (case coe v1 of MAlonzo.Code.Untyped.C_'96'_18 v5 @@ -2211,9 +2642,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'__1230 (coe - du_builtin'63'_1764 + du_builtin'63'_1810 (coe MAlonzo.Code.Builtin.d_decBuiltin_440 (coe @@ -2257,7 +2688,7 @@ d_addComm'63'_2130 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 (coe - C_addComm_2124))) + C_addComm_2548))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -2297,7 +2728,7 @@ d_addComm'63'_2130 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 (coe - C_addComm_2124))) + C_addComm_2548))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -2436,9 +2867,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'__1230 (coe - du_builtin'63'_1764 + du_builtin'63'_1810 (coe MAlonzo.Code.Builtin.d_decBuiltin_440 (coe @@ -2484,7 +2915,7 @@ d_addComm'63'_2130 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 (coe - C_addComm_2124))) + C_addComm_2548))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -2524,7 +2955,7 @@ d_addComm'63'_2130 v0 v1 v2 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22 (coe - C_addComm_2124))) + C_addComm_2548))) _ -> 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..d4261569937 100644 --- a/plutus-metatheory/src/Untyped.lagda.md +++ b/plutus-metatheory/src/Untyped.lagda.md @@ -29,14 +29,24 @@ open import Data.Integer.Show using (show) open import Data.String using (String;_++_) open import Data.Empty using (⊥) open import Utils using (_×_;_,_) -open import RawU using (TagCon;Tag;decTagCon;TmCon;TyTag;Untyped;tmCon;tmCon2TagCon;tagCon2TmCon;⟦_⟧tag) -open import Builtin.Signature using (_⊢♯;integer;bool;string;pdata;bytestring;unit;bls12-381-g1-element;bls12-381-g2-element;bls12-381-mlresult) -open _⊢♯ -open import Builtin.Constant.AtomicType using (AtomicTyCon) -open AtomicTyCon +open import RawU using (TagCon;Tag;decTagCon;Untyped;tmCon2TagCon;tagCon2TmCon) +open Untyped +``` + +## Re-exports + +Relevant types and functions that are used in the below abstract syntax. + +``` +open import RawU using (TmCon; tmCon; TyTag; ⟦_⟧tag) public +open import Builtin.Constant.AtomicType using (AtomicTyCon) public +open AtomicTyCon public +open import Builtin.Signature + using (_⊢♯;integer;bool;string;pdata;bytestring;unit;bls12-381-g1-element;bls12-381-g2-element;bls12-381-mlresult) + public +open _⊢♯ public open import Builtin.Constant.Type -open Untyped ``` ## Well-scoped Syntax diff --git a/plutus-metatheory/src/Untyped/Equality.lagda.md b/plutus-metatheory/src/Untyped/Equality.lagda.md index f50614dee39..67c86258d4f 100644 --- a/plutus-metatheory/src/Untyped/Equality.lagda.md +++ b/plutus-metatheory/src/Untyped/Equality.lagda.md @@ -139,6 +139,9 @@ instance DecEq-ℤ : DecEq ℤ DecEq-ℤ ._≟_ = Data.Integer.Properties._≟_ + DecEq-Fin : ∀ {n} → DecEq (Fin n) + DecEq-Fin ._≟_ = Data.Fin.Properties._≟_ + DecEq-String : DecEq String DecEq-String ._≟_ = Data.String.Properties._≟_ diff --git a/plutus-metatheory/src/Untyped/Relation/Binary.lagda.md b/plutus-metatheory/src/Untyped/Relation/Binary.lagda.md new file mode 100644 index 00000000000..485bf83abd8 --- /dev/null +++ b/plutus-metatheory/src/Untyped/Relation/Binary.lagda.md @@ -0,0 +1,12 @@ +--- +title: Untyped.Relation.Binary +layout: page +--- + +``` +module Untyped.Relation.Binary where + +open import Untyped.Relation.Binary.Core public +open import Untyped.Relation.Binary.Properties public +open import Untyped.Relation.Binary.Structures public +``` diff --git a/plutus-metatheory/src/Untyped/Relation/Binary/Core.lagda.md b/plutus-metatheory/src/Untyped/Relation/Binary/Core.lagda.md new file mode 100644 index 00000000000..5fc78d36ab7 --- /dev/null +++ b/plutus-metatheory/src/Untyped/Relation/Binary/Core.lagda.md @@ -0,0 +1,65 @@ +--- +title: Untyped.Relation.Binary.Core +layout: page +--- + +``` +module Untyped.Relation.Binary.Core where + +open import Data.List using (List; []; _∷_) +open import Data.Product using (_,_) +open import Data.Nat using (ℕ) +open import Relation.Nullary using (Dec; yes; no; _×-dec_) +open import Untyped +open import VerifiedCompilation.UntypedViews +``` + +## Binary relations on untyped terms + +``` +Relation : Set₁ +Relation = ∀{X} → X ⊢ → X ⊢ → Set + +Relation* : Set₁ +Relation* = ∀{X} → List (X ⊢) → List (X ⊢) → Set +``` + +## Pointwise + +Variant of Data.List.Relation.Binary.Pointwise that works well for well-scoped +terms, which have an implicit scope parameter. The polarity annotation helps for +constructing relations using `Untyped.Relation.Binary.Modular`. + +``` +data Pointwise {X} (@++ R : Relation) : List (X ⊢) → List (X ⊢) → Set where + [] : + Pointwise R [] [] + + _∷_ : ∀ {M N : X ⊢} {Ms Ns} → + R M N → + Pointwise R Ms Ns → + Pointwise R (M ∷ Ms) (N ∷ Ns) +``` + + +## Decidable relations + +``` +DecidableRel : Relation → Set +DecidableRel R = ∀ {X : ℕ} (M M' : X ⊢) → Dec (R M M') +``` + + +``` +pointwise? : ∀ {R : Relation} → + DecidableRel R → + ∀ {X} (Ms Ns : List (X ⊢)) → + Dec (Pointwise R Ms Ns) +pointwise? R? [] [] = yes [] +pointwise? R? (x ∷ xs) (y ∷ ys) + with R? x y ×-dec pointwise? R? xs ys +... | yes (Rxy , Rxsys) = yes (Rxy ∷ Rxsys) +... | no ¬R = no λ {(R ∷ Rs ) → ¬R (R , Rs)} +pointwise? R? (_ ∷ _) [] = no λ () +pointwise? R? [] (_ ∷ _) = no λ () +``` diff --git a/plutus-metatheory/src/Untyped/Relation/Binary/Modular.lagda.md b/plutus-metatheory/src/Untyped/Relation/Binary/Modular.lagda.md new file mode 100644 index 00000000000..fdd301de604 --- /dev/null +++ b/plutus-metatheory/src/Untyped/Relation/Binary/Modular.lagda.md @@ -0,0 +1,526 @@ +--- +title: Untyped.Relation.Binary.Modular +layout: page +--- +``` +module Untyped.Relation.Binary.Modular where + +``` + +## Imports + +``` +open import Relation.Nullary using (Dec; yes; no; ¬_; _×-dec_; does) +open import Relation.Binary.PropositionalEquality using (_≡_; refl) + +open import Data.List using (List; _∷_; []) +open import Data.Fin using (Fin; suc; zero) +open import Data.Nat using (ℕ; suc; zero) +open import Data.Maybe using (just; nothing) +open import Data.Product using (_,_) +open import Data.Empty using (⊥) + +open import Untyped using (_⊢) +open import RawU using (TmCon) +open import Builtin using (Builtin) +open import Untyped.Equality using (_≟_) +open import Untyped.Relation.Binary.Core +open import Untyped.Relation.Binary.Structures +open import Untyped.Relation.Binary.Properties +open import VerifiedCompilation.UntypedViews + +open _⊢ +``` + +## Approach + +This uses the fixpoint-of-functors approach to construct inductive relations out +of reusable parts. See the end of the file for an example translation relation. + +In essence, each rule of a translation relation is defined as a single +constructor in an inductive type, with a type parameter for the relation that +that can be used for recursive uses. + +## Relation transformers + +Relation transformers are relations parametrised by other relations. The +parameter has a polarity annotation so that relations may only use it in +strictly positive positions. This makes it possible to take a fixpoint without +Agda's positivity checker failing. + +``` +RelationT : Set₁ +RelationT = @++ Relation → Relation +``` + +## Basic combinators for relation transformers + +``` +infixr 5 _+_ + +data _+_ (F G : RelationT) (@++ R : Relation) : Relation where + inl : ∀ {X} {M N : X ⊢} → F R M N → (F + G) R M N + inr : ∀ {X} {M N : X ⊢} → G R M N → (F + G) R M N + +Empty : RelationT +Empty R M N = ⊥ + +data Fix (F : RelationT) : Relation where + fix : + ∀ {X} {M N : X ⊢} + → F (Fix F) M N + → (Fix F) M N + +Const : @++ Relation → RelationT +Const R _ = R +``` + +## Relation transformers for equivalence relations + +``` +data Transitivity (@++ R : Relation) : Relation where + transF : ∀ {X} {L M N : X ⊢} → + R L M → + R M N → + Transitivity R L N + +data Symmetry (@++ R : Relation) : Relation where + symF : ∀ {X} {M N : X ⊢} → + R M N → + Symmetry R N M + +data Reflexivity (@++ R : Relation) : Relation where + reflF : ∀ {X} {M : X ⊢} → + Reflexivity R M M +``` + + +## Term compatibilty rules + +These are typical rules that are part of a translation relation. + +``` +data CompatVar (@++ R : Relation) : Relation where + `F_ : + ∀ {X} (x : Fin X) + ------------------------- + → CompatVar R (` x) (` x) + +data CompatLambda (@++ R : Relation) : Relation where + ƛF : + ∀ {X} {M M' : suc X ⊢} + → R M M' + ----------------------------- + → CompatLambda R (ƛ M) (ƛ M') + +data CompatApply (@++ R : Relation) : Relation where + _·F_ : + ∀ {X} {M M' N N' : X ⊢} + → R M M' + → R N N' + --------------------------------- + → CompatApply R (M · N) (M' · N') + +data CompatForce (@++ R : Relation) : Relation where + forceF : + ∀ {X} {M M' : X ⊢} + → R M M' + ------------------------------------ + → CompatForce R (force M) (force M') + +data CompatDelay (@++ R : Relation) : Relation where + delayF : + ∀ {X} {M M' : X ⊢} + → R M M' + ------------------------------------ + → CompatDelay R (delay M) (delay M') + +data CompatCon (@++ R : Relation) : Relation where + conF : + ∀ {X} {c : TmCon} + ------------------------------------- + → CompatCon R (con {n = X} c) (con c) + +data CompatConstr (@++ R : Relation) : Relation where + constrF : + ∀ {X} {i : ℕ} {xs xs' : List (X ⊢)} + → Pointwise R xs xs' + --------------------------------------------- + → CompatConstr R (constr i xs) (constr i xs') + +data CompatCase (@++ R : Relation) : Relation where + caseF : + ∀ {X} {t t' : X ⊢} {ts ts' : List (X ⊢)} + → R t t' + → Pointwise R ts ts' + -------------------------------------- + → CompatCase R (case t ts) (case t' ts') + +data CompatBuiltin (@++ R : Relation) : Relation where + builtinF : + ∀ {X} {b : Builtin} + ------------------------------------------------- + → CompatBuiltin R (builtin {n = X} b) (builtin b) + +data CompatError (@++ R : Relation) : Relation where + errorF : + ∀ {X} + ----------------------------------------------- + → CompatError R (error {n = X}) (error {n = X}) +``` + +Term-compatibility can be constructed by using compatibility rules of all constructors: + +``` +CompatTerm : RelationT +CompatTerm + = CompatVar + CompatLambda + CompatApply + CompatForce + CompatDelay + + CompatCon + CompatConstr + CompatCase + CompatBuiltin + CompatError + Empty +``` + +## Pattern synonyms + +Convenient synonyms for constructing/matching cases of `CompatTerm` + +``` +-- TODO: solve this with metaprogramming or typeclasses +pattern p0 p = inl p +pattern p1 p = inr (p0 p) +pattern p2 p = inr (p1 p) +pattern p3 p = inr (p2 p) +pattern p4 p = inr (p3 p) +pattern p5 p = inr (p4 p) +pattern p6 p = inr (p5 p) +pattern p7 p = inr (p6 p) +pattern p8 p = inr (p7 p) +pattern p9 p = inr (p8 p) + +pattern compat-varF n = p0 (`F n) +pattern compat-lambdaF p = p1 (ƛF p) +pattern compat-applyF p q = p2 (p ·F q) +pattern compat-forceF p = p3 (forceF p) +pattern compat-delayF p = p4 (delayF p) +pattern compat-conF = p5 conF +pattern compat-constrF p = p6 (constrF p) +pattern compat-caseF p q = p7 (caseF p q) +pattern compat-builtinF = p8 builtinF +pattern compat-errorF = p9 errorF +``` + + +## Structures + +If a relation has the `CompatTerm` rules, then it forms a `TermCompatible` structure. + +``` +CompatTerm-TermCompatible : ∀ {R : Relation} → CompatTerm R ⊆ R → TermCompatible R +CompatTerm-TermCompatible inj = record + { compat-var = inj (compat-varF _) + ; compat-ƛ = λ RM → inj (compat-lambdaF RM) + ; compat-· = λ RM RN → inj (compat-applyF RM RN) + ; compat-force = λ RM → inj (compat-forceF RM) + ; compat-delay = λ RM → inj (compat-delayF RM) + ; compat-constr = λ RMS → inj (compat-constrF RMS) + ; compat-case = λ RM RMS → inj (compat-caseF RM RMS) + ; compat-con = inj compat-conF + ; compat-builtin = inj compat-builtinF + ; compat-error = inj compat-errorF + } +``` + + +## Decision procedures + +A decision procedure for a relation transformer requires a decision procedure +for the relation it abstracts over: + +``` +DecidableT : RelationT → Set₁ +DecidableT F = + ∀ {R : Relation} + → DecidableRel R + → DecidableRel (F R) +``` + +## Decision procedures for combinators + +``` +infixr 5 _+-dec_ +_+-dec_ : + ∀ {F G : RelationT} + → DecidableT F + → DecidableT G + → DecidableT (F + G) +_+-dec_ F? G? R? M M' + with F? R? M M' +... | yes P = yes (inl P) +... | no ¬P + with G? R? M M' +... | yes P = yes (inr P) +... | no ¬Q = no λ {(inl P) → ¬P P; (inr Q) → ¬Q Q} + +empty? : DecidableT Empty +empty? R? M M' = no λ () + +-- TODO: how to make this terminating? Accessibility proofs? +{-# TERMINATING #-} +Fix-dec : ∀ {F : RelationT} → + DecidableT F → + DecidableRel (Fix F) +Fix-dec F? M N + with F? (Fix-dec F?) M N +... | yes P = yes (fix P) +... | no ¬P = no λ {(fix P) → ¬P P} + +``` + +## Decision procedures for compatibility rules + +``` +compatVar? : + DecidableT CompatVar +compatVar? R? M M' + with (`? ⋯) M +... | no ¬M = no λ {(`F _) → ¬M inhabitant } +... | yes (`! (match! x)) with (`? (_≟_ x) M') +... | no ¬M' = no λ {(`F _) → ¬M' inhabitant} +... | yes (`! refl) = yes (`F _) + +compatApply? : + DecidableT CompatApply +compatApply? R? M M' + with (⋯ ·? ⋯) M ×-dec (⋯ ·? ⋯) M' +... | no ¬MM' = no λ { (_ ·F _) → ¬MM' (inhabitant , inhabitant)} +... | yes ( match! M ·! match! N + , match! M' ·! match! N') with R? M M' ×-dec R? N N' +... | no ¬RMM'×RNN' = no λ { (RM ·F RN) → ¬RMM'×RNN' ( RM , RN )} +... | yes (RMM' , RNN') = yes (RMM' ·F RNN') + +compatLam? : + DecidableT CompatLambda +compatLam? R? M M' + with (ƛ? ⋯) M ×-dec (ƛ? ⋯) M' +... | no ¬MM' = no λ { (ƛF _) → ¬MM' (inhabitant , inhabitant)} +... | yes (ƛ! (match! N) , ƛ! (match! N')) with R? N N' +... | no ¬NN' = no λ { (ƛF NN') → ¬NN' NN'} +... | yes NN' = yes (ƛF NN') + +compatForce? : + DecidableT CompatForce +compatForce? R? M M' + with force? ⋯ M ×-dec force? ⋯ M' +... | no ¬MM' = no λ { (forceF _) → ¬MM' inhabitant} +... | yes (force! (match! N) , force! (match! N')) + with R? N N' +... | no ¬NN' = no λ { (forceF NN) → ¬NN' NN} +... | yes NN = yes (forceF NN) + +compatDelay? : + DecidableT CompatDelay +compatDelay? R? M M' + with delay? ⋯ M ×-dec delay? ⋯ M' +... | no ¬MM' = no λ { (delayF _) → ¬MM' inhabitant} +... | yes (delay! (match! N) , delay! (match! N')) + with R? N N' +... | no ¬NN' = no λ { (delayF NN) → ¬NN' NN} +... | yes NN = yes (delayF NN) + +compatConstr? : + DecidableT CompatConstr +compatConstr? R? M M' + with constr? ⋯ ⋯ M +... | no ¬M = no λ { (constrF _) → ¬M inhabitant} +... | yes (constr! (match! i) (match! Ms)) + with constr? (_≟_ i) ⋯ M' +... | no ¬M' = no λ { (constrF _) → ¬M' inhabitant} +... | yes (constr! refl (match! Ms')) + with pointwise? R? Ms Ms' +... | no ¬MsMs' = no λ { (constrF MsMs') → ¬MsMs' MsMs'} +... | yes MsMs' = yes (constrF MsMs') + +compatCase? : + DecidableT CompatCase +compatCase? R? M M' + with case? ⋯ ⋯ M ×-dec case? ⋯ ⋯ M' +... | no ¬MM' = no λ { (caseF _ _) → ¬MM' (inhabitant , inhabitant)} +... | yes (case! (match! M) (match! Ms) , case! (match! M') (match! Ms')) + with R? M M' ×-dec pointwise? R? Ms Ms' +... | no ¬MMs = no λ { (caseF MM' MsMs') → ¬MMs (MM' , MsMs')} +... | yes (MM' , MsMs') = yes (caseF MM' MsMs') + +compatCon? : DecidableT CompatCon +compatCon? R? M M' + with con? ⋯ M +... | no ¬M = no λ {conF → ¬M inhabitant} +... | yes (con! (match! K)) + with con? (_≟_ K) M' +... | no ¬M' = no λ {conF → ¬M' inhabitant} +... | yes (con! refl) = yes conF + + +compatBuiltin? : DecidableT CompatBuiltin +compatBuiltin? R? M M' + with builtin? ⋯ M +... | no ¬M = no λ {builtinF → ¬M inhabitant} +... | yes (builtin! (match! K)) + with builtin? (_≟_ K) M' +... | no ¬M' = no λ {builtinF → ¬M' inhabitant} +... | yes (builtin! refl) = yes builtinF + + +compatError? : DecidableT CompatError +compatError? R? M M' + with error? M ×-dec error? M' +... | yes (error! , error!) = yes errorF +... | no ¬MM' = no λ { errorF → ¬MM' inhabitant} + +compatTerm? : DecidableT CompatTerm +compatTerm? + = compatVar? + +-dec compatLam? + +-dec compatApply? + +-dec compatForce? + +-dec compatDelay? + +-dec compatCon? + +-dec compatConstr? + +-dec compatCase? + +-dec compatBuiltin? + +-dec compatError? + +-dec empty? +``` + + +## Refinements + +Given partial refinement functions for both transformers, we can define a choice operator: + +``` +infixr 5 _<|>_ +_<|>_ : + ∀ {F G : RelationT} {R : Relation} + → Refinement? (F R) + → Refinement? (G R) + → Refinement? ((F + G) R) +(f <|> g) M + with f M +... | just (N , RMN) = just (N , inl RMN) +... | nothing + with g M +... | just (N , SMN) = just (N , inr SMN) +... | nothing = nothing +``` + + +## Example relation: remove force/delay + +Suppose there is a compiler pass that removes each force and delay construct, by +mapping `delay` to a `ƛ`, and `force` into an application `_· constr 0 []`. We +will define a translation relation and decision procedure. + +``` +private module Example where + + open import Data.Bool using (true; false) + open import Data.Nat using (ℕ; zero; suc) + + open import Untyped.RenamingSubstitution using (weaken) +``` + +We define a rule for transforming `delay`: + +``` + data DelayLambda (@++ R : Relation) : Relation where + delay-lambda : + ∀ {X} {M : X ⊢} {M' : suc X ⊢} + → R (weaken M) M' + ---------------------------------------- + → DelayLambda R (delay M) (ƛ M') +``` + +And its corresponding decision procedure: + +``` + dec-DelayLambda : DecidableT DelayLambda + dec-DelayLambda R? M M' + with (delay? ⋯ M) ×-dec (ƛ? ⋯ M') + ... | no ¬delay×ƛ = no λ {(delay-lambda _) → ¬delay×ƛ inhabitant} + ... | yes (delay! (match! N) , ƛ! (match! N')) + with R? (weaken N) N' + ... | yes RNN' = yes (delay-lambda RNN') + ... | no ¬RNN' = no λ {(delay-lambda RNN') → ¬RNN' RNN'} +``` + +Similarly for the `force` transformation: + +``` + data ForceApply (@++ R : Relation) : Relation where + force-apply : + ∀ {X} {M M' : X ⊢} + → R M M' + ---------------------------------------- + → ForceApply R (force M) (M' · constr 0 []) + + dec-ForceApply : DecidableT ForceApply + dec-ForceApply R? M M' + with (force? ⋯ M) ×-dec ((⋯ ·? (constr? (_≟ 0) []?)) M') + ... | no ¬force×· = no λ {(force-apply _) → ¬force×· inhabitant} + ... | yes (force! (match! N) , (match! N') ·! (constr! refl []!)) + with R? N N' + ... | no ¬RNN = no λ {(force-apply RNN) → ¬RNN RNN} + ... | yes RNN = yes (force-apply RNN) +``` + +The translation relation is now defined by composing the two rules with +compatibility rules of the other language constructs (note that we don't include +the compatibility rules for force and delay) + +``` + RemoveFD : Relation + RemoveFD = Fix + ( ForceApply + DelayLambda + + CompatVar + CompatLambda + CompatApply + + CompatCon + CompatConstr + CompatCase + + CompatBuiltin + CompatError + ) + + dec-RemoveFD : DecidableRel RemoveFD + dec-RemoveFD = Fix-dec + ( dec-ForceApply + +-dec dec-DelayLambda + +-dec compatVar? + +-dec compatLam? + +-dec compatApply? + +-dec compatCon? + +-dec compatConstr? + +-dec compatCase? + +-dec compatBuiltin? + +-dec compatError? + ) +``` + +On terms without force/delay, the relation is the identity: + +``` + L : 1 ⊢ + L = ` zero · ` zero + + _ : does (dec-RemoveFD L L) ≡ true + _ = refl + +``` + +Terms with force/delay have to be transformed: + +``` + M-pre : 1 ⊢ + M-pre = force (delay (` zero)) + + M-post : 1 ⊢ + M-post = (ƛ (` (suc zero))) · (constr 0 []) + + _ : does (dec-RemoveFD M-pre M-post) ≡ true + _ = refl + + _ : does (dec-RemoveFD M-pre M-pre) ≡ false + _ = refl +``` diff --git a/plutus-metatheory/src/Untyped/Relation/Binary/Properties.lagda.md b/plutus-metatheory/src/Untyped/Relation/Binary/Properties.lagda.md new file mode 100644 index 00000000000..d8932954137 --- /dev/null +++ b/plutus-metatheory/src/Untyped/Relation/Binary/Properties.lagda.md @@ -0,0 +1,163 @@ +--- +title: Untyped.Relation.Binary.Properties +layout: page +--- + +``` +module Untyped.Relation.Binary.Properties where + +open import Function using (_∘_) +open import Relation.Binary.PropositionalEquality using (_≡_; refl) +open import Data.List using (List; []; _∷_) +open import Data.Maybe +open import Data.Product + +open import Untyped +open import Untyped.Relation.Binary.Core +``` + +## Why not reuse these properties from agda-stdlib? + +We can't reuse `Relation.Binary` from the standard library here because a +relation on terms needs to be aware of the ℕ index that we use for representing +the scope. `Relation.Binary.Indexed.Heterogeneous` on the other hand is a bit +too general because its definitions may have indices that differ (see e.g. +`Transitive`), which makes using it inconvenient to use because Agda cannot +always infer the indices. + +## Standard properties on relations + +``` +Reflexive : Relation → Set +Reflexive _~_ = ∀ {X} {M : X ⊢} → + ----- + M ~ M + +Transitive : Relation → Set +Transitive _~_ = ∀ {X} {L M N : X ⊢} → + L ~ M → + M ~ N → + ------- + L ~ N + +Symmetric : Relation → Set +Symmetric _~_ = ∀ {X} {M N : X ⊢} → + M ~ N → + ------- + N ~ M + +Idempotent : Relation → Set +Idempotent R = ∀ {X} {L M N : X ⊢} → R L M → R M N → M ≡ N + +_⊆_ : Relation → Relation → Set +R ⊆ S = + ∀ {X} {M N : X ⊢} + → R M N + → S M N + +⊆-trans : + {R S T : Relation} + → R ⊆ S + → S ⊆ T + → R ⊆ T +⊆-trans R⊆S S⊆T RMN = S⊆T (R⊆S RMN) +``` + +## Properties with respect to functions on terms + +Operations on terms can be abbreviated: + +``` +Transform : Set +Transform = ∀{X} → X ⊢ → X ⊢ + +Transform? : Set +Transform? = ∀{X} → X ⊢ → Maybe (X ⊢) + +Transform₂ : Set +Transform₂ = ∀{X} → X ⊢ → X ⊢ → X ⊢ + +Deterministicᵣ : Relation → Set +Deterministicᵣ R = ∀ {X} {M N N' : X ⊢} → R M N → R M N' → N ≡ N' + +Deterministicₗ : Relation → Set +Deterministicₗ R = ∀ {X} {M M' N : X ⊢} → R M N → R M' N → M ≡ M' +``` + +A compatible function maps related inputs to related outputs: + +``` +Compatible : Relation → Transform → Set +Compatible _~_ f = + ∀ {X} {M N : X ⊢} → + M ~ N → + --------- + f M ~ f N + +Compatible₂ : Relation → Transform₂ → Set +Compatible₂ _~_ f = + ∀ {X} {K L M N : X ⊢} → + K ~ L → + M ~ N → + ------------- + f K M ~ f L N +``` + +## Pointwise + + +``` +pointwise-refl : ∀ {X} {R : Relation} {Ms : List (X ⊢)} → Reflexive R → Pointwise R Ms Ms +pointwise-refl {Ms = []} R-refl = [] +pointwise-refl {R = R} {Ms = M ∷ Ms} R-refl = R-refl ∷ pointwise-refl {R = R} R-refl +``` + +## Refinement + +A function refines a relation `R `when each input-output pair is related in R. + +``` +Refines : Transform → Relation → Set +Refines f R = ∀ {X} {M : X ⊢} → R M (f M) +``` + +There is a similar notion for partial functions: + +``` +Refines? : Transform? → Relation → Set +Refines? f R = + ∀ {X} + → (M N : X ⊢) + → f M ≡ just N + → R M N + +Refines?-⊆ : + ∀ {f : ∀ {X} → X ⊢ → Maybe (X ⊢)} {R S : Relation} + → R ⊆ S + → Refines? f R + → Refines? f S +Refines?-⊆ R⊆S refines?-f _ _ eq = R⊆S (refines?-f _ _ eq) +``` + +A partial function can be a refinement by construction, if it also returns the +proof of inhabitance of the relation: + +``` +Refinement? : Relation → Set +Refinement? R = + ∀ {X} + → (M : X ⊢) + → Maybe (∃ (λ M' → R M M')) + +refine? : ∀ {X} {R : Relation} → Refinement? R → X ⊢ → Maybe (X ⊢) +refine? f M with f M +... | nothing = nothing +... | just (M' , _) = just M' + +refine?-refines : + ∀ {R : Relation} + → (f : Refinement? R) + → Refines? (refine? f) R +refine?-refines f M _ fM≡just with f M | fM≡just +... | just ( _ , RMN) | refl = RMN +``` diff --git a/plutus-metatheory/src/Untyped/Relation/Binary/Structures.lagda.md b/plutus-metatheory/src/Untyped/Relation/Binary/Structures.lagda.md new file mode 100644 index 00000000000..7c9fc171748 --- /dev/null +++ b/plutus-metatheory/src/Untyped/Relation/Binary/Structures.lagda.md @@ -0,0 +1,64 @@ +--- +title: Untyped.Relation.Binary.Structures +layout: page +--- + +``` +module Untyped.Relation.Binary.Structures where + +open import Data.Nat using (ℕ; suc) +open import Data.Fin using (Fin) +open import Data.List using (List) + +open import Untyped +open import Untyped.Relation.Binary.Core public +open import Untyped.Relation.Binary.Properties public +``` + +## Equivalence relations + +``` +record Equivalence (_~_ : Relation) : Set where + field + ~-refl : Reflexive _~_ + ~-trans : Transitive _~_ + ~-sym : Symmetric _~_ +``` + +## Term-compatible relations + +``` +record TermCompatible (_~_ : Relation) : Set where + field + compat-var : + ∀ {X} {n : Fin X} + → ` n ~ ` n + compat-ƛ : + ∀ {X} {M N : suc X ⊢} + → M ~ N + → ƛ M ~ ƛ N + compat-· : + Compatible₂ _~_ _·_ + compat-force : + Compatible _~_ force + compat-delay : + Compatible _~_ delay + compat-constr : + ∀ {X i} {Ms Ns : List (X ⊢)} + → Pointwise _~_ Ms Ns + → constr i Ms ~ constr i Ns + compat-case : + ∀ {X} {M N : X ⊢} {Ms Ns} + → M ~ N + → Pointwise _~_ Ms Ns + → case M Ms ~ case N Ns + compat-con : + ∀ {k X} + → con {X} k ~ con {X} k + compat-builtin : + ∀ {X} {f} + → builtin {X} f ~ builtin {X} f + compat-error : + ∀ {X} + → error {X} ~ error {X} +``` diff --git a/plutus-metatheory/src/Untyped/Transform.lagda.md b/plutus-metatheory/src/Untyped/Transform.lagda.md new file mode 100644 index 00000000000..95bdf1b5703 --- /dev/null +++ b/plutus-metatheory/src/Untyped/Transform.lagda.md @@ -0,0 +1,154 @@ +--- +title: Untyped.Transform +layout: page +--- + +# Utilities for term transformations + + +``` +module Untyped.Transform where + +open import Untyped +open import Untyped.Relation.Binary +open import Data.List using (List; []; _∷_) +open import Function using (case_of_) +open import Data.Nat +open import Data.Maybe +open import Data.Fin +open import Relation.Binary.PropositionalEquality +``` + +## Bottom-up traversals + +Bottom-up traversal with a rewriting rule `f`. For later proofs, it turns out to be +useful to split out the definition in mutually recursive functions. One for the +part that recurses in the sub-terms, which we name `subterms`, and one for +recursing in lists of terms, which happens for `constr` and `case`. + +`↑` is similar to `transformOf subterms` in Haskell + +``` +infixl 30 _↑_ +infixl 30 _↑*_ + +_↑_ : (∀ {X} → X ⊢ → X ⊢) → ∀ {X} → X ⊢ → X ⊢ +_↑*_ : (∀ {X} → X ⊢ → X ⊢) → ∀ {X} → List (X ⊢) → List (X ⊢) +subterms : (∀ {X} → X ⊢ → X ⊢) → ∀ {X} → X ⊢ → X ⊢ + +f ↑ M = f (subterms f M) + +f ↑* [] = [] +f ↑* (M ∷ Ms) = f ↑ M ∷ f ↑* Ms + +subterms f M = case M of λ where + (` x) → ` x + (ƛ M) → ƛ (f ↑ M) + (M · N) → (f ↑ M) · (f ↑ N) + (force M) → force (f ↑ M) + (delay M) → delay (f ↑ M) + (con x) → con x + (constr i Ms) → constr i (f ↑* Ms) + (case M Ms) → case (f ↑ M) (f ↑* Ms) + (builtin b) → builtin b + error → error +``` + +With partial functions: + + +``` +infixl 30 _↑?_ +infixl 30 _↑?*_ + +_↑?_ : (∀ {X} → X ⊢ → Maybe (X ⊢)) → ∀ {X} → X ⊢ → X ⊢ +_↑?*_ : (∀ {X} → X ⊢ → Maybe (X ⊢)) → ∀ {X} → List (X ⊢) → List (X ⊢) +sub : (∀ {X} → X ⊢ → Maybe (X ⊢)) → ∀ {X} → X ⊢ → X ⊢ + +f ↑? M = let M' = sub f M + in fromMaybe M' (f M') + +f ↑?* [] = [] +f ↑?* (M ∷ Ms) = f ↑? M ∷ f ↑?* Ms + +sub f M = case M of λ where + (` x) → ` x + (ƛ M) → ƛ (f ↑? M) + (M · N) → (f ↑? M) · (f ↑? N) + (force M) → force (f ↑? M) + (delay M) → delay (f ↑? M) + (con x) → con x + (constr i Ms) → constr i (f ↑?* Ms) + (case M Ms) → case (f ↑? M) (f ↑?* Ms) + (builtin b) → builtin b + error → error +``` + +## Properties + +If `f` refines `R`, then so does `f ↑`. + +``` +module Refines + (R : Relation) + (~-trans : Transitive R) + (~-compat : TermCompatible R) + (f : Transform) + (f-refines : Refines f R) + where + + open TermCompatible ~-compat + + ↑-refines : Refines (f ↑_) R + ↑*-refines : ∀ {X} {Ms : List (X ⊢)} → + Pointwise R Ms (f ↑* Ms) + subterms-refines : Refines (subterms f) R + + ↑-refines {X} {M} = ~-trans subterms-refines f-refines + ↑*-refines {Ms = []} = [] + ↑*-refines {Ms = _ ∷ _} = ↑-refines ∷ ↑*-refines + subterms-refines {X} {M} with M + ... | ` _ = compat-var + ... | ƛ _ = compat-ƛ ↑-refines + ... | _ · _ = compat-· ↑-refines ↑-refines + ... | force _ = compat-force ↑-refines + ... | delay _ = compat-delay ↑-refines + ... | con _ = compat-con + ... | constr i Ms = compat-constr ↑*-refines + ... | case M Ms = compat-case ↑-refines ↑*-refines + ... | builtin _ = compat-builtin + ... | error = compat-error + +module Refines? + (R : Relation) + (~-trans : Transitive R) + (~-compat : TermCompatible R) + (f : ∀ {X} → X ⊢ → Maybe (X ⊢)) + (f-refines? : Refines? f R) + where + + open TermCompatible ~-compat + + ↑?-refines : Refines (f ↑?_) R + ↑?*-refines : ∀ {X} {Ms : List (X ⊢)} → + Pointwise R Ms (f ↑?* Ms) + sub-refines : Refines (sub f) R + + ↑?-refines {X} {M} with sub-refines {_} {M} + ... | sub-ext with f (sub f M) in eq + ... | just M'' = ~-trans sub-ext (f-refines? _ _ eq) + ... | nothing = sub-ext + ↑?*-refines {Ms = []} = [] + ↑?*-refines {Ms = _ ∷ _} = ↑?-refines ∷ ↑?*-refines + sub-refines {X} {M} with M + ... | ` _ = compat-var + ... | ƛ _ = compat-ƛ ↑?-refines + ... | _ · _ = compat-· ↑?-refines ↑?-refines + ... | force _ = compat-force ↑?-refines + ... | delay _ = compat-delay ↑?-refines + ... | con _ = compat-con + ... | constr i Ms = compat-constr ↑?*-refines + ... | case M Ms = compat-case ↑?-refines ↑?*-refines + ... | builtin _ = compat-builtin + ... | error = compat-error +``` diff --git a/plutus-metatheory/src/Utils.lagda.md b/plutus-metatheory/src/Utils.lagda.md index 672fa43c240..d90333c1753 100644 --- a/plutus-metatheory/src/Utils.lagda.md +++ b/plutus-metatheory/src/Utils.lagda.md @@ -66,6 +66,12 @@ decIf : ∀{A B : Set} → Dec A → B → B → B decIf (yes p) t f = t decIf (no ¬p) t f = f +infixr 8 _<|>_ + +_<|>_ : ∀{A : Set} → Maybe A → Maybe A → Maybe A +nothing <|> m = m +just x <|> _ = just x + maybeToEither : {A B : Set} → A → Maybe B → Either A B maybeToEither x = maybe inj₂ (inj₁ x) diff --git a/plutus-metatheory/src/VerifiedCompilation.lagda.md b/plutus-metatheory/src/VerifiedCompilation.lagda.md index 7d4af566566..e942033d4bb 100644 --- a/plutus-metatheory/src/VerifiedCompilation.lagda.md +++ b/plutus-metatheory/src/VerifiedCompilation.lagda.md @@ -52,6 +52,7 @@ import VerifiedCompilation.UCaseReduce as UCR open import VerifiedCompilation.NotImplemented open import VerifiedCompilation.Trace open import VerifiedCompilation.Certificate hiding (_>>=_) +open import Relation.Binary.PropositionalEquality -- | The failure modes of the certifier @@ -76,6 +77,7 @@ tagToRelation forceDelayT = UFD.ForceDelay tagToRelation forceCaseDelayT = UFCD.ForceCaseDelay tagToRelation inlineT = UInline.Inline (λ()) UInline.□ tagToRelation applyToCaseT = UA2C.UApplyToCase +tagToRelation caseReduceT = UCR.CaseReduce ``` We default to the `NotImplemented` relation to give each `OptTag` a relation: @@ -100,6 +102,7 @@ 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₂ applyToCaseT) _ = decider UA2C.a2c?ᶜᶜ +certifyPass (inj₂ caseReduceT) _ = decider UCR.decide ``` A `Certificate t` states the main theorem of a trace `t`: a sequence (product) diff --git a/plutus-metatheory/src/VerifiedCompilation/Trace.lagda.md b/plutus-metatheory/src/VerifiedCompilation/Trace.lagda.md index 04c10ac86ad..0bd3d49bee3 100644 --- a/plutus-metatheory/src/VerifiedCompilation/Trace.lagda.md +++ b/plutus-metatheory/src/VerifiedCompilation/Trace.lagda.md @@ -32,7 +32,6 @@ pragmas MUST be the same as the order of their counterparts in data UncertifiedOptTag : Set where caseOfCaseT : UncertifiedOptTag letFloatOutT : UncertifiedOptTag - caseReduceT : UncertifiedOptTag cseT : UncertifiedOptTag data CertifiedOptTag : Set where @@ -41,6 +40,7 @@ data CertifiedOptTag : Set where forceCaseDelayT : CertifiedOptTag inlineT : CertifiedOptTag applyToCaseT : CertifiedOptTag + caseReduceT : CertifiedOptTag OptTag = Utils.Either UncertifiedOptTag CertifiedOptTag @@ -62,7 +62,7 @@ CaseOfCaseT = Utils.inj₁ caseOfCaseT LetFloatOutT : OptTag LetFloatOutT = Utils.inj₁ letFloatOutT CaseReduceT : OptTag -CaseReduceT = Utils.inj₁ caseReduceT +CaseReduceT = Utils.inj₂ caseReduceT {-# COMPILE GHC CertifiedOptTag @@ -72,6 +72,7 @@ CaseReduceT = Utils.inj₁ caseReduceT | ForceCaseDelay | Inline | ApplyToCase + | CaseReduce ) #-} {-# COMPILE GHC @@ -79,7 +80,6 @@ CaseReduceT = Utils.inj₁ caseReduceT = data UncertifiedOptStage ( CaseOfCase | LetFloatOut - | CaseReduce | CSE ) #-} diff --git a/plutus-metatheory/src/VerifiedCompilation/UApplyToCase.lagda.md b/plutus-metatheory/src/VerifiedCompilation/UApplyToCase.lagda.md index 48cf226e45b..bbbb7c5526b 100644 --- a/plutus-metatheory/src/VerifiedCompilation/UApplyToCase.lagda.md +++ b/plutus-metatheory/src/VerifiedCompilation/UApplyToCase.lagda.md @@ -21,7 +21,6 @@ module VerifiedCompilation.UApplyToCase where open import Untyped using (_⊢; case; constr) open import Untyped.Reduction using (iterApp) open import VerifiedCompilation.Certificate using (ProofOrCE; ce; proof; ApplyToCaseT) -open import VerifiedCompilation.UCaseReduce using (justEq) open import VerifiedCompilation.UntypedViews open import VerifiedCompilation.UntypedTranslation using (Translation; translation?; Relation) diff --git a/plutus-metatheory/src/VerifiedCompilation/UCaseReduce.lagda.md b/plutus-metatheory/src/VerifiedCompilation/UCaseReduce.lagda.md index d3b3b793a30..923fad6cd45 100644 --- a/plutus-metatheory/src/VerifiedCompilation/UCaseReduce.lagda.md +++ b/plutus-metatheory/src/VerifiedCompilation/UCaseReduce.lagda.md @@ -4,6 +4,27 @@ layout: page --- # Case-Reduce Translation Phase + +This module defines two translation relations for the case-reduce pass: + +- `CaseReduce`: A "computational" relation that builds on a re-implementation + of the compiler pass (`case-reduce` function below). The relation simply + requires the reduced pre-term to be equal to the post-term. This was simpler + than defining a decision procedure that compares pre- and post-term. The + relation has a decision procedure. + +- `_~_`: An inductive relation, built using the generic building blocks from + `Untyped.Relation.Modular`. It is an equivalence relation which also admits a + decision procedure which works by case-reducing _both_ the pre-term and + post-term. + +The `CaseReduce` relation is closer to the compiler implementation, while the +equivalence relation is more general and similar to the one in the "A Tale of +two Zippers" papers. The equivalence is more "obviously" semantics preserving. + +The `CaseReduce` relation is sound (but not complete) w.r.t. the inductive +equivalence relation. + ``` module VerifiedCompilation.UCaseReduce where @@ -11,115 +32,400 @@ module VerifiedCompilation.UCaseReduce where ## Imports ``` -open import Untyped.Equality using (DecEq; _≟_;decPointwise) -open import VerifiedCompilation.UntypedViews using (Pred; isCase?; isApp?; isLambda?; isForce?; isBuiltin?; isConstr?; isDelay?; isTerm?; isVar?; allTerms?; iscase; isapp; islambda; isforce; isbuiltin; isconstr; isterm; allterms; isdelay; isvar) -open import VerifiedCompilation.UntypedTranslation using (Translation; translation?; Relation; convert; reflexive) -open import Relation.Nullary using (_×-dec_) -open import Untyped using (_⊢; case; builtin; _·_; force; `; ƛ; delay; con; constr; error; con-integer) -import Relation.Binary.PropositionalEquality as Eq -open Eq using (_≡_; refl) -open import Relation.Binary.PropositionalEquality.Core using (trans; sym; subst) -open import Untyped.CEK using (lookup?; lookup?-deterministic) -open import Data.Fin using (Fin; zero; suc) -open import Data.Nat using (ℕ; zero; suc) + +open import Data.Bool using (true; false; if_then_else_; Bool) +open import Data.Maybe open import Data.List using (List; _∷_; []; [_]) -open import Data.Maybe using (Maybe; just; nothing) -open import Data.List.Relation.Binary.Pointwise.Base using (Pointwise) -import Relation.Binary as Binary using (Decidable) -open import Relation.Nullary using (Dec; yes; no; ¬_) -open import Data.Product using (_,_) -open import RawU using (tag2TyTag; tmCon) -open import Agda.Builtin.Int using (Int) -open import Data.Empty using (⊥) -open import Function using (case_of_) -open import VerifiedCompilation.Certificate using (ProofOrCE; ce; proof; CaseReduceT) +open import Data.Product +open import Data.Unit using (tt) +open import Data.Nat using (ℕ; zero; suc) +open import Data.Sum using (_⊎_; inj₁; inj₂) +open import Data.Fin using (Fin) +open import Data.Integer using (ℤ ; +_; -[1+_]) + +open import Relation.Binary.PropositionalEquality using (_≡_; refl; cong₂) +open import Relation.Nullary using (yes; no; ¬_) + +open import Untyped +open import Builtin.Constant.AtomicType +open import RawU using (tag2TyTag; tmCon; Tag) + +open import Untyped.Equality open import Untyped.Reduction using (iterApp) +open import Untyped.Relation.Binary +open import Untyped.Relation.Binary.Modular +open import Untyped.Transform +open Untyped.Transform.Refines? +open import Untyped.CEK using (lookup?) +open import VerifiedCompilation.Certificate using (ProofOrCE; ce; proof; CaseReduceT; Proof?; abort) +open import VerifiedCompilation.UntypedViews +open import Utils using () renaming (_,_ to _,,_; _∷_ to cons; [] to nil) + +``` +## Reduction Rules + +These are the (single-step) reduction rules of the case-reduce pass, defined as +relation transformers so they can be composed for the inductive translation relation. + +``` +module Rules where + + private variable + X : ℕ + M N N₁ N₂ : X ⊢ + Ns Ms : List (X ⊢) + i : ℕ + + data CaseConstr (@++ R : Relation) : Relation where + case-constr : + ∀ {X} {i} {N : X ⊢} {Ns Ms} + → lookup? i Ns ≡ just N + ----------------------------------------------------- + → CaseConstr R (case (constr i Ms) Ns) (iterApp N Ms) + + data CaseUnit (@++ R : Relation) : Relation where + case-unit : + ∀ {X} {N : X ⊢} + --------------------------------------------- + → CaseUnit R (case (con (tmCon unit tt)) [ N ]) N + + data CaseFalse₁ (@++ R : Relation) : Relation where + case-false₁ : + ∀ {X} {N : X ⊢} + -------------------------------------------------- + → CaseFalse₁ R (case (con (tmCon bool false)) [ N ]) N + + data CaseBool (@++ R : Relation) : Relation where + case-bool : + ∀ {X} {b} {N₁ N₂ : X ⊢} + ----------------------------------------------------------------------- + → CaseBool R (case (con (tmCon bool b)) (N₁ ∷ N₂ ∷ [])) (if b then N₂ else N₁) + + data CaseInteger (@++ R : Relation) : Relation where + case-integer : + ∀ {X n} {N : X ⊢} {Ns} + → lookup? n Ns ≡ just N + --------------------------------------------------- + → CaseInteger R (case (con (tmCon integer (+ n))) Ns) N + + data CaseCons₁ (@++ R : Relation) : Relation where + case-cons₁ : + ∀ {X} {A x xs} {N : X ⊢} + ---------------------------------------------------- + → CaseCons₁ R + (case (con (tmCon (list A) (cons x xs))) (N ∷ [])) + (N · con (tmCon A x) · con (tmCon (list A) xs)) + + data CaseCons₂ (@++ R : Relation) : Relation where + case-cons₂ : + ∀ {X} {A x xs} {N₁ N₂ : X ⊢} + ---------------------------------------------------------- + → CaseCons₂ R + (case (con (tmCon (list A) (cons x xs))) (N₁ ∷ N₂ ∷ [])) + (N₁ · con (tmCon A x) · con (tmCon (list A) xs)) + + data CaseNil (@++ R : Relation) : Relation where + case-nil : + ∀ {X} {N₁ N₂ : X ⊢} {A} + ----------------------------------------------------------- + → CaseNil R + (case (con (tmCon (list A) nil)) (N₁ ∷ N₂ ∷ [])) + N₂ + + data CasePair (@++ R : Relation) : Relation where + case-pair : + ∀ {X} {A B x y} {N : X ⊢} + ---------------------------------------------------- + → CasePair R + (case (con (tmCon (pair A B) (x ,, y ))) (N ∷ [])) + (N · con (tmCon A x) · con (tmCon B y)) + +open Rules +``` + +## Inductive translation relation + +Combining the reduction rules: + +``` +Reduction : RelationT +Reduction + = CaseConstr + + CaseUnit + + CaseFalse₁ + + CaseBool + + CaseInteger + + CaseCons₁ + + CaseCons₂ + + CaseNil + + CasePair +``` + +The equivalence is closed under the reduction rules and compatibility +rules + +``` +_~_ : Relation +_~_ = Fix (Reduction + CompatTerm + Transitivity + Symmetry + Reflexivity) +``` + +Pattern synonyms for constructors: + ``` +pattern cr-reduction p = fix (inl p) +pattern cr-compat p = fix (inr (inl p)) +pattern cr-trans p q = fix (inr (inr (inl (transF p q)))) +pattern cr-sym p = fix (inr (inr (inr (inl (symF p))))) +pattern cr-refl = fix (inr (inr (inr (inr reflF)))) +``` + +Convenient helpers + +``` +cr-refl' : + ∀ {X} {M N : X ⊢} + → M ≡ N + → M ~ N +cr-refl' refl = cr-refl + +cr-refl* : + ∀ {X} {Ms : List (X ⊢)} + → Pointwise _~_ Ms Ms +cr-refl* = pointwise-refl {R = _~_} cr-refl -## Translation Relation +cr-TermCompat : TermCompatible _~_ +cr-TermCompat = CompatTerm-TermCompatible cr-compat +``` + +Testing the relation: ``` -data CaseReduce : Relation where - casereduce : {X : ℕ} {x : X ⊢} { x' : X ⊢} {vs xs : List (X ⊢)} {i : ℕ} - → lookup? i xs ≡ just x - → Translation CaseReduce (iterApp x vs) x' - → CaseReduce (case (constr i vs) xs) x' +private module Test where + M : 0 ⊢ + M = case (constr 0 []) (constr 0 [] ∷ constr 1 [] ∷ []) + + M' : 0 ⊢ + M' = constr 0 [] + + MM' : M ~ M' + MM' = cr-reduction (inl (case-constr refl)) + + + N : 0 ⊢ + N = case M (constr 42 [] ∷ []) + N' : 0 ⊢ + N' = constr 42 [] + + _ : N ~ N' + _ = + cr-trans + (compat-case MM' cr-refl*) + (cr-reduction (inl (case-constr refl))) + where + open TermCompatible cr-TermCompat ``` -## Decision Procedure + +## CaseReduce translation relation + +For each of the inductive reduction rules, we give a corresponding partial +function, which also witnesses the proof of the reduction rule when it succeeds +(this comes in handy when proving soundness w.r.t the inductive translation +relation later on) ``` -isCaseReduce? : {X : ℕ} → (ast ast' : X ⊢) → ProofOrCE (Translation CaseReduce {X} ast ast') +private variable + R : Relation + X : ℕ + +red-constr : (M : X ⊢) → Maybe (∃ λ M' → CaseConstr R M M') +red-constr M + with (case? (constr? ⋯ ⋯) ⋯) M +... | no _ = nothing +... | yes (case! (constr! (match! i) (match! Ms)) (match! Ns)) + with lookup? i Ns in eq +... | nothing = nothing +... | just N = just (iterApp N Ms , case-constr eq) + +red-unit : (M : X ⊢) → Maybe (∃ λ M' → CaseUnit R M M') +red-unit M + with (case? (con? (tmCon? unit ⋯)) (⋯ ∷? []?)) M +... | no _ = nothing +... | yes (case! (con! (tmCon! (match! v))) (match! N ∷! []!)) + = just (N , case-unit) + +red-false₁ : (M : X ⊢) → Maybe (∃ λ M' → CaseFalse₁ R M M') +red-false₁ M + with (case? (con? (tmCon? bool (_≟_ false))) (⋯ ∷? []?)) M +... | no _ = nothing +... | yes (case! (con! (tmCon! refl)) (match! N ∷! []!)) = just (N , case-false₁) + +red-bool : (M : X ⊢) → Maybe (∃ λ M' → CaseBool R M M') +red-bool M + with (case? (con? (tmCon? bool ⋯)) (⋯ ∷? ⋯ ∷? []?)) M +... | no _ = nothing +... | yes (case! (con! (tmCon! (match! b))) (match! N₁ ∷! match! N₂ ∷! []!)) + = just ((if b then N₂ else N₁) , case-bool) + +red-integer : (M : X ⊢) → Maybe (∃ λ M' → CaseInteger R M M') +red-integer M + with (case? (con? (tmCon? integer pos?)) ⋯) M +... | no _ = nothing +... | yes (case! (con! (tmCon! (pos! n))) (match! Ns)) + with lookup? n Ns in eq +... | nothing = nothing +... | just N = just (N , case-integer eq) + +red-cons₁ : (M : X ⊢) → Maybe (∃ λ M' → CaseCons₁ R M M') +red-cons₁ M with + (case? (con? (tmCon-list? (λ A xs → cons? ⋯ ⋯ xs))) (⋯ ∷? []?)) M +... | no _ = nothing +... | yes (case! (con! (tmCon-list! (cons! (match! x) (match! xs)))) (match! N ∷! []!)) = + just (N · con (tmCon _ x) · con (tmCon (list _) xs) , case-cons₁) -justEq : {X : Set} {x x₁ : X} → (just x) ≡ (just x₁) → x ≡ x₁ -justEq refl = refl +red-cons₂ : (M : X ⊢) → Maybe (∃ λ M' → CaseCons₂ R M M') +red-cons₂ M + with (case? (con? (tmCon-list? (λ A → cons? ⋯ ⋯))) (⋯ ∷? ⋯ ∷? []?)) M +... | no _ = nothing +... | yes (case! (con! (tmCon-list! (cons! (match! x) (match! xs)))) (match! N₁ ∷! match! N₂ ∷! []!)) = + just (N₁ · con (tmCon _ x) · con (tmCon (list _) xs) , case-cons₂) -{-# TERMINATING #-} -isCR? : {X : ℕ} → (ast ast' : X ⊢) → ProofOrCE (CaseReduce ast ast') -isCR? ast ast' with (isCase? (isConstr? allTerms?) allTerms?) ast -... | no ¬p = ce (λ { (casereduce _ _) → ¬p (iscase (isconstr _ (allterms _)) (allterms _))} ) CaseReduceT ast ast' -... | yes (iscase (isconstr i (allterms vs)) (allterms xs)) with lookup? i xs in xv -... | nothing = ce (λ { (casereduce p _) → case trans (sym xv) p of λ { () }} ) CaseReduceT ast ast' -... | just x with isCaseReduce? (iterApp x vs) ast' -... | proof p = proof (casereduce xv p) -... | ce ¬t t b a = ce (λ { (casereduce p t) → ¬t (subst (λ x → Translation CaseReduce (iterApp x vs) ast') (justEq (trans (sym p) xv)) t)}) t b a -isCaseReduce? = translation? CaseReduceT isCR? +red-nil : (M : X ⊢) → Maybe (∃ λ M' → CaseNil R M M') +red-nil M + with (case? (con? (tmCon-list? (λ A → nil?))) (⋯ ∷? ⋯ ∷? []?)) M +... | no _ = nothing +... | yes (case! (con! (tmCon-list! nil!)) (match! N₁ ∷! match! N₂ ∷! []!)) = just (N₂ , case-nil) -UCaseReduce = Translation CaseReduce +red-pair : (M : X ⊢) → Maybe (∃ λ M' → CasePair R M M') +red-pair M + with (case? (con? (tmCon-pair? λ A B → ⋯)) (⋯ ∷? []?)) M +... | no _ = nothing +... | yes (case! (con! (tmCon-pair! (match! (x ,, y)))) (match! N ∷! []!)) = + just (N · con (tmCon _ x) · con (tmCon _ y) , case-pair) +``` + +Combining all reduction rules: + +``` +reduce : (M : X ⊢) → Maybe (∃ λ M' → Reduction R M M') +reduce = + red-constr + <|> red-unit + <|> red-false₁ + <|> red-bool + <|> red-integer + <|> red-cons₁ + <|> red-cons₂ + <|> red-nil + <|> red-pair +``` + +The pass is implemented as a bottom-up traversal that applies the reduction +rules: ``` -## An Example: +reduceM : X ⊢ → Maybe (X ⊢) +reduceM = refine? (reduce {R = _~_}) -(program 1.1.0 - (case (constr 1 (con integer 12) (con integer 42)) (lam x (lam y x)) (lam x (lam y (case (constr 0 (con integer 99)) y))) ) -) +case-reduce : X ⊢ → X ⊢ +case-reduce M = reduceM ↑? M -becomes: +case-reduce* : List (X ⊢) → List (X ⊢) +case-reduce* Ms = reduceM ↑?* Ms +``` -(program 1.1.0 [ (con integer 42) (con integer 99) ]) +The computational translation relation: -_Compiler version: _ ``` +CaseReduce : Relation +CaseReduce M M' = case-reduce M ≡ M' +``` + +### Deciding `CaseReduce` + +The computational relation admits a decision procedure: ``` -This simple example applies the rule once, and works +decide : (M M' : X ⊢) → ProofOrCE (CaseReduce M M') +decide M M' with case-reduce M ≟ M' +... | yes P = proof P +... | no ¬P = ce ¬P CaseReduceT M M' ``` -ast₁ : 1 ⊢ -ast₁ = (case (constr 0 [ (con-integer 99) ]) [ (` zero) ]) -ast₁' : 1 ⊢ -ast₁' = ((` zero) · (con-integer 99)) -_ : CaseReduce ast₁ ast₁' -_ = casereduce refl reflexive +## Soundness + +The `case-reduce` function refines the `_~_` relation: + +``` +case-reduce-refines : ∀ {M : X ⊢} → M ~ case-reduce M +case-reduce-refines = ↑?-refines _~_ cr-trans cr-TermCompat reduceM reduceM-~ + where + -- This helps with type inference + red⊆cr : Reduction _~_ ⊆ _~_ + red⊆cr = cr-reduction + + reduce-refine : Refines? reduceM (Reduction _~_) + reduce-refine = refine?-refines reduce + + reduceM-~ : Refines? reduceM _~_ + reduceM-~ = Refines?-⊆ red⊆cr reduce-refine +``` + +The soundness lemma then follows from transitivity and reflexivity: ``` -The longer example definately executes in the compiler, but requires some true β-reduction to make work here. +sound : + ∀ {X} {M N : X ⊢} + → CaseReduce M N + → M ~ N +sound eq = + cr-trans + case-reduce-refines + (cr-refl' eq) ``` -ast : 0 ⊢ -ast = (case (constr 1 ((con-integer 12) ∷ (con-integer 42) ∷ [])) ( (ƛ (ƛ (` (suc zero)))) ∷ (ƛ (ƛ (case (constr 0 [ (con-integer 99) ]) [ (` zero) ]))) ∷ []) ) -ast' : 0 ⊢ -ast' = ((con-integer 42) · (con-integer 99)) +### Deciding `_~_` -{- -_ : CaseReduce ast ast' -_ = casereduce refl {!!} --- This would require unpacking the meaning of the lambdas and applications, not just the AST, --- so is beyond the scope of this translation relation. --} +Interestingly, `~` is decidable by case-reducing both the pre- and post-term. +This can be proven via soundness and completeness w.r.t: ``` -## Semantic Equivalence +_≈_ : Relation +M ≈ M' = case-reduce M ≡ case-reduce M' +_≈*_ : Relation* +_≈*_ = Pointwise _≈_ ``` -open import Untyped.CEK using (stepper; step) -open import Builtin using (Builtin; addInteger; subtractInteger) -ex1 : 0 ⊢ -ex1 = (((ƛ (ƛ (((builtin subtractInteger) · (` zero)) · (` (suc zero)))))) · (con-integer 2)) · (con-integer 3) --- \× . \y . x - y ==> 2 - 3 +The decision procedure is currently not used, since it accepts unwanted compiler +behaviour, such as case-reducing in the opposite direction. + +Completeness requires for each reduction rule in `_~_` a lemma that it is +admissible in `Computational`. Here is one proof for the `case-constr` rule. + +``` +module Decide + {X : ℕ} + -- TODO: completeness, by induction on the `_~_` derivation, requires a lemma for each + -- reduction rule + (complete-both : ∀ {M N : X ⊢} → M ~ N → case-reduce M ≡ case-reduce N) + where -ex2 : 0 ⊢ -ex2 = (((ƛ (ƛ (((builtin subtractInteger) · (` (suc zero))) · (` zero))))) · (con-integer 3)) · (con-integer 2) --- \x . \y . y - x ==> 2 - 3 + sound-both : + ∀ {X} {M N : X ⊢} + → case-reduce M ≡ case-reduce N + → M ~ N + sound-both eq = + cr-trans + case-reduce-refines + (cr-trans + (cr-refl' eq) + (cr-sym case-reduce-refines) + ) + decide-~ : (M M' : X ⊢) → ProofOrCE (M ~ M') + decide-~ M M' with case-reduce M ≟ case-reduce M' + ... | yes P = proof (sound-both P) + ... | no ¬P = ce (λ P → ¬P (complete-both P)) CaseReduceT M M' ``` diff --git a/plutus-metatheory/src/VerifiedCompilation/UntypedTranslation.lagda.md b/plutus-metatheory/src/VerifiedCompilation/UntypedTranslation.lagda.md index 398fcd9b742..98b8c482acc 100644 --- a/plutus-metatheory/src/VerifiedCompilation/UntypedTranslation.lagda.md +++ b/plutus-metatheory/src/VerifiedCompilation/UntypedTranslation.lagda.md @@ -29,14 +29,14 @@ open import Untyped.Equality using (DecEq; _≟_; decPointwise) open import VerifiedCompilation.Certificate using (ProofOrCE; proof; ce; decToPCE; DecidableCE; OptTag) open import Data.Sum using (_⊎_;inj₁; inj₂) +open import Untyped.Relation.Binary using (Relation) public + ``` The generic type of a Translation is that it matches one (or more) patterns on the left to one (or more) patterns on the right. If there are decision procedures to identify those patterns, we can build a decision procedure to apply them recursivley down the AST structure. ``` -Relation = { X : ℕ } → (X ⊢) → (X ⊢) → Set - data Translation (R : Relation) { X : ℕ } : (X ⊢) → (X ⊢) → Set data TransMatch (R : Relation) { X : ℕ } : (X ⊢) → (X ⊢) → Set where diff --git a/plutus-metatheory/src/VerifiedCompilation/UntypedViews.lagda.md b/plutus-metatheory/src/VerifiedCompilation/UntypedViews.lagda.md index 14c1fd8d4b3..166853371e6 100644 --- a/plutus-metatheory/src/VerifiedCompilation/UntypedViews.lagda.md +++ b/plutus-metatheory/src/VerifiedCompilation/UntypedViews.lagda.md @@ -7,23 +7,28 @@ layout: page module VerifiedCompilation.UntypedViews where module SimpleTypeClass where -open import Untyped using (_⊢; `; ƛ; case; constr; _·_; force; delay; con; builtin; error) +open import Untyped open import Relation.Unary using (Decidable) open import Relation.Nullary using (Dec; yes; no; ¬_) open import Relation.Nullary.Negation -open import Utils as U using (Maybe; nothing; just; Either) +open import Utils as U using (Maybe; nothing; just; Either) renaming (_∷_ to cons; [] to nil) open import Relation.Nullary using (_×-dec_) -open import Data.Product using (_,_; _×_) +open import Data.Product using (_,_; _×_;Σ) open import RawU using (TmCon) open import Builtin using (Builtin; addInteger) open import Untyped.Equality using (decEq-⊢; _≟_) open import Data.List using (List; [_]) open import Data.Fin using (Fin; suc; zero) open import Data.Nat using (ℕ; suc; zero) +open import Data.Unit using (⊤; tt) open import Function using (_∋_) open import Relation.Binary.PropositionalEquality using (_≡_; refl) open import Data.List.Relation.Binary.Pointwise.Base using (Pointwise; _∷_; []) open import Data.List using (List; _∷_; []; map) +open import Data.Integer using (ℤ; +_; -[1+_]) +open import Builtin.Constant.AtomicType +open import Builtin.Signature as B using (_⊢♯) +open _⊢♯ ``` ## Pattern Views for Terms @@ -279,6 +284,16 @@ data builtinᵖ (P : Pr Builtin) : Pr (X ⊢) where data errorᵖ : Pr (X ⊢) where error! : errorᵖ {X} error + +data tmConᵖ (t : TyTag) (P : Pr (⟦ t ⟧tag) ) : TmCon → Set where + tmCon! : ∀ {x} → P x → tmConᵖ t P (tmCon t x) + +data tmCon-listᵖ (P : ∀ t → Pr (⟦ list t ⟧tag)) : TmCon → Set where + tmCon-list! : ∀ {t xs} → P t xs → tmCon-listᵖ P (tmCon (list t) xs) + +data tmCon-pairᵖ (P : ∀ A B → Pr (⟦ pair A B ⟧tag)) : TmCon → Set where + tmCon-pair! : ∀ {A B x} → P A B x → tmCon-pairᵖ P (tmCon (pair A B) x) + ``` Each predicate is decidable if the predicates on sub-terms are decidable. @@ -439,8 +454,50 @@ error? M with M ... | case _ _ = no λ () ... | builtin _ = no λ () ... | error = yes error! + +tmCon? : ∀ (t : TyTag) {Q : Pr ⟦ t ⟧tag} → Decidable Q → Decidable (tmConᵖ t Q) +tmCon? t Q? (tmCon t' x) + with t ≟ t' +... | no ¬t≡t' = no λ {(tmCon! Q) → ¬t≡t' refl} +... | yes refl + with Q? x +... | no ¬Q = no λ {(tmCon! Q) → ¬Q Q} +... | yes Q = yes (tmCon! Q) + +list? : ∀ (t : TyTag) → Dec (Σ _ λ t' → t ≡ list t') +list? (list x) = yes (x , refl) +list? (atomic _) = no λ () +list? (array _) = no λ () +list? (pair _ _) = no λ () + +pair? : ∀ (t : TyTag) → Dec (Σ (TyTag × TyTag) λ {(A , B) → t ≡ pair A B}) +pair? (pair x y) = yes (_ , refl) +pair? (atomic _) = no λ () +pair? (array _) = no λ () +pair? (list _) = no λ () + +tmCon-list? : {P : ∀ t → Pr (⟦ list t ⟧tag)} → (∀ t → Decidable (P t)) → Decidable (tmCon-listᵖ P) +tmCon-list? P? (tmCon t x) + with list? t +... | no ¬Σ = no λ {(tmCon-list! P) → ¬Σ (_ , refl)} +... | yes (t' , refl) + with P? t' x +... | no ¬P = no λ {(tmCon-list! P) → ¬P P} +... | yes P = yes (tmCon-list! P) + + +tmCon-pair? : {P : ∀ A B → Pr (⟦ pair A B ⟧tag)} → (∀ A B → Decidable (P A B)) → Decidable (tmCon-pairᵖ P) +tmCon-pair? P? (tmCon t x) + with pair? t +... | no ¬Σ = no λ {(tmCon-pair! P) → ¬Σ (_ , refl)} +... | yes ((A , B) , refl) + with P? A B x +... | no ¬P = no λ {(tmCon-pair! P) → ¬P P} +... | yes P = yes (tmCon-pair! P) + ``` + `match` is the trivial predicate that always holds: ``` @@ -452,9 +509,11 @@ data match {A : Set} : Pr A where ``` -Views for lists: +Views for lists (both from `Data.List` and `Util`) ``` +infixr 8 _∷ᵖ_ _∷!_ _∷?_ + data _∷ᵖ_ {A : Set} ( P : Pr A ) (Q : Pr (List A)) : Pr (List A) where _∷!_ : ∀ {x xs} → P x → Q xs → (P ∷ᵖ Q) (x ∷ xs) @@ -470,6 +529,23 @@ data []ᵖ {A : Set} : Pr (List A) where []? : ∀ {A : Set} → Decidable ([]ᵖ {A}) []? [] = yes []! []? (_ ∷ _) = no λ() + + +data consᵖ {A : Set} (P : Pr A) (Q : Pr (U.List A)) : Pr (U.List A) where + cons! : ∀ {x xs} → P x → Q xs → (consᵖ P Q) (cons x xs) + +cons? : ∀ {A : Set} {P : Pr A} {Q} → Decidable P → Decidable Q → Decidable (consᵖ P Q) +cons? P? Q? nil = no λ() +cons? P? Q? (cons x xs) with P? x ×-dec Q? xs +... | yes (Px , Qxs) = yes (cons! Px Qxs) +... | no ¬PQ = no λ {(cons! P Q) → ¬PQ (P , Q)} + +data nilᵖ {A : Set} : Pr (U.List A) where + nil! : nilᵖ nil + +nil? : ∀ {A : Set} → Decidable (nilᵖ {A}) +nil? nil = yes nil! +nil? (cons _ _) = no λ() ``` Shorthand for singleton lists: @@ -479,6 +555,18 @@ singleton? : ∀ {A : Set} → Decidable (match {A} ∷ᵖ []ᵖ) singleton? = ⋯ ∷? []? ``` +Views for built-in datatypes + +``` +data posᵖ : ℤ → Set where + pos! : ∀ n → posᵖ (+ n) + +pos? : (x : ℤ) → Dec (posᵖ x) +pos? (+ x) = yes (pos! x) +pos? (-[1+ x ]) = no λ () + +``` + ## Inhabited types In decision procedures that use the above views, we often find ourselves writing @@ -559,6 +647,24 @@ instance Inhabited (errorᵖ (error {X})) inh-error = inh error! + inh-tmCon : ∀ {t} {x : ⟦ t ⟧tag} {Q} → + {{Inhabited (Q x)}} → + Inhabited (tmConᵖ t Q (tmCon t x)) + inh-tmCon = inh (tmCon! inhabitant) + + inh-tmCon-list : ∀ {P t xs} → + {{Inhabited (P t xs)}} → + Inhabited (tmCon-listᵖ P (tmCon (list t) xs)) + inh-tmCon-list = inh (tmCon-list! inhabitant) + + inh-tmCon-pair : ∀ {P A B x} → + {{Inhabited (P A B x)}} → + Inhabited (tmCon-pairᵖ P (tmCon (pair A B) x)) + inh-tmCon-pair = inh (tmCon-pair! inhabitant) + +-- data tmCon-listᵖ (P : ∀ t → Pr (⟦ list t ⟧tag)) : TmCon → Set where +-- tmCon-list! : ∀ {t xs} → P t xs → tmCon-listᵖ P (tmCon (list t) xs) + inh-match : ∀ {A : Set} {X : A} → Inhabited (match X) inh-match = record {inhabitant = match! _} @@ -578,6 +684,19 @@ instance Inhabited ([]ᵖ ([] {A = A})) inh-[]ᵖ = record {inhabitant = []!} + inh-consᵖ : ∀ {A : Set} {x : A} {xs} {P Q} → + {{Inhabited (P x)}} → + {{Inhabited (Q xs)}} → + Inhabited ((consᵖ P Q) (cons x xs)) + inh-consᵖ = record {inhabitant = cons! inhabitant inhabitant} + + inh-nilᵖ : ∀ {A : Set} → + Inhabited (nilᵖ (nil {A = A})) + inh-nilᵖ = record {inhabitant = nil!} + + inh-posᵖ : ∀ {n} → Inhabited (posᵖ (+ n)) + inh-posᵖ {n} = inh (pos! n) + ``` ### Examples 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..7ad0cd17978 100644 --- a/plutus-metatheory/test/certifier-report/golden/n-queens.golden.report +++ b/plutus-metatheory/test/certifier-report/golden/n-queens.golden.report @@ -46,13 +46,13 @@ Pass 5: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 6: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 6: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 3280 (before) Program Size: 3280 (after) Execution Cost: CPU = 275603093782, MEM = 1672462255 (before) Execution Cost: CPU = 275603093782, MEM = 1672462255 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 7: Inlining ✅ @@ -109,13 +109,13 @@ Pass 12: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 13: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 13: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 2910 (before) Program Size: 2910 (after) Execution Cost: CPU = 254090741782, MEM = 1538010055 (before) Execution Cost: CPU = 254090741782, MEM = 1538010055 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 14: Inlining ✅ @@ -172,13 +172,13 @@ Pass 19: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 20: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 20: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 2357 (before) Program Size: 2357 (after) Execution Cost: CPU = 204103557782, MEM = 1225590155 (before) Execution Cost: CPU = 204103557782, MEM = 1225590155 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 21: Inlining ✅ @@ -235,13 +235,13 @@ Pass 26: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 27: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 27: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 2266 (before) Program Size: 2266 (after) Execution Cost: CPU = 161169253782, MEM = 957250755 (before) Execution Cost: CPU = 161169253782, MEM = 957250755 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 28: Inlining ✅ @@ -298,13 +298,13 @@ Pass 33: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 34: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 34: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 1820 (before) Program Size: 1820 (after) Execution Cost: CPU = 118337877782, MEM = 689554655 (before) Execution Cost: CPU = 118337877782, MEM = 689554655 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 35: Inlining ✅ @@ -361,13 +361,13 @@ Pass 40: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 41: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 41: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 1767 (before) Program Size: 1767 (after) Execution Cost: CPU = 117353973782, MEM = 683405255 (before) Execution Cost: CPU = 117353973782, MEM = 683405255 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 42: Inlining ✅ @@ -424,13 +424,13 @@ Pass 47: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 48: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 48: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 1764 (before) Program Size: 1764 (after) Execution Cost: CPU = 117353973782, MEM = 683405255 (before) Execution Cost: CPU = 117353973782, MEM = 683405255 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 49: Inlining ✅ @@ -487,13 +487,13 @@ Pass 54: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 55: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 55: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 1764 (before) Program Size: 1764 (after) Execution Cost: CPU = 117353973782, MEM = 683405255 (before) Execution Cost: CPU = 117353973782, MEM = 683405255 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 56: Inlining ✅ @@ -550,13 +550,13 @@ Pass 61: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 62: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 62: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 1764 (before) Program Size: 1764 (after) Execution Cost: CPU = 117353973782, MEM = 683405255 (before) Execution Cost: CPU = 117353973782, MEM = 683405255 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 63: Inlining ✅ @@ -613,13 +613,13 @@ Pass 68: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 69: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 69: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 1764 (before) Program Size: 1764 (after) Execution Cost: CPU = 117353973782, MEM = 683405255 (before) Execution Cost: CPU = 117353973782, MEM = 683405255 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 70: Inlining ✅ @@ -676,13 +676,13 @@ Pass 75: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 76: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 76: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 1764 (before) Program Size: 1764 (after) Execution Cost: CPU = 117353973782, MEM = 683405255 (before) Execution Cost: CPU = 117353973782, MEM = 683405255 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 77: Inlining ✅ @@ -739,13 +739,13 @@ Pass 82: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 83: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 83: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 1764 (before) Program Size: 1764 (after) Execution Cost: CPU = 117353973782, MEM = 683405255 (before) Execution Cost: CPU = 117353973782, MEM = 683405255 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 84: Inlining ✅ @@ -811,13 +811,13 @@ Pass 90: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 91: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 91: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 1773 (before) Program Size: 1773 (after) Execution Cost: CPU = 117353877782, MEM = 683404655 (before) Execution Cost: CPU = 117353877782, MEM = 683404655 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 92: Inlining ✅ @@ -883,13 +883,13 @@ Pass 98: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 99: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 99: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── Program Size: 1770 (before) Program Size: 1770 (after) Execution Cost: CPU = 117353829782, MEM = 683404355 (before) Execution Cost: CPU = 117353829782, MEM = 683404355 (after) - + Optimization sites: 0 ────────────────────────────────────────────────────── Pass 100: Inlining ✅ @@ -955,13 +955,13 @@ Pass 106: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 107: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 107: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── 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 108: Inlining ✅ @@ -1027,13 +1027,13 @@ Pass 114: Case-of-Case ⚠ (certifier unavailable) ────────────────────────────────────────────────────── -Pass 115: Case-Constr and Case-Constant Cancellation ⚠ (certifier unavailable) +Pass 115: Case-Constr and Case-Constant Cancellation ✅ ────────────────────────────────────────────────────── 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 116: Inlining ✅