diff --git a/plutus-conformance/agda/Spec.hs b/plutus-conformance/agda/Spec.hs index b8b6f0e44a2..2b49f482dbc 100644 --- a/plutus-conformance/agda/Spec.hs +++ b/plutus-conformance/agda/Spec.hs @@ -180,60 +180,6 @@ failingEvaluationTests = , "test-cases/uplc/evaluation/term/constant-case/unit/unit-01" , "test-cases/uplc/evaluation/term/constant-case/unit/unit-02" , "test-cases/uplc/evaluation/term/constant-case/unit/unit-03" - , -- The following are failing because the metatheory needs to be updated with - -- Value built-in functions - "test-cases/uplc/evaluation/builtin/constant/value/empty-value" - , "test-cases/uplc/evaluation/builtin/constant/value/max-currencyID-length" - , "test-cases/uplc/evaluation/builtin/constant/value/max-tokenID-length" - , "test-cases/uplc/evaluation/builtin/constant/value/no-overflow" - , "test-cases/uplc/evaluation/builtin/constant/value/no-underflow" - , "test-cases/uplc/evaluation/builtin/constant/value/value-ok-1" - , "test-cases/uplc/evaluation/builtin/constant/value/value-ok-2" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/multi-ccy-empty" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/multi-ccy-nonempty" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/multi-token" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/negative-empty" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/positive-empty" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/positive-nonempty" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/zero-positive" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/overflow" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/no-overflow" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/underflow" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/no-underflow" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/long-key-zero-1" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/long-key-zero-2" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/key-too-long-1" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/key-too-long-2" - , "test-cases/uplc/evaluation/builtin/semantics/lookupCoin/absent" - , "test-cases/uplc/evaluation/builtin/semantics/lookupCoin/present" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/cancel-01" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/cancel-02" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/combine" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/unitl" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/unitr" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/overflow" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/no-overflow" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/underflow" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/no-underflow" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/ccy-missing" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/pos-empty" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/neg-empty" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/multi-insufficient" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/multi-sufficient" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/neg-neg-eq" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/neg-neg-gt" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/neg-neg-lt" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/neg-pos" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/pos-neg" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/reflexive" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/token-missing" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/by-zero" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/by-pos" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/by-neg" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/overflow" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/underflow" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/no-overflow" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/no-underflow" , -- valueData and unValueData builtins "test-cases/uplc/evaluation/builtin/semantics/valueData/empty" , "test-cases/uplc/evaluation/builtin/semantics/valueData/single-entry" @@ -330,95 +276,6 @@ failingBudgetTests = , "test-cases/uplc/evaluation/term/constant-case/unit/unit-01" , "test-cases/uplc/evaluation/term/constant-case/unit/unit-02" , "test-cases/uplc/evaluation/term/constant-case/unit/unit-03" - , -- The following are failing because the metatheory needs to be updated with - -- Value built-in functions - "test-cases/uplc/evaluation/builtin/constant/value/empty-value" - , "test-cases/uplc/evaluation/builtin/constant/value/max-currencyID-length" - , "test-cases/uplc/evaluation/builtin/constant/value/max-tokenID-length" - , "test-cases/uplc/evaluation/builtin/constant/value/no-overflow" - , "test-cases/uplc/evaluation/builtin/constant/value/no-underflow" - , "test-cases/uplc/evaluation/builtin/constant/value/value-ok-1" - , "test-cases/uplc/evaluation/builtin/constant/value/value-ok-2" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/multi-ccy-empty" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/multi-ccy-nonempty" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/multi-token" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/negative-empty" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/positive-empty" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/positive-nonempty" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/zero-positive" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/overflow" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/no-overflow" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/underflow" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/no-underflow" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/long-key-zero-1" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/long-key-zero-2" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/key-too-long-1" - , "test-cases/uplc/evaluation/builtin/semantics/insertCoin/key-too-long-2" - , "test-cases/uplc/evaluation/builtin/semantics/lookupCoin/absent" - , "test-cases/uplc/evaluation/builtin/semantics/lookupCoin/present" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/cancel-01" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/cancel-02" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/combine" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/unitl" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/unitr" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/overflow" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/no-overflow" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/underflow" - , "test-cases/uplc/evaluation/builtin/semantics/unionValue/no-underflow" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/ccy-missing" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/pos-empty" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/neg-empty" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/multi-insufficient" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/multi-sufficient" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/neg-neg-eq" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/neg-neg-gt" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/neg-neg-lt" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/neg-pos" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/pos-neg" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/reflexive" - , "test-cases/uplc/evaluation/builtin/semantics/valueContains/token-missing" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/by-zero" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/by-pos" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/by-neg" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/overflow" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/underflow" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/no-overflow" - , "test-cases/uplc/evaluation/builtin/semantics/scaleValue/no-underflow" - , -- valueData and unValueData builtins - "test-cases/uplc/evaluation/builtin/semantics/valueData/empty" - , "test-cases/uplc/evaluation/builtin/semantics/valueData/single-entry" - , "test-cases/uplc/evaluation/builtin/semantics/valueData/multi-token" - , "test-cases/uplc/evaluation/builtin/semantics/valueData/multi-currency" - , "test-cases/uplc/evaluation/builtin/semantics/valueData/negative-quantity" - , "test-cases/uplc/evaluation/builtin/semantics/valueData/roundtrip-from-value" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/empty" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/single-entry" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/multi-token" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/multi-currency" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/negative-quantity" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/max-key-len" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/roundtrip-from-data" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/data-duplicate-tokens" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/data-duplicate-currencies" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/data-duplicate-currencies-cancel" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/data-duplicate-currencies-merge" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/data-zero-quantity" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/data-zero-sum" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/data-empty-tokens" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/data-unordered-currencies" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/data-unordered-tokens" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/non-map-integer" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/non-map-constr" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/non-map-list" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/non-map-bytes" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/currency-key-too-long" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/token-key-too-long" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/quantity-overflow" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/quantity-underflow" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/non-bytestring-currency" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/non-bytestring-token" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/non-integer-quantity" - , "test-cases/uplc/evaluation/builtin/semantics/unValueData/non-map-tokens" ] -- Run the tests: see Note [Evaluation with and without costing] above. diff --git a/plutus-metatheory/changelog.d/20260705_163047_4022046+basetunnel_metatheory_value.md b/plutus-metatheory/changelog.d/20260705_163047_4022046+basetunnel_metatheory_value.md new file mode 100644 index 00000000000..19ca994a7bc --- /dev/null +++ b/plutus-metatheory/changelog.d/20260705_163047_4022046+basetunnel_metatheory_value.md @@ -0,0 +1,41 @@ + + + +### Added + +- Postulated definitions for `Value` and its corresponding built-in functions + + + + + diff --git a/plutus-metatheory/plutus-metatheory.cabal b/plutus-metatheory/plutus-metatheory.cabal index 4ff1837e100..03d42d38285 100644 --- a/plutus-metatheory/plutus-metatheory.cabal +++ b/plutus-metatheory/plutus-metatheory.cabal @@ -79,6 +79,7 @@ library , base , bytestring , composition-prelude + , containers , deepseq , directory , extra diff --git a/plutus-metatheory/src/Algorithmic/CEK.lagda.md b/plutus-metatheory/src/Algorithmic/CEK.lagda.md index 006edddcd10..45aef15710d 100644 --- a/plutus-metatheory/src/Algorithmic/CEK.lagda.md +++ b/plutus-metatheory/src/Algorithmic/CEK.lagda.md @@ -36,7 +36,7 @@ open _⊢_ open _∋_ open import Algorithmic.RenamingSubstitution using (Sub;sub;exts;exts⋆;_[_];_[_]⋆) open import Builtin -open import Utils hiding (List;length) renaming (_,_ to _,,_) +open import Utils hiding (List;length;Value) renaming (_,_ to _,,_) open import Builtin.Constant.AtomicType open import Builtin.Constant.Type using (TyCon) @@ -267,6 +267,25 @@ BUILTIN unMapData (base $ V-con _) = inj₁ (con (ne (^ (atomic aData)))) BUILTIN unListData (base $ V-con (ListDATA x)) = inj₂ (V-con x) BUILTIN unListData (base $ V-con _) = inj₁ (con (ne (^ (atomic aData)))) BUILTIN serialiseData (base $ V-con d) = inj₂ (V-con (serialiseDATA d)) +BUILTIN insertCoin (base $ V-con ccy $ V-con tok $ V-con x $ V-con v) with insertCOIN ccy tok x v +... | just v' = inj₂ (V-con v') +... | nothing = inj₁ (con (ne (^ (atomic aValue)))) +BUILTIN lookupCoin (base $ V-con ccy $ V-con tok $ V-con v) = inj₂ (V-con (lookupCOIN ccy tok v)) +BUILTIN unionValue (base $ V-con v1 $ V-con v2) with unionVALUE v1 v2 +... | just v' = inj₂ (V-con v') +... | nothing = inj₁ (con (ne (^ (atomic aValue)))) +BUILTIN valueContains (base $ V-con v1 $ V-con v2) with valueCONTAINS v1 v2 +... | just b = inj₂ (V-con b) +... | nothing = inj₁ (con (ne (^ (atomic aValue)))) +BUILTIN scaleValue (base $ V-con n $ V-con v) with scaleVALUE n v +... | just v' = inj₂ (V-con v') +... | nothing = inj₁ (con (ne (^ (atomic aValue)))) +BUILTIN valueData (base $ V-con v) with valueDATA v +... | just d = inj₂ (V-con d) +... | nothing = inj₁ (con (ne (^ (atomic aValue)))) +BUILTIN unValueData (base $ V-con d) with unValueDATA d +... | nothing = inj₁ (con (ne (^ (atomic aValue)))) +... | just v = inj₂ (V-con v) BUILTIN mkNilData (base $ V-con _) = inj₂ (V-con []) BUILTIN mkNilPairData (base $ V-con _) = inj₂ (V-con []) BUILTIN chooseUnit (Λ̂ A $ x $ V-con _) = inj₂ x diff --git a/plutus-metatheory/src/Algorithmic/ReductionEC.lagda.md b/plutus-metatheory/src/Algorithmic/ReductionEC.lagda.md index bc90d7c7228..baeb236c190 100644 --- a/plutus-metatheory/src/Algorithmic/ReductionEC.lagda.md +++ b/plutus-metatheory/src/Algorithmic/ReductionEC.lagda.md @@ -29,7 +29,7 @@ open import Relation.Binary.PropositionalEquality open import Relation.Binary.HeterogeneousEquality using (_≅_;refl;≅-to-≡) -open import Utils hiding (List;length;map) +open import Utils hiding (List;length;map;Value) open import Utils.List open import Type using (Ctx⋆;∅;_,⋆_;_⊢⋆_;_∋⋆_;Z) open _⊢⋆_ diff --git a/plutus-metatheory/src/Algorithmic/ReductionEC/Determinism.lagda.md b/plutus-metatheory/src/Algorithmic/ReductionEC/Determinism.lagda.md index a294138eb37..eaa8b6f4f45 100644 --- a/plutus-metatheory/src/Algorithmic/ReductionEC/Determinism.lagda.md +++ b/plutus-metatheory/src/Algorithmic/ReductionEC/Determinism.lagda.md @@ -21,7 +21,7 @@ open import Relation.Binary.PropositionalEquality open import Relation.Binary.HeterogeneousEquality using (_≅_;refl;≅-to-≡) -open import Utils hiding (_×_;List) +open import Utils hiding (_×_;List;Value) open import Utils.List open import Type using (Ctx⋆;∅;_,⋆_;_⊢⋆_;_∋⋆_;Z) open _⊢⋆_ diff --git a/plutus-metatheory/src/Builtin.lagda.md b/plutus-metatheory/src/Builtin.lagda.md index 0940d0c72a2..7f91a4062d0 100644 --- a/plutus-metatheory/src/Builtin.lagda.md +++ b/plutus-metatheory/src/Builtin.lagda.md @@ -34,10 +34,10 @@ open import Relation.Binary using (DecidableEquality) open import Data.Bool using (Bool) open import Agda.Builtin.Int using (Int) open import Agda.Builtin.String using (String) -open import Utils using (ByteString;Maybe;DATA;Bls12-381-G1-Element;Bls12-381-G2-Element;Bls12-381-MlResult;♯) +open import Utils using (ByteString;Maybe;DATA;Value;Bls12-381-G1-Element;Bls12-381-G2-Element;Bls12-381-MlResult;♯) import Utils as U open import Builtin.Signature using (Sig;sig;_⊢♯;_/_⊢⋆;Args) - using (integer;string;bytestring;unit;bool;pdata;bls12-381-g1-element;bls12-381-g2-element;bls12-381-mlresult) + using (integer;string;bytestring;unit;bool;pdata;value;bls12-381-g1-element;bls12-381-g2-element;bls12-381-mlresult) open _⊢♯ renaming (pair to bpair; list to blist; array to barray) open _/_⊢⋆ open import Builtin.Constant.AtomicType @@ -99,9 +99,9 @@ data Builtin : Set where tailList : Builtin nullList : Builtin -- Arrays - lengthOfArray : Builtin - listToArray : Builtin - indexArray : Builtin + lengthOfArray : Builtin + listToArray : Builtin + indexArray : Builtin -- Data chooseData : Builtin constrData : Builtin @@ -116,6 +116,14 @@ data Builtin : Set where unBData : Builtin equalsData : Builtin serialiseData : Builtin + -- Value + insertCoin : Builtin + lookupCoin : Builtin + unionValue : Builtin + valueContains : Builtin + scaleValue : Builtin + valueData : Builtin + unValueData : Builtin -- Misc constructors mkPairData : Builtin mkNilData : Builtin @@ -305,9 +313,9 @@ sig n⋆ n♯ (t₃ ∷ t₂ ∷ t₁) tᵣ signature headList = ∀a [ list a ]⟶ a ↑ signature tailList = ∀a [ list a ]⟶ list a signature nullList = ∀a [ list a ]⟶ bool ↑ - signature lengthOfArray = ∀a [ array a ]⟶ integer ↑ - signature listToArray = ∀a [ list a ]⟶ array a - signature indexArray = ∀a [ array a , integer ↑ ]⟶ a ↑ + signature lengthOfArray = ∀a [ array a ]⟶ integer ↑ + signature listToArray = ∀a [ list a ]⟶ array a + signature indexArray = ∀a [ array a , integer ↑ ]⟶ a ↑ signature chooseData = ∀A [ pdata ↑ , A , A , A , A , A ]⟶ A signature constrData = ∙ [ integer ↑ , list pdata ]⟶ pdata ↑ signature mapData = ∙ [ list (bpair pdata pdata) ]⟶ pdata ↑ @@ -324,6 +332,13 @@ sig n⋆ n♯ (t₃ ∷ t₂ ∷ t₁) tᵣ signature mkPairData = ∙ [ pdata ↑ , pdata ↑ ]⟶ pair pdata pdata signature mkNilData = ∙ [ unit ↑ ]⟶ list pdata signature mkNilPairData = ∙ [ unit ↑ ]⟶ list (bpair pdata pdata) + signature insertCoin = ∙ [ bytestring ↑ , bytestring ↑ , integer ↑ , value ↑ ]⟶ value ↑ + signature lookupCoin = ∙ [ bytestring ↑ , bytestring ↑ , value ↑ ]⟶ integer ↑ + signature unionValue = ∙ [ value ↑ , value ↑ ]⟶ value ↑ + signature valueContains = ∙ [ value ↑ , value ↑ ]⟶ bool ↑ + signature scaleValue = ∙ [ integer ↑ , value ↑ ]⟶ value ↑ + signature valueData = ∙ [ value ↑ ]⟶ pdata ↑ + signature unValueData = ∙ [ pdata ↑ ]⟶ value ↑ signature bls12-381-G1-add = ∙ [ bls12-381-g1-element ↑ , bls12-381-g1-element ↑ ]⟶ bls12-381-g1-element ↑ signature bls12-381-G1-neg = ∙ [ bls12-381-g1-element ↑ ]⟶ bls12-381-g1-element ↑ signature bls12-381-G1-scalarMul = ∙ [ integer ↑ , bls12-381-g1-element ↑ ]⟶ bls12-381-g1-element ↑ @@ -432,6 +447,13 @@ Each Agda built-in name must be mapped to a Haskell name. | UnBData | EqualsData | SerialiseData + | InsertCoin + | LookupCoin + | UnionValue + | ValueContains + | ScaleValue + | ValueData + | UnValueData | MkPairData | MkNilData | MkNilPairData @@ -506,6 +528,13 @@ postulate ENCODEUTF8 : String → ByteString DECODEUTF8 : ByteString → Maybe String serialiseDATA : DATA → ByteString + insertCOIN : ByteString → ByteString → Int → Value → Maybe Value + lookupCOIN : ByteString → ByteString → Value → Int + unionVALUE : Value → Value → Maybe Value + valueCONTAINS : Value → Value → Maybe Bool + scaleVALUE : Int → Value → Maybe Value + valueDATA : Value → Maybe DATA + unValueDATA : DATA → Maybe Value BLS12-381-G1-add : Bls12-381-G1-Element → Bls12-381-G1-Element → Bls12-381-G1-Element BLS12-381-G1-neg : Bls12-381-G1-Element → Bls12-381-G1-Element BLS12-381-G1-scalarMul : Int → Bls12-381-G1-Element → Bls12-381-G1-Element @@ -620,6 +649,16 @@ postulate {-# COMPILE GHC ENCODEUTF8 = encodeUtf8 #-} {-# COMPILE GHC DECODEUTF8 = eitherToMaybe . decodeUtf8' #-} +{-# FOREIGN GHC import PlutusCore.Value as Value #-} + +{-# COMPILE GHC insertCOIN = \ccy tok x v -> builtinResultToMaybe $ Value.insertCoin ccy tok x v #-} +{-# COMPILE GHC lookupCOIN = Value.lookupCoin #-} +{-# COMPILE GHC unionVALUE = \v1 v2 -> builtinResultToMaybe $ Value.unionValue v1 v2 #-} +{-# COMPILE GHC valueCONTAINS = \v1 v2 -> builtinResultToMaybe $ Value.valueContains v1 v2 #-} +{-# COMPILE GHC scaleVALUE = \n v -> builtinResultToMaybe $ Value.scaleValue n v #-} +{-# COMPILE GHC valueDATA = \v -> builtinResultToMaybe $ Value.valueData v #-} +{-# COMPILE GHC unValueDATA = \d -> builtinResultToMaybe $ Value.unValueData d #-} + {-# FOREIGN GHC import PlutusCore.Crypto.BLS12_381.G1 qualified as G1 #-} {-# COMPILE GHC BLS12-381-G1-add = G1.add #-} {-# COMPILE GHC BLS12-381-G1-neg = G1.neg #-} diff --git a/plutus-metatheory/src/Builtin/Constant/AtomicType.lagda.md b/plutus-metatheory/src/Builtin/Constant/AtomicType.lagda.md index 0fd5aa49e22..3b788b2ccee 100644 --- a/plutus-metatheory/src/Builtin/Constant/AtomicType.lagda.md +++ b/plutus-metatheory/src/Builtin/Constant/AtomicType.lagda.md @@ -16,7 +16,7 @@ open import Data.String using (String) open import Data.Unit using (⊤) open import Relation.Binary using (DecidableEquality) -open import Utils using (ByteString;DATA;Bls12-381-G1-Element;Bls12-381-G2-Element;Bls12-381-MlResult) +open import Utils using (ByteString;DATA;Bls12-381-G1-Element;Bls12-381-G2-Element;Bls12-381-MlResult;Value) open import Utils.Reflection using (defDec) ``` @@ -33,12 +33,13 @@ data AtomicTyCon : Set where aUnit : AtomicTyCon aBool : AtomicTyCon aData : AtomicTyCon + aValue : AtomicTyCon aBls12-381-g1-element : AtomicTyCon aBls12-381-g2-element : AtomicTyCon aBls12-381-mlresult : AtomicTyCon {-# FOREIGN GHC import Raw #-} -{-# COMPILE GHC AtomicTyCon = data AtomicTyCon (ATyConInt | ATyConBS | ATyConStr | ATyConUnit | ATyConBool | ATyConData | ATyConBLS12_381_G1_Element | ATyConBLS12_381_G2_Element | ATyConBLS12_381_MlResult) #-} +{-# COMPILE GHC AtomicTyCon = data AtomicTyCon (ATyConInt | ATyConBS | ATyConStr | ATyConUnit | ATyConBool | ATyConData | ATyConValue | ATyConBLS12_381_G1_Element | ATyConBLS12_381_G2_Element | ATyConBLS12_381_MlResult) #-} ``` @@ -59,6 +60,7 @@ unquoteDef decAtomicTyCon = defDec (quote AtomicTyCon) decAtomicTyCon ⟦ aUnit ⟧at = ⊤ ⟦ aBool ⟧at = Bool ⟦ aData ⟧at = DATA +⟦ aValue ⟧at = Value ⟦ aBls12-381-g1-element ⟧at = Bls12-381-G1-Element ⟦ aBls12-381-g2-element ⟧at = Bls12-381-G2-Element ⟦ aBls12-381-mlresult ⟧at = Bls12-381-MlResult diff --git a/plutus-metatheory/src/Builtin/Constant/Type.lagda.md b/plutus-metatheory/src/Builtin/Constant/Type.lagda.md index 8c669f180d2..4f4c5fd0d63 100644 --- a/plutus-metatheory/src/Builtin/Constant/Type.lagda.md +++ b/plutus-metatheory/src/Builtin/Constant/Type.lagda.md @@ -20,7 +20,7 @@ open import Utils using (Kind;♯;_⇒_) open import Builtin.Constant.AtomicType public ``` -Type constants are either atomic, or pair, or lists. +Type constants are either atomic, lists, arrays or pairs. They are indexed by Kind. The use of higher-order constants like list and pair, @@ -34,6 +34,6 @@ The use of kind ♯ limits the types for which we can construct lists and pairs. data TyCon : Kind → Set where atomic : AtomicTyCon → TyCon ♯ list : TyCon (♯ ⇒ ♯) - array : TyCon (♯ ⇒ ♯) + array : TyCon (♯ ⇒ ♯) pair : TyCon (♯ ⇒ (♯ ⇒ ♯)) ``` diff --git a/plutus-metatheory/src/Builtin/Signature.lagda.md b/plutus-metatheory/src/Builtin/Signature.lagda.md index 31610e5a8c6..edf31350b0d 100644 --- a/plutus-metatheory/src/Builtin/Signature.lagda.md +++ b/plutus-metatheory/src/Builtin/Signature.lagda.md @@ -94,6 +94,7 @@ pattern string = atomic aString pattern unit = atomic aUnit pattern bool = atomic aBool pattern pdata = atomic aData +pattern value = atomic aValue pattern bls12-381-g1-element = atomic aBls12-381-g1-element pattern bls12-381-g2-element = atomic aBls12-381-g2-element pattern bls12-381-mlresult = atomic aBls12-381-mlresult diff --git a/plutus-metatheory/src/Cost.lagda.md b/plutus-metatheory/src/Cost.lagda.md index cb1f7e0dbd7..2af06f0b8d4 100644 --- a/plutus-metatheory/src/Cost.lagda.md +++ b/plutus-metatheory/src/Cost.lagda.md @@ -17,7 +17,7 @@ module Cost where ``` open import Agda.Builtin.Unit using (tt) -open import Function using (_∘_) +open import Function using (_∘_;_$_) open import Data.Bool using (if_then_else_) open import Data.Fin using (Fin;zero;suc) open import Data.Nat using (ℕ;zero;suc;_+_) @@ -30,7 +30,7 @@ import Data.List as L open import Data.Maybe using (Maybe;just;nothing;maybe′;fromMaybe) renaming (map to mapMaybe; _>>=_ to _>>=m_ ) open import Data.Product using () renaming (_,_ to _,,_) open import Data.String using (String;_++_;padLeft;padRight;length) -open import Data.Vec using (Vec;replicate;[];_∷_;foldr) +open import Data.Vec using (Vec;replicate;[];_∷_;foldr;zipWith) open import Algebra using (IsMonoid) open import Relation.Nullary using (yes;no) open import Relation.Binary.PropositionalEquality using (_≡_;refl;isEquivalence;cong₂) @@ -51,7 +51,7 @@ open import Builtin.Constant.AtomicType using (AtomicTyCon) open AtomicTyCon open import Cost.Base -open import Cost.Size using (defaultValueMeasure) +open import Cost.Size open import Cost.Model open import Cost.Raw open import Untyped.CEK using (Value;V-con) @@ -100,12 +100,27 @@ isMonoidExBudget = record { ## Cost of executing a builtin -To calculate the cost of a builtin we obtain the corresponding builtin model, -and run the cpu and memory model using the vector of argument sizes. +To calculate the cost of a builtin we first define what measure functions to use +for its arguments. A few built-ins require non-standard measures: + +``` +measures : (b : Builtin) → Vec (Value → CostingNat) (arity b) +measures insertCoin = defaultValueMeasure ∷ defaultValueMeasure ∷ defaultValueMeasure ∷ valueMaxDepthMeasure ∷ [] +measures lookupCoin = defaultValueMeasure ∷ defaultValueMeasure ∷ valueMaxDepthMeasure ∷ [] +measures unValueData = dataNodeCountMeasure ∷ [] +measures integerToByteString = defaultValueMeasure ∷ numBytesAsWords ∷ defaultValueMeasure ∷ [] +measures _ = replicate _ defaultValueMeasure +``` + +obtain the corresponding builtin model, and run the cpu and memory model using +the vector of argument sizes. ``` builtinCost : (b : Builtin) → BuiltinModel (arity b) → Vec Value (arity b) → ExBudget -builtinCost b bc cs = mkExBudget (runModel (costingCPU bc) cs) (runModel (costingMem bc) cs) +builtinCost b bc cs = mkExBudget (runModel (costingCPU bc) sizes) (runModel (costingMem bc) sizes) + where + sizes : Vec CostingNat (arity b) + sizes = zipWith _$_ (measures b) cs ``` diff --git a/plutus-metatheory/src/Cost/Model.lagda.md b/plutus-metatheory/src/Cost/Model.lagda.md index 9bb40a7cff4..9dc8e8c1b50 100644 --- a/plutus-metatheory/src/Cost/Model.lagda.md +++ b/plutus-metatheory/src/Cost/Model.lagda.md @@ -114,64 +114,47 @@ minimum (a ∷ xs) = foldr _ _⊓_ a xs Given a model and the sizes of the arguments we can compute a cost. ``` -runModel : ∀{n} → CostingModel n → Vec Value n → CostingNat +runModel : ∀{n} → CostingModel n → Vec CostingNat n → CostingNat runModel (constantCost x) _ = x -runModel (linearCostIn n i s) xs = i + s * sizeOf (lookup xs n) -runModel (quadraticCostIn1 n c0 c1 c2) xs = let x = sizeOf (lookup xs n) in c0 + c1 * x + c2 * x * x +runModel (linearCostIn n i s) xs = i + s * lookup xs n +runModel (quadraticCostIn1 n c0 c1 c2) xs = let x = lookup xs n in c0 + c1 * x + c2 * x * x runModel (quadraticCostIn2 m n min c00 c10 c01 c20 c11 c02) xs = - let x = sizeOf (lookup xs m) - y = sizeOf (lookup xs n) + let x = lookup xs m + y = lookup xs n r = c00 + c10 * x + c01 * y + c20 * x * x + c11 * x * y + c02 * y * y in min ⊔ r runModel (withInteractionIn m n c00 c10 c01 c11) xs = - let x = sizeOf (lookup xs m) - y = sizeOf (lookup xs n) + let x = lookup xs m + y = lookup xs n in c00 + c10 * x + c01 * y + c11 * x * y -runModel (addedSizes i s) xs = i + s * (sum (map sizeOf xs)) -runModel (multipliedSizes i s) xs = i + s * (prod (map sizeOf xs)) -runModel (minSize i s) xs = i + s * minimum (map sizeOf xs) -runModel (maxSize i s) xs = i + s * maximum (map sizeOf xs) -runModel (twoArgumentsLinearInYAndZ i s₁ s₂) (_ ∷ y ∷ z ∷ []) = - let a = sizeOf y - b = sizeOf z - in i + s₁ * a + s₂ * b -runModel (twoArgumentsLinearInMaxYZ i s) (_ ∷ y ∷ z ∷ []) = - let a = sizeOf y - b = sizeOf z - in i + s * maximum (a ∷ b ∷ []) -runModel (twoArgumentsSubtractedSizes i s min) (x ∷ y ∷ []) = - let a = sizeOf x - b = sizeOf y - in i + s * (min ⊔ (a ∸ b)) -runModel (twoArgumentsConstAboveDiagonal c m) (x ∷ y ∷ []) = - let a = sizeOf x - b = sizeOf y - in if a <ᵇ b - then c - else runModel m (x ∷ y ∷ []) -runModel (twoArgumentsConstBelowDiagonal c m) (x ∷ y ∷ []) = - let a = sizeOf x - b = sizeOf y - in if b <ᵇ a - then c - else runModel m (x ∷ y ∷ []) -runModel (twoArgumentsConstOffDiagonal c m) (x ∷ y ∷ []) = - let a = sizeOf x - b = sizeOf y - in if not (a ≡ᵇ b) - then c - else runModel m (x ∷ y ∷ []) -runModel (twoArgumentsAboveAndBelowDiagonal _ m) (x ∷ y ∷ []) = - let a = sizeOf x - b = sizeOf y - in if b <ᵇ a - then runModel m (x ∷ y ∷ []) - else runModel m (y ∷ x ∷ []) -runModel (threeArgumentsExpModCost c00 c11 c12) (x ∷ y ∷ z ∷ []) = - let aa = sizeOf x - ee = sizeOf y - mm = sizeOf z - cost0 = c00 + c11 * ee * mm + c12 * ee * mm * mm +runModel (addedSizes i s) xs = i + s * (sum xs) +runModel (multipliedSizes i s) xs = i + s * (prod xs) +runModel (minSize i s) xs = i + s * minimum xs +runModel (maxSize i s) xs = i + s * maximum xs +runModel (twoArgumentsLinearInYAndZ i s₁ s₂) (_ ∷ a ∷ b ∷ []) = + i + s₁ * a + s₂ * b +runModel (twoArgumentsLinearInMaxYZ i s) (_ ∷ a ∷ b ∷ []) = + i + s * maximum (a ∷ b ∷ []) +runModel (twoArgumentsSubtractedSizes i s min) (a ∷ b ∷ []) = + i + s * (min ⊔ (a ∸ b)) +runModel (twoArgumentsConstAboveDiagonal c m) (a ∷ b ∷ []) = + if a <ᵇ b + then c + else runModel m (a ∷ b ∷ []) +runModel (twoArgumentsConstBelowDiagonal c m) (a ∷ b ∷ []) = + if b <ᵇ a + then c + else runModel m (a ∷ b ∷ []) +runModel (twoArgumentsConstOffDiagonal c m) (a ∷ b ∷ []) = + if not (a ≡ᵇ b) + then c + else runModel m (a ∷ b ∷ []) +runModel (twoArgumentsAboveAndBelowDiagonal _ m) (a ∷ b ∷ []) = + if b <ᵇ a + then runModel m (a ∷ b ∷ []) + else runModel m (b ∷ a ∷ []) +runModel (threeArgumentsExpModCost c00 c11 c12) (aa ∷ ee ∷ mm ∷ []) = + let cost0 = c00 + c11 * ee * mm + c12 * ee * mm * mm in if mm <ᵇ aa then cost0 + (cost0 / 2) else cost0 @@ -179,9 +162,8 @@ runModel (threeArgumentsExpModCost c00 c11 c12) (x ∷ y ∷ z ∷ []) = -- ^ THIS IS INCOMPLETE: the real costing function branches if a > 5*c; however we measure -- sizes in bytes instead of words for expModInteger, so it gives incorrect results anyway. runModel (literalCostIn n m) xs with lookup xs n -... | V-con (atomic aInteger) (pos (suc n)) = (n / 8) + 1 - --only uses the literal size if positive integer. -... | _ = runModel m xs +... | suc n = suc n +... | zero = runModel m xs ``` ## Convert from Raw Model @@ -189,38 +171,79 @@ runModel (literalCostIn n m) xs with lookup xs n May fail if the model doesn't correspond to the number of arguments. ``` -convertRawModel : ∀{n} → RawModel → Maybe (CostingModel n) -convertRawModel (ConstantCost c) = just (constantCost c) -convertRawModel (AddedSizes (mkLF intercept slope)) = just (addedSizes intercept slope) -convertRawModel (MultipliedSizes (mkLF intercept slope)) = just (multipliedSizes intercept slope) -convertRawModel {suc n} (MinSize (mkLF intercept slope)) = just (minSize intercept slope) -convertRawModel {suc n} (MaxSize (mkLF intercept slope)) = just (maxSize intercept slope) -convertRawModel {suc n} (LinearInX (mkLF intercept slope)) = just (linearCostIn zero intercept slope) -convertRawModel {suc (suc n)} (LinearInY (mkLF intercept slope)) = just (linearCostIn (suc zero) intercept slope) -convertRawModel {3} (LinearInYAndZ (mkLF2 intercept slope1 slope2)) = - just (twoArgumentsLinearInYAndZ intercept slope1 slope2) -convertRawModel {suc (suc n)} (LinearInY2 (mkLF intercept slope) _) = just (linearCostIn (suc zero) intercept slope) -convertRawModel {3} (LinearInMaxYZ (mkLF intercept slope)) = just (twoArgumentsLinearInMaxYZ intercept slope) -convertRawModel {suc (suc n)} (QuadraticInX (mkQF1 c0 c1 c2)) = just (quadraticCostIn1 zero c0 c1 c2) -convertRawModel {suc (suc n)} (QuadraticInY (mkQF1 c0 c1 c2)) = just (quadraticCostIn1 (suc zero) c0 c1 c2) -convertRawModel {suc (suc (suc n))}(LinearInZ (mkLF intercept slope)) = just (linearCostIn (suc (suc zero)) intercept slope) -convertRawModel {suc (suc (suc (suc n)))} (LinearInU (mkLF intercept slope)) = just (linearCostIn (suc (suc (suc zero))) intercept slope) -convertRawModel {suc (suc (suc n))} (QuadraticInZ (mkQF1 c0 c1 c2)) = just (quadraticCostIn1 (suc (suc zero)) c0 c1 c2) -convertRawModel {suc (suc n)} (QuadraticInXAndY (mkQF2 minVal c00 c10 c01 c20 c11 c02)) = - just (quadraticCostIn2 zero (suc zero) minVal c00 c10 c01 c20 c11 c02) -convertRawModel {suc (suc (suc n))} (LiteralInYOrLinearInZ (mkLF intercept slope)) = - just (literalCostIn (suc zero) (linearCostIn (suc (suc zero)) intercept slope)) -convertRawModel {2} (SubtractedSizes (mkLF intercept slope) c) = just (twoArgumentsSubtractedSizes intercept slope c) -convertRawModel {2} (ConstAboveDiagonal c m) = mapMaybe (twoArgumentsConstAboveDiagonal c) (convertRawModel m) -convertRawModel {2} (ConstBelowDiagonal c m) = mapMaybe (twoArgumentsConstBelowDiagonal c) (convertRawModel m) -convertRawModel {2} (ConstOffDiagonal c m) = mapMaybe (twoArgumentsConstOffDiagonal c) (convertRawModel m) -convertRawModel {2} (AboveAndBelowDiagonal c m) = mapMaybe (twoArgumentsAboveAndBelowDiagonal c) (convertRawModel m) -convertRawModel {3} (ExpModCost (mkExpModCostingFunction c00 c11 c12)) = just (threeArgumentsExpModCost c00 c11 c12) -convertRawModel {suc (suc n)} (WithInteractionInXAndY (mkWI c00 c10 c01 c11)) = just (withInteractionIn zero (suc zero) c00 c10 c01 c11) -convertRawModel _ = nothing +convertRawModel : RawModel → ∀ n → Maybe (CostingModel n) +convertRawModel (ConstantCost c) _ = just (constantCost c) +convertRawModel (AddedSizes (mkLF intercept slope)) _ = just (addedSizes intercept slope) +convertRawModel (MultipliedSizes (mkLF intercept slope)) _ = just (multipliedSizes intercept slope) +convertRawModel (MinSize (mkLF intercept slope)) = λ where + (suc n) → just (minSize intercept slope) + _ → nothing +convertRawModel (MaxSize (mkLF intercept slope)) = λ where + (suc n) → just (maxSize intercept slope) + _ → nothing +convertRawModel (LinearInX (mkLF intercept slope)) = λ where + (suc n) → just (linearCostIn zero intercept slope) + _ → nothing +convertRawModel (LinearInY (mkLF intercept slope)) = λ where + (suc (suc n)) → just (linearCostIn (suc zero) intercept slope) + _ → nothing +convertRawModel (LinearInYAndZ (mkLF2 intercept slope1 slope2)) = λ where + 3 → just (twoArgumentsLinearInYAndZ intercept slope1 slope2) + _ → nothing +convertRawModel (LinearInY2 (mkLF intercept slope) _) = λ where + (suc (suc n)) → just (linearCostIn (suc zero) intercept slope) + _ → nothing +convertRawModel (LinearInMaxYZ (mkLF intercept slope)) = λ where + 3 → just (twoArgumentsLinearInMaxYZ intercept slope) + _ → nothing +convertRawModel (QuadraticInX (mkQF1 c0 c1 c2)) = λ where + (suc n) → just (quadraticCostIn1 zero c0 c1 c2) + _ → nothing +convertRawModel (QuadraticInY (mkQF1 c0 c1 c2)) = λ where + (suc (suc n)) → just (quadraticCostIn1 (suc zero) c0 c1 c2) + _ → nothing +convertRawModel (LinearInZ (mkLF intercept slope)) = λ where + (suc (suc (suc n))) → just (linearCostIn (suc (suc zero)) intercept slope) + _ → nothing +convertRawModel (LinearInU (mkLF intercept slope)) = λ where + (suc (suc (suc (suc n)))) → just (linearCostIn (suc (suc (suc zero))) intercept slope) + _ → nothing +convertRawModel (QuadraticInZ (mkQF1 c0 c1 c2)) = λ where + (suc (suc (suc n))) → just (quadraticCostIn1 (suc (suc zero)) c0 c1 c2) + _ → nothing +convertRawModel (QuadraticInXAndY (mkQF2 minVal c00 c10 c01 c20 c11 c02)) = λ where + (suc (suc n)) → just (quadraticCostIn2 zero (suc zero) minVal c00 c10 c01 c20 c11 c02) + _ → nothing +convertRawModel (LiteralInYOrLinearInZ (mkLF intercept slope)) = λ where + (suc (suc (suc n))) → just (literalCostIn (suc zero) (linearCostIn (suc (suc zero)) intercept slope)) + _ → nothing +convertRawModel (SubtractedSizes (mkLF intercept slope) c) = λ where + 2 → just (twoArgumentsSubtractedSizes intercept slope c) + _ → nothing +convertRawModel (ConstAboveDiagonal c m) = λ where + 2 → mapMaybe (twoArgumentsConstAboveDiagonal c) (convertRawModel m _) + _ → nothing +convertRawModel (ConstBelowDiagonal c m) = λ where + 2 → mapMaybe (twoArgumentsConstBelowDiagonal c) (convertRawModel m _) + _ → nothing +convertRawModel (ConstOffDiagonal c m) = λ where + 2 → mapMaybe (twoArgumentsConstOffDiagonal c) (convertRawModel m _) + _ → nothing +convertRawModel (AboveAndBelowDiagonal c m) = λ where + 2 → mapMaybe (twoArgumentsAboveAndBelowDiagonal c) (convertRawModel m _) + _ → nothing +convertRawModel (ExpModCost (mkExpModCostingFunction c00 c11 c12)) = λ where + 3 → just (threeArgumentsExpModCost c00 c11 c12) + _ → nothing +convertRawModel (WithInteractionInXAndY (mkWI c00 c10 c01 c11)) = λ where + (suc (suc n)) → just (withInteractionIn zero (suc zero) c00 c10 c01 c11) + _ → nothing +convertRawModel (LinearInXAndY (mkLF2 intercept slope1 slope2)) = λ where + (suc (suc n)) → just (withInteractionIn zero (suc zero) intercept slope1 slope2 0) + _ → nothing convertCpuAndMemoryModel : ∀{n} → CpuAndMemoryModel → Maybe (BuiltinModel n) -convertCpuAndMemoryModel (mkCpuAndMemoryModel cpuModel memoryModel) with convertRawModel cpuModel | convertRawModel memoryModel +convertCpuAndMemoryModel (mkCpuAndMemoryModel cpuModel memoryModel) with convertRawModel cpuModel _ | convertRawModel memoryModel _ ... | just cm | just mm = just (record { costingCPU = cm ; costingMem = mm }) ... | _ | _ = nothing ``` diff --git a/plutus-metatheory/src/Cost/Size.lagda.md b/plutus-metatheory/src/Cost/Size.lagda.md index a85920dc8d7..8fd39f35317 100644 --- a/plutus-metatheory/src/Cost/Size.lagda.md +++ b/plutus-metatheory/src/Cost/Size.lagda.md @@ -15,6 +15,9 @@ module Cost.Size where open import Data.Bool using (Bool) open import Data.Unit using (⊤) open import Data.Nat using (ℕ;_+_) +open import Data.Nat using (ℕ;zero;suc;_+_) +open import Data.Nat.DivMod using (_/_) +open import Agda.Builtin.Int using (pos) open import Data.Integer using (ℤ) open import Data.String using (String) @@ -41,9 +44,12 @@ postulate g1ElementSize : Utils.Bls12-381-G1-Element → CostingNat postulate g2ElementSize : Utils.Bls12-381-G2-Element → CostingNat postulate mlResultElementSize : Utils.Bls12-381-MlResult → CostingNat postulate dataSize : DATA → CostingNat +postulate dataNodeCount : DATA → CostingNat postulate boolSize : Bool → CostingNat postulate unitSize : ⊤ → CostingNat postulate stringSize : String → CostingNat +postulate valueSize : Utils.Value → CostingNat +postulate valueMaxDepth : Utils.Value → CostingNat {-# FOREIGN GHC import PlutusCore.Evaluation.Machine.ExMemoryUsage #-} {-# FOREIGN GHC import PlutusCore.Evaluation.Machine.CostStream #-} @@ -55,9 +61,12 @@ postulate stringSize : String → CostingNat {-# COMPILE GHC g2ElementSize = size #-} {-# COMPILE GHC mlResultElementSize = size #-} {-# COMPILE GHC dataSize = size #-} +{-# COMPILE GHC dataNodeCount = size . DataNodeCount #-} {-# COMPILE GHC boolSize = size #-} {-# COMPILE GHC unitSize = size #-} {-# COMPILE GHC stringSize = size #-} +{-# COMPILE GHC valueSize = size #-} +{-# COMPILE GHC valueMaxDepth = size . ValueMaxDepth #-} ``` For each constant we return the corresponding size. @@ -71,6 +80,7 @@ defaultConstantMeasure (tmCon (atomic aString) x) = stringSize x defaultConstantMeasure (tmCon (atomic aUnit) x) = unitSize x defaultConstantMeasure (tmCon (atomic aBool) x) = boolSize x defaultConstantMeasure (tmCon (atomic aData) d) = dataSize d +defaultConstantMeasure (tmCon (atomic aValue) v) = valueSize v defaultConstantMeasure (tmCon (atomic aBls12-381-g1-element) x) = g1ElementSize x defaultConstantMeasure (tmCon (atomic aBls12-381-g2-element) x) = g2ElementSize x defaultConstantMeasure (tmCon (atomic aBls12-381-mlresult) x) = mlResultElementSize x @@ -88,3 +98,20 @@ defaultValueMeasure : Value → CostingNat defaultValueMeasure (V-con ty x) = defaultConstantMeasure (tmCon ty x) defaultValueMeasure _ = 0 ``` + +Non-standard measures: + +``` +valueMaxDepthMeasure : Value → CostingNat +valueMaxDepthMeasure (V-con (atomic aValue) v) = valueMaxDepth v +valueMaxDepthMeasure _ = 0 + +dataNodeCountMeasure : Value → CostingNat +dataNodeCountMeasure (V-con (atomic aData) d) = dataNodeCount d +dataNodeCountMeasure _ = 0 + +numBytesAsWords : Value → CostingNat +numBytesAsWords (V-con (atomic aInteger) (pos (suc n))) = (n / 8) + 1 +numBytesAsWords _ = 0 + +``` diff --git a/plutus-metatheory/src/FFI/AgdaUnparse.hs b/plutus-metatheory/src/FFI/AgdaUnparse.hs index c6729c9f8f9..69a864614c4 100644 --- a/plutus-metatheory/src/FFI/AgdaUnparse.hs +++ b/plutus-metatheory/src/FFI/AgdaUnparse.hs @@ -6,6 +6,7 @@ module FFI.AgdaUnparse where import Data.ByteString (ByteString) import Data.List.NonEmptySep +import Data.Map.Strict qualified as Map (Map, toList) import Data.Proxy import Data.Text (Text) import Data.Text qualified as T @@ -17,7 +18,8 @@ import PlutusCore.Crypto.BLS12_381.G2 qualified as BLS12_381.G2 import PlutusCore.Crypto.BLS12_381.Pairing qualified as BLS12_381.Pairing import PlutusCore.Data (Data) import PlutusCore.Data qualified as Data -import PlutusCore.Value (Value) +import PlutusCore.Value (Value, unK, unQuantity) +import PlutusCore.Value qualified as Value import PlutusPrelude import Prettyprinter import Prettyprinter.Render.String (renderString) @@ -148,9 +150,15 @@ instance AgdaUnparse Data where agdaUnparse (Data.B b) = parens ("bDATA" <+> agdaUnparse b) --- FIXME (https://github.com/IntersectMBO/plutus-private/issues/1796) +instance (AgdaUnparse k, AgdaUnparse v) => AgdaUnparse (Map.Map k v) where + agdaUnparse = agdaUnparse . Map.toList + instance AgdaUnparse Value where - agdaUnparse _ = "Not Implemented: AgdaUnprase Value" + agdaUnparse v = "valueFromList ( " <> agdaUnparse v' <> ")" + where + -- Value converted to nested assocation lists + v' :: [(ByteString, [(ByteString, Integer)])] + v' = map (\(k, ys) -> (unK k, map (\(k', q) -> (unK k', unQuantity q)) ys)) (Value.toList v) instance AgdaUnparse BLS12_381.G1.Element where agdaUnparse = viaShow diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic.hs index c68153c304f..2f5048f6548 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> T_'9839'Kinded_40 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 @@ -100,7 +100,7 @@ d_sty2ty_84 v0 = coe MAlonzo.Code.Type.BetaNormal.C_ne_20 (coe - MAlonzo.Code.Builtin.Signature.du_'8866''9839'2TyNe'9839'_186 + MAlonzo.Code.Builtin.Signature.du_'8866''9839'2TyNe'9839'_188 (\ v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v3) (coe (\ v1 v2 v3 v4 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v4)) @@ -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_776 + C__'183''8902'_'47'__212 MAlonzo.Code.Utils.T_Kind_782 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_776 + C_unwrap_230 MAlonzo.Code.Utils.T_Kind_782 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 9bbb8d71e78..26e000cacb4 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CEK.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CEK.hs @@ -62,27 +62,27 @@ d_convSigTy_8 :: 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 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 d_convSigTy_8 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 ~v11 ~v12 ~v13 ~v14 v15 = du_convSigTy_8 v15 du_convSigTy_8 :: - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 du_convSigTy_8 v0 = coe v0 -- Algorithmic.CEK._.saturatedSigTy d_saturatedSigTy_10 :: - MAlonzo.Code.Builtin.Signature.T_Sig_72 -> + MAlonzo.Code.Builtin.Signature.T_Sig_74 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> () d_saturatedSigTy_10 = erased -- Algorithmic.CEK._.sig2SigTy d_sig2SigTy_12 :: - MAlonzo.Code.Builtin.Signature.T_Sig_72 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_Sig_74 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 d_sig2SigTy_12 = coe - MAlonzo.Code.Builtin.Signature.du_sig2SigTy_398 + MAlonzo.Code.Builtin.Signature.du_sig2SigTy_400 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -95,11 +95,11 @@ d_sig2SigTy_12 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v1 v2) -- Algorithmic.CEK._.sig2type d_sig2type_14 :: - MAlonzo.Code.Builtin.Signature.T_Sig_72 -> + MAlonzo.Code.Builtin.Signature.T_Sig_74 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sig2type_14 = coe - MAlonzo.Code.Builtin.Signature.du_sig2type_242 + MAlonzo.Code.Builtin.Signature.du_sig2type_244 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -118,7 +118,7 @@ d_'8866''9839'2TyNe'9839'_16 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 d_'8866''9839'2TyNe'9839'_16 = coe - MAlonzo.Code.Builtin.Signature.du_'8866''9839'2TyNe'9839'_186 + MAlonzo.Code.Builtin.Signature.du_'8866''9839'2TyNe'9839'_188 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -134,9 +134,9 @@ 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_776 + C__'36''36'__190 MAlonzo.Code.Utils.T_Kind_782 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 - MAlonzo.Code.Builtin.Signature.T_SigTy_266 T_BApp_48 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 T_BApp_48 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -- Algorithmic.CEK.Value d_Value_52 a0 = () @@ -149,11 +149,11 @@ data T_Value_52 C_V'45'I'8658'_106 MAlonzo.Code.Builtin.T_Builtin_2 Integer 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 | + MAlonzo.Code.Builtin.Signature.T_SigTy_268 T_BApp_48 | C_V'45'IΠ_128 MAlonzo.Code.Builtin.T_Builtin_2 Integer Integer 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 | + MAlonzo.Code.Builtin.Signature.T_SigTy_268 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 -- Algorithmic.CEK.VList @@ -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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v7 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'_778) (coe v1))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -> T_Env_26 -> MAlonzo.Code.Algorithmic.T__'8866'__178 @@ -407,7 +407,7 @@ d_dischargeB_296 :: Integer -> 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_268 -> T_BApp_48 -> MAlonzo.Code.Algorithmic.T__'8866'__178 d_dischargeB_296 v0 ~v1 ~v2 v3 ~v4 ~v5 v6 ~v7 ~v8 v9 = du_dischargeB_296 v0 v3 v6 v9 @@ -480,7 +480,7 @@ d_dischargeStack_332 v0 v1 d_BUILTIN_368 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> T_BApp_48 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 T_Value_52 @@ -587,7 +587,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_div_312 v23 v25))) + (coe MAlonzo.Code.Builtin.d_div_326 v23 v25))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError @@ -624,7 +624,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_quot_314 v23 v25))) + (coe MAlonzo.Code.Builtin.d_quot_328 v23 v25))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError @@ -661,7 +661,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_rem_316 v23 v25))) + (coe MAlonzo.Code.Builtin.d_rem_330 v23 v25))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError @@ -698,7 +698,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_mod_318 v23 v25))) + (coe MAlonzo.Code.Builtin.d_mod_332 v23 v25))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError @@ -808,7 +808,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_concat_324 v23 v25)) + (coe MAlonzo.Code.Builtin.d_concat_338 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError @@ -824,7 +824,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v23 -> case coe v11 of C_V'45'con_86 v25 - -> let v26 = coe MAlonzo.Code.Builtin.d_cons_326 v23 v25 in + -> let v26 = coe MAlonzo.Code.Builtin.d_cons_340 v23 v25 in coe (case coe v26 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v27 @@ -869,7 +869,7 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_slice_328 v33 + MAlonzo.Code.Builtin.d_slice_342 v33 v35 v37)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -886,7 +886,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.Builtin.d_lengthBS_308 v13)) + (coe C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_lengthBS_322 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_indexByteString_32 @@ -913,7 +913,7 @@ du_BUILTIN_368 v0 v1 = MAlonzo.Code.Data.Integer.Properties.d__'60''63'__3190 (coe v25) (coe - MAlonzo.Code.Builtin.d_lengthBS_308 + MAlonzo.Code.Builtin.d_lengthBS_322 v23) in coe (case coe v29 of @@ -926,7 +926,7 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_index_310 + MAlonzo.Code.Builtin.d_index_324 v23 v25))) else coe seq (coe v31) @@ -977,7 +977,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_equals_346 v23 v25)) + (coe MAlonzo.Code.Builtin.d_equals_360 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError @@ -997,7 +997,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_B'60'_330 v23 v25)) + (coe MAlonzo.Code.Builtin.d_B'60'_344 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError @@ -1017,7 +1017,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_B'60''61'_332 v23 v25)) + (coe MAlonzo.Code.Builtin.d_B'60''61'_346 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError @@ -1032,7 +1032,7 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_SHA2'45'256_334 v13)) + C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_SHA2'45'256_348 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_sha3'45'256_42 @@ -1045,7 +1045,7 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_SHA3'45'256_336 v13)) + C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_SHA3'45'256_350 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_blake2b'45'256_44 @@ -1058,7 +1058,7 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_BLAKE2B'45'256_338 v13)) + C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_BLAKE2B'45'256_352 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_verifyEd25519Signature_46 @@ -1078,7 +1078,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v37 -> let v38 = coe - MAlonzo.Code.Builtin.d_verifyEd25519Sig_340 + MAlonzo.Code.Builtin.d_verifyEd25519Sig_354 v33 v35 v37 in coe (case coe v38 of @@ -1123,7 +1123,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v37 -> let v38 = coe - MAlonzo.Code.Builtin.d_verifyEcdsaSecp256k1Sig_342 + MAlonzo.Code.Builtin.d_verifyEcdsaSecp256k1Sig_356 v33 v35 v37 in coe (case coe v38 of @@ -1168,7 +1168,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v37 -> let v38 = coe - MAlonzo.Code.Builtin.d_verifySchnorrSecp256k1Sig_344 + MAlonzo.Code.Builtin.d_verifySchnorrSecp256k1Sig_358 v33 v35 v37 in coe (case coe v38 of @@ -1249,7 +1249,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.Builtin.d_ENCODEUTF8_348 v13)) + (coe C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_ENCODEUTF8_362 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.C_decodeUtf8_58 @@ -1259,7 +1259,7 @@ du_BUILTIN_368 v0 v1 seq (coe v10) (case coe v11 of C_V'45'con_86 v13 - -> let v14 = coe MAlonzo.Code.Builtin.d_DECODEUTF8_350 v13 in + -> let v14 = coe MAlonzo.Code.Builtin.d_DECODEUTF8_364 v13 in coe (case coe v14 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v15 @@ -1333,7 +1333,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v37 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe MAlonzo.Code.Builtin.d_TRACE_322 erased v37 v11) + (coe MAlonzo.Code.Builtin.d_TRACE_336 erased v37 v11) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -1451,19 +1451,19 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Type.BetaNBE.d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_780)) + (coe MAlonzo.Code.Utils.C_'9839'_786)) (coe MAlonzo.Code.Type.C_'8709'_4) (coe (\ v28 v29 -> @@ -1480,16 +1480,16 @@ 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_780)) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'9839'_786)) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe - MAlonzo.Code.Builtin.Signature.du_mkTy_204 + MAlonzo.Code.Builtin.Signature.du_mkTy_206 (\ v28 v29 v30 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 @@ -1515,7 +1515,7 @@ du_BUILTIN_368 v0 v1 (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe - MAlonzo.Code.Builtin.du_a_218))))) + MAlonzo.Code.Builtin.du_a_232))))) (coe MAlonzo.Code.Type.BetaNBE.du_idEnv_250))) MAlonzo.Code.Utils.C__'8759'__460 v28 v29 -> coe @@ -1544,7 +1544,7 @@ 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'_780) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe MAlonzo.Code.Type.BetaNormal.C_'94'_12 (coe @@ -1976,10 +1976,262 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_serialiseDATA_352 v13)) + C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_serialiseDATA_366 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_mkPairData_112 + MAlonzo.Code.Builtin.C_insertCoin_112 + -> case coe v1 of + C__'36'__162 v2 v10 v11 + -> case coe v10 of + C__'36'__162 v12 v20 v21 + -> case coe v20 of + C__'36'__162 v22 v30 v31 + -> case coe v30 of + C__'36'__162 v32 v40 v41 + -> coe + seq (coe v40) + (case coe v41 of + C_V'45'con_86 v43 + -> case coe v31 of + C_V'45'con_86 v45 + -> case coe v21 of + C_V'45'con_86 v47 + -> case coe v11 of + C_V'45'con_86 v49 + -> let v50 + = coe + MAlonzo.Code.Builtin.d_insertCOIN_368 + v43 v45 v47 v49 in + coe + (case coe v50 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v51 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe + C_V'45'con_86 + v51) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Type.BetaNormal.C_con_22 + (coe + MAlonzo.Code.Type.BetaNormal.C_ne_20 + (coe + MAlonzo.Code.Type.BetaNormal.C_'94'_12 + (coe + MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 + (coe + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20))))) + _ -> 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.Builtin.C_lookupCoin_114 + -> case coe v1 of + C__'36'__162 v2 v10 v11 + -> case coe v10 of + C__'36'__162 v12 v20 v21 + -> case coe v20 of + C__'36'__162 v22 v30 v31 + -> coe + seq (coe v30) + (case coe v31 of + C_V'45'con_86 v33 + -> case coe v21 of + C_V'45'con_86 v35 + -> case coe v11 of + C_V'45'con_86 v37 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe + C_V'45'con_86 + (coe + MAlonzo.Code.Builtin.d_lookupCOIN_370 + v33 v35 v37)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Builtin.C_unionValue_116 + -> case coe v1 of + C__'36'__162 v2 v10 v11 + -> case coe v10 of + C__'36'__162 v12 v20 v21 + -> coe + seq (coe v20) + (case coe v21 of + C_V'45'con_86 v23 + -> case coe v11 of + C_V'45'con_86 v25 + -> let v26 + = coe + MAlonzo.Code.Builtin.d_unionVALUE_372 v23 v25 in + coe + (case coe v26 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v27 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe C_V'45'con_86 v27) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Type.BetaNormal.C_con_22 + (coe + MAlonzo.Code.Type.BetaNormal.C_ne_20 + (coe + MAlonzo.Code.Type.BetaNormal.C_'94'_12 + (coe + MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 + (coe + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20))))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Builtin.C_valueContains_118 + -> case coe v1 of + C__'36'__162 v2 v10 v11 + -> case coe v10 of + C__'36'__162 v12 v20 v21 + -> coe + seq (coe v20) + (case coe v21 of + C_V'45'con_86 v23 + -> case coe v11 of + C_V'45'con_86 v25 + -> let v26 + = coe + MAlonzo.Code.Builtin.d_valueCONTAINS_374 v23 + v25 in + coe + (case coe v26 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v27 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe C_V'45'con_86 v27) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Type.BetaNormal.C_con_22 + (coe + MAlonzo.Code.Type.BetaNormal.C_ne_20 + (coe + MAlonzo.Code.Type.BetaNormal.C_'94'_12 + (coe + MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 + (coe + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20))))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Builtin.C_scaleValue_120 + -> case coe v1 of + C__'36'__162 v2 v10 v11 + -> case coe v10 of + C__'36'__162 v12 v20 v21 + -> coe + seq (coe v20) + (case coe v21 of + C_V'45'con_86 v23 + -> case coe v11 of + C_V'45'con_86 v25 + -> let v26 + = coe + MAlonzo.Code.Builtin.d_scaleVALUE_376 v23 v25 in + coe + (case coe v26 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v27 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe C_V'45'con_86 v27) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Type.BetaNormal.C_con_22 + (coe + MAlonzo.Code.Type.BetaNormal.C_ne_20 + (coe + MAlonzo.Code.Type.BetaNormal.C_'94'_12 + (coe + MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 + (coe + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20))))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Builtin.C_valueData_122 + -> case coe v1 of + C__'36'__162 v2 v10 v11 + -> coe + seq (coe v10) + (case coe v11 of + C_V'45'con_86 v13 + -> let v14 = coe MAlonzo.Code.Builtin.d_valueDATA_378 v13 in + coe + (case coe v14 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v15 + -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 v15) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Type.BetaNormal.C_con_22 + (coe + MAlonzo.Code.Type.BetaNormal.C_ne_20 + (coe + MAlonzo.Code.Type.BetaNormal.C_'94'_12 + (coe + MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 + (coe + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20))))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Builtin.C_unValueData_124 + -> case coe v1 of + C__'36'__162 v2 v10 v11 + -> coe + seq (coe v10) + (case coe v11 of + C_V'45'con_86 v13 + -> let v14 = coe MAlonzo.Code.Builtin.d_unValueDATA_380 v13 in + coe + (case coe v14 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v15 + -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 v15) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Type.BetaNormal.C_con_22 + (coe + MAlonzo.Code.Type.BetaNormal.C_ne_20 + (coe + MAlonzo.Code.Type.BetaNormal.C_'94'_12 + (coe + MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 + (coe + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20))))) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Builtin.C_mkPairData_126 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2001,7 +2253,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_mkNilData_114 + MAlonzo.Code.Builtin.C_mkNilData_128 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2012,7 +2264,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 (coe MAlonzo.Code.Utils.C_'91''93'_458)))) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_mkNilPairData_116 + MAlonzo.Code.Builtin.C_mkNilPairData_130 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2023,7 +2275,7 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (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 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'add_132 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2039,13 +2291,13 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'add_354 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'add_382 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'neg_120 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'neg_134 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2056,10 +2308,10 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'neg_356 v13)) + (coe MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'neg_384 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'scalarMul_122 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'scalarMul_136 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2075,13 +2327,13 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'scalarMul_358 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'scalarMul_386 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'equal_124 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'equal_138 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2097,13 +2349,13 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'equal_360 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'equal_388 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'hashToGroup_126 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'hashToGroup_140 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2116,7 +2368,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v25 -> let v26 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'hashToGroup_362 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'hashToGroup_390 v23 v25 in coe (case coe v26 of @@ -2136,13 +2388,13 @@ du_BUILTIN_368 v0 v1 (coe MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20))))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22))))) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'compress_128 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'compress_142 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2154,10 +2406,10 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'compress_364 v13)) + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'compress_392 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'uncompress_130 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'uncompress_144 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2166,7 +2418,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v13 -> let v14 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'uncompress_366 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'uncompress_394 v13 in coe (case coe v14 of @@ -2184,11 +2436,11 @@ du_BUILTIN_368 v0 v1 (coe MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20))))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22))))) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'add_132 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'add_146 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2204,13 +2456,13 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'add_368 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'add_396 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'neg_134 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'neg_148 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2221,10 +2473,10 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'neg_370 v13)) + (coe MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'neg_398 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'scalarMul_136 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'scalarMul_150 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2240,13 +2492,13 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'scalarMul_372 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'scalarMul_400 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'equal_138 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'equal_152 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2262,13 +2514,13 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'equal_374 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'equal_402 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'hashToGroup_140 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'hashToGroup_154 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2281,7 +2533,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v25 -> let v26 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'hashToGroup_376 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'hashToGroup_404 v23 v25 in coe (case coe v26 of @@ -2301,13 +2553,13 @@ du_BUILTIN_368 v0 v1 (coe MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22))))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24))))) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'compress_142 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'compress_156 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2319,10 +2571,10 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'compress_378 v13)) + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'compress_406 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'uncompress_144 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'uncompress_158 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2331,7 +2583,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v13 -> let v14 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'uncompress_380 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'uncompress_408 v13 in coe (case coe v14 of @@ -2349,11 +2601,11 @@ du_BUILTIN_368 v0 v1 (coe MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22))))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24))))) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'millerLoop_146 + MAlonzo.Code.Builtin.C_bls12'45'381'45'millerLoop_160 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2369,13 +2621,13 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'millerLoop_382 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'millerLoop_410 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'mulMlResult_148 + MAlonzo.Code.Builtin.C_bls12'45'381'45'mulMlResult_162 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2391,13 +2643,13 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'mulMlResult_384 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'mulMlResult_412 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'finalVerify_150 + MAlonzo.Code.Builtin.C_bls12'45'381'45'finalVerify_164 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2413,13 +2665,13 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'finalVerify_386 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'finalVerify_414 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_keccak'45'256_152 + MAlonzo.Code.Builtin.C_keccak'45'256_166 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2429,10 +2681,10 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_KECCAK'45'256_388 v13)) + C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_KECCAK'45'256_416 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_blake2b'45'224_154 + MAlonzo.Code.Builtin.C_blake2b'45'224_168 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2442,10 +2694,10 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_BLAKE2B'45'224_390 v13)) + C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_BLAKE2B'45'224_418 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_byteStringToInteger_156 + MAlonzo.Code.Builtin.C_byteStringToInteger_170 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2460,12 +2712,12 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_BStoI_392 v23 v25)) + (coe MAlonzo.Code.Builtin.d_BStoI_420 v23 v25)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_integerToByteString_158 + MAlonzo.Code.Builtin.C_integerToByteString_172 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2482,7 +2734,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v37 -> let v38 = coe - MAlonzo.Code.Builtin.d_ItoBS_394 + MAlonzo.Code.Builtin.d_ItoBS_422 v33 v35 v37 in coe (case coe v38 of @@ -2510,7 +2762,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_andByteString_160 + MAlonzo.Code.Builtin.C_andByteString_174 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2530,7 +2782,7 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_andBYTESTRING_396 + MAlonzo.Code.Builtin.d_andBYTESTRING_424 v33 v35 v37)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -2538,7 +2790,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_orByteString_162 + MAlonzo.Code.Builtin.C_orByteString_176 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2558,7 +2810,7 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_orBYTESTRING_398 + MAlonzo.Code.Builtin.d_orBYTESTRING_426 v33 v35 v37)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -2566,7 +2818,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_xorByteString_164 + MAlonzo.Code.Builtin.C_xorByteString_178 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2586,7 +2838,7 @@ du_BUILTIN_368 v0 v1 (coe C_V'45'con_86 (coe - MAlonzo.Code.Builtin.d_xorBYTESTRING_400 + MAlonzo.Code.Builtin.d_xorBYTESTRING_428 v33 v35 v37)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -2594,7 +2846,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_complementByteString_166 + MAlonzo.Code.Builtin.C_complementByteString_180 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2605,10 +2857,10 @@ du_BUILTIN_368 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_V'45'con_86 - (coe MAlonzo.Code.Builtin.d_complementBYTESTRING_402 v13)) + (coe MAlonzo.Code.Builtin.d_complementBYTESTRING_430 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_readBit_168 + MAlonzo.Code.Builtin.C_readBit_182 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2620,7 +2872,7 @@ du_BUILTIN_368 v0 v1 -> case coe v11 of C_V'45'con_86 v25 -> let v26 - = coe MAlonzo.Code.Builtin.d_readBIT_404 v23 v25 in + = coe MAlonzo.Code.Builtin.d_readBIT_432 v23 v25 in coe (case coe v26 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v27 @@ -2645,7 +2897,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_writeBits_170 + MAlonzo.Code.Builtin.C_writeBits_184 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2662,7 +2914,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v37 -> let v38 = coe - MAlonzo.Code.Builtin.d_writeBITS_406 + MAlonzo.Code.Builtin.d_writeBITS_434 v33 (coe MAlonzo.Code.Utils.du_toList_512 @@ -2694,7 +2946,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_replicateByte_172 + MAlonzo.Code.Builtin.C_replicateByte_186 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2707,7 +2959,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v25 -> let v26 = coe - MAlonzo.Code.Builtin.d_replicateBYTE_408 v23 + MAlonzo.Code.Builtin.d_replicateBYTE_436 v23 v25 in coe (case coe v26 of @@ -2733,7 +2985,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_shiftByteString_174 + MAlonzo.Code.Builtin.C_shiftByteString_188 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2746,7 +2998,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v25 -> let v26 = coe - MAlonzo.Code.Builtin.d_shiftBYTESTRING_410 v23 + MAlonzo.Code.Builtin.d_shiftBYTESTRING_438 v23 v25 in coe (case coe v26 of @@ -2772,7 +3024,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_rotateByteString_176 + MAlonzo.Code.Builtin.C_rotateByteString_190 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2785,7 +3037,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v25 -> let v26 = coe - MAlonzo.Code.Builtin.d_rotateBYTESTRING_412 v23 + MAlonzo.Code.Builtin.d_rotateBYTESTRING_440 v23 v25 in coe (case coe v26 of @@ -2811,7 +3063,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_countSetBits_178 + MAlonzo.Code.Builtin.C_countSetBits_192 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2821,10 +3073,10 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_countSetBITS_414 v13)) + C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_countSetBITS_442 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_findFirstSetBit_180 + MAlonzo.Code.Builtin.C_findFirstSetBit_194 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2834,10 +3086,10 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_findFirstSetBIT_416 v13)) + C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_findFirstSetBIT_444 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_ripemd'45'160_182 + MAlonzo.Code.Builtin.C_ripemd'45'160_196 -> case coe v1 of C__'36'__162 v2 v10 v11 -> coe @@ -2847,10 +3099,10 @@ du_BUILTIN_368 v0 v1 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_RIPEMD'45'160_418 v13)) + C_V'45'con_86 (coe MAlonzo.Code.Builtin.d_RIPEMD'45'160_446 v13)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_expModInteger_184 + MAlonzo.Code.Builtin.C_expModInteger_198 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2867,7 +3119,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v37 -> let v38 = coe - MAlonzo.Code.Builtin.d_expModINTEGER_420 + MAlonzo.Code.Builtin.d_expModINTEGER_448 v33 v35 v37 in coe (case coe v38 of @@ -2895,7 +3147,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_dropList_186 + MAlonzo.Code.Builtin.C_dropList_200 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2920,7 +3172,7 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'multiScalarMul_188 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'multiScalarMul_202 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2933,7 +3185,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v25 -> let v26 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'multiScalarMul_422 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'multiScalarMul_450 (coe MAlonzo.Code.Utils.du_toList_512 (coe v23)) (coe MAlonzo.Code.Utils.du_toList_512 @@ -2956,13 +3208,13 @@ du_BUILTIN_368 v0 v1 (coe MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20))))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22))))) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'multiScalarMul_190 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'multiScalarMul_204 -> case coe v1 of C__'36'__162 v2 v10 v11 -> case coe v10 of @@ -2975,7 +3227,7 @@ du_BUILTIN_368 v0 v1 C_V'45'con_86 v25 -> let v26 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'multiScalarMul_424 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'multiScalarMul_452 (coe MAlonzo.Code.Utils.du_toList_512 (coe v23)) (coe MAlonzo.Code.Utils.du_toList_512 @@ -2998,7 +3250,7 @@ du_BUILTIN_368 v0 v1 (coe MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22))))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24))))) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError) @@ -3006,22 +3258,22 @@ du_BUILTIN_368 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Algorithmic.CEK.BUILTIN' -d_BUILTIN''_1106 :: +d_BUILTIN''_1220 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> T_BApp_48 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -d_BUILTIN''_1106 v0 v1 ~v2 ~v3 ~v4 ~v5 ~v6 v7 - = du_BUILTIN''_1106 v0 v1 v7 -du_BUILTIN''_1106 :: +d_BUILTIN''_1220 v0 v1 ~v2 ~v3 ~v4 ~v5 ~v6 v7 + = du_BUILTIN''_1220 v0 v1 v7 +du_BUILTIN''_1220 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> T_BApp_48 -> MAlonzo.Code.Algorithmic.T__'8866'__178 -du_BUILTIN''_1106 v0 v1 v2 +du_BUILTIN''_1220 v0 v1 v2 = let v3 = coe du_BUILTIN_368 (coe v0) (coe v2) in coe (case coe v3 of @@ -3031,7 +3283,7 @@ du_BUILTIN''_1106 v0 v1 v2 -> coe d_discharge_228 (coe v1) (coe v4) _ -> MAlonzo.RTE.mazUnreachableError) -- Algorithmic.CEK.V-I -d_V'45'I_1182 :: +d_V'45'I_1296 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> Integer -> @@ -3040,11 +3292,11 @@ d_V'45'I_1182 :: Integer -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> T_BApp_48 -> T_Value_52 -d_V'45'I_1182 v0 ~v1 v2 v3 v4 v5 v6 v7 v8 v9 - = du_V'45'I_1182 v0 v2 v3 v4 v5 v6 v7 v8 v9 -du_V'45'I_1182 :: +d_V'45'I_1296 v0 ~v1 v2 v3 v4 v5 v6 v7 v8 v9 + = du_V'45'I_1296 v0 v2 v3 v4 v5 v6 v7 v8 v9 +du_V'45'I_1296 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> Integer -> @@ -3052,32 +3304,32 @@ du_V'45'I_1182 :: Integer -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> T_BApp_48 -> T_Value_52 -du_V'45'I_1182 v0 v1 v2 v3 v4 v5 v6 v7 v8 +du_V'45'I_1296 v0 v1 v2 v3 v4 v5 v6 v7 v8 = case coe v2 of 0 -> case coe v7 of - MAlonzo.Code.Builtin.Signature.C__B'8658'__302 v17 v18 v19 + MAlonzo.Code.Builtin.Signature.C__B'8658'__304 v17 v18 v19 -> coe C_V'45'I'8658'_106 v0 v1 v3 v4 v5 v6 v19 v8 _ -> MAlonzo.RTE.mazUnreachableError _ -> let v9 = subInt (coe v2) (coe (1 :: Integer)) in coe (case coe v7 of - MAlonzo.Code.Builtin.Signature.C_sucΠ_326 v19 v20 v21 + MAlonzo.Code.Builtin.Signature.C_sucΠ_328 v19 v20 v21 -> coe C_V'45'IΠ_128 v0 v1 v9 v3 v4 v5 v6 v21 v8 _ -> MAlonzo.RTE.mazUnreachableError) -- Algorithmic.CEK.Error -d_Error_1200 a0 = () -data T_Error_1200 = C_E'45'error_1204 +d_Error_1314 a0 = () +data T_Error_1314 = C_E'45'error_1318 -- Algorithmic.CEK.Frame -d_Frame_1210 a0 a1 = () -data T_Frame_1210 - = C_'45''183'_1218 MAlonzo.Code.Algorithmic.T_Ctx_2 +d_Frame_1324 a0 a1 = () +data T_Frame_1324 + = C_'45''183'_1332 MAlonzo.Code.Algorithmic.T_Ctx_2 MAlonzo.Code.Algorithmic.T__'8866'__178 T_Env_26 | - C_'45''183'v_1224 T_Value_52 | C__'183''45'_1230 T_Value_52 | - C_'45''183''8902'_1238 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 | - C_wrap'45'_1246 | C_unwrap'45'_1254 | - C_constr'45'_1274 MAlonzo.Code.Algorithmic.T_Ctx_2 + C_'45''183'v_1338 T_Value_52 | C__'183''45'_1344 T_Value_52 | + C_'45''183''8902'_1352 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 | + C_wrap'45'_1360 | C_unwrap'45'_1368 | + C_constr'45'_1388 MAlonzo.Code.Algorithmic.T_Ctx_2 MAlonzo.Code.Utils.List.T_Bwd_6 [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] MAlonzo.Code.Data.Fin.Base.T_Fin_10 T_Env_26 @@ -3085,32 +3337,32 @@ data T_Frame_1210 MAlonzo.Code.Utils.List.T__'8803'_'60''62''62'__684 MAlonzo.Code.Utils.List.T_IBwd_396 MAlonzo.Code.Utils.List.T_IList_302 | - C_case'45'_1286 MAlonzo.Code.Algorithmic.T_Ctx_2 T_Env_26 + C_case'45'_1400 MAlonzo.Code.Algorithmic.T_Ctx_2 T_Env_26 MAlonzo.Code.Algorithmic.T_Cases_172 -- Algorithmic.CEK.Stack -d_Stack_1292 a0 a1 = () -data T_Stack_1292 - = C_ε_1296 | - C__'44'__1302 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 - T_Stack_1292 T_Frame_1210 +d_Stack_1406 a0 a1 = () +data T_Stack_1406 + = C_ε_1410 | + C__'44'__1416 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 + T_Stack_1406 T_Frame_1324 -- Algorithmic.CEK.State -d_State_1306 a0 = () -data T_State_1306 - = C__'894'_'9659'__1314 MAlonzo.Code.Algorithmic.T_Ctx_2 - MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 T_Stack_1292 +d_State_1420 a0 = () +data T_State_1420 + = C__'894'_'9659'__1428 MAlonzo.Code.Algorithmic.T_Ctx_2 + MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 T_Stack_1406 T_Env_26 MAlonzo.Code.Algorithmic.T__'8866'__178 | - C__'9669'__1318 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 - T_Stack_1292 T_Value_52 | - C_'9633'_1320 T_Value_52 | - C_'9670'_1322 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 + C__'9669'__1432 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 + T_Stack_1406 T_Value_52 | + C_'9633'_1434 T_Value_52 | + C_'9670'_1436 MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -- Algorithmic.CEK.ival -d_ival_1326 :: MAlonzo.Code.Builtin.T_Builtin_2 -> T_Value_52 -d_ival_1326 v0 +d_ival_1440 :: MAlonzo.Code.Builtin.T_Builtin_2 -> T_Value_52 +d_ival_1440 v0 = coe - du_V'45'I_1182 (coe v0) (coe (0 :: Integer)) + du_V'45'I_1296 (coe v0) (coe (0 :: Integer)) (coe - MAlonzo.Code.Builtin.Signature.d_fv_96 - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))) + MAlonzo.Code.Builtin.Signature.d_fv_98 + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0))) (coe MAlonzo.Code.Utils.C_start_192) (coe (0 :: Integer)) (coe MAlonzo.Code.Data.List.Base.du_foldr_216 @@ -3120,11 +3372,11 @@ d_ival_1326 v0 (coe MAlonzo.Code.Data.List.NonEmpty.Base.d_tail_32 (coe - MAlonzo.Code.Builtin.Signature.d_args_86 - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))))) + MAlonzo.Code.Builtin.Signature.d_args_88 + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0))))) (coe MAlonzo.Code.Utils.C_start_192) (coe - MAlonzo.Code.Builtin.Signature.du_sig2SigTy_398 + MAlonzo.Code.Builtin.Signature.du_sig2SigTy_400 (\ v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v3) (coe (\ v1 v2 v3 v4 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v4)) @@ -3135,107 +3387,107 @@ d_ival_1326 v0 (\ v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v2 v3) (\ v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v2 v3) - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))) + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0))) (coe C_base_144) -- Algorithmic.CEK.pushValueFrames -d_pushValueFrames_1338 :: +d_pushValueFrames_1452 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Utils.List.T_Bwd_6 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - T_Stack_1292 -> + T_Stack_1406 -> MAlonzo.Code.Utils.List.T_IBwd_396 -> - MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> T_Stack_1292 -d_pushValueFrames_1338 ~v0 v1 v2 ~v3 v4 v5 ~v6 - = du_pushValueFrames_1338 v1 v2 v4 v5 -du_pushValueFrames_1338 :: + MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> T_Stack_1406 +d_pushValueFrames_1452 ~v0 v1 v2 ~v3 v4 v5 ~v6 + = du_pushValueFrames_1452 v1 v2 v4 v5 +du_pushValueFrames_1452 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Utils.List.T_Bwd_6 -> - T_Stack_1292 -> MAlonzo.Code.Utils.List.T_IBwd_396 -> T_Stack_1292 -du_pushValueFrames_1338 v0 v1 v2 v3 + T_Stack_1406 -> MAlonzo.Code.Utils.List.T_IBwd_396 -> T_Stack_1406 +du_pushValueFrames_1452 v0 v1 v2 v3 = case coe v3 of MAlonzo.Code.Utils.List.C_'91''93'_402 -> coe v2 MAlonzo.Code.Utils.List.C__'58''60'__408 v6 v7 -> case coe v1 of MAlonzo.Code.Utils.List.C__'58''60'__12 v8 v9 -> coe - du_pushValueFrames_1338 + du_pushValueFrames_1452 (coe MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v9 v0) (coe v8) - (coe C__'44'__1302 v0 v2 (coe C_'45''183'v_1224 v7)) (coe v6) + (coe C__'44'__1416 v0 v2 (coe C_'45''183'v_1338 v7)) (coe v6) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Algorithmic.CEK.step -d_step_1350 :: +d_step_1464 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - T_State_1306 -> T_State_1306 -d_step_1350 ~v0 v1 = du_step_1350 v1 -du_step_1350 :: T_State_1306 -> T_State_1306 -du_step_1350 v0 + T_State_1420 -> T_State_1420 +d_step_1464 ~v0 v1 = du_step_1464 v1 +du_step_1464 :: T_State_1420 -> T_State_1420 +du_step_1464 v0 = case coe v0 of - C__'894'_'9659'__1314 v1 v2 v3 v4 v5 + C__'894'_'9659'__1428 v1 v2 v3 v4 v5 -> case coe v5 of MAlonzo.Code.Algorithmic.C_'96'_184 v7 -> coe - C__'9669'__1318 (coe v2) (coe v3) + C__'9669'__1432 (coe v2) (coe v3) (coe du_lookup_214 (coe v1) (coe v7) (coe v4)) MAlonzo.Code.Algorithmic.C_ƛ_190 v8 -> case coe v2 of MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v10 v11 -> coe - C__'9669'__1318 + C__'9669'__1432 (coe MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v10 v11) (coe v3) (coe C_V'45'ƛ_64 v1 v8 v4) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Algorithmic.C__'183'__196 v6 v8 v9 -> coe - C__'894'_'9659'__1314 (coe v1) + C__'894'_'9659'__1428 (coe v1) (coe MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v6 v2) - (coe C__'44'__1302 v2 v3 (coe C_'45''183'_1218 v1 v9 v4)) (coe v4) + (coe C__'44'__1416 v2 v3 (coe C_'45''183'_1332 v1 v9 v4)) (coe v4) (coe v8) MAlonzo.Code.Algorithmic.C_Λ_202 v8 -> case coe v2 of MAlonzo.Code.Type.BetaNormal.C_Π_14 v10 v11 -> coe - C__'9669'__1318 (coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v10 v11) + C__'9669'__1432 (coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v10 v11) (coe v3) (coe C_V'45'Λ_74 v1 v8 v4) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Algorithmic.C__'183''8902'_'47'__212 v6 v8 v9 v10 -> coe - C__'894'_'9659'__1314 (coe v1) + C__'894'_'9659'__1428 (coe v1) (coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v6 v8) (coe - C__'44'__1302 + C__'44'__1416 (MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6) (coe v8) (coe v10)) - v3 (coe C_'45''183''8902'_1238 v10)) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v6) (coe v8) (coe v10)) + v3 (coe C_'45''183''8902'_1352 v10)) (coe v4) (coe v9) MAlonzo.Code.Algorithmic.C_wrap_220 v9 -> case coe v2 of MAlonzo.Code.Type.BetaNormal.C_μ_24 v11 v12 v13 -> coe - C__'894'_'9659'__1314 (coe v1) + C__'894'_'9659'__1428 (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v11 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe v12)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -3246,24 +3498,24 @@ du_step_1350 v0 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v11)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784))) v11 v12)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -3271,36 +3523,36 @@ du_step_1350 v0 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v11) (coe v13)))) (coe - C__'44'__1302 (coe MAlonzo.Code.Type.BetaNormal.C_μ_24 v11 v12 v13) - v3 (coe C_wrap'45'_1246)) + C__'44'__1416 (coe MAlonzo.Code.Type.BetaNormal.C_μ_24 v11 v12 v13) + v3 (coe C_wrap'45'_1360)) (coe v4) (coe v9) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Algorithmic.C_unwrap_230 v6 v8 v9 v10 -> coe - C__'894'_'9659'__1314 (coe v1) + C__'894'_'9659'__1428 (coe v1) (coe MAlonzo.Code.Type.BetaNormal.C_μ_24 v6 v8 v9) (coe - C__'44'__1302 + C__'44'__1416 (MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v6 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe v8)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -3311,31 +3563,31 @@ du_step_1350 v0 MAlonzo.Code.Type.C__'44''8902'__6 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v6)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784))) v6 v8)) (coe MAlonzo.Code.Type.C_'96'_22 (coe MAlonzo.Code.Type.C_Z_16))))) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v6) (coe v9)))) - v3 (coe C_unwrap'45'_1254)) + v3 (coe C_unwrap'45'_1368)) (coe v4) (coe v10) MAlonzo.Code.Algorithmic.C_constr_240 v7 v9 v11 -> case coe v2 of @@ -3348,7 +3600,7 @@ du_step_1350 v0 -> coe seq (coe v11) (coe - C__'9669'__1318 + C__'9669'__1432 (coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 v13 v14) (coe v3) (coe C_V'45'constr_140 v7 @@ -3358,13 +3610,13 @@ du_step_1350 v0 -> case coe v11 of MAlonzo.Code.Utils.List.C__'8759'__314 v20 v21 -> coe - C__'894'_'9659'__1314 (coe v1) (coe v16) + C__'894'_'9659'__1428 (coe v1) (coe v16) (coe - C__'44'__1302 + C__'44'__1416 (coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 v13 v14) v3 (coe - C_constr'45'_1274 v1 + C_constr'45'_1388 v1 (coe MAlonzo.Code.Utils.List.C_'91''93'_10) v17 v7 v4 v15 (coe MAlonzo.Code.Utils.List.C_start_690) (coe MAlonzo.Code.Utils.List.C_'91''93'_402) v21)) @@ -3374,86 +3626,86 @@ du_step_1350 v0 _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Algorithmic.C_case_252 v6 v7 v9 v10 -> coe - C__'894'_'9659'__1314 (coe v1) + C__'894'_'9659'__1428 (coe v1) (coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 v6 v7) - (coe C__'44'__1302 v2 v3 (coe C_case'45'_1286 v1 v4 v10)) (coe v4) + (coe C__'44'__1416 v2 v3 (coe C_case'45'_1400 v1 v4 v10)) (coe v4) (coe v9) MAlonzo.Code.Algorithmic.C_con_258 v6 v8 -> coe - C__'9669'__1318 + C__'9669'__1432 (coe 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'_780) (coe v6))) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe v6))) (coe v3) (coe C_V'45'con_86 v8) MAlonzo.Code.Algorithmic.C_builtin_'47'__264 v7 -> coe - C__'9669'__1318 + C__'9669'__1432 (coe MAlonzo.Code.Algorithmic.Signature.d_btype_30 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v7)) - (coe v3) (coe d_ival_1326 (coe v7)) - MAlonzo.Code.Algorithmic.C_error_268 -> coe C_'9670'_1322 (coe v2) + (coe v3) (coe d_ival_1440 (coe v7)) + MAlonzo.Code.Algorithmic.C_error_268 -> coe C_'9670'_1436 (coe v2) _ -> MAlonzo.RTE.mazUnreachableError - C__'9669'__1318 v1 v2 v3 + C__'9669'__1432 v1 v2 v3 -> case coe v2 of - C_ε_1296 -> coe C_'9633'_1320 (coe v3) - C__'44'__1302 v4 v6 v7 + C_ε_1410 -> coe C_'9633'_1434 (coe v3) + C__'44'__1416 v4 v6 v7 -> case coe v7 of - C_'45''183'_1218 v8 v11 v12 + C_'45''183'_1332 v8 v11 v12 -> case coe v1 of MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v14 v15 -> coe - C__'894'_'9659'__1314 (coe v8) (coe v14) - (coe C__'44'__1302 v4 v6 (coe C__'183''45'_1230 v3)) (coe v12) + C__'894'_'9659'__1428 (coe v8) (coe v14) + (coe C__'44'__1416 v4 v6 (coe C__'183''45'_1344 v3)) (coe v12) (coe v11) _ -> MAlonzo.RTE.mazUnreachableError - C_'45''183'v_1224 v10 + C_'45''183'v_1338 v10 -> case coe v1 of MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v12 v13 -> coe - C__'9669'__1318 (coe v12) - (coe C__'44'__1302 v4 v6 (coe C__'183''45'_1230 v3)) (coe v10) + C__'9669'__1432 (coe v12) + (coe C__'44'__1416 v4 v6 (coe C__'183''45'_1344 v3)) (coe v10) _ -> MAlonzo.RTE.mazUnreachableError - C__'183''45'_1230 v10 + C__'183''45'_1344 v10 -> case coe v10 of C_V'45'ƛ_64 v11 v14 v15 -> coe - C__'894'_'9659'__1314 + C__'894'_'9659'__1428 (coe MAlonzo.Code.Algorithmic.C__'44'__12 v11 v1) (coe v4) (coe v6) (coe C__'8759'__208 v15 v3) (coe v14) C_V'45'I'8658'_106 v11 v14 v15 v16 v17 v18 v19 v20 -> case coe v17 of 0 -> coe - C__'894'_'9659'__1314 + C__'894'_'9659'__1428 (coe MAlonzo.Code.Algorithmic.C_'8709'_4) (coe v4) (coe v6) (coe C_'91''93'_202) (coe - du_BUILTIN''_1106 (coe v11) (coe v4) + du_BUILTIN''_1220 (coe v11) (coe v4) (coe C__'36'__162 v1 v20 v3)) _ -> let v21 = subInt (coe v17) (coe (1 :: Integer)) in coe (coe - C__'9669'__1318 (coe v4) (coe v6) + C__'9669'__1432 (coe v4) (coe v6) (coe - du_V'45'I_1182 (coe v11) (coe v14) + du_V'45'I_1296 (coe v11) (coe v14) (coe (0 :: Integer)) (coe v15) (coe addInt (coe (1 :: Integer)) (coe v16)) (coe v21) (coe MAlonzo.Code.Utils.C_bubble_200 v18) (coe v19) (coe C__'36'__162 v1 v20 v3))) _ -> MAlonzo.RTE.mazUnreachableError - C_'45''183''8902'_1238 v10 + C_'45''183''8902'_1352 v10 -> case coe v1 of MAlonzo.Code.Type.BetaNormal.C_Π_14 v12 v13 -> case coe v3 of C_V'45'Λ_74 v14 v17 v18 -> coe - C__'894'_'9659'__1314 (coe v14) + C__'894'_'9659'__1428 (coe v14) (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v12) (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v12) (coe v13) (coe v10)) (coe v6) (coe v18) (coe @@ -3462,15 +3714,15 @@ du_step_1350 v0 (coe v13) (coe v17) (coe v10)) C_V'45'IΠ_128 v14 v17 v18 v19 v20 v21 v22 v23 v24 -> coe - C__'9669'__1318 + C__'9669'__1432 (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d__'91'_'93'Nf_236 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v12) (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v12) (coe v13) (coe v10)) (coe v6) (coe - du_V'45'I_1182 (coe v14) + du_V'45'I_1296 (coe v14) (coe addInt (coe (1 :: Integer)) (coe v17)) (coe v18) (coe MAlonzo.Code.Utils.C_bubble_200 v19) (coe v20) (coe v21) (coe v22) @@ -3481,44 +3733,44 @@ du_step_1350 v0 (coe C__'36''36'__190 v12 v13 v23 v24 v10)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - C_wrap'45'_1246 + C_wrap'45'_1360 -> case coe v4 of MAlonzo.Code.Type.BetaNormal.C_μ_24 v12 v13 v14 -> coe - C__'9669'__1318 + C__'9669'__1432 (coe MAlonzo.Code.Type.BetaNormal.C_μ_24 v12 v13 v14) (coe v6) (coe C_V'45'wrap_82 v3) _ -> MAlonzo.RTE.mazUnreachableError - C_unwrap'45'_1254 + C_unwrap'45'_1368 -> case coe v1 of MAlonzo.Code.Type.BetaNormal.C_μ_24 v12 v13 v14 -> case coe v3 of C_V'45'wrap_82 v18 -> coe - C__'9669'__1318 + C__'9669'__1432 (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v12 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v12) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v12) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v12) - (coe MAlonzo.Code.Utils.C_'42'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v12) - (coe MAlonzo.Code.Utils.C_'42'_778))) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe v13)) (coe MAlonzo.Code.Type.C_ƛ_28 @@ -3530,32 +3782,32 @@ du_step_1350 v0 (coe MAlonzo.Code.Type.C_'8709'_4) (coe v12)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v12) (coe - MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v12) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v12) (coe - MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v12) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) v12 v13)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -3566,7 +3818,7 @@ du_step_1350 v0 (coe v6) (coe v18) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - C_constr'45'_1274 v8 v10 v12 v13 v15 v16 v18 v19 v20 + C_constr'45'_1388 v8 v10 v12 v13 v15 v16 v18 v19 v20 -> case coe v4 of MAlonzo.Code.Type.BetaNormal.C_SOP_28 v22 v23 -> let v24 @@ -3579,7 +3831,7 @@ du_step_1350 v0 (case coe v20 of MAlonzo.Code.Utils.List.C_'91''93'_308 -> coe - C__'9669'__1318 + C__'9669'__1432 (coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 v22 v23) (coe v6) (coe @@ -3594,15 +3846,15 @@ du_step_1350 v0 -> case coe v12 of (:) v29 v30 -> coe - C__'894'_'9659'__1314 (coe v8) (coe v29) + C__'894'_'9659'__1428 (coe v8) (coe v29) (coe - C__'44'__1302 + C__'44'__1416 (coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 v22 v23) v6 (coe - C_constr'45'_1274 v8 + C_constr'45'_1388 v8 (coe MAlonzo.Code.Utils.List.C__'58''60'__12 (coe v10) (coe v1)) @@ -3618,20 +3870,20 @@ du_step_1350 v0 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError)) _ -> MAlonzo.RTE.mazUnreachableError - C_case'45'_1286 v8 v12 v13 + C_case'45'_1400 v8 v12 v13 -> case coe v1 of MAlonzo.Code.Type.BetaNormal.C_SOP_28 v15 v16 -> case coe v3 of C_V'45'constr_140 v18 v20 v21 -> coe - C__'894'_'9659'__1314 (coe v8) + C__'894'_'9659'__1428 (coe v8) (coe MAlonzo.Code.Algorithmic.du_mkCaseType_156 v4 (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v16) (coe v18))) (coe - du_pushValueFrames_1338 (coe v4) + du_pushValueFrames_1452 (coe v4) (coe MAlonzo.Code.Utils.List.du__'60''62''60'__54 (coe MAlonzo.Code.Utils.List.C_'91''93'_10) @@ -3647,35 +3899,35 @@ du_step_1350 v0 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError - C_'9633'_1320 v1 -> coe v0 - C_'9670'_1322 v1 -> coe v0 + C_'9633'_1434 v1 -> coe v0 + C_'9670'_1436 v1 -> coe v0 _ -> MAlonzo.RTE.mazUnreachableError -- Algorithmic.CEK.stepper -d_stepper_1658 :: +d_stepper_1772 :: Integer -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - T_State_1306 -> + T_State_1420 -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_418 T_State_1306 -d_stepper_1658 v0 ~v1 v2 = du_stepper_1658 v0 v2 -du_stepper_1658 :: + MAlonzo.Code.Utils.T_RuntimeError_418 T_State_1420 +d_stepper_1772 v0 ~v1 v2 = du_stepper_1772 v0 v2 +du_stepper_1772 :: Integer -> - T_State_1306 -> + T_State_1420 -> MAlonzo.Code.Utils.T_Either_6 - MAlonzo.Code.Utils.T_RuntimeError_418 T_State_1306 -du_stepper_1658 v0 v1 + MAlonzo.Code.Utils.T_RuntimeError_418 T_State_1420 +du_stepper_1772 v0 v1 = case coe v0 of 0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Utils.C_gasError_420) _ -> let v2 = subInt (coe v0) (coe (1 :: Integer)) in coe - (let v3 = coe du_step_1350 (coe v1) in + (let v3 = coe du_step_1464 (coe v1) in coe (case coe v3 of - C__'894'_'9659'__1314 v4 v5 v6 v7 v8 - -> coe du_stepper_1658 (coe v2) (coe v3) - C__'9669'__1318 v4 v5 v6 -> coe du_stepper_1658 (coe v2) (coe v3) - C_'9633'_1320 v4 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3) - C_'9670'_1322 v4 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3) + C__'894'_'9659'__1428 v4 v5 v6 v7 v8 + -> coe du_stepper_1772 (coe v2) (coe v3) + C__'9669'__1432 v4 v5 v6 -> coe du_stepper_1772 (coe v2) (coe v3) + C_'9633'_1434 v4 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3) + C_'9670'_1436 v4 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3) _ -> MAlonzo.RTE.mazUnreachableError)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CK.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/CK.hs index 4e8ff452d8b..5443db312d0 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'_778) (coe v4) (coe v6) (coe v8)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v4 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'_780) (coe v4))) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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 @@ -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'_778) (coe v14) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v14) (coe v15) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v14) (coe v15) (coe v12)) (coe v8) (coe @@ -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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v14 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v14) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v14) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v14) - (coe MAlonzo.Code.Utils.C_'42'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v14) - (coe MAlonzo.Code.Utils.C_'42'_778))) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v14) (coe - MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v14) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v14) (coe - MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v14) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) v14 v15)) (coe MAlonzo.Code.Type.C_'96'_22 diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Completeness.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Completeness.hs index 91066306bd0..1f1d5ea584c 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'_778) (coe v4)) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v5) + (coe v8) (coe v8) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v2)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_subNf'8709''45'sub'8709'_130 = erased @@ -203,7 +203,7 @@ d_sig2typeΠ'45'lem_210 :: d_sig2typeΠ'45'lem_210 = erased -- Algorithmic.Completeness.sig2type-lem d_sig2type'45'lem_226 :: - MAlonzo.Code.Builtin.Signature.T_Sig_72 -> + MAlonzo.Code.Builtin.Signature.T_Sig_74 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_sig2type'45'lem_226 = erased -- Algorithmic.Completeness.btype-lem @@ -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'_778) (coe v0) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v0) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) 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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe v0) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) + (coe v0) (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_780) (coe v4)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_778) (coe v2)) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v2)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Erasure.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Erasure.hs index 48a1148c465..e7d6212804b 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Erasure.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Erasure.hs @@ -91,10 +91,10 @@ du_eraseVar_28 v0 v1 v2 -- Algorithmic.Erasure.eraseTC d_eraseTC_36 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - AgdaAny -> MAlonzo.Code.RawU.T_TmCon_202 + AgdaAny -> MAlonzo.Code.RawU.T_TmCon_204 d_eraseTC_36 v0 v1 = coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe MAlonzo.Code.Algorithmic.d_ty2sty_64 (coe v0)) (coe v1) -- Algorithmic.Erasure.erase d_erase_48 :: @@ -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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) v9 v10)) (coe MAlonzo.Code.Type.C_'96'_22 (coe MAlonzo.Code.Type.C_Z_16))))) @@ -380,7 +380,7 @@ d_lemcon''_294 :: Integer -> Integer -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> - MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.RawU.T_TmCon_204 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_lemcon''_294 = erased -- Algorithmic.Erasure.lemerror diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Properties.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Properties.hs index a4b65714aac..bf3ec8a1d4d 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 341081f701d..02658090ff2 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC.hs @@ -53,27 +53,27 @@ d_convSigTy_8 :: 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 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 d_convSigTy_8 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 ~v11 ~v12 ~v13 ~v14 v15 = du_convSigTy_8 v15 du_convSigTy_8 :: - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 du_convSigTy_8 v0 = coe v0 -- Algorithmic.ReductionEC._.saturatedSigTy d_saturatedSigTy_10 :: - MAlonzo.Code.Builtin.Signature.T_Sig_72 -> + MAlonzo.Code.Builtin.Signature.T_Sig_74 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> () d_saturatedSigTy_10 = erased -- Algorithmic.ReductionEC._.sig2SigTy d_sig2SigTy_12 :: - MAlonzo.Code.Builtin.Signature.T_Sig_72 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_Sig_74 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 d_sig2SigTy_12 = coe - MAlonzo.Code.Builtin.Signature.du_sig2SigTy_398 + MAlonzo.Code.Builtin.Signature.du_sig2SigTy_400 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -86,11 +86,11 @@ d_sig2SigTy_12 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v1 v2) -- Algorithmic.ReductionEC._.sig2type d_sig2type_14 :: - MAlonzo.Code.Builtin.Signature.T_Sig_72 -> + MAlonzo.Code.Builtin.Signature.T_Sig_74 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sig2type_14 = coe - MAlonzo.Code.Builtin.Signature.du_sig2type_242 + MAlonzo.Code.Builtin.Signature.du_sig2type_244 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -113,7 +113,7 @@ d_sigTy2type_16 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sigTy2type_16 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 v7 ~v8 ~v9 ~v10 = du_sigTy2type_16 v7 @@ -129,11 +129,11 @@ data T_Value_28 C_V'45'I'8658'_184 MAlonzo.Code.Builtin.T_Builtin_2 Integer 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 | + MAlonzo.Code.Builtin.Signature.T_SigTy_268 T_BApp_74 | C_V'45'IΠ_208 MAlonzo.Code.Builtin.T_Builtin_2 Integer Integer 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 | + MAlonzo.Code.Builtin.Signature.T_SigTy_268 T_BApp_74 | C_V'45'constr_234 MAlonzo.Code.Utils.List.T_Bwd_6 MAlonzo.Code.Utils.List.T_IBwd_396 MAlonzo.Code.Utils.List.T_IIBwd_832 @@ -177,7 +177,7 @@ du_deval'45'VecList_48 v0 d_BApp_74 a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = () data T_BApp_74 = C_base_78 | C_step_100 T_BApp_74 T_Value_28 | - C_step'8902'_130 MAlonzo.Code.Builtin.Signature.T_SigTy_266 + C_step'8902'_130 MAlonzo.Code.Builtin.Signature.T_SigTy_268 T_BApp_74 -- Algorithmic.ReductionEC.red2cekVal d_red2cekVal_240 :: @@ -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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) v9 v10)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -314,7 +314,7 @@ d_red2cekBApp_266 :: 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 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> T_BApp_74 -> MAlonzo.Code.Algorithmic.CEK.T_BApp_48 d_red2cekBApp_266 ~v0 ~v1 ~v2 ~v3 v4 ~v5 ~v6 ~v7 v8 ~v9 v10 ~v11 v12 @@ -380,7 +380,7 @@ d_BUILTIN''_326 :: MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> T_BApp_74 -> MAlonzo.Code.Algorithmic.T__'8866'__178 d_BUILTIN''_326 v0 v1 v2 ~v3 v4 ~v5 v6 ~v7 v8 = du_BUILTIN''_326 v0 v1 v2 v4 v6 v8 @@ -393,7 +393,7 @@ du_BUILTIN''_326 :: T_BApp_74 -> MAlonzo.Code.Algorithmic.T__'8866'__178 du_BUILTIN''_326 v0 v1 v2 v3 v4 v5 = coe - MAlonzo.Code.Algorithmic.CEK.du_BUILTIN''_1106 (coe v0) (coe v1) + MAlonzo.Code.Algorithmic.CEK.du_BUILTIN''_1220 (coe v0) (coe v1) (coe du_red2cekBApp_266 (coe v3) (coe v4) (coe v2) (coe v5)) -- Algorithmic.ReductionEC.Error d_Error_338 a0 a1 a2 a3 = () @@ -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_776 + C__'183''8902'_'47'__512 MAlonzo.Code.Utils.T_Kind_782 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_776 + C_unwrap_'47'__534 MAlonzo.Code.Utils.T_Kind_782 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) v9 v10)) (coe MAlonzo.Code.Type.C_'96'_22 @@ -659,7 +659,7 @@ data T__'8212''8594''8902'__652 C_β'45'builtin_720 Integer MAlonzo.Code.Builtin.T_Builtin_2 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 | + MAlonzo.Code.Builtin.Signature.T_SigTy_268 T_BApp_74 T_Value_28 | C_β'45'case_746 MAlonzo.Code.Utils.List.T_Bwd_6 MAlonzo.Code.Utils.List.T_IBwd_396 MAlonzo.Code.Utils.List.T_IIBwd_832 @@ -688,7 +688,7 @@ d_V'45'I_818 :: Integer -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> 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 = du_V'45'I_818 v0 v2 v3 v4 v5 v6 v7 v8 v10 @@ -700,18 +700,18 @@ du_V'45'I_818 :: Integer -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> T_BApp_74 -> T_Value_28 du_V'45'I_818 v0 v1 v2 v3 v4 v5 v6 v7 v8 = case coe v2 of 0 -> case coe v7 of - MAlonzo.Code.Builtin.Signature.C__B'8658'__302 v17 v18 v19 + MAlonzo.Code.Builtin.Signature.C__B'8658'__304 v17 v18 v19 -> coe C_V'45'I'8658'_184 v0 v1 v3 v4 v5 v6 v19 v8 _ -> MAlonzo.RTE.mazUnreachableError _ -> let v9 = subInt (coe v2) (coe (1 :: Integer)) in coe (case coe v7 of - MAlonzo.Code.Builtin.Signature.C_sucΠ_326 v19 v20 v21 + MAlonzo.Code.Builtin.Signature.C_sucΠ_328 v19 v20 v21 -> coe C_V'45'IΠ_208 v0 v1 v9 v3 v4 v5 v6 v21 v8 _ -> MAlonzo.RTE.mazUnreachableError) -- Algorithmic.ReductionEC.ival @@ -720,8 +720,8 @@ d_ival_838 v0 = coe du_V'45'I_818 (coe v0) (coe (0 :: Integer)) (coe - MAlonzo.Code.Builtin.Signature.d_fv_96 - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))) + MAlonzo.Code.Builtin.Signature.d_fv_98 + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0))) (coe MAlonzo.Code.Utils.C_start_192) (coe (0 :: Integer)) (coe MAlonzo.Code.Data.List.Base.du_foldr_216 @@ -731,11 +731,11 @@ d_ival_838 v0 (coe MAlonzo.Code.Data.List.NonEmpty.Base.d_tail_32 (coe - MAlonzo.Code.Builtin.Signature.d_args_86 - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))))) + MAlonzo.Code.Builtin.Signature.d_args_88 + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0))))) (coe MAlonzo.Code.Utils.C_start_192) (coe - MAlonzo.Code.Builtin.Signature.du_sig2SigTy_398 + MAlonzo.Code.Builtin.Signature.du_sig2SigTy_400 (\ v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v3) (coe (\ v1 v2 v3 v4 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v4)) @@ -746,5 +746,5 @@ d_ival_838 v0 (\ v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v2 v3) (\ v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v2 v3) - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))) + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0))) (coe C_base_78) diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC/Progress.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC/Progress.hs index 0a1c1377d13..da403442884 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC/Progress.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/ReductionEC/Progress.hs @@ -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'_778) (coe v2) (coe v4) (coe v6)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v2) (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v2) (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v2) (coe v4) (coe v6)) (coe MAlonzo.Code.Algorithmic.C__'183''8902'_'47'__212 v2 v4 @@ -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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d__'183'V__150 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v7) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v2 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778))) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v2 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v2 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 (coe MAlonzo.Code.Type.C_'8709'_4) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v2) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) 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 26bdd4dd31a..032dee60876 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v10)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d__'183'V__150 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) (coe v16)) + (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v9)) + (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v6)) + (coe v1) (coe v3) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v6)) (coe MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d_subNf_104 (coe v0) - (coe v1) (coe v3) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) + (coe v1) (coe v3) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v10))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v10))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v13 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v1) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNormal.du_embNf'45'VecList_148 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v16))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNormal.du_embNf'45'VecList_148 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v11 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v11) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v11) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 3ad52e5b8d0..d0a8e196ab4 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Signature.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Signature.hs @@ -46,14 +46,14 @@ d_convSigTy_8 :: 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 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 d_convSigTy_8 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 ~v11 ~v12 ~v13 ~v14 v15 = du_convSigTy_8 v15 du_convSigTy_8 :: - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 du_convSigTy_8 v0 = coe v0 -- Algorithmic.Signature._.mkTy d_mkTy_10 :: @@ -63,7 +63,7 @@ d_mkTy_10 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_mkTy_10 = coe - MAlonzo.Code.Builtin.Signature.du_mkTy_204 + MAlonzo.Code.Builtin.Signature.du_mkTy_206 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -73,11 +73,11 @@ d_mkTy_10 (\ v0 v1 -> coe MAlonzo.Code.Type.BetaNormal.C_con_22 v1) -- Algorithmic.Signature._.sig2type d_sig2type_12 :: - MAlonzo.Code.Builtin.Signature.T_Sig_72 -> + MAlonzo.Code.Builtin.Signature.T_Sig_74 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sig2type_12 = coe - MAlonzo.Code.Builtin.Signature.du_sig2type_242 + MAlonzo.Code.Builtin.Signature.du_sig2type_244 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -96,7 +96,7 @@ d_sig2typeΠ_14 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sig2typeΠ_14 = coe - MAlonzo.Code.Builtin.Signature.du_sig2typeΠ_228 + MAlonzo.Code.Builtin.Signature.du_sig2typeΠ_230 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v1 v2) -- Algorithmic.Signature._.sig2type⇒ d_sig2type'8658'_16 :: @@ -107,7 +107,7 @@ d_sig2type'8658'_16 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sig2type'8658'_16 = coe - MAlonzo.Code.Builtin.Signature.du_sig2type'8658'_214 + MAlonzo.Code.Builtin.Signature.du_sig2type'8658'_216 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -129,7 +129,7 @@ d_sigTy2type_18 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sigTy2type_18 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 v7 ~v8 ~v9 ~v10 = du_sigTy2type_18 v7 @@ -145,7 +145,7 @@ d_'8866''9839'2TyNe'9839'_20 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 d_'8866''9839'2TyNe'9839'_20 = coe - MAlonzo.Code.Builtin.Signature.du_'8866''9839'2TyNe'9839'_186 + MAlonzo.Code.Builtin.Signature.du_'8866''9839'2TyNe'9839'_188 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -160,9 +160,9 @@ 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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe - MAlonzo.Code.Builtin.Signature.du_sig2type_242 + MAlonzo.Code.Builtin.Signature.du_sig2type_244 (\ v2 v3 v4 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v4) (coe (\ v2 v3 v4 v5 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v5)) @@ -173,13 +173,13 @@ d_btype_30 v0 v1 (\ v2 v3 v4 -> coe MAlonzo.Code.Type.BetaNormal.C__'8658'__16 v3 v4) (\ v2 v3 v4 -> coe MAlonzo.Code.Type.BetaNormal.C_Π_14 v3 v4) - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v1))) + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v1))) -- Algorithmic.Signature.btype-ren 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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,7 +209,7 @@ 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> Integer -> @@ -221,52 +221,52 @@ d_subSigTy_108 :: Integer -> 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 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 d_subSigTy_108 v0 v1 v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 ~v11 v12 = du_subSigTy_108 v0 v1 v2 v12 du_subSigTy_108 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 du_subSigTy_108 v0 v1 v2 v3 = case coe v3 of - MAlonzo.Code.Builtin.Signature.C_bresult_280 - -> coe MAlonzo.Code.Builtin.Signature.C_bresult_280 - MAlonzo.Code.Builtin.Signature.C__B'8658'__302 v12 v13 v14 + MAlonzo.Code.Builtin.Signature.C_bresult_282 + -> coe MAlonzo.Code.Builtin.Signature.C_bresult_282 + MAlonzo.Code.Builtin.Signature.C__B'8658'__304 v12 v13 v14 -> coe - MAlonzo.Code.Builtin.Signature.C__B'8658'__302 + MAlonzo.Code.Builtin.Signature.C__B'8658'__304 (MAlonzo.Code.Type.BetaNBE.RenamingSubstitution.d_subNf_104 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v12)) (MAlonzo.Code.Type.BetaNBE.d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v1) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v13))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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 + MAlonzo.Code.Builtin.Signature.C_sucΠ_328 v13 v14 v15 -> coe - MAlonzo.Code.Builtin.Signature.C_sucΠ_326 v13 + MAlonzo.Code.Builtin.Signature.C_sucΠ_328 v13 (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v14))) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v14))) (coe (\ v16 v17 -> coe @@ -301,7 +301,7 @@ 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> Integer -> Integer -> Integer -> @@ -311,18 +311,18 @@ d__'91'_'93'SigTy_150 :: Integer -> 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_268 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 d__'91'_'93'SigTy_150 v0 v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 v11 v12 = 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_776 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 du__'91'_'93'SigTy_150 v0 v1 v2 v3 = coe du_subSigTy_108 @@ -348,7 +348,7 @@ d_uniqueSigTy_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 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_uniqueSigTy_180 = erased diff --git a/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Soundness.hs b/plutus-metatheory/src/MAlonzo/Code/Algorithmic/Soundness.hs index b1f7d1b126d..a6ff92799db 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'_778) (coe v4)) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v6)) + (coe v8) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.RenamingSubstitution.d__'91'_'93'_432 (coe v0) - (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) + (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v3)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.RenamingSubstitution.d__'91'_'93'_432 (coe v0) - (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) + (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v3)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v1 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784))) v1 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v1 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784))) v1 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v1) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v2)))) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v2)))) (MAlonzo.Code.Type.BetaNBE.Soundness.d_soundness_470 - (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v2))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v1) - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v2)))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v2)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_780) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_786) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_780) (coe v3)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_780) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_786) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C_'9839'_780) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v1) - (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v2)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_780) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_786) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v3) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_780) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_780) (coe v3)))) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_780) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe MAlonzo.Code.Type.C_'8709'_4) - (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v1))) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_780) (coe v1)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v4)) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v6)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v6)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNBE.d_nf_258 (coe v0) - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784))) v4 (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) + (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_780) (coe v4)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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 426470a0d5f..e8c84c8f1f1 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Builtin.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Builtin.hs @@ -49,6 +49,7 @@ import PlutusCore.Crypto.Ed25519 import PlutusCore.Crypto.Secp256k1 import PlutusPrelude (reoption) import PlutusCore.Builtin (BuiltinResult) +import PlutusCore.Value as Value import PlutusCore.Crypto.BLS12_381.G1 qualified as G1 import PlutusCore.Crypto.BLS12_381.G2 qualified as G2 import PlutusCore.Crypto.BLS12_381.Pairing qualified as Pairing @@ -113,46 +114,53 @@ pattern C_unIData_104 = UnIData pattern C_unBData_106 = UnBData pattern C_equalsData_108 = EqualsData pattern C_serialiseData_110 = SerialiseData -pattern C_mkPairData_112 = MkPairData -pattern C_mkNilData_114 = MkNilData -pattern C_mkNilPairData_116 = MkNilPairData -pattern C_bls12'45'381'45'G1'45'add_118 = Bls12_381_G1_add -pattern C_bls12'45'381'45'G1'45'neg_120 = Bls12_381_G1_neg -pattern C_bls12'45'381'45'G1'45'scalarMul_122 = Bls12_381_G1_scalarMul -pattern C_bls12'45'381'45'G1'45'equal_124 = Bls12_381_G1_equal -pattern C_bls12'45'381'45'G1'45'hashToGroup_126 = Bls12_381_G1_hashToGroup -pattern C_bls12'45'381'45'G1'45'compress_128 = Bls12_381_G1_compress -pattern C_bls12'45'381'45'G1'45'uncompress_130 = Bls12_381_G1_uncompress -pattern C_bls12'45'381'45'G2'45'add_132 = Bls12_381_G2_add -pattern C_bls12'45'381'45'G2'45'neg_134 = Bls12_381_G2_neg -pattern C_bls12'45'381'45'G2'45'scalarMul_136 = Bls12_381_G2_scalarMul -pattern C_bls12'45'381'45'G2'45'equal_138 = Bls12_381_G2_equal -pattern C_bls12'45'381'45'G2'45'hashToGroup_140 = Bls12_381_G2_hashToGroup -pattern C_bls12'45'381'45'G2'45'compress_142 = Bls12_381_G2_compress -pattern C_bls12'45'381'45'G2'45'uncompress_144 = Bls12_381_G2_uncompress -pattern C_bls12'45'381'45'millerLoop_146 = Bls12_381_millerLoop -pattern C_bls12'45'381'45'mulMlResult_148 = Bls12_381_mulMlResult -pattern C_bls12'45'381'45'finalVerify_150 = Bls12_381_finalVerify -pattern C_keccak'45'256_152 = Keccak_256 -pattern C_blake2b'45'224_154 = Blake2b_224 -pattern C_byteStringToInteger_156 = ByteStringToInteger -pattern C_integerToByteString_158 = IntegerToByteString -pattern C_andByteString_160 = AndByteString -pattern C_orByteString_162 = OrByteString -pattern C_xorByteString_164 = XorByteString -pattern C_complementByteString_166 = ComplementByteString -pattern C_readBit_168 = ReadBit -pattern C_writeBits_170 = WriteBits -pattern C_replicateByte_172 = ReplicateByte -pattern C_shiftByteString_174 = ShiftByteString -pattern C_rotateByteString_176 = RotateByteString -pattern C_countSetBits_178 = CountSetBits -pattern C_findFirstSetBit_180 = FindFirstSetBit -pattern C_ripemd'45'160_182 = Ripemd_160 -pattern C_expModInteger_184 = ExpModInteger -pattern C_dropList_186 = DropList -pattern C_bls12'45'381'45'G1'45'multiScalarMul_188 = Bls12_381_G1_multiScalarMul -pattern C_bls12'45'381'45'G2'45'multiScalarMul_190 = Bls12_381_G2_multiScalarMul +pattern C_insertCoin_112 = InsertCoin +pattern C_lookupCoin_114 = LookupCoin +pattern C_unionValue_116 = UnionValue +pattern C_valueContains_118 = ValueContains +pattern C_scaleValue_120 = ScaleValue +pattern C_valueData_122 = ValueData +pattern C_unValueData_124 = UnValueData +pattern C_mkPairData_126 = MkPairData +pattern C_mkNilData_128 = MkNilData +pattern C_mkNilPairData_130 = MkNilPairData +pattern C_bls12'45'381'45'G1'45'add_132 = Bls12_381_G1_add +pattern C_bls12'45'381'45'G1'45'neg_134 = Bls12_381_G1_neg +pattern C_bls12'45'381'45'G1'45'scalarMul_136 = Bls12_381_G1_scalarMul +pattern C_bls12'45'381'45'G1'45'equal_138 = Bls12_381_G1_equal +pattern C_bls12'45'381'45'G1'45'hashToGroup_140 = Bls12_381_G1_hashToGroup +pattern C_bls12'45'381'45'G1'45'compress_142 = Bls12_381_G1_compress +pattern C_bls12'45'381'45'G1'45'uncompress_144 = Bls12_381_G1_uncompress +pattern C_bls12'45'381'45'G2'45'add_146 = Bls12_381_G2_add +pattern C_bls12'45'381'45'G2'45'neg_148 = Bls12_381_G2_neg +pattern C_bls12'45'381'45'G2'45'scalarMul_150 = Bls12_381_G2_scalarMul +pattern C_bls12'45'381'45'G2'45'equal_152 = Bls12_381_G2_equal +pattern C_bls12'45'381'45'G2'45'hashToGroup_154 = Bls12_381_G2_hashToGroup +pattern C_bls12'45'381'45'G2'45'compress_156 = Bls12_381_G2_compress +pattern C_bls12'45'381'45'G2'45'uncompress_158 = Bls12_381_G2_uncompress +pattern C_bls12'45'381'45'millerLoop_160 = Bls12_381_millerLoop +pattern C_bls12'45'381'45'mulMlResult_162 = Bls12_381_mulMlResult +pattern C_bls12'45'381'45'finalVerify_164 = Bls12_381_finalVerify +pattern C_keccak'45'256_166 = Keccak_256 +pattern C_blake2b'45'224_168 = Blake2b_224 +pattern C_byteStringToInteger_170 = ByteStringToInteger +pattern C_integerToByteString_172 = IntegerToByteString +pattern C_andByteString_174 = AndByteString +pattern C_orByteString_176 = OrByteString +pattern C_xorByteString_178 = XorByteString +pattern C_complementByteString_180 = ComplementByteString +pattern C_readBit_182 = ReadBit +pattern C_writeBits_184 = WriteBits +pattern C_replicateByte_186 = ReplicateByte +pattern C_shiftByteString_188 = ShiftByteString +pattern C_rotateByteString_190 = RotateByteString +pattern C_countSetBits_192 = CountSetBits +pattern C_findFirstSetBit_194 = FindFirstSetBit +pattern C_ripemd'45'160_196 = Ripemd_160 +pattern C_expModInteger_198 = ExpModInteger +pattern C_dropList_200 = DropList +pattern C_bls12'45'381'45'G1'45'multiScalarMul_202 = Bls12_381_G1_multiScalarMul +pattern C_bls12'45'381'45'G2'45'multiScalarMul_204 = Bls12_381_G2_multiScalarMul check_addInteger_4 :: T_Builtin_2 check_addInteger_4 = AddInteger check_subtractInteger_6 :: T_Builtin_2 @@ -263,91 +271,105 @@ check_equalsData_108 :: T_Builtin_2 check_equalsData_108 = EqualsData check_serialiseData_110 :: T_Builtin_2 check_serialiseData_110 = SerialiseData -check_mkPairData_112 :: T_Builtin_2 -check_mkPairData_112 = MkPairData -check_mkNilData_114 :: T_Builtin_2 -check_mkNilData_114 = MkNilData -check_mkNilPairData_116 :: T_Builtin_2 -check_mkNilPairData_116 = MkNilPairData -check_bls12'45'381'45'G1'45'add_118 :: T_Builtin_2 -check_bls12'45'381'45'G1'45'add_118 = Bls12_381_G1_add -check_bls12'45'381'45'G1'45'neg_120 :: T_Builtin_2 -check_bls12'45'381'45'G1'45'neg_120 = Bls12_381_G1_neg -check_bls12'45'381'45'G1'45'scalarMul_122 :: T_Builtin_2 -check_bls12'45'381'45'G1'45'scalarMul_122 = Bls12_381_G1_scalarMul -check_bls12'45'381'45'G1'45'equal_124 :: T_Builtin_2 -check_bls12'45'381'45'G1'45'equal_124 = Bls12_381_G1_equal -check_bls12'45'381'45'G1'45'hashToGroup_126 :: T_Builtin_2 -check_bls12'45'381'45'G1'45'hashToGroup_126 +check_insertCoin_112 :: T_Builtin_2 +check_insertCoin_112 = InsertCoin +check_lookupCoin_114 :: T_Builtin_2 +check_lookupCoin_114 = LookupCoin +check_unionValue_116 :: T_Builtin_2 +check_unionValue_116 = UnionValue +check_valueContains_118 :: T_Builtin_2 +check_valueContains_118 = ValueContains +check_scaleValue_120 :: T_Builtin_2 +check_scaleValue_120 = ScaleValue +check_valueData_122 :: T_Builtin_2 +check_valueData_122 = ValueData +check_unValueData_124 :: T_Builtin_2 +check_unValueData_124 = UnValueData +check_mkPairData_126 :: T_Builtin_2 +check_mkPairData_126 = MkPairData +check_mkNilData_128 :: T_Builtin_2 +check_mkNilData_128 = MkNilData +check_mkNilPairData_130 :: T_Builtin_2 +check_mkNilPairData_130 = MkNilPairData +check_bls12'45'381'45'G1'45'add_132 :: T_Builtin_2 +check_bls12'45'381'45'G1'45'add_132 = Bls12_381_G1_add +check_bls12'45'381'45'G1'45'neg_134 :: T_Builtin_2 +check_bls12'45'381'45'G1'45'neg_134 = Bls12_381_G1_neg +check_bls12'45'381'45'G1'45'scalarMul_136 :: T_Builtin_2 +check_bls12'45'381'45'G1'45'scalarMul_136 = Bls12_381_G1_scalarMul +check_bls12'45'381'45'G1'45'equal_138 :: T_Builtin_2 +check_bls12'45'381'45'G1'45'equal_138 = Bls12_381_G1_equal +check_bls12'45'381'45'G1'45'hashToGroup_140 :: T_Builtin_2 +check_bls12'45'381'45'G1'45'hashToGroup_140 = Bls12_381_G1_hashToGroup -check_bls12'45'381'45'G1'45'compress_128 :: T_Builtin_2 -check_bls12'45'381'45'G1'45'compress_128 = Bls12_381_G1_compress -check_bls12'45'381'45'G1'45'uncompress_130 :: T_Builtin_2 -check_bls12'45'381'45'G1'45'uncompress_130 +check_bls12'45'381'45'G1'45'compress_142 :: T_Builtin_2 +check_bls12'45'381'45'G1'45'compress_142 = Bls12_381_G1_compress +check_bls12'45'381'45'G1'45'uncompress_144 :: T_Builtin_2 +check_bls12'45'381'45'G1'45'uncompress_144 = Bls12_381_G1_uncompress -check_bls12'45'381'45'G2'45'add_132 :: T_Builtin_2 -check_bls12'45'381'45'G2'45'add_132 = Bls12_381_G2_add -check_bls12'45'381'45'G2'45'neg_134 :: T_Builtin_2 -check_bls12'45'381'45'G2'45'neg_134 = Bls12_381_G2_neg -check_bls12'45'381'45'G2'45'scalarMul_136 :: T_Builtin_2 -check_bls12'45'381'45'G2'45'scalarMul_136 = Bls12_381_G2_scalarMul -check_bls12'45'381'45'G2'45'equal_138 :: T_Builtin_2 -check_bls12'45'381'45'G2'45'equal_138 = Bls12_381_G2_equal -check_bls12'45'381'45'G2'45'hashToGroup_140 :: T_Builtin_2 -check_bls12'45'381'45'G2'45'hashToGroup_140 +check_bls12'45'381'45'G2'45'add_146 :: T_Builtin_2 +check_bls12'45'381'45'G2'45'add_146 = Bls12_381_G2_add +check_bls12'45'381'45'G2'45'neg_148 :: T_Builtin_2 +check_bls12'45'381'45'G2'45'neg_148 = Bls12_381_G2_neg +check_bls12'45'381'45'G2'45'scalarMul_150 :: T_Builtin_2 +check_bls12'45'381'45'G2'45'scalarMul_150 = Bls12_381_G2_scalarMul +check_bls12'45'381'45'G2'45'equal_152 :: T_Builtin_2 +check_bls12'45'381'45'G2'45'equal_152 = Bls12_381_G2_equal +check_bls12'45'381'45'G2'45'hashToGroup_154 :: T_Builtin_2 +check_bls12'45'381'45'G2'45'hashToGroup_154 = Bls12_381_G2_hashToGroup -check_bls12'45'381'45'G2'45'compress_142 :: T_Builtin_2 -check_bls12'45'381'45'G2'45'compress_142 = Bls12_381_G2_compress -check_bls12'45'381'45'G2'45'uncompress_144 :: T_Builtin_2 -check_bls12'45'381'45'G2'45'uncompress_144 +check_bls12'45'381'45'G2'45'compress_156 :: T_Builtin_2 +check_bls12'45'381'45'G2'45'compress_156 = Bls12_381_G2_compress +check_bls12'45'381'45'G2'45'uncompress_158 :: T_Builtin_2 +check_bls12'45'381'45'G2'45'uncompress_158 = Bls12_381_G2_uncompress -check_bls12'45'381'45'millerLoop_146 :: T_Builtin_2 -check_bls12'45'381'45'millerLoop_146 = Bls12_381_millerLoop -check_bls12'45'381'45'mulMlResult_148 :: T_Builtin_2 -check_bls12'45'381'45'mulMlResult_148 = Bls12_381_mulMlResult -check_bls12'45'381'45'finalVerify_150 :: T_Builtin_2 -check_bls12'45'381'45'finalVerify_150 = Bls12_381_finalVerify -check_keccak'45'256_152 :: T_Builtin_2 -check_keccak'45'256_152 = Keccak_256 -check_blake2b'45'224_154 :: T_Builtin_2 -check_blake2b'45'224_154 = Blake2b_224 -check_byteStringToInteger_156 :: T_Builtin_2 -check_byteStringToInteger_156 = ByteStringToInteger -check_integerToByteString_158 :: T_Builtin_2 -check_integerToByteString_158 = IntegerToByteString -check_andByteString_160 :: T_Builtin_2 -check_andByteString_160 = AndByteString -check_orByteString_162 :: T_Builtin_2 -check_orByteString_162 = OrByteString -check_xorByteString_164 :: T_Builtin_2 -check_xorByteString_164 = XorByteString -check_complementByteString_166 :: T_Builtin_2 -check_complementByteString_166 = ComplementByteString -check_readBit_168 :: T_Builtin_2 -check_readBit_168 = ReadBit -check_writeBits_170 :: T_Builtin_2 -check_writeBits_170 = WriteBits -check_replicateByte_172 :: T_Builtin_2 -check_replicateByte_172 = ReplicateByte -check_shiftByteString_174 :: T_Builtin_2 -check_shiftByteString_174 = ShiftByteString -check_rotateByteString_176 :: T_Builtin_2 -check_rotateByteString_176 = RotateByteString -check_countSetBits_178 :: T_Builtin_2 -check_countSetBits_178 = CountSetBits -check_findFirstSetBit_180 :: T_Builtin_2 -check_findFirstSetBit_180 = FindFirstSetBit -check_ripemd'45'160_182 :: T_Builtin_2 -check_ripemd'45'160_182 = Ripemd_160 -check_expModInteger_184 :: T_Builtin_2 -check_expModInteger_184 = ExpModInteger -check_dropList_186 :: T_Builtin_2 -check_dropList_186 = DropList -check_bls12'45'381'45'G1'45'multiScalarMul_188 :: T_Builtin_2 -check_bls12'45'381'45'G1'45'multiScalarMul_188 +check_bls12'45'381'45'millerLoop_160 :: T_Builtin_2 +check_bls12'45'381'45'millerLoop_160 = Bls12_381_millerLoop +check_bls12'45'381'45'mulMlResult_162 :: T_Builtin_2 +check_bls12'45'381'45'mulMlResult_162 = Bls12_381_mulMlResult +check_bls12'45'381'45'finalVerify_164 :: T_Builtin_2 +check_bls12'45'381'45'finalVerify_164 = Bls12_381_finalVerify +check_keccak'45'256_166 :: T_Builtin_2 +check_keccak'45'256_166 = Keccak_256 +check_blake2b'45'224_168 :: T_Builtin_2 +check_blake2b'45'224_168 = Blake2b_224 +check_byteStringToInteger_170 :: T_Builtin_2 +check_byteStringToInteger_170 = ByteStringToInteger +check_integerToByteString_172 :: T_Builtin_2 +check_integerToByteString_172 = IntegerToByteString +check_andByteString_174 :: T_Builtin_2 +check_andByteString_174 = AndByteString +check_orByteString_176 :: T_Builtin_2 +check_orByteString_176 = OrByteString +check_xorByteString_178 :: T_Builtin_2 +check_xorByteString_178 = XorByteString +check_complementByteString_180 :: T_Builtin_2 +check_complementByteString_180 = ComplementByteString +check_readBit_182 :: T_Builtin_2 +check_readBit_182 = ReadBit +check_writeBits_184 :: T_Builtin_2 +check_writeBits_184 = WriteBits +check_replicateByte_186 :: T_Builtin_2 +check_replicateByte_186 = ReplicateByte +check_shiftByteString_188 :: T_Builtin_2 +check_shiftByteString_188 = ShiftByteString +check_rotateByteString_190 :: T_Builtin_2 +check_rotateByteString_190 = RotateByteString +check_countSetBits_192 :: T_Builtin_2 +check_countSetBits_192 = CountSetBits +check_findFirstSetBit_194 :: T_Builtin_2 +check_findFirstSetBit_194 = FindFirstSetBit +check_ripemd'45'160_196 :: T_Builtin_2 +check_ripemd'45'160_196 = Ripemd_160 +check_expModInteger_198 :: T_Builtin_2 +check_expModInteger_198 = ExpModInteger +check_dropList_200 :: T_Builtin_2 +check_dropList_200 = DropList +check_bls12'45'381'45'G1'45'multiScalarMul_202 :: T_Builtin_2 +check_bls12'45'381'45'G1'45'multiScalarMul_202 = Bls12_381_G1_multiScalarMul -check_bls12'45'381'45'G2'45'multiScalarMul_190 :: T_Builtin_2 -check_bls12'45'381'45'G2'45'multiScalarMul_190 +check_bls12'45'381'45'G2'45'multiScalarMul_204 :: T_Builtin_2 +check_bls12'45'381'45'G2'45'multiScalarMul_204 = Bls12_381_G2_multiScalarMul cover_Builtin_2 :: DefaultFun -> () cover_Builtin_2 x @@ -406,6 +428,13 @@ cover_Builtin_2 x UnBData -> () EqualsData -> () SerialiseData -> () + InsertCoin -> () + LookupCoin -> () + UnionValue -> () + ValueContains -> () + ScaleValue -> () + ValueData -> () + UnValueData -> () MkPairData -> () MkNilData -> () MkNilPairData -> () @@ -447,121 +476,121 @@ cover_Builtin_2 x Bls12_381_G1_multiScalarMul -> () Bls12_381_G2_multiScalarMul -> () -- Builtin.SugaredSignature.∙ -d_'8729'_194 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -d_'8729'_194 +d_'8729'_208 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_'8729'_208 = coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe (0 :: Integer)) (coe (0 :: Integer)) -- Builtin.SugaredSignature.∀a -d_'8704'a_196 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -d_'8704'a_196 +d_'8704'a_210 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_'8704'a_210 = coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe (0 :: Integer)) (coe (1 :: Integer)) -- Builtin.SugaredSignature.∀b,a -d_'8704'b'44'a_198 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -d_'8704'b'44'a_198 +d_'8704'b'44'a_212 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_'8704'b'44'a_212 = coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe (0 :: Integer)) (coe (2 :: Integer)) -- Builtin.SugaredSignature.∀A -d_'8704'A_200 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -d_'8704'A_200 +d_'8704'A_214 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_'8704'A_214 = coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe (1 :: Integer)) (coe (0 :: Integer)) -- Builtin.SugaredSignature.∀A,a -d_'8704'A'44'a_202 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -d_'8704'A'44'a_202 +d_'8704'A'44'a_216 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 +d_'8704'A'44'a_216 = coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe (1 :: Integer)) (coe (1 :: Integer)) -- Builtin.SugaredSignature.A -d_A_208 :: +d_A_222 :: Integer -> Integer -> MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -d_A_208 ~v0 ~v1 = du_A_208 -du_A_208 :: MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -du_A_208 +d_A_222 ~v0 ~v1 = du_A_222 +du_A_222 :: MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 +du_A_222 = coe MAlonzo.Code.Builtin.Signature.C_'96'_32 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) -- Builtin.SugaredSignature.a -d_a_218 :: +d_a_232 :: Integer -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -d_a_218 ~v0 = du_a_218 -du_a_218 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -du_a_218 +d_a_232 ~v0 = du_a_232 +du_a_232 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 +du_a_232 = coe MAlonzo.Code.Builtin.Signature.C_'96'_8 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) -- Builtin.SugaredSignature.b -d_b_222 :: +d_b_236 :: Integer -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -d_b_222 ~v0 = du_b_222 -du_b_222 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -du_b_222 +d_b_236 ~v0 = du_b_236 +du_b_236 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 +du_b_236 = coe MAlonzo.Code.Builtin.Signature.C_'96'_8 (coe MAlonzo.Code.Data.Fin.Base.C_suc_16 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) -- Builtin.SugaredSignature.pair -d_pair_228 :: +d_pair_242 :: Integer -> Integer -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -d_pair_228 ~v0 ~v1 v2 v3 = du_pair_228 v2 v3 -du_pair_228 :: +d_pair_242 ~v0 ~v1 v2 v3 = du_pair_242 v2 v3 +du_pair_242 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -du_pair_228 v0 v1 +du_pair_242 v0 v1 = coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_pair_24 v0 v1) -- Builtin.SugaredSignature.list -d_list_238 :: +d_list_252 :: Integer -> Integer -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -d_list_238 ~v0 ~v1 v2 = du_list_238 v2 -du_list_238 :: +d_list_252 ~v0 ~v1 v2 = du_list_252 v2 +du_list_252 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -du_list_238 v0 +du_list_252 v0 = coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_list_16 v0) -- Builtin.SugaredSignature.array -d_array_246 :: +d_array_260 :: Integer -> Integer -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -d_array_246 ~v0 ~v1 v2 = du_array_246 v2 -du_array_246 :: +d_array_260 ~v0 ~v1 v2 = du_array_260 v2 +du_array_260 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -du_array_246 v0 +du_array_260 v0 = coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_array_20 v0) -- Builtin.SugaredSignature.ArgSet -d_ArgSet_250 :: () -d_ArgSet_250 = erased +d_ArgSet_264 :: () +d_ArgSet_264 = erased -- Builtin.SugaredSignature.ArgTy -d_ArgTy_258 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> () -d_ArgTy_258 = erased +d_ArgTy_272 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> () +d_ArgTy_272 = erased -- Builtin.SugaredSignature._[_ -d__'91'__266 :: +d__'91'__280 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -d__'91'__266 v0 v1 +d__'91'__280 v0 v1 = coe seq (coe v0) (coe @@ -569,11 +598,11 @@ d__'91'__266 v0 v1 (coe MAlonzo.Code.Data.List.NonEmpty.Base.du_'91'_'93'_42 (coe v1))) -- Builtin.SugaredSignature._,_ -d__'44'__276 :: +d__'44'__290 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -d__'44'__276 v0 v1 +d__'44'__290 v0 v1 = case coe v0 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v2 v3 -> coe @@ -585,32 +614,32 @@ d__'44'__276 v0 v1 (coe v3))) _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.SugaredSignature._]⟶_ -d__'93''10230'__288 :: +d__'93''10230'__302 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> MAlonzo.Code.Builtin.Signature.T__'47'_'8866''8902'_26 -> - MAlonzo.Code.Builtin.Signature.T_Sig_72 -d__'93''10230'__288 v0 v1 + MAlonzo.Code.Builtin.Signature.T_Sig_74 +d__'93''10230'__302 v0 v1 = case coe v0 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v2 v3 -> case coe v2 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v4 v5 -> coe - MAlonzo.Code.Builtin.Signature.C_sig_90 (coe v4) (coe v5) (coe v3) + MAlonzo.Code.Builtin.Signature.C_sig_92 (coe v4) (coe v5) (coe v3) (coe v1) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.SugaredSignature.signature -d_signature_298 :: - T_Builtin_2 -> MAlonzo.Code.Builtin.Signature.T_Sig_72 -d_signature_298 v0 +d_signature_312 :: + T_Builtin_2 -> MAlonzo.Code.Builtin.Signature.T_Sig_74 +d_signature_312 v0 = case coe v0 of C_addInteger_4 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -628,11 +657,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_subtractInteger_6 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -650,11 +679,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_multiplyInteger_8 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -672,11 +701,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_divideInteger_10 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -694,11 +723,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_quotientInteger_12 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -716,11 +745,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_remainderInteger_14 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -738,11 +767,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_modInteger_16 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -760,11 +789,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_equalsInteger_18 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -782,11 +811,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_lessThanInteger_20 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -804,11 +833,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_lessThanEqualsInteger_22 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -826,11 +855,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_appendByteString_24 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -848,11 +877,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) C_consByteString_26 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -870,13 +899,13 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) C_sliceByteString_28 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -899,9 +928,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) C_lengthOfByteString_30 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -914,11 +943,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_indexByteString_32 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -936,11 +965,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_equalsByteString_34 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -958,11 +987,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_lessThanByteString_36 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -980,11 +1009,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_lessThanEqualsByteString_38 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1002,9 +1031,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_sha2'45'256_40 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1017,9 +1046,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) C_sha3'45'256_42 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1032,9 +1061,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) C_blake2b'45'256_44 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1047,13 +1076,13 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) C_verifyEd25519Signature_46 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1076,13 +1105,13 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_verifyEcdsaSecp256k1Signature_48 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1105,13 +1134,13 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_verifySchnorrSecp256k1Signature_50 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1134,11 +1163,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_appendString_52 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1156,11 +1185,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aString_12))) C_equalsString_54 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1178,9 +1207,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_encodeUtf8_56 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1193,9 +1222,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) C_decodeUtf8_58 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1208,100 +1237,100 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aString_12))) C_ifThenElse_60 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8704'A_200) + d__'91'__280 (coe d_'8704'A_214) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)))) - (coe du_A_208)) - (coe du_A_208)) - (coe du_A_208) + (coe du_A_222)) + (coe du_A_222)) + (coe du_A_222) C_chooseUnit_62 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 (coe d__'91'__266 (coe d_'8704'A_200) (coe du_A_208)) + d__'44'__290 (coe d__'91'__280 (coe d_'8704'A_214) (coe du_A_222)) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14)))) - (coe du_A_208) + (coe du_A_222) C_trace_64 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8704'A_200) + d__'91'__280 (coe d_'8704'A_214) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aString_12)))) - (coe du_A_208)) - (coe du_A_208) + (coe du_A_222)) + (coe du_A_222) C_fstPair_66 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8704'b'44'a_198) - (coe du_pair_228 (coe du_b_222) (coe du_a_218))) - (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe du_b_222)) + d__'91'__280 (coe d_'8704'b'44'a_212) + (coe du_pair_242 (coe du_b_236) (coe du_a_232))) + (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe du_b_236)) C_sndPair_68 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8704'b'44'a_198) - (coe du_pair_228 (coe du_b_222) (coe du_a_218))) - (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe du_a_218)) + d__'91'__280 (coe d_'8704'b'44'a_212) + (coe du_pair_242 (coe du_b_236) (coe du_a_232))) + (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe du_a_232)) C_chooseList_70 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8704'A'44'a_202) - (coe du_list_238 (coe du_a_218))) - (coe du_A_208)) - (coe du_A_208)) - (coe du_A_208) + d__'91'__280 (coe d_'8704'A'44'a_216) + (coe du_list_252 (coe du_a_232))) + (coe du_A_222)) + (coe du_A_222)) + (coe du_A_222) C_mkCons_72 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8704'a_196) - (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe du_a_218))) - (coe du_list_238 (coe du_a_218))) - (coe du_list_238 (coe du_a_218)) + d__'91'__280 (coe d_'8704'a_210) + (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe du_a_232))) + (coe du_list_252 (coe du_a_232))) + (coe du_list_252 (coe du_a_232)) C_headList_74 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8704'a_196) (coe du_list_238 (coe du_a_218))) - (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe du_a_218)) + d__'91'__280 (coe d_'8704'a_210) (coe du_list_252 (coe du_a_232))) + (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe du_a_232)) C_tailList_76 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8704'a_196) (coe du_list_238 (coe du_a_218))) - (coe du_list_238 (coe du_a_218)) + d__'91'__280 (coe d_'8704'a_210) (coe du_list_252 (coe du_a_232))) + (coe du_list_252 (coe du_a_232)) C_nullList_78 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8704'a_196) (coe du_list_238 (coe du_a_218))) + d__'91'__280 (coe d_'8704'a_210) (coe du_list_252 (coe du_a_232))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1309,9 +1338,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_lengthOfArray_80 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8704'a_196) (coe du_array_246 (coe du_a_218))) + d__'91'__280 (coe d_'8704'a_210) (coe du_array_260 (coe du_a_232))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1319,63 +1348,63 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_listToArray_82 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8704'a_196) (coe du_list_238 (coe du_a_218))) - (coe du_array_246 (coe du_a_218)) + d__'91'__280 (coe d_'8704'a_210) (coe du_list_252 (coe du_a_232))) + (coe du_array_260 (coe du_a_232)) C_indexArray_84 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8704'a_196) (coe du_array_246 (coe du_a_218))) + d__'91'__280 (coe d_'8704'a_210) (coe du_array_260 (coe du_a_232))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)))) - (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe du_a_218)) + (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe du_a_232)) C_chooseData_86 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8704'A_200) + d__'91'__280 (coe d_'8704'A_214) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) - (coe du_A_208)) - (coe du_A_208)) - (coe du_A_208)) - (coe du_A_208)) - (coe du_A_208)) - (coe du_A_208) + (coe du_A_222)) + (coe du_A_222)) + (coe du_A_222)) + (coe du_A_222)) + (coe du_A_222)) + (coe du_A_222) C_constrData_88 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)))) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) @@ -1386,11 +1415,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))) C_mapData_90 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_pair_24 (coe @@ -1406,11 +1435,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))) C_listData_92 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) @@ -1421,9 +1450,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))) C_iData_94 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1436,9 +1465,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))) C_bData_96 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1451,16 +1480,16 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))) C_unConstrData_98 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) (coe - du_pair_228 + du_pair_242 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)) @@ -1471,16 +1500,16 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) C_unMapData_100 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_pair_24 (coe @@ -1491,24 +1520,24 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) C_unListData_102 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))) C_unIData_104 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1521,9 +1550,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) C_unBData_106 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1536,11 +1565,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) C_equalsData_108 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1558,9 +1587,9 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) C_serialiseData_110 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1571,13 +1600,174 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_mkPairData_112 + C_insertCoin_112 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'44'__290 + (coe + d__'44'__290 + (coe + d__'91'__280 (coe d_'8729'_208) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20))) + C_lookupCoin_114 + -> coe + d__'93''10230'__302 + (coe + d__'44'__290 + (coe + d__'44'__290 + (coe + d__'91'__280 (coe d_'8729'_208) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) + C_unionValue_116 + -> coe + d__'93''10230'__302 + (coe + d__'44'__290 + (coe + d__'91'__280 (coe d_'8729'_208) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20))) + C_valueContains_118 + -> coe + d__'93''10230'__302 + (coe + d__'44'__290 + (coe + d__'91'__280 (coe d_'8729'_208) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) + C_scaleValue_120 + -> coe + d__'93''10230'__302 + (coe + d__'44'__290 + (coe + d__'91'__280 (coe d_'8729'_208) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20))) + C_valueData_122 + -> coe + d__'93''10230'__302 + (coe + d__'91'__280 (coe d_'8729'_208) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))) + C_unValueData_124 + -> coe + d__'93''10230'__302 + (coe + d__'91'__280 (coe d_'8729'_208) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) + (coe + MAlonzo.Code.Builtin.Signature.C__'8593'_38 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20))) + C_mkPairData_126 + -> coe + d__'93''10230'__302 + (coe + d__'44'__290 + (coe + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1589,40 +1779,40 @@ d_signature_298 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) (coe - du_pair_228 + du_pair_242 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)) (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))) - C_mkNilData_114 + C_mkNilData_128 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14)))) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18))) - C_mkNilPairData_116 + C_mkNilPairData_130 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14)))) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_pair_24 (coe @@ -1631,55 +1821,55 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)))) - C_bls12'45'381'45'G1'45'add_118 + C_bls12'45'381'45'G1'45'add_132 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20))) - C_bls12'45'381'45'G1'45'neg_120 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22))) + C_bls12'45'381'45'G1'45'neg_134 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20))) - C_bls12'45'381'45'G1'45'scalarMul_122 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22))) + C_bls12'45'381'45'G1'45'scalarMul_136 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1690,44 +1880,44 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20))) - C_bls12'45'381'45'G1'45'equal_124 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22))) + C_bls12'45'381'45'G1'45'equal_138 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) - C_bls12'45'381'45'G1'45'hashToGroup_126 + C_bls12'45'381'45'G1'45'hashToGroup_140 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1743,28 +1933,28 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20))) - C_bls12'45'381'45'G1'45'compress_128 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22))) + C_bls12'45'381'45'G1'45'compress_142 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_bls12'45'381'45'G1'45'uncompress_130 + C_bls12'45'381'45'G1'45'uncompress_144 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1775,56 +1965,56 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20))) - C_bls12'45'381'45'G2'45'add_132 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22))) + C_bls12'45'381'45'G2'45'add_146 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22))) - C_bls12'45'381'45'G2'45'neg_134 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24))) + C_bls12'45'381'45'G2'45'neg_148 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22))) - C_bls12'45'381'45'G2'45'scalarMul_136 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24))) + C_bls12'45'381'45'G2'45'scalarMul_150 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1835,44 +2025,44 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22))) - C_bls12'45'381'45'G2'45'equal_138 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24))) + C_bls12'45'381'45'G2'45'equal_152 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) - C_bls12'45'381'45'G2'45'hashToGroup_140 + C_bls12'45'381'45'G2'45'hashToGroup_154 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1888,28 +2078,28 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22))) - C_bls12'45'381'45'G2'45'compress_142 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24))) + C_bls12'45'381'45'G2'45'compress_156 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_bls12'45'381'45'G2'45'uncompress_144 + C_bls12'45'381'45'G2'45'uncompress_158 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -1920,86 +2110,86 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22))) - C_bls12'45'381'45'millerLoop_146 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24))) + C_bls12'45'381'45'millerLoop_160 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24))) - C_bls12'45'381'45'mulMlResult_148 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26))) + C_bls12'45'381'45'mulMlResult_162 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24))) - C_bls12'45'381'45'finalVerify_150 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26))) + C_bls12'45'381'45'finalVerify_164 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) - C_keccak'45'256_152 + C_keccak'45'256_166 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2010,11 +2200,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_blake2b'45'224_154 + C_blake2b'45'224_168 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2025,13 +2215,13 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_byteStringToInteger_156 + C_byteStringToInteger_170 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2047,15 +2237,15 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) - C_integerToByteString_158 + C_integerToByteString_172 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2076,15 +2266,15 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_andByteString_160 + C_andByteString_174 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2105,15 +2295,15 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_orByteString_162 + C_orByteString_176 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2134,15 +2324,15 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_xorByteString_164 + C_xorByteString_178 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2163,11 +2353,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_complementByteString_166 + C_complementByteString_180 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2178,13 +2368,13 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_readBit_168 + C_readBit_182 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2200,22 +2390,22 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16))) - C_writeBits_170 + C_writeBits_184 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10)))) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)))) @@ -2229,13 +2419,13 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_replicateByte_172 + C_replicateByte_186 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2251,13 +2441,13 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_shiftByteString_174 + C_shiftByteString_188 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2273,13 +2463,13 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_rotateByteString_176 + C_rotateByteString_190 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2295,11 +2485,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_countSetBits_178 + C_countSetBits_192 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2310,11 +2500,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) - C_findFirstSetBit_180 + C_findFirstSetBit_194 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2325,11 +2515,11 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) - C_ripemd'45'160_182 + C_ripemd'45'160_196 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2340,15 +2530,15 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10))) - C_expModInteger_184 + C_expModInteger_198 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe @@ -2369,434 +2559,486 @@ d_signature_298 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8))) - C_dropList_186 + C_dropList_200 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8704'a_196) + d__'91'__280 (coe d_'8704'a_210) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)))) - (coe du_list_238 (coe du_a_218))) - (coe du_list_238 (coe du_a_218)) - C_bls12'45'381'45'G1'45'multiScalarMul_188 + (coe du_list_252 (coe du_a_232))) + (coe du_list_252 (coe du_a_232)) + C_bls12'45'381'45'G1'45'multiScalarMul_202 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)))) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20))) - C_bls12'45'381'45'G2'45'multiScalarMul_190 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22))) + C_bls12'45'381'45'G2'45'multiScalarMul_204 -> coe - d__'93''10230'__288 + d__'93''10230'__302 (coe - d__'44'__276 + d__'44'__290 (coe - d__'91'__266 (coe d_'8729'_194) + d__'91'__280 (coe d_'8729'_208) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)))) (coe - du_list_238 + du_list_252 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)))) (coe MAlonzo.Code.Builtin.Signature.C__'8593'_38 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22))) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24))) _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.arity₀ -d_arity'8320'_300 :: T_Builtin_2 -> Integer -d_arity'8320'_300 v0 +d_arity'8320'_314 :: T_Builtin_2 -> Integer +d_arity'8320'_314 v0 = coe addInt (coe - MAlonzo.Code.Builtin.Signature.d_fv'9839'_84 - (coe d_signature_298 (coe v0))) + MAlonzo.Code.Builtin.Signature.d_fv'9839'_86 + (coe d_signature_312 (coe v0))) (coe - MAlonzo.Code.Builtin.Signature.d_fv'8902'_82 - (coe d_signature_298 (coe v0))) + MAlonzo.Code.Builtin.Signature.d_fv'8902'_84 + (coe d_signature_312 (coe v0))) -- Builtin.arity -d_arity_304 :: T_Builtin_2 -> Integer -d_arity_304 v0 +d_arity_318 :: T_Builtin_2 -> Integer +d_arity_318 v0 = coe MAlonzo.Code.Data.List.NonEmpty.Base.du_length_54 (coe - MAlonzo.Code.Builtin.Signature.d_args_86 - (coe d_signature_298 (coe v0))) + MAlonzo.Code.Builtin.Signature.d_args_88 + (coe d_signature_312 (coe v0))) -- Builtin.lengthBS -d_lengthBS_308 :: MAlonzo.Code.Utils.T_ByteString_426 -> Integer -d_lengthBS_308 = toInteger . BS.length +d_lengthBS_322 :: MAlonzo.Code.Utils.T_ByteString_426 -> Integer +d_lengthBS_322 = toInteger . BS.length -- Builtin.index -d_index_310 :: +d_index_324 :: MAlonzo.Code.Utils.T_ByteString_426 -> Integer -> Integer -d_index_310 = \xs n -> fromIntegral (BS.index xs (fromIntegral n)) +d_index_324 = \xs n -> fromIntegral (BS.index xs (fromIntegral n)) -- Builtin.div -d_div_312 :: Integer -> Integer -> Integer -d_div_312 = div +d_div_326 :: Integer -> Integer -> Integer +d_div_326 = div -- Builtin.quot -d_quot_314 :: Integer -> Integer -> Integer -d_quot_314 = quot +d_quot_328 :: Integer -> Integer -> Integer +d_quot_328 = quot -- Builtin.rem -d_rem_316 :: Integer -> Integer -> Integer -d_rem_316 = rem +d_rem_330 :: Integer -> Integer -> Integer +d_rem_330 = rem -- Builtin.mod -d_mod_318 :: Integer -> Integer -> Integer -d_mod_318 = mod +d_mod_332 :: Integer -> Integer -> Integer +d_mod_332 = mod -- Builtin.TRACE -d_TRACE_322 :: +d_TRACE_336 :: forall xa. () -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -> xa -> xa -d_TRACE_322 = \_ s -> trace (Text.unpack s) +d_TRACE_336 = \_ s -> trace (Text.unpack s) -- Builtin.concat -d_concat_324 :: +d_concat_338 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_concat_324 = BS.append +d_concat_338 = BS.append -- Builtin.cons -d_cons_326 :: +d_cons_340 :: Integer -> MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () MAlonzo.Code.Utils.T_ByteString_426 -d_cons_326 +d_cons_340 = \n xs -> fmap (\w8 -> BS.cons w8 xs) (toIntegralSized n) -- Builtin.slice -d_slice_328 :: +d_slice_342 :: Integer -> Integer -> MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_slice_328 +d_slice_342 = \start n xs -> BS.take (fromIntegral n) (BS.drop (fromIntegral start) xs) -- Builtin.B< -d_B'60'_330 :: +d_B'60'_344 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -> Bool -d_B'60'_330 = (<) +d_B'60'_344 = (<) -- Builtin.B<= -d_B'60''61'_332 :: +d_B'60''61'_346 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -> Bool -d_B'60''61'_332 = (<=) +d_B'60''61'_346 = (<=) -- Builtin.SHA2-256 -d_SHA2'45'256_334 :: +d_SHA2'45'256_348 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_SHA2'45'256_334 = Hash.sha2_256 +d_SHA2'45'256_348 = Hash.sha2_256 -- Builtin.SHA3-256 -d_SHA3'45'256_336 :: +d_SHA3'45'256_350 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_SHA3'45'256_336 = Hash.sha3_256 +d_SHA3'45'256_350 = Hash.sha3_256 -- Builtin.BLAKE2B-256 -d_BLAKE2B'45'256_338 :: +d_BLAKE2B'45'256_352 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_BLAKE2B'45'256_338 = Hash.blake2b_256 +d_BLAKE2B'45'256_352 = Hash.blake2b_256 -- Builtin.verifyEd25519Sig -d_verifyEd25519Sig_340 :: +d_verifyEd25519Sig_354 :: 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 +d_verifyEd25519Sig_354 = \k m s -> builtinResultToMaybe $ verifyEd25519Signature k m s -- Builtin.verifyEcdsaSecp256k1Sig -d_verifyEcdsaSecp256k1Sig_342 :: +d_verifyEcdsaSecp256k1Sig_356 :: 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 +d_verifyEcdsaSecp256k1Sig_356 = \k m s -> builtinResultToMaybe $ verifyEcdsaSecp256k1Signature k m s -- Builtin.verifySchnorrSecp256k1Sig -d_verifySchnorrSecp256k1Sig_344 :: +d_verifySchnorrSecp256k1Sig_358 :: 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 +d_verifySchnorrSecp256k1Sig_358 = \k m s -> builtinResultToMaybe $ verifySchnorrSecp256k1Signature k m s -- Builtin.equals -d_equals_346 :: +d_equals_360 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -> Bool -d_equals_346 = (==) +d_equals_360 = (==) -- Builtin.ENCODEUTF8 -d_ENCODEUTF8_348 :: +d_ENCODEUTF8_362 :: MAlonzo.Code.Agda.Builtin.String.T_String_6 -> MAlonzo.Code.Utils.T_ByteString_426 -d_ENCODEUTF8_348 = encodeUtf8 +d_ENCODEUTF8_362 = encodeUtf8 -- Builtin.DECODEUTF8 -d_DECODEUTF8_350 :: +d_DECODEUTF8_364 :: 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' +d_DECODEUTF8_364 = eitherToMaybe . decodeUtf8' -- Builtin.serialiseDATA -d_serialiseDATA_352 +d_serialiseDATA_366 = error "MAlonzo Runtime Error: postulate evaluated: Builtin.serialiseDATA" +-- Builtin.insertCOIN +d_insertCOIN_368 :: + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + Integer -> + MAlonzo.Code.Utils.T_Value_776 -> + MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 + () MAlonzo.Code.Utils.T_Value_776 +d_insertCOIN_368 + = \ccy tok x v -> builtinResultToMaybe $ Value.insertCoin ccy tok x v +-- Builtin.lookupCOIN +d_lookupCOIN_370 :: + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_ByteString_426 -> + MAlonzo.Code.Utils.T_Value_776 -> Integer +d_lookupCOIN_370 = Value.lookupCoin +-- Builtin.unionVALUE +d_unionVALUE_372 :: + MAlonzo.Code.Utils.T_Value_776 -> + MAlonzo.Code.Utils.T_Value_776 -> + MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 + () MAlonzo.Code.Utils.T_Value_776 +d_unionVALUE_372 + = \v1 v2 -> builtinResultToMaybe $ Value.unionValue v1 v2 +-- Builtin.valueCONTAINS +d_valueCONTAINS_374 :: + MAlonzo.Code.Utils.T_Value_776 -> + MAlonzo.Code.Utils.T_Value_776 -> + MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () Bool +d_valueCONTAINS_374 + = \v1 v2 -> builtinResultToMaybe $ Value.valueContains v1 v2 +-- Builtin.scaleVALUE +d_scaleVALUE_376 :: + Integer -> + MAlonzo.Code.Utils.T_Value_776 -> + MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 + () MAlonzo.Code.Utils.T_Value_776 +d_scaleVALUE_376 + = \n v -> builtinResultToMaybe $ Value.scaleValue n v +-- Builtin.valueDATA +d_valueDATA_378 :: + MAlonzo.Code.Utils.T_Value_776 -> + MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 + () MAlonzo.Code.Utils.T_DATA_618 +d_valueDATA_378 = \v -> builtinResultToMaybe $ Value.valueData v +-- Builtin.unValueDATA +d_unValueDATA_380 :: + MAlonzo.Code.Utils.T_DATA_618 -> + MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 + () MAlonzo.Code.Utils.T_Value_776 +d_unValueDATA_380 + = \d -> builtinResultToMaybe $ Value.unValueData d -- Builtin.BLS12-381-G1-add -d_BLS12'45'381'45'G1'45'add_354 :: +d_BLS12'45'381'45'G1'45'add_382 :: 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 +d_BLS12'45'381'45'G1'45'add_382 = G1.add -- Builtin.BLS12-381-G1-neg -d_BLS12'45'381'45'G1'45'neg_356 :: +d_BLS12'45'381'45'G1'45'neg_384 :: 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 +d_BLS12'45'381'45'G1'45'neg_384 = G1.neg -- Builtin.BLS12-381-G1-scalarMul -d_BLS12'45'381'45'G1'45'scalarMul_358 :: +d_BLS12'45'381'45'G1'45'scalarMul_386 :: Integer -> 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 +d_BLS12'45'381'45'G1'45'scalarMul_386 = G1.scalarMul -- Builtin.BLS12-381-G1-equal -d_BLS12'45'381'45'G1'45'equal_360 :: +d_BLS12'45'381'45'G1'45'equal_388 :: 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 = (==) +d_BLS12'45'381'45'G1'45'equal_388 = (==) -- Builtin.BLS12-381-G1-hashToGroup -d_BLS12'45'381'45'G1'45'hashToGroup_362 :: +d_BLS12'45'381'45'G1'45'hashToGroup_390 :: 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_764 -d_BLS12'45'381'45'G1'45'hashToGroup_362 +d_BLS12'45'381'45'G1'45'hashToGroup_390 = eitherToMaybe .* G1.hashToGroup -- Builtin.BLS12-381-G1-compress -d_BLS12'45'381'45'G1'45'compress_364 :: +d_BLS12'45'381'45'G1'45'compress_392 :: 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 +d_BLS12'45'381'45'G1'45'compress_392 = G1.compress -- Builtin.BLS12-381-G1-uncompress -d_BLS12'45'381'45'G1'45'uncompress_366 :: +d_BLS12'45'381'45'G1'45'uncompress_394 :: 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_764 -d_BLS12'45'381'45'G1'45'uncompress_366 +d_BLS12'45'381'45'G1'45'uncompress_394 = eitherToMaybe . G1.uncompress -- Builtin.BLS12-381-G2-add -d_BLS12'45'381'45'G2'45'add_368 :: +d_BLS12'45'381'45'G2'45'add_396 :: 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 +d_BLS12'45'381'45'G2'45'add_396 = G2.add -- Builtin.BLS12-381-G2-neg -d_BLS12'45'381'45'G2'45'neg_370 :: +d_BLS12'45'381'45'G2'45'neg_398 :: 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 +d_BLS12'45'381'45'G2'45'neg_398 = G2.neg -- Builtin.BLS12-381-G2-scalarMul -d_BLS12'45'381'45'G2'45'scalarMul_372 :: +d_BLS12'45'381'45'G2'45'scalarMul_400 :: Integer -> 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 +d_BLS12'45'381'45'G2'45'scalarMul_400 = G2.scalarMul -- Builtin.BLS12-381-G2-equal -d_BLS12'45'381'45'G2'45'equal_374 :: +d_BLS12'45'381'45'G2'45'equal_402 :: 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 = (==) +d_BLS12'45'381'45'G2'45'equal_402 = (==) -- Builtin.BLS12-381-G2-hashToGroup -d_BLS12'45'381'45'G2'45'hashToGroup_376 :: +d_BLS12'45'381'45'G2'45'hashToGroup_404 :: 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_768 -d_BLS12'45'381'45'G2'45'hashToGroup_376 +d_BLS12'45'381'45'G2'45'hashToGroup_404 = eitherToMaybe .* G2.hashToGroup -- Builtin.BLS12-381-G2-compress -d_BLS12'45'381'45'G2'45'compress_378 :: +d_BLS12'45'381'45'G2'45'compress_406 :: 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 +d_BLS12'45'381'45'G2'45'compress_406 = G2.compress -- Builtin.BLS12-381-G2-uncompress -d_BLS12'45'381'45'G2'45'uncompress_380 :: +d_BLS12'45'381'45'G2'45'uncompress_408 :: 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_768 -d_BLS12'45'381'45'G2'45'uncompress_380 +d_BLS12'45'381'45'G2'45'uncompress_408 = eitherToMaybe . G2.uncompress -- Builtin.BLS12-381-millerLoop -d_BLS12'45'381'45'millerLoop_382 :: +d_BLS12'45'381'45'millerLoop_410 :: 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 +d_BLS12'45'381'45'millerLoop_410 = Pairing.millerLoop -- Builtin.BLS12-381-mulMlResult -d_BLS12'45'381'45'mulMlResult_384 :: +d_BLS12'45'381'45'mulMlResult_412 :: 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 +d_BLS12'45'381'45'mulMlResult_412 = Pairing.mulMlResult -- Builtin.BLS12-381-finalVerify -d_BLS12'45'381'45'finalVerify_386 :: +d_BLS12'45'381'45'finalVerify_414 :: 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 +d_BLS12'45'381'45'finalVerify_414 = Pairing.finalVerify -- Builtin.KECCAK-256 -d_KECCAK'45'256_388 :: +d_KECCAK'45'256_416 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_KECCAK'45'256_388 = Hash.keccak_256 +d_KECCAK'45'256_416 = Hash.keccak_256 -- Builtin.BLAKE2B-224 -d_BLAKE2B'45'224_390 :: +d_BLAKE2B'45'224_418 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_BLAKE2B'45'224_390 = Hash.blake2b_224 +d_BLAKE2B'45'224_418 = Hash.blake2b_224 -- Builtin.BStoI -d_BStoI_392 :: +d_BStoI_420 :: Bool -> MAlonzo.Code.Utils.T_ByteString_426 -> Integer -d_BStoI_392 = Bitwise.byteStringToInteger +d_BStoI_420 = Bitwise.byteStringToInteger -- Builtin.ItoBS -d_ItoBS_394 :: +d_ItoBS_422 :: Bool -> Integer -> Integer -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () MAlonzo.Code.Utils.T_ByteString_426 -d_ItoBS_394 +d_ItoBS_422 = \e w n -> builtinResultToMaybe $ Bitwise.integerToByteString e w n -- Builtin.andBYTESTRING -d_andBYTESTRING_396 :: +d_andBYTESTRING_424 :: Bool -> MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_andBYTESTRING_396 = Bitwise.andByteString +d_andBYTESTRING_424 = Bitwise.andByteString -- Builtin.orBYTESTRING -d_orBYTESTRING_398 :: +d_orBYTESTRING_426 :: Bool -> MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_orBYTESTRING_398 = Bitwise.orByteString +d_orBYTESTRING_426 = Bitwise.orByteString -- Builtin.xorBYTESTRING -d_xorBYTESTRING_400 :: +d_xorBYTESTRING_428 :: Bool -> MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_xorBYTESTRING_400 = Bitwise.xorByteString +d_xorBYTESTRING_428 = Bitwise.xorByteString -- Builtin.complementBYTESTRING -d_complementBYTESTRING_402 :: +d_complementBYTESTRING_430 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_complementBYTESTRING_402 = Bitwise.complementByteString +d_complementBYTESTRING_430 = Bitwise.complementByteString -- Builtin.readBIT -d_readBIT_404 :: +d_readBIT_432 :: MAlonzo.Code.Utils.T_ByteString_426 -> Integer -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () Bool -d_readBIT_404 +d_readBIT_432 = \s n -> builtinResultToMaybe $ Bitwise.readBit s (fromIntegral n) -- Builtin.writeBITS -d_writeBITS_406 :: +d_writeBITS_434 :: 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_426 -d_writeBITS_406 +d_writeBITS_434 = \s ps u -> builtinResultToMaybe $ Bitwise.writeBits s (fmap fromIntegral ps) u -- Builtin.replicateBYTE -d_replicateBYTE_408 :: +d_replicateBYTE_436 :: Integer -> Integer -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () MAlonzo.Code.Utils.T_ByteString_426 -d_replicateBYTE_408 +d_replicateBYTE_436 = \n w8 -> case toIntegralSized w8 of { Nothing -> Nothing; Just w -> builtinResultToMaybe $ Bitwise.replicateByte n w } -- Builtin.shiftBYTESTRING -d_shiftBYTESTRING_410 :: +d_shiftBYTESTRING_438 :: MAlonzo.Code.Utils.T_ByteString_426 -> Integer -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () MAlonzo.Code.Utils.T_ByteString_426 -d_shiftBYTESTRING_410 +d_shiftBYTESTRING_438 = \s i -> if fromIntegral (minBound :: Int) <= i && i <= fromIntegral (maxBound :: Int) then Just $ Bitwise.shiftByteString s i else Nothing -- Builtin.rotateBYTESTRING -d_rotateBYTESTRING_412 :: +d_rotateBYTESTRING_440 :: MAlonzo.Code.Utils.T_ByteString_426 -> Integer -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () MAlonzo.Code.Utils.T_ByteString_426 -d_rotateBYTESTRING_412 +d_rotateBYTESTRING_440 = \s i -> if fromIntegral (minBound :: Int) <= i && i <= fromIntegral (maxBound :: Int) then Just $ Bitwise.rotateByteString s i else Nothing -- Builtin.countSetBITS -d_countSetBITS_414 :: +d_countSetBITS_442 :: MAlonzo.Code.Utils.T_ByteString_426 -> Integer -d_countSetBITS_414 = \s -> fromIntegral $ Bitwise.countSetBits s +d_countSetBITS_442 = \s -> fromIntegral $ Bitwise.countSetBits s -- Builtin.findFirstSetBIT -d_findFirstSetBIT_416 :: +d_findFirstSetBIT_444 :: MAlonzo.Code.Utils.T_ByteString_426 -> Integer -d_findFirstSetBIT_416 +d_findFirstSetBIT_444 = \s -> fromIntegral $ Bitwise.findFirstSetBit s -- Builtin.RIPEMD-160 -d_RIPEMD'45'160_418 :: +d_RIPEMD'45'160_446 :: MAlonzo.Code.Utils.T_ByteString_426 -> MAlonzo.Code.Utils.T_ByteString_426 -d_RIPEMD'45'160_418 = Hash.ripemd_160 +d_RIPEMD'45'160_446 = Hash.ripemd_160 -- Builtin.expModINTEGER -d_expModINTEGER_420 :: +d_expModINTEGER_448 :: Integer -> Integer -> Integer -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () Integer -d_expModINTEGER_420 +d_expModINTEGER_448 = \b e m -> if m < 0 then Nothing else fmap fromIntegral $ builtinResultToMaybe $ ExpMod.expMod b e (fromIntegral m) -- Builtin.BLS12-381-G1-multiScalarMul -d_BLS12'45'381'45'G1'45'multiScalarMul_422 :: +d_BLS12'45'381'45'G1'45'multiScalarMul_450 :: 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_764 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () MAlonzo.Code.Utils.T_Bls12'45'381'45'G1'45'Element_764 -d_BLS12'45'381'45'G1'45'multiScalarMul_422 +d_BLS12'45'381'45'G1'45'multiScalarMul_450 = \s p -> builtinResultToMaybe $ G1.multiScalarMul s p -- Builtin.BLS12-381-G2-multiScalarMul -d_BLS12'45'381'45'G2'45'multiScalarMul_424 :: +d_BLS12'45'381'45'G2'45'multiScalarMul_452 :: 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_768 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 () MAlonzo.Code.Utils.T_Bls12'45'381'45'G2'45'Element_768 -d_BLS12'45'381'45'G2'45'multiScalarMul_424 +d_BLS12'45'381'45'G2'45'multiScalarMul_452 = \s p -> builtinResultToMaybe $ G2.multiScalarMul s p -- Builtin.enumBuiltin -d_enumBuiltin_426 :: T_Builtin_2 -> Integer -d_enumBuiltin_426 v0 +d_enumBuiltin_454 :: T_Builtin_2 -> Integer +d_enumBuiltin_454 v0 = case coe v0 of C_addInteger_4 -> coe (0 :: Integer) C_subtractInteger_6 -> coe (1 :: Integer) @@ -2852,60 +3094,67 @@ d_enumBuiltin_426 v0 C_unBData_106 -> coe (51 :: Integer) C_equalsData_108 -> coe (52 :: Integer) C_serialiseData_110 -> coe (53 :: Integer) - C_mkPairData_112 -> coe (54 :: Integer) - C_mkNilData_114 -> coe (55 :: Integer) - C_mkNilPairData_116 -> coe (56 :: Integer) - C_bls12'45'381'45'G1'45'add_118 -> coe (57 :: Integer) - C_bls12'45'381'45'G1'45'neg_120 -> coe (58 :: Integer) - C_bls12'45'381'45'G1'45'scalarMul_122 -> coe (59 :: Integer) - C_bls12'45'381'45'G1'45'equal_124 -> coe (60 :: Integer) - C_bls12'45'381'45'G1'45'hashToGroup_126 -> coe (61 :: Integer) - C_bls12'45'381'45'G1'45'compress_128 -> coe (62 :: Integer) - C_bls12'45'381'45'G1'45'uncompress_130 -> coe (63 :: Integer) - C_bls12'45'381'45'G2'45'add_132 -> coe (64 :: Integer) - C_bls12'45'381'45'G2'45'neg_134 -> coe (65 :: Integer) - C_bls12'45'381'45'G2'45'scalarMul_136 -> coe (66 :: Integer) - C_bls12'45'381'45'G2'45'equal_138 -> coe (67 :: Integer) - C_bls12'45'381'45'G2'45'hashToGroup_140 -> coe (68 :: Integer) - C_bls12'45'381'45'G2'45'compress_142 -> coe (69 :: Integer) - C_bls12'45'381'45'G2'45'uncompress_144 -> coe (70 :: Integer) - C_bls12'45'381'45'millerLoop_146 -> coe (71 :: Integer) - C_bls12'45'381'45'mulMlResult_148 -> coe (72 :: Integer) - C_bls12'45'381'45'finalVerify_150 -> coe (73 :: Integer) - C_keccak'45'256_152 -> coe (74 :: Integer) - C_blake2b'45'224_154 -> coe (75 :: Integer) - C_byteStringToInteger_156 -> coe (76 :: Integer) - C_integerToByteString_158 -> coe (77 :: Integer) - C_andByteString_160 -> coe (78 :: Integer) - C_orByteString_162 -> coe (79 :: Integer) - C_xorByteString_164 -> coe (80 :: Integer) - C_complementByteString_166 -> coe (81 :: Integer) - C_readBit_168 -> coe (82 :: Integer) - C_writeBits_170 -> coe (83 :: Integer) - C_replicateByte_172 -> coe (84 :: Integer) - C_shiftByteString_174 -> coe (85 :: Integer) - C_rotateByteString_176 -> coe (86 :: Integer) - C_countSetBits_178 -> coe (87 :: Integer) - C_findFirstSetBit_180 -> coe (88 :: Integer) - C_ripemd'45'160_182 -> coe (89 :: Integer) - C_expModInteger_184 -> coe (90 :: Integer) - C_dropList_186 -> coe (91 :: Integer) - C_bls12'45'381'45'G1'45'multiScalarMul_188 -> coe (92 :: Integer) - C_bls12'45'381'45'G2'45'multiScalarMul_190 -> coe (93 :: Integer) + C_insertCoin_112 -> coe (54 :: Integer) + C_lookupCoin_114 -> coe (55 :: Integer) + C_unionValue_116 -> coe (56 :: Integer) + C_valueContains_118 -> coe (57 :: Integer) + C_scaleValue_120 -> coe (58 :: Integer) + C_valueData_122 -> coe (59 :: Integer) + C_unValueData_124 -> coe (60 :: Integer) + C_mkPairData_126 -> coe (61 :: Integer) + C_mkNilData_128 -> coe (62 :: Integer) + C_mkNilPairData_130 -> coe (63 :: Integer) + C_bls12'45'381'45'G1'45'add_132 -> coe (64 :: Integer) + C_bls12'45'381'45'G1'45'neg_134 -> coe (65 :: Integer) + C_bls12'45'381'45'G1'45'scalarMul_136 -> coe (66 :: Integer) + C_bls12'45'381'45'G1'45'equal_138 -> coe (67 :: Integer) + C_bls12'45'381'45'G1'45'hashToGroup_140 -> coe (68 :: Integer) + C_bls12'45'381'45'G1'45'compress_142 -> coe (69 :: Integer) + C_bls12'45'381'45'G1'45'uncompress_144 -> coe (70 :: Integer) + C_bls12'45'381'45'G2'45'add_146 -> coe (71 :: Integer) + C_bls12'45'381'45'G2'45'neg_148 -> coe (72 :: Integer) + C_bls12'45'381'45'G2'45'scalarMul_150 -> coe (73 :: Integer) + C_bls12'45'381'45'G2'45'equal_152 -> coe (74 :: Integer) + C_bls12'45'381'45'G2'45'hashToGroup_154 -> coe (75 :: Integer) + C_bls12'45'381'45'G2'45'compress_156 -> coe (76 :: Integer) + C_bls12'45'381'45'G2'45'uncompress_158 -> coe (77 :: Integer) + C_bls12'45'381'45'millerLoop_160 -> coe (78 :: Integer) + C_bls12'45'381'45'mulMlResult_162 -> coe (79 :: Integer) + C_bls12'45'381'45'finalVerify_164 -> coe (80 :: Integer) + C_keccak'45'256_166 -> coe (81 :: Integer) + C_blake2b'45'224_168 -> coe (82 :: Integer) + C_byteStringToInteger_170 -> coe (83 :: Integer) + C_integerToByteString_172 -> coe (84 :: Integer) + C_andByteString_174 -> coe (85 :: Integer) + C_orByteString_176 -> coe (86 :: Integer) + C_xorByteString_178 -> coe (87 :: Integer) + C_complementByteString_180 -> coe (88 :: Integer) + C_readBit_182 -> coe (89 :: Integer) + C_writeBits_184 -> coe (90 :: Integer) + C_replicateByte_186 -> coe (91 :: Integer) + C_shiftByteString_188 -> coe (92 :: Integer) + C_rotateByteString_190 -> coe (93 :: Integer) + C_countSetBits_192 -> coe (94 :: Integer) + C_findFirstSetBit_194 -> coe (95 :: Integer) + C_ripemd'45'160_196 -> coe (96 :: Integer) + C_expModInteger_198 -> coe (97 :: Integer) + C_dropList_200 -> coe (98 :: Integer) + C_bls12'45'381'45'G1'45'multiScalarMul_202 -> coe (99 :: Integer) + C_bls12'45'381'45'G2'45'multiScalarMul_204 -> coe (100 :: Integer) _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.enumBuiltin-injective -d_enumBuiltin'45'injective_432 :: +d_enumBuiltin'45'injective_460 :: T_Builtin_2 -> T_Builtin_2 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -d_enumBuiltin'45'injective_432 = erased +d_enumBuiltin'45'injective_460 = erased -- Builtin.decBuiltin -d_decBuiltin_440 :: +d_decBuiltin_468 :: T_Builtin_2 -> T_Builtin_2 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_decBuiltin_440 v0 v1 +d_decBuiltin_468 v0 v1 = let v2 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.du_map'8242'_178 @@ -2913,12 +3162,12 @@ d_decBuiltin_440 v0 v1 (\ v2 -> coe MAlonzo.Code.Data.Nat.Properties.du_'8801''8658''8801''7495'_2786 - (coe d_enumBuiltin_426 (coe v0))) + (coe d_enumBuiltin_454 (coe v0))) (coe MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_72 (coe - eqInt (coe d_enumBuiltin_426 (coe v0)) - (coe d_enumBuiltin_426 (coe v1)))) in + eqInt (coe d_enumBuiltin_454 (coe v0)) + (coe d_enumBuiltin_454 (coe v1)))) in coe (case coe v2 of MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v3 v4 @@ -2937,9 +3186,9 @@ d_decBuiltin_440 v0 v1 (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) _ -> MAlonzo.RTE.mazUnreachableError) -- Builtin.showBuiltin -d_showBuiltin_464 :: +d_showBuiltin_492 :: T_Builtin_2 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_showBuiltin_464 v0 +d_showBuiltin_492 v0 = case coe v0 of C_addInteger_4 -> coe ("addInteger" :: Data.Text.Text) C_subtractInteger_6 -> coe ("subtractInteger" :: Data.Text.Text) @@ -3002,73 +3251,80 @@ d_showBuiltin_464 v0 C_unBData_106 -> coe ("unBData" :: Data.Text.Text) C_equalsData_108 -> coe ("equalsData" :: Data.Text.Text) C_serialiseData_110 -> coe ("serialiseData" :: Data.Text.Text) - C_mkPairData_112 -> coe ("mkPairData" :: Data.Text.Text) - C_mkNilData_114 -> coe ("mkNilData" :: Data.Text.Text) - C_mkNilPairData_116 -> coe ("mkNilPairData" :: Data.Text.Text) - C_bls12'45'381'45'G1'45'add_118 + C_insertCoin_112 -> coe ("insertCoin" :: Data.Text.Text) + C_lookupCoin_114 -> coe ("lookupCoin" :: Data.Text.Text) + C_unionValue_116 -> coe ("unionValue" :: Data.Text.Text) + C_valueContains_118 -> coe ("valueContains" :: Data.Text.Text) + C_scaleValue_120 -> coe ("scaleValue" :: Data.Text.Text) + C_valueData_122 -> coe ("valueData" :: Data.Text.Text) + C_unValueData_124 -> coe ("unValueData" :: Data.Text.Text) + C_mkPairData_126 -> coe ("mkPairData" :: Data.Text.Text) + C_mkNilData_128 -> coe ("mkNilData" :: Data.Text.Text) + C_mkNilPairData_130 -> coe ("mkNilPairData" :: Data.Text.Text) + C_bls12'45'381'45'G1'45'add_132 -> coe ("bls12-381-G1-add" :: Data.Text.Text) - C_bls12'45'381'45'G1'45'neg_120 + C_bls12'45'381'45'G1'45'neg_134 -> coe ("bls12-381-G1-neg" :: Data.Text.Text) - C_bls12'45'381'45'G1'45'scalarMul_122 + C_bls12'45'381'45'G1'45'scalarMul_136 -> coe ("bls12-381-G1-scalarMul" :: Data.Text.Text) - C_bls12'45'381'45'G1'45'equal_124 + C_bls12'45'381'45'G1'45'equal_138 -> coe ("bls12-381-G1-equal" :: Data.Text.Text) - C_bls12'45'381'45'G1'45'hashToGroup_126 + C_bls12'45'381'45'G1'45'hashToGroup_140 -> coe ("bls12-381-G1-hashToGroup" :: Data.Text.Text) - C_bls12'45'381'45'G1'45'compress_128 + C_bls12'45'381'45'G1'45'compress_142 -> coe ("bls12-381-G1-compress" :: Data.Text.Text) - C_bls12'45'381'45'G1'45'uncompress_130 + C_bls12'45'381'45'G1'45'uncompress_144 -> coe ("bls12-381-G1-uncompress" :: Data.Text.Text) - C_bls12'45'381'45'G2'45'add_132 + C_bls12'45'381'45'G2'45'add_146 -> coe ("bls12-381-G2-add" :: Data.Text.Text) - C_bls12'45'381'45'G2'45'neg_134 + C_bls12'45'381'45'G2'45'neg_148 -> coe ("bls12-381-G2-neg" :: Data.Text.Text) - C_bls12'45'381'45'G2'45'scalarMul_136 + C_bls12'45'381'45'G2'45'scalarMul_150 -> coe ("bls12-381-G2-scalarMul" :: Data.Text.Text) - C_bls12'45'381'45'G2'45'equal_138 + C_bls12'45'381'45'G2'45'equal_152 -> coe ("bls12-381-G2-equal" :: Data.Text.Text) - C_bls12'45'381'45'G2'45'hashToGroup_140 + C_bls12'45'381'45'G2'45'hashToGroup_154 -> coe ("bls12-381-G2-hashToGroup" :: Data.Text.Text) - C_bls12'45'381'45'G2'45'compress_142 + C_bls12'45'381'45'G2'45'compress_156 -> coe ("bls12-381-G2-compress" :: Data.Text.Text) - C_bls12'45'381'45'G2'45'uncompress_144 + C_bls12'45'381'45'G2'45'uncompress_158 -> coe ("bls12-381-G2-uncompress" :: Data.Text.Text) - C_bls12'45'381'45'millerLoop_146 + C_bls12'45'381'45'millerLoop_160 -> coe ("bls12-381-millerLoop" :: Data.Text.Text) - C_bls12'45'381'45'mulMlResult_148 + C_bls12'45'381'45'mulMlResult_162 -> coe ("bls12-381-mulMlResult" :: Data.Text.Text) - C_bls12'45'381'45'finalVerify_150 + C_bls12'45'381'45'finalVerify_164 -> coe ("bls12-381-finalVerify" :: Data.Text.Text) - C_keccak'45'256_152 -> coe ("keccak-256" :: Data.Text.Text) - C_blake2b'45'224_154 -> coe ("blake2b-224" :: Data.Text.Text) - C_byteStringToInteger_156 + C_keccak'45'256_166 -> coe ("keccak-256" :: Data.Text.Text) + C_blake2b'45'224_168 -> coe ("blake2b-224" :: Data.Text.Text) + C_byteStringToInteger_170 -> coe ("byteStringToInteger" :: Data.Text.Text) - C_integerToByteString_158 + C_integerToByteString_172 -> coe ("integerToByteString" :: Data.Text.Text) - C_andByteString_160 -> coe ("andByteString" :: Data.Text.Text) - C_orByteString_162 -> coe ("orByteString" :: Data.Text.Text) - C_xorByteString_164 -> coe ("xorByteString" :: Data.Text.Text) - C_complementByteString_166 + C_andByteString_174 -> coe ("andByteString" :: Data.Text.Text) + C_orByteString_176 -> coe ("orByteString" :: Data.Text.Text) + C_xorByteString_178 -> coe ("xorByteString" :: Data.Text.Text) + C_complementByteString_180 -> coe ("complementByteString" :: Data.Text.Text) - C_readBit_168 -> coe ("readBit" :: Data.Text.Text) - C_writeBits_170 -> coe ("writeBits" :: Data.Text.Text) - C_replicateByte_172 -> coe ("replicateByte" :: Data.Text.Text) - C_shiftByteString_174 -> coe ("shiftByteString" :: Data.Text.Text) - C_rotateByteString_176 + C_readBit_182 -> coe ("readBit" :: Data.Text.Text) + C_writeBits_184 -> coe ("writeBits" :: Data.Text.Text) + C_replicateByte_186 -> coe ("replicateByte" :: Data.Text.Text) + C_shiftByteString_188 -> coe ("shiftByteString" :: Data.Text.Text) + C_rotateByteString_190 -> coe ("rotateByteString" :: Data.Text.Text) - C_countSetBits_178 -> coe ("countSetBits" :: Data.Text.Text) - C_findFirstSetBit_180 -> coe ("findFirstSetBit" :: Data.Text.Text) - C_ripemd'45'160_182 -> coe ("ripemd-160" :: Data.Text.Text) - C_expModInteger_184 -> coe ("expModInteger" :: Data.Text.Text) - C_dropList_186 -> coe ("dropList" :: Data.Text.Text) - C_bls12'45'381'45'G1'45'multiScalarMul_188 + C_countSetBits_192 -> coe ("countSetBits" :: Data.Text.Text) + C_findFirstSetBit_194 -> coe ("findFirstSetBit" :: Data.Text.Text) + C_ripemd'45'160_196 -> coe ("ripemd-160" :: Data.Text.Text) + C_expModInteger_198 -> coe ("expModInteger" :: Data.Text.Text) + C_dropList_200 -> coe ("dropList" :: Data.Text.Text) + C_bls12'45'381'45'G1'45'multiScalarMul_202 -> coe ("bls12-381-G1-multiScalarMul" :: Data.Text.Text) - C_bls12'45'381'45'G2'45'multiScalarMul_190 + C_bls12'45'381'45'G2'45'multiScalarMul_204 -> coe ("bls12-381-G2-multiScalarMul" :: Data.Text.Text) _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.builtinList -d_builtinList_466 :: [T_Builtin_2] -d_builtinList_466 +d_builtinList_494 :: [T_Builtin_2] +d_builtinList_494 = coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe C_addInteger_4) (coe @@ -3265,162 +3521,190 @@ d_builtinList_466 (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_mkPairData_112) + C_insertCoin_112) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_mkNilData_114) + C_lookupCoin_114) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_mkNilPairData_116) + C_unionValue_116) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G1'45'add_118) + C_valueContains_118) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G1'45'neg_120) + C_scaleValue_120) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G1'45'scalarMul_122) + C_valueData_122) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G1'45'equal_124) + C_unValueData_124) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G1'45'hashToGroup_126) + C_mkPairData_126) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G1'45'compress_128) + C_mkNilData_128) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G1'45'uncompress_130) + C_mkNilPairData_130) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G2'45'add_132) + C_bls12'45'381'45'G1'45'add_132) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G2'45'neg_134) + C_bls12'45'381'45'G1'45'neg_134) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G2'45'scalarMul_136) + C_bls12'45'381'45'G1'45'scalarMul_136) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G2'45'equal_138) + C_bls12'45'381'45'G1'45'equal_138) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G2'45'hashToGroup_140) + C_bls12'45'381'45'G1'45'hashToGroup_140) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G2'45'compress_142) + C_bls12'45'381'45'G1'45'compress_142) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G2'45'uncompress_144) + C_bls12'45'381'45'G1'45'uncompress_144) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'millerLoop_146) + C_bls12'45'381'45'G2'45'add_146) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'mulMlResult_148) + C_bls12'45'381'45'G2'45'neg_148) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'finalVerify_150) + C_bls12'45'381'45'G2'45'scalarMul_150) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_keccak'45'256_152) + C_bls12'45'381'45'G2'45'equal_152) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_blake2b'45'224_154) + C_bls12'45'381'45'G2'45'hashToGroup_154) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_byteStringToInteger_156) + C_bls12'45'381'45'G2'45'compress_156) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_integerToByteString_158) + C_bls12'45'381'45'G2'45'uncompress_158) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_andByteString_160) + C_bls12'45'381'45'millerLoop_160) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_orByteString_162) + C_bls12'45'381'45'mulMlResult_162) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_xorByteString_164) + C_bls12'45'381'45'finalVerify_164) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_complementByteString_166) + C_keccak'45'256_166) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_readBit_168) + C_blake2b'45'224_168) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_writeBits_170) + C_byteStringToInteger_170) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_replicateByte_172) + C_integerToByteString_172) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_shiftByteString_174) + C_andByteString_174) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_rotateByteString_176) + C_orByteString_176) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_countSetBits_178) + C_xorByteString_178) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_findFirstSetBit_180) + C_complementByteString_180) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_ripemd'45'160_182) + C_readBit_182) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_expModInteger_184) + C_writeBits_184) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_dropList_186) + C_replicateByte_186) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G1'45'multiScalarMul_188) + C_shiftByteString_188) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - C_bls12'45'381'45'G2'45'multiScalarMul_190) + C_rotateByteString_190) (coe - MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + C_countSetBits_192) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + C_findFirstSetBit_194) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + C_ripemd'45'160_196) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + C_expModInteger_198) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + C_dropList_200) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + C_bls12'45'381'45'G1'45'multiScalarMul_202) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + C_bls12'45'381'45'G2'45'multiScalarMul_204) + (coe + MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) diff --git a/plutus-metatheory/src/MAlonzo/Code/Builtin/Constant/AtomicType.hs b/plutus-metatheory/src/MAlonzo/Code/Builtin/Constant/AtomicType.hs index aee5649d6a3..1febe67ff95 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Builtin/Constant/AtomicType.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Builtin/Constant/AtomicType.hs @@ -31,9 +31,10 @@ pattern C_aString_12 = ATyConStr pattern C_aUnit_14 = ATyConUnit pattern C_aBool_16 = ATyConBool pattern C_aData_18 = ATyConData -pattern C_aBls12'45'381'45'g1'45'element_20 = ATyConBLS12_381_G1_Element -pattern C_aBls12'45'381'45'g2'45'element_22 = ATyConBLS12_381_G2_Element -pattern C_aBls12'45'381'45'mlresult_24 = ATyConBLS12_381_MlResult +pattern C_aValue_20 = ATyConValue +pattern C_aBls12'45'381'45'g1'45'element_22 = ATyConBLS12_381_G1_Element +pattern C_aBls12'45'381'45'g2'45'element_24 = ATyConBLS12_381_G2_Element +pattern C_aBls12'45'381'45'mlresult_26 = ATyConBLS12_381_MlResult check_aInteger_8 :: T_AtomicTyCon_6 check_aInteger_8 = ATyConInt check_aBytestring_10 :: T_AtomicTyCon_6 @@ -46,14 +47,16 @@ check_aBool_16 :: T_AtomicTyCon_6 check_aBool_16 = ATyConBool check_aData_18 :: T_AtomicTyCon_6 check_aData_18 = ATyConData -check_aBls12'45'381'45'g1'45'element_20 :: T_AtomicTyCon_6 -check_aBls12'45'381'45'g1'45'element_20 +check_aValue_20 :: T_AtomicTyCon_6 +check_aValue_20 = ATyConValue +check_aBls12'45'381'45'g1'45'element_22 :: T_AtomicTyCon_6 +check_aBls12'45'381'45'g1'45'element_22 = ATyConBLS12_381_G1_Element -check_aBls12'45'381'45'g2'45'element_22 :: T_AtomicTyCon_6 -check_aBls12'45'381'45'g2'45'element_22 +check_aBls12'45'381'45'g2'45'element_24 :: T_AtomicTyCon_6 +check_aBls12'45'381'45'g2'45'element_24 = ATyConBLS12_381_G2_Element -check_aBls12'45'381'45'mlresult_24 :: T_AtomicTyCon_6 -check_aBls12'45'381'45'mlresult_24 = ATyConBLS12_381_MlResult +check_aBls12'45'381'45'mlresult_26 :: T_AtomicTyCon_6 +check_aBls12'45'381'45'mlresult_26 = ATyConBLS12_381_MlResult cover_AtomicTyCon_6 :: AtomicTyCon -> () cover_AtomicTyCon_6 x = case x of @@ -63,15 +66,16 @@ cover_AtomicTyCon_6 x ATyConUnit -> () ATyConBool -> () ATyConData -> () + ATyConValue -> () ATyConBLS12_381_G1_Element -> () ATyConBLS12_381_G2_Element -> () ATyConBLS12_381_MlResult -> () -- Builtin.Constant.AtomicType.decAtomicTyCon -d_decAtomicTyCon_26 :: +d_decAtomicTyCon_28 :: T_AtomicTyCon_6 -> T_AtomicTyCon_6 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_decAtomicTyCon_26 v0 v1 +d_decAtomicTyCon_28 v0 v1 = case coe v0 of C_aInteger_8 -> case coe v1 of @@ -105,17 +109,22 @@ d_decAtomicTyCon_26 v0 v1 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) - C_aBls12'45'381'45'g1'45'element_20 + C_aValue_20 -> 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) - C_aBls12'45'381'45'g2'45'element_22 + C_aBls12'45'381'45'g1'45'element_22 -> 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) - C_aBls12'45'381'45'mlresult_24 + C_aBls12'45'381'45'g2'45'element_24 + -> 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) + C_aBls12'45'381'45'mlresult_26 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) @@ -153,17 +162,22 @@ d_decAtomicTyCon_26 v0 v1 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) - C_aBls12'45'381'45'g1'45'element_20 + C_aValue_20 -> 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) - C_aBls12'45'381'45'g2'45'element_22 + C_aBls12'45'381'45'g1'45'element_22 -> 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) - C_aBls12'45'381'45'mlresult_24 + C_aBls12'45'381'45'g2'45'element_24 + -> 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) + C_aBls12'45'381'45'mlresult_26 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) @@ -201,17 +215,22 @@ d_decAtomicTyCon_26 v0 v1 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) - C_aBls12'45'381'45'g1'45'element_20 + C_aValue_20 -> 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) - C_aBls12'45'381'45'g2'45'element_22 + C_aBls12'45'381'45'g1'45'element_22 -> 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) - C_aBls12'45'381'45'mlresult_24 + C_aBls12'45'381'45'g2'45'element_24 + -> 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) + C_aBls12'45'381'45'mlresult_26 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) @@ -249,17 +268,22 @@ d_decAtomicTyCon_26 v0 v1 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) - C_aBls12'45'381'45'g1'45'element_20 + C_aValue_20 + -> 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) + C_aBls12'45'381'45'g1'45'element_22 -> 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) - C_aBls12'45'381'45'g2'45'element_22 + C_aBls12'45'381'45'g2'45'element_24 -> 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) - C_aBls12'45'381'45'mlresult_24 + C_aBls12'45'381'45'mlresult_26 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) @@ -297,17 +321,22 @@ d_decAtomicTyCon_26 v0 v1 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) - C_aBls12'45'381'45'g1'45'element_20 + C_aValue_20 -> 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) - C_aBls12'45'381'45'g2'45'element_22 + C_aBls12'45'381'45'g1'45'element_22 -> 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) - C_aBls12'45'381'45'mlresult_24 + C_aBls12'45'381'45'g2'45'element_24 + -> 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) + C_aBls12'45'381'45'mlresult_26 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8) @@ -345,23 +374,81 @@ d_decAtomicTyCon_26 v0 v1 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) - C_aBls12'45'381'45'g1'45'element_20 + C_aValue_20 + -> 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) + C_aBls12'45'381'45'g1'45'element_22 + -> 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) + C_aBls12'45'381'45'g2'45'element_24 + -> 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) + C_aBls12'45'381'45'mlresult_26 + -> 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 + C_aValue_20 + -> case coe v1 of + C_aInteger_8 + -> 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) + C_aBytestring_10 + -> 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) + C_aString_12 + -> 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) + C_aUnit_14 + -> 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) + C_aBool_16 + -> 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) + C_aData_18 + -> 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) + C_aValue_20 + -> 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) + C_aBls12'45'381'45'g1'45'element_22 -> 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) - C_aBls12'45'381'45'g2'45'element_22 + C_aBls12'45'381'45'g2'45'element_24 -> 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) - C_aBls12'45'381'45'mlresult_24 + C_aBls12'45'381'45'mlresult_26 -> 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 - C_aBls12'45'381'45'g1'45'element_20 + C_aBls12'45'381'45'g1'45'element_22 -> case coe v1 of C_aInteger_8 -> coe @@ -393,23 +480,28 @@ d_decAtomicTyCon_26 v0 v1 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) - C_aBls12'45'381'45'g1'45'element_20 + C_aValue_20 + -> 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) + C_aBls12'45'381'45'g1'45'element_22 -> 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) - C_aBls12'45'381'45'g2'45'element_22 + C_aBls12'45'381'45'g2'45'element_24 -> 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) - C_aBls12'45'381'45'mlresult_24 + C_aBls12'45'381'45'mlresult_26 -> 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 - C_aBls12'45'381'45'g2'45'element_22 + C_aBls12'45'381'45'g2'45'element_24 -> case coe v1 of C_aInteger_8 -> coe @@ -441,23 +533,28 @@ d_decAtomicTyCon_26 v0 v1 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) - C_aBls12'45'381'45'g1'45'element_20 + C_aValue_20 + -> 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) + C_aBls12'45'381'45'g1'45'element_22 -> 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) - C_aBls12'45'381'45'g2'45'element_22 + C_aBls12'45'381'45'g2'45'element_24 -> 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) - C_aBls12'45'381'45'mlresult_24 + C_aBls12'45'381'45'mlresult_26 -> 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 - C_aBls12'45'381'45'mlresult_24 + C_aBls12'45'381'45'mlresult_26 -> case coe v1 of C_aInteger_8 -> coe @@ -489,17 +586,22 @@ d_decAtomicTyCon_26 v0 v1 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) - C_aBls12'45'381'45'g1'45'element_20 + C_aValue_20 + -> 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) + C_aBls12'45'381'45'g1'45'element_22 -> 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) - C_aBls12'45'381'45'g2'45'element_22 + C_aBls12'45'381'45'g2'45'element_24 -> 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) - C_aBls12'45'381'45'mlresult_24 + C_aBls12'45'381'45'mlresult_26 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10) @@ -507,5 +609,5 @@ d_decAtomicTyCon_26 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Constant.AtomicType.⟦_⟧at -d_'10214'_'10215'at_28 :: T_AtomicTyCon_6 -> () -d_'10214'_'10215'at_28 = erased +d_'10214'_'10215'at_30 :: T_AtomicTyCon_6 -> () +d_'10214'_'10215'at_30 = erased diff --git a/plutus-metatheory/src/MAlonzo/Code/Builtin/Signature.hs b/plutus-metatheory/src/MAlonzo/Code/Builtin/Signature.hs index 3fc0ab42be5..8daddeb8b7e 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Builtin/Signature.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Builtin/Signature.hs @@ -39,58 +39,58 @@ data T__'47'_'8866''8902'_26 = C_'96'_32 MAlonzo.Code.Data.Fin.Base.T_Fin_10 | C__'8593'_38 T__'8866''9839'_4 -- Builtin.Signature.Args -d_Args_58 :: Integer -> Integer -> () -d_Args_58 = erased +d_Args_60 :: Integer -> Integer -> () +d_Args_60 = erased -- Builtin.Signature._/_⊢r⋆ -d__'47'_'8866'r'8902'_64 a0 a1 = () -newtype T__'47'_'8866'r'8902'_64 - = C_argtype_70 T__'47'_'8866''8902'_26 +d__'47'_'8866'r'8902'_66 a0 a1 = () +newtype T__'47'_'8866'r'8902'_66 + = C_argtype_72 T__'47'_'8866''8902'_26 -- Builtin.Signature.Sig -d_Sig_72 = () -data T_Sig_72 - = C_sig_90 Integer Integer +d_Sig_74 = () +data T_Sig_74 + = C_sig_92 Integer Integer MAlonzo.Code.Data.List.NonEmpty.Base.T_List'8314'_22 T__'47'_'8866''8902'_26 -- Builtin.Signature.Sig.fv⋆ -d_fv'8902'_82 :: T_Sig_72 -> Integer -d_fv'8902'_82 v0 +d_fv'8902'_84 :: T_Sig_74 -> Integer +d_fv'8902'_84 v0 = case coe v0 of - C_sig_90 v1 v2 v3 v4 -> coe v1 + C_sig_92 v1 v2 v3 v4 -> coe v1 _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.Sig.fv♯ -d_fv'9839'_84 :: T_Sig_72 -> Integer -d_fv'9839'_84 v0 +d_fv'9839'_86 :: T_Sig_74 -> Integer +d_fv'9839'_86 v0 = case coe v0 of - C_sig_90 v1 v2 v3 v4 -> coe v2 + C_sig_92 v1 v2 v3 v4 -> coe v2 _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.Sig.args -d_args_86 :: - T_Sig_72 -> MAlonzo.Code.Data.List.NonEmpty.Base.T_List'8314'_22 -d_args_86 v0 +d_args_88 :: + T_Sig_74 -> MAlonzo.Code.Data.List.NonEmpty.Base.T_List'8314'_22 +d_args_88 v0 = case coe v0 of - C_sig_90 v1 v2 v3 v4 -> coe v3 + C_sig_92 v1 v2 v3 v4 -> coe v3 _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.Sig.result -d_result_88 :: T_Sig_72 -> T__'47'_'8866''8902'_26 -d_result_88 v0 +d_result_90 :: T_Sig_74 -> T__'47'_'8866''8902'_26 +d_result_90 v0 = case coe v0 of - C_sig_90 v1 v2 v3 v4 -> coe v4 + C_sig_92 v1 v2 v3 v4 -> coe v4 _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.args♯ -d_args'9839'_92 :: T_Sig_72 -> Integer -d_args'9839'_92 v0 +d_args'9839'_94 :: T_Sig_74 -> Integer +d_args'9839'_94 v0 = coe MAlonzo.Code.Data.List.NonEmpty.Base.du_length_54 - (coe d_args_86 (coe v0)) + (coe d_args_88 (coe v0)) -- Builtin.Signature.fv -d_fv_96 :: T_Sig_72 -> Integer -d_fv_96 v0 +d_fv_98 :: T_Sig_74 -> Integer +d_fv_98 v0 = coe - addInt (coe d_fv'9839'_84 (coe v0)) (coe d_fv'8902'_82 (coe v0)) + addInt (coe d_fv'9839'_86 (coe v0)) (coe d_fv'8902'_84 (coe v0)) -- Builtin.Signature.mkCtx⋆ -d_mkCtx'8902'_104 :: +d_mkCtx'8902'_106 :: Integer -> Integer -> MAlonzo.Code.Type.T_Ctx'8902'_2 -d_mkCtx'8902'_104 v0 v1 +d_mkCtx'8902'_106 v0 v1 = case coe v0 of 0 -> case coe v1 of 0 -> coe MAlonzo.Code.Type.C_'8709'_4 @@ -98,27 +98,27 @@ d_mkCtx'8902'_104 v0 v1 coe (coe MAlonzo.Code.Type.C__'44''8902'__6 - (coe d_mkCtx'8902'_104 (coe (0 :: Integer)) (coe v2)) - (coe MAlonzo.Code.Utils.C_'9839'_780)) + (coe d_mkCtx'8902'_106 (coe (0 :: Integer)) (coe v2)) + (coe MAlonzo.Code.Utils.C_'9839'_786)) _ -> 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'_778)) + (coe d_mkCtx'8902'_106 (coe v2) (coe v1)) + (coe MAlonzo.Code.Utils.C_'42'_784)) -- Builtin.Signature.fin♯2∋⋆ -d_fin'9839'2'8715''8902'_116 :: +d_fin'9839'2'8715''8902'_118 :: Integer -> Integer -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> MAlonzo.Code.Type.T__'8715''8902'__14 -d_fin'9839'2'8715''8902'_116 v0 ~v1 v2 - = du_fin'9839'2'8715''8902'_116 v0 v2 -du_fin'9839'2'8715''8902'_116 :: +d_fin'9839'2'8715''8902'_118 v0 ~v1 v2 + = du_fin'9839'2'8715''8902'_118 v0 v2 +du_fin'9839'2'8715''8902'_118 :: Integer -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> MAlonzo.Code.Type.T__'8715''8902'__14 -du_fin'9839'2'8715''8902'_116 v0 v1 +du_fin'9839'2'8715''8902'_118 v0 v1 = case coe v0 of 0 -> case coe v1 of MAlonzo.Code.Data.Fin.Base.C_zero_12 @@ -126,7 +126,7 @@ du_fin'9839'2'8715''8902'_116 v0 v1 MAlonzo.Code.Data.Fin.Base.C_suc_16 v3 -> coe MAlonzo.Code.Type.C_S_18 - (coe du_fin'9839'2'8715''8902'_116 (coe (0 :: Integer)) (coe v3)) + (coe du_fin'9839'2'8715''8902'_118 (coe (0 :: Integer)) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError _ -> let v2 = subInt (coe v0) (coe (1 :: Integer)) in coe @@ -135,416 +135,416 @@ du_fin'9839'2'8715''8902'_116 v0 v1 -> coe MAlonzo.Code.Type.C_S_18 (coe - du_fin'9839'2'8715''8902'_116 (coe v2) + du_fin'9839'2'8715''8902'_118 (coe v2) (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) MAlonzo.Code.Data.Fin.Base.C_suc_16 v4 -> coe MAlonzo.Code.Type.C_S_18 (coe - du_fin'9839'2'8715''8902'_116 (coe v2) + du_fin'9839'2'8715''8902'_118 (coe v2) (coe MAlonzo.Code.Data.Fin.Base.C_suc_16 v4)) _ -> MAlonzo.RTE.mazUnreachableError) -- Builtin.Signature.fin⋆2∋⋆ -d_fin'8902'2'8715''8902'_130 :: +d_fin'8902'2'8715''8902'_132 :: Integer -> Integer -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> MAlonzo.Code.Type.T__'8715''8902'__14 -d_fin'8902'2'8715''8902'_130 ~v0 ~v1 v2 - = du_fin'8902'2'8715''8902'_130 v2 -du_fin'8902'2'8715''8902'_130 :: +d_fin'8902'2'8715''8902'_132 ~v0 ~v1 v2 + = du_fin'8902'2'8715''8902'_132 v2 +du_fin'8902'2'8715''8902'_132 :: MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> MAlonzo.Code.Type.T__'8715''8902'__14 -du_fin'8902'2'8715''8902'_130 v0 +du_fin'8902'2'8715''8902'_132 v0 = case coe v0 of MAlonzo.Code.Data.Fin.Base.C_zero_12 -> coe MAlonzo.Code.Type.C_Z_16 MAlonzo.Code.Data.Fin.Base.C_suc_16 v2 -> coe MAlonzo.Code.Type.C_S_18 - (coe du_fin'8902'2'8715''8902'_130 (coe v2)) + (coe du_fin'8902'2'8715''8902'_132 (coe v2)) _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.FromSig.⊢♯2TyNe♯ -d_'8866''9839'2TyNe'9839'_186 :: +d_'8866''9839'2TyNe'9839'_188 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 +d_'8866''9839'2TyNe'9839'_188 ~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 :: + = du_'8866''9839'2TyNe'9839'_188 v2 v3 v4 v5 v9 v10 v11 +du_'8866''9839'2TyNe'9839'_188 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 +du_'8866''9839'2TyNe'9839'_188 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'_780) - (coe du_fin'9839'2'8715''8902'_116 (coe v4) (coe v8)) + v1 v4 v5 (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe du_fin'9839'2'8715''8902'_118 (coe v4) (coe v8)) C_atomic_12 v8 -> coe - v3 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_780) + v3 (d_mkCtx'8902'_106 (coe v4) (coe v5)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_780) - (coe MAlonzo.Code.Utils.C_'9839'_780) + v2 (d_mkCtx'8902'_106 (coe v4) (coe v5)) + (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - v3 (d_mkCtx'8902'_104 (coe v4) (coe v5)) + v3 (d_mkCtx'8902'_106 (coe v4) (coe v5)) (coe - MAlonzo.Code.Utils.C__'8658'__782 - (coe MAlonzo.Code.Utils.C_'9839'_780) - (coe MAlonzo.Code.Utils.C_'9839'_780)) + MAlonzo.Code.Utils.C__'8658'__788 + (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe MAlonzo.Code.Utils.C_'9839'_786)) (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'_780) + v0 (d_mkCtx'8902'_106 (coe v4) (coe v5)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - du_'8866''9839'2TyNe'9839'_186 (coe v0) (coe v1) (coe v2) (coe v3) + du_'8866''9839'2TyNe'9839'_188 (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'_780) - (coe MAlonzo.Code.Utils.C_'9839'_780) + v2 (d_mkCtx'8902'_106 (coe v4) (coe v5)) + (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - v3 (d_mkCtx'8902'_104 (coe v4) (coe v5)) + v3 (d_mkCtx'8902'_106 (coe v4) (coe v5)) (coe - MAlonzo.Code.Utils.C__'8658'__782 - (coe MAlonzo.Code.Utils.C_'9839'_780) - (coe MAlonzo.Code.Utils.C_'9839'_780)) + MAlonzo.Code.Utils.C__'8658'__788 + (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe MAlonzo.Code.Utils.C_'9839'_786)) (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'_780) + v0 (d_mkCtx'8902'_106 (coe v4) (coe v5)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - du_'8866''9839'2TyNe'9839'_186 (coe v0) (coe v1) (coe v2) (coe v3) + du_'8866''9839'2TyNe'9839'_188 (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'_780) - (coe MAlonzo.Code.Utils.C_'9839'_780) + v2 (d_mkCtx'8902'_106 (coe v4) (coe v5)) + (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - v2 (d_mkCtx'8902'_104 (coe v4) (coe v5)) - (coe MAlonzo.Code.Utils.C_'9839'_780) + v2 (d_mkCtx'8902'_106 (coe v4) (coe v5)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - MAlonzo.Code.Utils.C__'8658'__782 - (coe MAlonzo.Code.Utils.C_'9839'_780) - (coe MAlonzo.Code.Utils.C_'9839'_780)) + MAlonzo.Code.Utils.C__'8658'__788 + (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe MAlonzo.Code.Utils.C_'9839'_786)) (coe - v3 (d_mkCtx'8902'_104 (coe v4) (coe v5)) + v3 (d_mkCtx'8902'_106 (coe v4) (coe v5)) (coe - MAlonzo.Code.Utils.C__'8658'__782 - (coe MAlonzo.Code.Utils.C_'9839'_780) + MAlonzo.Code.Utils.C__'8658'__788 + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - MAlonzo.Code.Utils.C__'8658'__782 - (coe MAlonzo.Code.Utils.C_'9839'_780) - (coe MAlonzo.Code.Utils.C_'9839'_780))) + MAlonzo.Code.Utils.C__'8658'__788 + (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe MAlonzo.Code.Utils.C_'9839'_786))) (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'_780) + v0 (d_mkCtx'8902'_106 (coe v4) (coe v5)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - du_'8866''9839'2TyNe'9839'_186 (coe v0) (coe v1) (coe v2) (coe v3) + du_'8866''9839'2TyNe'9839'_188 (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'_780) + v0 (d_mkCtx'8902'_106 (coe v4) (coe v5)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - du_'8866''9839'2TyNe'9839'_186 (coe v0) (coe v1) (coe v2) (coe v3) + du_'8866''9839'2TyNe'9839'_188 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v9))) _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.FromSig.mkTy -d_mkTy_204 :: +d_mkTy_206 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 :: +d_mkTy_206 ~v0 ~v1 v2 v3 v4 v5 v6 ~v7 ~v8 v9 v10 v11 + = du_mkTy_206 v2 v3 v4 v5 v6 v9 v10 v11 +du_mkTy_206 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 -du_mkTy_204 v0 v1 v2 v3 v4 v5 v6 v7 +du_mkTy_206 v0 v1 v2 v3 v4 v5 v6 v7 = case coe v7 of C_'96'_32 v10 -> coe - v0 (d_mkCtx'8902'_104 (coe v5) (coe v6)) - (coe MAlonzo.Code.Utils.C_'42'_778) + v0 (d_mkCtx'8902'_106 (coe v5) (coe v6)) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe - v1 v5 v6 (coe MAlonzo.Code.Utils.C_'42'_778) - (coe du_fin'8902'2'8715''8902'_130 (coe v10))) + v1 v5 v6 (coe MAlonzo.Code.Utils.C_'42'_784) + (coe du_fin'8902'2'8715''8902'_132 (coe v10))) C__'8593'_38 v10 -> coe - v4 (d_mkCtx'8902'_104 (coe v5) (coe v6)) + v4 (d_mkCtx'8902'_106 (coe v5) (coe v6)) (coe - v0 (d_mkCtx'8902'_104 (coe v5) (coe v6)) - (coe MAlonzo.Code.Utils.C_'9839'_780) + v0 (d_mkCtx'8902'_106 (coe v5) (coe v6)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - du_'8866''9839'2TyNe'9839'_186 (coe v0) (coe v1) (coe v2) (coe v3) + du_'8866''9839'2TyNe'9839'_188 (coe v0) (coe v1) (coe v2) (coe v3) (coe v5) (coe v6) (coe v10))) _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.FromSig.sig2type⇒ -d_sig2type'8658'_214 :: +d_sig2type'8658'_216 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 :: +d_sig2type'8658'_216 ~v0 ~v1 v2 v3 v4 v5 v6 v7 ~v8 v9 v10 v11 v12 + = du_sig2type'8658'_216 v2 v3 v4 v5 v6 v7 v9 v10 v11 v12 +du_sig2type'8658'_216 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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) -> Integer -> Integer -> [T__'47'_'8866''8902'_26] -> AgdaAny -> AgdaAny -du_sig2type'8658'_214 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 +du_sig2type'8658'_216 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 = case coe v8 of [] -> coe v9 (:) v10 v11 -> coe - du_sig2type'8658'_214 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) + du_sig2type'8658'_216 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v6) (coe v7) (coe v11) (coe - v5 (d_mkCtx'8902'_104 (coe v6) (coe v7)) + v5 (d_mkCtx'8902'_106 (coe v6) (coe v7)) (coe - du_mkTy_204 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v6) + du_mkTy_206 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v6) (coe v7) (coe v10)) v9) _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.FromSig.sig2typeΠ -d_sig2typeΠ_228 :: +d_sig2typeΠ_230 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 :: +d_sig2typeΠ_230 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 v8 v9 v10 v11 + = du_sig2typeΠ_230 v8 v9 v10 v11 +du_sig2typeΠ_230 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> AgdaAny -> AgdaAny -du_sig2typeΠ_228 v0 v1 v2 v3 +du_sig2typeΠ_230 v0 v1 v2 v3 = case coe v1 of 0 -> case coe v2 of 0 -> coe v3 _ -> let v4 = subInt (coe v2) (coe (1 :: Integer)) in coe (coe - du_sig2typeΠ_228 (coe v0) (coe (0 :: Integer)) (coe v4) + du_sig2typeΠ_230 (coe v0) (coe (0 :: Integer)) (coe v4) (coe - v0 (d_mkCtx'8902'_104 (coe (0 :: Integer)) (coe v4)) - (coe MAlonzo.Code.Utils.C_'9839'_780) v3)) + v0 (d_mkCtx'8902'_106 (coe (0 :: Integer)) (coe v4)) + (coe MAlonzo.Code.Utils.C_'9839'_786) v3)) _ -> let v4 = subInt (coe v1) (coe (1 :: Integer)) in coe (coe - du_sig2typeΠ_228 (coe v0) (coe v4) (coe v2) + du_sig2typeΠ_230 (coe v0) (coe v4) (coe v2) (coe - v0 (d_mkCtx'8902'_104 (coe v4) (coe v2)) - (coe MAlonzo.Code.Utils.C_'42'_778) v3)) + v0 (d_mkCtx'8902'_106 (coe v4) (coe v2)) + (coe MAlonzo.Code.Utils.C_'42'_784) v3)) -- Builtin.Signature.FromSig.sig2type -d_sig2type_242 :: +d_sig2type_244 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_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.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> + T_Sig_74 -> AgdaAny +d_sig2type_244 ~v0 ~v1 v2 v3 v4 v5 v6 v7 v8 v9 + = du_sig2type_244 v2 v3 v4 v5 v6 v7 v8 v9 +du_sig2type_244 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> - T_Sig_72 -> AgdaAny -du_sig2type_242 v0 v1 v2 v3 v4 v5 v6 v7 + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> + T_Sig_74 -> AgdaAny +du_sig2type_244 v0 v1 v2 v3 v4 v5 v6 v7 = case coe v7 of - C_sig_90 v8 v9 v10 v11 + C_sig_92 v8 v9 v10 v11 -> coe - du_sig2typeΠ_228 (coe v6) (coe v8) (coe v9) + du_sig2typeΠ_230 (coe v6) (coe v8) (coe v9) (coe - du_sig2type'8658'_214 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) + du_sig2type'8658'_216 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v8) (coe v9) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (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 - du_mkTy_204 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v8) + du_mkTy_206 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v8) (coe v9) (coe v11))) _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.FromSig.SigTy -d_SigTy_266 a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 +d_SigTy_268 a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 = () -data T_SigTy_266 - = C_bresult_280 | C__B'8658'__302 AgdaAny AgdaAny T_SigTy_266 | - C_sucΠ_326 MAlonzo.Code.Utils.T_Kind_776 AgdaAny T_SigTy_266 +data T_SigTy_268 + = C_bresult_282 | C__B'8658'__304 AgdaAny AgdaAny T_SigTy_268 | + C_sucΠ_328 MAlonzo.Code.Utils.T_Kind_782 AgdaAny T_SigTy_268 -- Builtin.Signature.FromSig.sig2SigTy⇒ -d_sig2SigTy'8658'_348 :: +d_sig2SigTy'8658'_350 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> Integer -> @@ -553,22 +553,22 @@ d_sig2SigTy'8658'_348 :: Integer -> Integer -> 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 + AgdaAny -> T_SigTy_268 -> T_SigTy_268 +d_sig2SigTy'8658'_350 ~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 :: + = du_sig2SigTy'8658'_350 v2 v3 v4 v5 v6 v7 v9 v10 v13 v16 v17 v18 +du_sig2SigTy'8658'_350 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 -> @@ -577,53 +577,53 @@ du_sig2SigTy'8658'_348 :: Integer -> [T__'47'_'8866''8902'_26] -> 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 + AgdaAny -> T_SigTy_268 -> T_SigTy_268 +du_sig2SigTy'8658'_350 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_200 v17 -> coe - du_sig2SigTy'8658'_348 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) + du_sig2SigTy'8658'_350 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v6) (coe v7) (coe v13) (coe v17) (coe - v5 (d_mkCtx'8902'_104 (coe v6) (coe v7)) + v5 (d_mkCtx'8902'_106 (coe v6) (coe v7)) (coe - du_mkTy_204 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v6) + du_mkTy_206 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v6) (coe v7) (coe v12)) v10) (coe - C__B'8658'__302 + C__B'8658'__304 (coe - du_mkTy_204 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v6) + du_mkTy_206 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v6) (coe v7) (coe v12)) v10 v11) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.FromSig.sig2SigTyΠ -d_sig2SigTyΠ_380 :: +d_sig2SigTyΠ_382 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> Integer -> @@ -633,18 +633,18 @@ d_sig2SigTyΠ_380 :: MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> 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 + AgdaAny -> T_SigTy_268 -> T_SigTy_268 +d_sig2SigTyΠ_382 ~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 :: + = du_sig2SigTyΠ_382 v8 v9 v10 v15 v18 v19 +du_sig2SigTyΠ_382 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> - AgdaAny -> T_SigTy_266 -> T_SigTy_266 -du_sig2SigTyΠ_380 v0 v1 v2 v3 v4 v5 + AgdaAny -> T_SigTy_268 -> T_SigTy_268 +du_sig2SigTyΠ_382 v0 v1 v2 v3 v4 v5 = case coe v1 of 0 -> case coe v3 of MAlonzo.Code.Utils.C_start_192 -> coe v5 @@ -652,87 +652,87 @@ du_sig2SigTyΠ_380 v0 v1 v2 v3 v4 v5 -> let v10 = subInt (coe v2) (coe (1 :: Integer)) in coe (coe - du_sig2SigTyΠ_380 (coe v0) (coe (0 :: Integer)) (coe v10) (coe v9) + du_sig2SigTyΠ_382 (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'_780) v4) - (coe C_sucΠ_326 (coe MAlonzo.Code.Utils.C_'9839'_780) v4 v5)) + v0 (d_mkCtx'8902'_106 (coe (0 :: Integer)) (coe v10)) + (coe MAlonzo.Code.Utils.C_'9839'_786) v4) + (coe C_sucΠ_328 (coe MAlonzo.Code.Utils.C_'9839'_786) v4 v5)) _ -> MAlonzo.RTE.mazUnreachableError _ -> let v6 = subInt (coe v1) (coe (1 :: Integer)) in coe (case coe v3 of MAlonzo.Code.Utils.C_bubble_200 v10 -> coe - du_sig2SigTyΠ_380 (coe v0) (coe v6) (coe v2) (coe v10) + du_sig2SigTyΠ_382 (coe v0) (coe v6) (coe v2) (coe v10) (coe - v0 (d_mkCtx'8902'_104 (coe v6) (coe v2)) - (coe MAlonzo.Code.Utils.C_'42'_778) v4) - (coe C_sucΠ_326 (coe MAlonzo.Code.Utils.C_'42'_778) v4 v5) + v0 (d_mkCtx'8902'_106 (coe v6) (coe v2)) + (coe MAlonzo.Code.Utils.C_'42'_784) v4) + (coe C_sucΠ_328 (coe MAlonzo.Code.Utils.C_'42'_784) v4 v5) _ -> MAlonzo.RTE.mazUnreachableError) -- Builtin.Signature.FromSig.sig2SigTy -d_sig2SigTy_398 :: +d_sig2SigTy_400 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_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.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> + T_Sig_74 -> T_SigTy_268 +d_sig2SigTy_400 ~v0 ~v1 v2 v3 v4 v5 v6 v7 v8 v9 + = du_sig2SigTy_400 v2 v3 v4 v5 v6 v7 v8 v9 +du_sig2SigTy_400 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> - T_Sig_72 -> T_SigTy_266 -du_sig2SigTy_398 v0 v1 v2 v3 v4 v5 v6 v7 + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> + T_Sig_74 -> T_SigTy_268 +du_sig2SigTy_400 v0 v1 v2 v3 v4 v5 v6 v7 = case coe v7 of - C_sig_90 v8 v9 v10 v11 + C_sig_92 v8 v9 v10 v11 -> coe - du_sig2SigTyΠ_380 (coe v6) (coe v8) (coe v9) + du_sig2SigTyΠ_382 (coe v6) (coe v8) (coe v9) (coe 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) + du_sig2type'8658'_216 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v8) (coe v9) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (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 - du_mkTy_204 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v8) + du_mkTy_206 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v8) (coe v9) (coe v11))) (coe - du_sig2SigTy'8658'_348 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) + du_sig2SigTy'8658'_350 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v5) (coe v8) (coe v9) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 @@ -742,33 +742,33 @@ du_sig2SigTy_398 v0 v1 v2 v3 v4 v5 v6 v7 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) + du_mkTy_206 (coe v0) (coe v1) (coe v2) (coe v3) (coe v4) (coe v8) (coe v9) (coe v11)) - (coe C_bresult_280)) + (coe C_bresult_282)) _ -> MAlonzo.RTE.mazUnreachableError -- Builtin.Signature.FromSig.sigTy2type -d_sigTy2type_428 :: +d_sigTy2type_430 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> Integer -> Integer -> @@ -778,60 +778,60 @@ d_sigTy2type_428 :: Integer -> 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 + MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> T_SigTy_268 -> AgdaAny +d_sigTy2type_430 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 ~v11 ~v12 ~v13 ~v14 ~v15 v16 ~v17 ~v18 ~v19 - = du_sigTy2type_428 v16 -du_sigTy2type_428 :: AgdaAny -> AgdaAny -du_sigTy2type_428 v0 = coe v0 + = du_sigTy2type_430 v16 +du_sigTy2type_430 :: AgdaAny -> AgdaAny +du_sigTy2type_430 v0 = coe v0 -- Builtin.Signature.FromSig.saturatedSigTy -d_saturatedSigTy_436 :: +d_saturatedSigTy_438 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> - T_Sig_72 -> AgdaAny -> () -d_saturatedSigTy_436 = erased + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> + T_Sig_74 -> AgdaAny -> () +d_saturatedSigTy_438 = erased -- Builtin.Signature.FromSig.convSigTy -d_convSigTy_470 :: +d_convSigTy_472 :: (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> ()) -> + MAlonzo.Code.Utils.T_Kind_782 -> ()) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> (Integer -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny) -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny -> AgdaAny) -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny) -> Integer -> Integer -> Integer -> @@ -847,9 +847,9 @@ d_convSigTy_470 :: AgdaAny -> AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> - T_SigTy_266 -> T_SigTy_266 -d_convSigTy_470 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 ~v11 + T_SigTy_268 -> T_SigTy_268 +d_convSigTy_472 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 ~v11 ~v12 ~v13 ~v14 ~v15 ~v16 ~v17 ~v18 ~v19 ~v20 ~v21 ~v22 ~v23 v24 - = du_convSigTy_470 v24 -du_convSigTy_470 :: T_SigTy_266 -> T_SigTy_266 -du_convSigTy_470 v0 = coe v0 + = du_convSigTy_472 v24 +du_convSigTy_472 :: T_SigTy_268 -> T_SigTy_268 +du_convSigTy_472 v0 = coe v0 diff --git a/plutus-metatheory/src/MAlonzo/Code/Certifier.hs b/plutus-metatheory/src/MAlonzo/Code/Certifier.hs index 901c2d7c80a..477421728cb 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Certifier.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Certifier.hs @@ -36,7 +36,7 @@ d_runCertifier_2 :: MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_80) - MAlonzo.Code.RawU.T_Untyped_208 -> + MAlonzo.Code.RawU.T_Untyped_210 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.VerifiedCompilation.T_Error_2 MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 @@ -67,7 +67,7 @@ runCertifierMain :: MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_80) - MAlonzo.Code.RawU.T_Untyped_208 -> + MAlonzo.Code.RawU.T_Untyped_210 -> MAlonzo.Code.Agda.Builtin.List.T_List_10 () MAlonzo.Code.VerifiedCompilation.Trace.T_EvalResult_122 -> MAlonzo.Code.Agda.Builtin.Maybe.T_Maybe_10 @@ -82,7 +82,7 @@ d_runCertifierMain_10 :: MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_80) - MAlonzo.Code.RawU.T_Untyped_208 -> + MAlonzo.Code.RawU.T_Untyped_210 -> [MAlonzo.Code.VerifiedCompilation.Trace.T_EvalResult_122] -> Maybe (MAlonzo.Code.Utils.T__'215'__436 diff --git a/plutus-metatheory/src/MAlonzo/Code/Check.hs b/plutus-metatheory/src/MAlonzo/Code/Check.hs index 3497e5eec5d..eb53d78e336 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_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_kindMismatch_18 MAlonzo.Code.Utils.T_Kind_782 + MAlonzo.Code.Utils.T_Kind_782 | + C_notFunKind_26 MAlonzo.Code.Utils.T_Kind_782 | + C_notPat_32 MAlonzo.Code.Utils.T_Kind_782 | 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_776 + MAlonzo.Code.Utils.T_Kind_782 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 d_decKind_138 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> 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'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> 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'__782 v2 v3 + MAlonzo.Code.Utils.C__'8658'__788 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'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> 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'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> 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'__782 v2 v3 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 v2 v3 + MAlonzo.Code.Utils.C__'8658'__788 v2 v3 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> 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'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> 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'__782 v4 v5 + MAlonzo.Code.Utils.C__'8658'__788 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'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notFunKind_26 v1) - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notFunKind_26 v1) - MAlonzo.Code.Utils.C__'8658'__782 v3 v4 + MAlonzo.Code.Utils.C__'8658'__788 v3 v4 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -204,27 +204,27 @@ 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'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C__'8658'__782 v3 v4 + MAlonzo.Code.Utils.C__'8658'__788 v3 v4 -> case coe v3 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C__'8658'__782 v5 v6 + MAlonzo.Code.Utils.C__'8658'__788 v5 v6 -> case coe v4 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C__'8658'__782 v7 v8 + MAlonzo.Code.Utils.C__'8658'__788 v7 v8 -> case coe v6 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> case coe v8 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe @@ -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'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C__'8658'__782 v9 v10 + MAlonzo.Code.Utils.C__'8658'__788 v9 v10 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_notPat_32 v1) - MAlonzo.Code.Utils.C__'8658'__782 v9 v10 + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe (\ v4 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe d_checkKind_554 (coe v0) (coe v3) - (coe MAlonzo.Code.Utils.C_'42'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'__782 (coe v2) (coe v5)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (coe v2) (coe v5)) (coe MAlonzo.Code.Type.BetaNormal.C_ƛ_18 v6)) _ -> MAlonzo.RTE.mazUnreachableError)) MAlonzo.Code.Scoped.C__'183'__26 v2 v3 @@ -672,7 +672,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_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.BetaNormal.C_SOP_28 (coe MAlonzo.Code.Utils.du_length_490 (coe v2)) v3)))) @@ -694,7 +694,7 @@ d_inferKind'45'List_568 v0 v1 MAlonzo.Code.Utils.du_eitherBind_54 (coe d_checkKind_554 (coe v0) (coe v2) - (coe MAlonzo.Code.Utils.C_'42'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe (\ v4 -> coe @@ -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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778 + MAlonzo.Code.Utils.C_'42'_784 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3) - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> let v4 = coe MAlonzo.Code.Utils.C_inj'8321'_12 @@ -767,31 +767,31 @@ 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'__782 v4 v5 + MAlonzo.Code.Utils.C__'8658'__788 v4 v5 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_kindMismatch_18 v2 v1) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Type.BetaNormal.C_con_22 v3) - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3) - MAlonzo.Code.Utils.C__'8658'__782 v4 v5 + MAlonzo.Code.Utils.C__'8658'__788 v4 v5 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_kindMismatch_18 v2 v1) _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Utils.C__'8658'__782 v4 v5 + MAlonzo.Code.Utils.C__'8658'__788 v4 v5 -> case coe v1 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_kindMismatch_18 v2 v1) - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe C_kindMismatch_18 v2 v1) - MAlonzo.Code.Utils.C__'8658'__782 v6 v7 + MAlonzo.Code.Utils.C__'8658'__788 v6 v7 -> coe MAlonzo.Code.Utils.du_eitherBind_54 (coe @@ -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'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 - (coe MAlonzo.Code.Utils.C_'42'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'__782 (coe v3) (coe v5)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) v7 v12) + (coe MAlonzo.Code.Utils.C_'42'_784) 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v6)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v5) + d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v5) (coe v8)) (coe - d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v6) + d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (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'__782 v8 v9 + MAlonzo.Code.Utils.C__'8658'__788 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'_780) (coe v5) (coe v7)) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_786) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 @@ -1484,7 +1484,7 @@ du_decTyCon_932 v0 v1 MAlonzo.Code.Builtin.Constant.Type.C_atomic_8 v3 -> coe MAlonzo.Code.Utils.Decidable.du_dcong_40 - (MAlonzo.Code.Builtin.Constant.AtomicType.d_decAtomicTyCon_26 + (MAlonzo.Code.Builtin.Constant.AtomicType.d_decAtomicTyCon_28 (coe v2) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.Constant.Type.C_list_10 @@ -1543,12 +1543,12 @@ d_checkType_1148 v0 v1 v2 v3 MAlonzo.Code.Utils.du_withE_352 (\ v7 -> coe - C_typeMismatch_100 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) + C_typeMismatch_100 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v3) (coe v5)) (coe MAlonzo.Code.Utils.du_dec2Either_364 (coe - d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v3) + d_decNfTy_864 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe (\ v5 -> coe @@ -1663,7 +1663,7 @@ d_inferType_1156 v0 v1 v2 (coe du_'46'extendedlambda24_1314 (coe v0) (coe v1) (coe v4)))) MAlonzo.Code.Scoped.C_con_538 v3 -> case coe v3 of - MAlonzo.Code.RawU.C_tmCon_206 v4 v5 + MAlonzo.Code.RawU.C_tmCon_208 v4 v5 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (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'_780) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v6 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) (coe - MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C_'42'_784))) 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'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (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'_778)) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe (\ v6 -> coe @@ -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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v5 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v5) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v5) + (coe MAlonzo.Code.Utils.C_'42'_784))) v5 v6)) (coe MAlonzo.Code.Type.C_'96'_22 diff --git a/plutus-metatheory/src/MAlonzo/Code/Cost.hs b/plutus-metatheory/src/MAlonzo/Code/Cost.hs index d077bd261be..9b2d37bd127 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Cost.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Cost.hs @@ -30,6 +30,7 @@ import qualified MAlonzo.Code.Builtin.Signature import qualified MAlonzo.Code.Cost.Base import qualified MAlonzo.Code.Cost.Model import qualified MAlonzo.Code.Cost.Raw +import qualified MAlonzo.Code.Cost.Size import qualified MAlonzo.Code.Data.Bool.Base import qualified MAlonzo.Code.Data.List.Base import qualified MAlonzo.Code.Data.Nat.Show @@ -359,30 +360,101 @@ d_isMonoidExBudget_80 erased) erased) (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased erased) +-- Cost.measures +d_measures_96 :: + MAlonzo.Code.Builtin.T_Builtin_2 -> + MAlonzo.Code.Data.Vec.Base.T_Vec_28 +d_measures_96 v0 + = let v1 + = coe + MAlonzo.Code.Data.Vec.Base.du_replicate_444 + (coe MAlonzo.Code.Builtin.d_arity_318 (coe v0)) + (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_86) in + coe + (case coe v0 of + MAlonzo.Code.Builtin.C_insertCoin_112 + -> coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_defaultValueMeasure_86 + (coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_defaultValueMeasure_86 + (coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_defaultValueMeasure_86 + (coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_valueMaxDepthMeasure_92 + (coe MAlonzo.Code.Data.Vec.Base.C_'91''93'_32)))) + MAlonzo.Code.Builtin.C_lookupCoin_114 + -> coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_defaultValueMeasure_86 + (coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_defaultValueMeasure_86 + (coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_valueMaxDepthMeasure_92 + (coe MAlonzo.Code.Data.Vec.Base.C_'91''93'_32))) + MAlonzo.Code.Builtin.C_unValueData_124 + -> coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_dataNodeCountMeasure_96 + (coe MAlonzo.Code.Data.Vec.Base.C_'91''93'_32) + MAlonzo.Code.Builtin.C_integerToByteString_172 + -> coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_defaultValueMeasure_86 + (coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_numBytesAsWords_100 + (coe + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 + MAlonzo.Code.Cost.Size.d_defaultValueMeasure_86 + (coe MAlonzo.Code.Data.Vec.Base.C_'91''93'_32))) + _ -> coe v1) -- Cost.builtinCost -d_builtinCost_96 :: +d_builtinCost_100 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Cost.Model.T_BuiltinModel_68 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> T_ExBudget_52 -d_builtinCost_96 v0 v1 v2 +d_builtinCost_100 v0 v1 v2 = coe C_mkExBudget_62 (coe MAlonzo.Code.Cost.Model.d_runModel_104 - (coe MAlonzo.Code.Builtin.d_arity_304 (coe v0)) - (coe MAlonzo.Code.Cost.Model.d_costingCPU_76 (coe v1)) (coe v2)) + (coe MAlonzo.Code.Builtin.d_arity_318 (coe v0)) + (coe MAlonzo.Code.Cost.Model.d_costingCPU_76 (coe v1)) + (coe du_sizes_112 (coe v0) (coe v2))) (coe MAlonzo.Code.Cost.Model.d_runModel_104 - (coe MAlonzo.Code.Builtin.d_arity_304 (coe v0)) - (coe MAlonzo.Code.Cost.Model.d_costingMem_78 (coe v1)) (coe v2)) + (coe MAlonzo.Code.Builtin.d_arity_318 (coe v0)) + (coe MAlonzo.Code.Cost.Model.d_costingMem_78 (coe v1)) + (coe du_sizes_112 (coe v0) (coe v2))) +-- Cost._.sizes +d_sizes_112 :: + MAlonzo.Code.Builtin.T_Builtin_2 -> + MAlonzo.Code.Cost.Model.T_BuiltinModel_68 -> + MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> + MAlonzo.Code.Data.Vec.Base.T_Vec_28 +d_sizes_112 v0 ~v1 v2 = du_sizes_112 v0 v2 +du_sizes_112 :: + MAlonzo.Code.Builtin.T_Builtin_2 -> + MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> + MAlonzo.Code.Data.Vec.Base.T_Vec_28 +du_sizes_112 v0 v1 + = coe + MAlonzo.Code.Data.Vec.Base.du_zipWith_242 (coe (\ v2 -> v2)) + (coe d_measures_96 (coe v0)) (coe v1) -- Cost.CostModel -d_CostModel_104 :: () -d_CostModel_104 = erased +d_CostModel_114 :: () +d_CostModel_114 = erased -- Cost.cekMachineCostFunction -d_cekMachineCostFunction_106 :: +d_cekMachineCostFunction_116 :: MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 -> MAlonzo.Code.Cost.Base.T_StepKind_6 -> T_ExBudget_52 -d_cekMachineCostFunction_106 v0 v1 +d_cekMachineCostFunction_116 v0 v1 = case coe v1 of MAlonzo.Code.Cost.Base.C_BConst_8 -> coe @@ -422,20 +494,20 @@ d_cekMachineCostFunction_106 v0 v1 (coe MAlonzo.Code.Cost.Raw.d_getCekCaseCost_26 v0) _ -> MAlonzo.RTE.mazUnreachableError -- Cost.exBudgetCategoryCost -d_exBudgetCategoryCost_126 :: +d_exBudgetCategoryCost_136 :: 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_68) -> MAlonzo.Code.Cost.Base.T_ExBudgetCategory_34 -> T_ExBudget_52 -d_exBudgetCategoryCost_126 v0 v1 +d_exBudgetCategoryCost_136 v0 v1 = case coe v0 of 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) + -> coe d_cekMachineCostFunction_116 (coe v2) (coe v4) MAlonzo.Code.Cost.Base.C_BBuiltinApp_40 v4 v5 - -> coe d_builtinCost_96 (coe v4) (coe v3 v4) (coe v5) + -> coe d_builtinCost_100 (coe v4) (coe v3 v4) (coe v5) MAlonzo.Code.Cost.Base.C_BStartup_42 -> coe d_fromHExBudget_64 @@ -443,21 +515,21 @@ d_exBudgetCategoryCost_126 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Cost.machineParameters -d_machineParameters_140 :: +d_machineParameters_150 :: 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_68) -> MAlonzo.Code.Cost.Base.T_MachineParameters_46 -d_machineParameters_140 v0 +d_machineParameters_150 v0 = coe MAlonzo.Code.Cost.Base.C_constructor_68 - (coe d_exBudgetCategoryCost_126 (coe v0)) (coe d_ε'8364'_68) + (coe d_exBudgetCategoryCost_136 (coe v0)) (coe d_ε'8364'_68) (coe d__'8729''8364'__70) (coe d_isMonoidExBudget_80) -- Cost.countingReport -d_countingReport_144 :: +d_countingReport_154 :: T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_countingReport_144 v0 +d_countingReport_154 v0 = case coe v0 of C_mkExBudget_62 v1 v2 -> coe @@ -472,10 +544,10 @@ d_countingReport_144 v0 (coe MAlonzo.Code.Data.Nat.Show.d_show_56 v2))) _ -> MAlonzo.RTE.mazUnreachableError -- Cost.mkKeyFromExBudgetCategory -d_mkKeyFromExBudgetCategory_150 :: +d_mkKeyFromExBudgetCategory_160 :: MAlonzo.Code.Cost.Base.T_ExBudgetCategory_34 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_mkKeyFromExBudgetCategory_150 v0 +d_mkKeyFromExBudgetCategory_160 v0 = case coe v0 of MAlonzo.Code.Cost.Base.C_BStep_36 v1 -> coe @@ -486,47 +558,47 @@ d_mkKeyFromExBudgetCategory_150 v0 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("1" :: Data.Text.Text) - (MAlonzo.Code.Builtin.d_showBuiltin_464 (coe v1)) + (MAlonzo.Code.Builtin.d_showBuiltin_492 (coe v1)) MAlonzo.Code.Cost.Base.C_BStartup_42 -> coe ("2" :: Data.Text.Text) _ -> MAlonzo.RTE.mazUnreachableError -- Cost.TallyingBudget -d_TallyingBudget_156 :: () -d_TallyingBudget_156 = erased +d_TallyingBudget_166 :: () +d_TallyingBudget_166 = erased -- Cost.lookup -d_lookup_158 :: +d_lookup_168 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> MAlonzo.Code.Cost.Base.T_ExBudgetCategory_34 -> T_ExBudget_52 -d_lookup_158 v0 v1 +d_lookup_168 v0 v1 = let v2 = coe MAlonzo.Code.Data.Tree.AVL.du_lookup_324 (coe MAlonzo.Code.Data.String.Properties.d_'60''45'strictTotalOrder'45''8776'_76) (coe MAlonzo.Code.Data.Tree.AVL.Value.du_const_96) (coe v0) - (coe d_mkKeyFromExBudgetCategory_150 (coe v1)) in + (coe d_mkKeyFromExBudgetCategory_160 (coe v1)) in coe (case coe v2 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v3 -> coe v3 MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe d_ε'8364'_68 _ -> MAlonzo.RTE.mazUnreachableError) -- Cost.εT -d_εT_178 :: +d_εT_188 :: MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 -d_εT_178 +d_εT_188 = coe 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 :: +d__'8729'T__190 :: MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 -> MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 -> MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 -d__'8729'T__180 v0 v1 +d__'8729'T__190 v0 v1 = case coe v0 of MAlonzo.Code.Utils.C__'44'__450 v2 v3 -> case coe v1 of @@ -536,37 +608,37 @@ d__'8729'T__180 v0 v1 (coe MAlonzo.Code.Data.Tree.AVL.Map.du_unionWith_244 MAlonzo.Code.Data.String.Properties.d_'60''45'strictTotalOrder'45''8776'_76 - (coe du_u_194) v2 v4) + (coe du_u_204) v2 v4) (coe d__'8729''8364'__70 (coe v3) (coe v5)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Cost._.u -d_u_194 :: +d_u_204 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> T_ExBudget_52 -> Maybe T_ExBudget_52 -> T_ExBudget_52 -d_u_194 ~v0 ~v1 ~v2 ~v3 v4 v5 = du_u_194 v4 v5 -du_u_194 :: T_ExBudget_52 -> Maybe T_ExBudget_52 -> T_ExBudget_52 -du_u_194 v0 v1 +d_u_204 ~v0 ~v1 ~v2 ~v3 v4 v5 = du_u_204 v4 v5 +du_u_204 :: T_ExBudget_52 -> Maybe T_ExBudget_52 -> T_ExBudget_52 +du_u_204 v0 v1 = case coe v1 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v2 -> coe d__'8729''8364'__70 (coe v0) (coe v2) MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe v0 _ -> MAlonzo.RTE.mazUnreachableError -- Cost.TallyingBudget-assoc -d_TallyingBudget'45'assoc_202 +d_TallyingBudget'45'assoc_212 = error "MAlonzo Runtime Error: postulate evaluated: Cost.TallyingBudget-assoc" -- Cost.Tallying-budget-identityʳ -d_Tallying'45'budget'45'identity'691'_204 +d_Tallying'45'budget'45'identity'691'_214 = error "MAlonzo Runtime Error: postulate evaluated: Cost.Tallying-budget-identity\691" -- Cost.isMonoidTallyingBudget -d_isMonoidTallyingBudget_206 :: +d_isMonoidTallyingBudget_216 :: MAlonzo.Code.Algebra.Structures.T_IsMonoid_712 -d_isMonoidTallyingBudget_206 +d_isMonoidTallyingBudget_216 = coe MAlonzo.Code.Algebra.Structures.C_constructor_758 (coe @@ -579,7 +651,7 @@ d_isMonoidTallyingBudget_206 erased) (coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased erased) -- Cost.tallyingCekMachineCost -d_tallyingCekMachineCost_212 :: +d_tallyingCekMachineCost_222 :: MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Cost.Raw.T_HCekMachineCosts_4 (MAlonzo.Code.Builtin.T_Builtin_2 -> @@ -587,37 +659,37 @@ d_tallyingCekMachineCost_212 :: MAlonzo.Code.Cost.Base.T_ExBudgetCategory_34 -> MAlonzo.Code.Utils.T__'215'__436 MAlonzo.Code.Data.Tree.AVL.T_Tree_266 T_ExBudget_52 -d_tallyingCekMachineCost_212 v0 v1 +d_tallyingCekMachineCost_222 v0 v1 = coe MAlonzo.Code.Utils.C__'44'__450 (coe MAlonzo.Code.Data.Tree.AVL.Map.du_singleton_212 - (d_mkKeyFromExBudgetCategory_150 (coe v1)) - (d_exBudgetCategoryCost_126 (coe v0) (coe v1))) - (coe d_exBudgetCategoryCost_126 (coe v0) (coe v1)) + (d_mkKeyFromExBudgetCategory_160 (coe v1)) + (d_exBudgetCategoryCost_136 (coe v0) (coe v1))) + (coe d_exBudgetCategoryCost_136 (coe v0) (coe v1)) -- Cost.tallyingMachineParameters -d_tallyingMachineParameters_220 :: +d_tallyingMachineParameters_230 :: 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_68) -> MAlonzo.Code.Cost.Base.T_MachineParameters_46 -d_tallyingMachineParameters_220 v0 +d_tallyingMachineParameters_230 v0 = coe MAlonzo.Code.Cost.Base.C_constructor_68 - (coe d_tallyingCekMachineCost_212 (coe v0)) (coe d_εT_178) - (coe d__'8729'T__180) (coe d_isMonoidTallyingBudget_206) + (coe d_tallyingCekMachineCost_222 (coe v0)) (coe d_εT_188) + (coe d__'8729'T__190) (coe d_isMonoidTallyingBudget_216) -- Cost.tallyingReport -d_tallyingReport_224 :: +d_tallyingReport_234 :: 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 +d_tallyingReport_234 v0 = case coe v0 of MAlonzo.Code.Utils.C__'44'__450 v1 v2 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_countingReport_144 (coe v2)) + (d_countingReport_154 (coe v2)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("\n" :: Data.Text.Text) @@ -626,7 +698,7 @@ d_tallyingReport_224 v0 ("\n" :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (coe du_printStepReport_260 (coe v1)) + (coe du_printStepReport_270 (coe v1)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("\n" :: Data.Text.Text) @@ -636,9 +708,9 @@ d_tallyingReport_224 v0 (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (coe - du_budgetToString_248 + du_budgetToString_258 (coe - d_lookup_158 (coe v1) + d_lookup_168 (coe v1) (coe MAlonzo.Code.Cost.Base.C_BStartup_42))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 @@ -649,8 +721,8 @@ d_tallyingReport_224 v0 (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (coe - du_budgetToString_248 - (coe du_totalComputeCost_234 (coe v1))) + du_budgetToString_258 + (coe du_totalComputeCost_244 (coe v1))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("\n" :: Data.Text.Text) @@ -659,7 +731,7 @@ d_tallyingReport_224 v0 ("\n\n" :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (coe du_printBuiltinReport_276 (coe v1)) + (coe du_printBuiltinReport_286 (coe v1)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("\n" :: Data.Text.Text) @@ -669,9 +741,9 @@ d_tallyingReport_224 v0 (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (coe - du_budgetToString_248 + du_budgetToString_258 (coe - du_totalBuiltinCosts_236 (coe v1))) + du_totalBuiltinCosts_246 (coe v1))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("\n" :: Data.Text.Text) @@ -690,11 +762,11 @@ d_tallyingReport_224 v0 MAlonzo.Code.Agda.Builtin.Float.d_primNatToFloat_24 (100 :: Integer)) (coe - du_getCPU_244 + du_getCPU_254 (coe - du_totalBuiltinCosts_236 + du_totalBuiltinCosts_246 (coe v1)))) - (coe du_getCPU_244 (coe v2)))) + (coe du_getCPU_254 (coe v2)))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("\n" :: Data.Text.Text) @@ -709,7 +781,7 @@ d_tallyingReport_224 v0 (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (coe - du_budgetToString_248 + du_budgetToString_258 (coe v2)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 @@ -722,37 +794,37 @@ d_tallyingReport_224 v0 :: Data.Text.Text) (coe - du_formatTimePicoseconds_284 + du_formatTimePicoseconds_294 (coe - du_getCPU_244 + du_getCPU_254 (coe v2)))))))))))))))))))))))))) _ -> MAlonzo.RTE.mazUnreachableError -- Cost._.totalComputeCost -d_totalComputeCost_234 :: +d_totalComputeCost_244 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> T_ExBudget_52 -d_totalComputeCost_234 v0 ~v1 = du_totalComputeCost_234 v0 -du_totalComputeCost_234 :: +d_totalComputeCost_244 v0 ~v1 = du_totalComputeCost_244 v0 +du_totalComputeCost_244 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -du_totalComputeCost_234 v0 +du_totalComputeCost_244 v0 = coe MAlonzo.Code.Data.List.Base.du_foldr_216 (coe (\ v1 -> d__'8729''8364'__70 (coe - d_lookup_158 (coe v0) + d_lookup_168 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BStep_36 (coe v1))))) (coe d_ε'8364'_68) (coe MAlonzo.Code.Cost.Base.d_stepKindList_32) -- Cost._.totalBuiltinCosts -d_totalBuiltinCosts_236 :: +d_totalBuiltinCosts_246 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> T_ExBudget_52 -d_totalBuiltinCosts_236 v0 ~v1 = du_totalBuiltinCosts_236 v0 -du_totalBuiltinCosts_236 :: +d_totalBuiltinCosts_246 v0 ~v1 = du_totalBuiltinCosts_246 v0 +du_totalBuiltinCosts_246 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -du_totalBuiltinCosts_236 v0 +du_totalBuiltinCosts_246 v0 = coe MAlonzo.Code.Data.List.Base.du_foldr_216 (coe d__'8729''8364'__70) (coe d_ε'8364'_68) @@ -760,41 +832,41 @@ du_totalBuiltinCosts_236 v0 MAlonzo.Code.Data.List.Base.du_map_22 (coe (\ v1 -> - d_lookup_158 + d_lookup_168 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BBuiltinApp_40 (coe v1) (coe MAlonzo.Code.Data.Vec.Base.du_replicate_444 - (coe MAlonzo.Code.Builtin.d_arity_304 (coe v1)) + (coe MAlonzo.Code.Builtin.d_arity_318 (coe v1)) (coe MAlonzo.Code.Untyped.CEK.C_V'45'con_50 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14)) (coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8)))))) - (coe MAlonzo.Code.Builtin.d_builtinList_466)) + (coe MAlonzo.Code.Builtin.d_builtinList_494)) -- Cost._.getCPU -d_getCPU_244 :: +d_getCPU_254 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.Float.T_Float_6 -d_getCPU_244 ~v0 ~v1 v2 = du_getCPU_244 v2 -du_getCPU_244 :: +d_getCPU_254 ~v0 ~v1 v2 = du_getCPU_254 v2 +du_getCPU_254 :: T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.Float.T_Float_6 -du_getCPU_244 v0 +du_getCPU_254 v0 = coe MAlonzo.Code.Agda.Builtin.Float.d_primNatToFloat_24 (d_ExCPU_58 (coe v0)) -- Cost._.budgetToString -d_budgetToString_248 :: +d_budgetToString_258 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_budgetToString_248 ~v0 ~v1 v2 = du_budgetToString_248 v2 -du_budgetToString_248 :: +d_budgetToString_258 ~v0 ~v1 v2 = du_budgetToString_258 v2 +du_budgetToString_258 :: T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -du_budgetToString_248 v0 +du_budgetToString_258 v0 = case coe v0 of C_mkExBudget_62 v1 v2 -> coe @@ -810,16 +882,16 @@ du_budgetToString_248 v0 (coe MAlonzo.Code.Data.Nat.Show.d_show_56 v2))) _ -> MAlonzo.RTE.mazUnreachableError -- Cost._.printStepCost -d_printStepCost_254 :: +d_printStepCost_264 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> MAlonzo.Code.Cost.Base.T_StepKind_6 -> T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_printStepCost_254 ~v0 ~v1 v2 v3 = du_printStepCost_254 v2 v3 -du_printStepCost_254 :: +d_printStepCost_264 ~v0 ~v1 v2 v3 = du_printStepCost_264 v2 v3 +du_printStepCost_264 :: MAlonzo.Code.Cost.Base.T_StepKind_6 -> T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -du_printStepCost_254 v0 v1 +du_printStepCost_264 v0 v1 = coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (MAlonzo.Code.Data.String.Base.d_padRight_70 @@ -832,19 +904,19 @@ du_printStepCost_254 v0 v1 MAlonzo.Code.Data.String.Base.d__'43''43'__20 (MAlonzo.Code.Data.String.Base.d_padLeft_60 (coe ' ') (coe (20 :: Integer)) - (coe du_budgetToString_248 (coe v1))) + (coe du_budgetToString_258 (coe v1))) ("\n" :: Data.Text.Text))) -- Cost._.printStepReport -d_printStepReport_260 :: +d_printStepReport_270 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_printStepReport_260 ~v0 ~v1 v2 = du_printStepReport_260 v2 -du_printStepReport_260 :: +d_printStepReport_270 ~v0 ~v1 v2 = du_printStepReport_270 v2 +du_printStepReport_270 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -du_printStepReport_260 v0 +du_printStepReport_270 v0 = coe MAlonzo.Code.Data.List.Base.du_foldr_216 (coe @@ -852,24 +924,24 @@ du_printStepReport_260 v0 coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (coe - du_printStepCost_254 (coe v1) + du_printStepCost_264 (coe v1) (coe - d_lookup_158 (coe v0) + d_lookup_168 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BStep_36 (coe v1)))))) (coe ("" :: Data.Text.Text)) (coe MAlonzo.Code.Cost.Base.d_stepKindList_32) -- Cost._.printBuiltinCost -d_printBuiltinCost_268 :: +d_printBuiltinCost_278 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> MAlonzo.Code.Builtin.T_Builtin_2 -> T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_printBuiltinCost_268 ~v0 ~v1 v2 v3 - = du_printBuiltinCost_268 v2 v3 -du_printBuiltinCost_268 :: +d_printBuiltinCost_278 ~v0 ~v1 v2 v3 + = du_printBuiltinCost_278 v2 v3 +du_printBuiltinCost_278 :: MAlonzo.Code.Builtin.T_Builtin_2 -> T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -du_printBuiltinCost_268 v0 v1 +du_printBuiltinCost_278 v0 v1 = case coe v1 of C_mkExBudget_62 v2 v3 -> let v4 @@ -877,13 +949,13 @@ du_printBuiltinCost_268 v0 v1 MAlonzo.Code.Data.String.Base.d__'43''43'__20 (MAlonzo.Code.Data.String.Base.d_padRight_70 (coe ' ') (coe (22 :: Integer)) - (coe MAlonzo.Code.Builtin.d_showBuiltin_464 (coe v0))) + (coe MAlonzo.Code.Builtin.d_showBuiltin_492 (coe v0))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (coe du_budgetToString_248 (coe v1)) ("\n" :: Data.Text.Text))) in + (coe du_budgetToString_258 (coe v1)) ("\n" :: Data.Text.Text))) in coe (case coe v2 of 0 -> case coe v3 of @@ -892,16 +964,16 @@ du_printBuiltinCost_268 v0 v1 _ -> coe v4) _ -> MAlonzo.RTE.mazUnreachableError -- Cost._.printBuiltinReport -d_printBuiltinReport_276 :: +d_printBuiltinReport_286 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_printBuiltinReport_276 ~v0 ~v1 v2 = du_printBuiltinReport_276 v2 -du_printBuiltinReport_276 :: +d_printBuiltinReport_286 ~v0 ~v1 v2 = du_printBuiltinReport_286 v2 +du_printBuiltinReport_286 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -du_printBuiltinReport_276 v0 +du_printBuiltinReport_286 v0 = coe MAlonzo.Code.Data.List.Base.du_foldr_216 (coe @@ -909,14 +981,14 @@ du_printBuiltinReport_276 v0 coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (coe - du_printBuiltinCost_268 (coe v1) + du_printBuiltinCost_278 (coe v1) (coe - d_lookup_158 (coe v0) + d_lookup_168 (coe v0) (coe MAlonzo.Code.Cost.Base.C_BBuiltinApp_40 (coe v1) (coe MAlonzo.Code.Data.Vec.Base.du_replicate_444 - (coe MAlonzo.Code.Builtin.d_arity_304 (coe v1)) + (coe MAlonzo.Code.Builtin.d_arity_318 (coe v1)) (coe MAlonzo.Code.Untyped.CEK.C_V'45'con_50 (coe @@ -924,19 +996,19 @@ du_printBuiltinReport_276 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14)) (coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8)))))))) (coe ("" :: Data.Text.Text)) - (coe MAlonzo.Code.Builtin.d_builtinList_466) + (coe MAlonzo.Code.Builtin.d_builtinList_494) -- Cost._.formatTimePicoseconds -d_formatTimePicoseconds_284 :: +d_formatTimePicoseconds_294 :: MAlonzo.Code.Data.Tree.AVL.T_Tree_266 -> T_ExBudget_52 -> MAlonzo.Code.Agda.Builtin.Float.T_Float_6 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_formatTimePicoseconds_284 ~v0 ~v1 v2 - = du_formatTimePicoseconds_284 v2 -du_formatTimePicoseconds_284 :: +d_formatTimePicoseconds_294 ~v0 ~v1 v2 + = du_formatTimePicoseconds_294 v2 +du_formatTimePicoseconds_294 :: MAlonzo.Code.Agda.Builtin.Float.T_Float_6 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -du_formatTimePicoseconds_284 v0 +du_formatTimePicoseconds_294 v0 = coe MAlonzo.Code.Data.Bool.Base.du_if_then_else__44 (coe diff --git a/plutus-metatheory/src/MAlonzo/Code/Cost/Model.hs b/plutus-metatheory/src/MAlonzo/Code/Cost/Model.hs index 47cd627fea0..0a4183626f5 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Cost/Model.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Cost/Model.hs @@ -23,10 +23,8 @@ import qualified MAlonzo.Code.Agda.Builtin.Nat import qualified MAlonzo.Code.Agda.Builtin.Sigma import qualified MAlonzo.Code.Agda.Builtin.String import qualified MAlonzo.Code.Builtin -import qualified MAlonzo.Code.Builtin.Constant.AtomicType import qualified MAlonzo.Code.Builtin.Signature import qualified MAlonzo.Code.Cost.Raw -import qualified MAlonzo.Code.Cost.Size import qualified MAlonzo.Code.Data.Bool.Base import qualified MAlonzo.Code.Data.Char.Properties import qualified MAlonzo.Code.Data.Fin.Base @@ -40,7 +38,6 @@ import qualified MAlonzo.Code.Data.String.Properties import qualified MAlonzo.Code.Data.Vec.Base import qualified MAlonzo.Code.Relation.Nullary.Decidable.Core import qualified MAlonzo.Code.Relation.Nullary.Reflects -import qualified MAlonzo.Code.Untyped.CEK import qualified MAlonzo.Code.Utils -- Cost.Model.Intercept @@ -133,9 +130,7 @@ d_runModel_104 v0 v1 v2 addInt (coe mulInt (coe v6) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4)))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4))) (coe v5) C_quadraticCostIn1_20 v4 v5 v6 v7 -> coe @@ -146,17 +141,11 @@ d_runModel_104 v0 v1 v2 mulInt (coe mulInt (coe v7) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4)))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4)))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4))) (coe mulInt (coe v6) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4))))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4)))) (coe v5) C_quadraticCostIn2_24 v4 v5 v6 v7 v8 v9 v10 v11 v12 -> coe @@ -175,44 +164,26 @@ d_runModel_104 v0 v1 v2 mulInt (coe mulInt (coe v10) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe - MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4)))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4)))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4))) (coe mulInt (coe mulInt (coe v11) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe - MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4)))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5))))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5)))) (coe mulInt (coe mulInt (coe v12) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5)))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5))))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5)))) (coe mulInt (coe v8) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4))))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4)))) (coe mulInt (coe v9) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5))))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5)))) (coe v7)) C_withInteractionIn_28 v4 v5 v6 v7 v8 v9 -> coe @@ -225,96 +196,41 @@ d_runModel_104 v0 v1 v2 mulInt (coe mulInt (coe v9) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4)))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5)))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5))) (coe mulInt (coe v7) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4))))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4)))) (coe mulInt (coe v8) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5))))) + (coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v5)))) (coe v6) C_literalCostIn_32 v4 v5 -> let v6 = coe MAlonzo.Code.Data.Vec.Base.du_lookup_82 (coe v2) (coe v4) in coe - (let v7 = d_runModel_104 (coe v0) (coe v5) (coe v2) in - coe - (case coe v6 of - MAlonzo.Code.Untyped.CEK.C_V'45'con_50 v8 v9 - -> case coe v8 of - MAlonzo.Code.Builtin.Signature.C_atomic_12 v11 - -> case coe v11 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 - -> case coe v9 of - _ | coe geqInt (coe v9) (coe (1 :: Integer)) -> - let v12 = subInt (coe v9) (coe (1 :: Integer)) in - coe - (coe - addInt (coe (1 :: Integer)) - (coe - MAlonzo.Code.Data.Nat.Base.du__'47'__318 - (coe v12) (coe (8 :: Integer)))) - 0 -> coe v7 - _ -> coe v7 - _ -> coe v7 - _ -> coe v7 - _ -> coe v7)) + (case coe v6 of + 0 -> coe d_runModel_104 (coe v0) (coe v5) (coe v2) + _ -> coe v6) C_addedSizes_36 v4 v5 -> coe addInt (coe - mulInt (coe v5) - (coe - MAlonzo.Code.Data.Vec.Base.d_sum_420 v0 - (coe - MAlonzo.Code.Data.Vec.Base.du_map_178 - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78) (coe v2)))) + mulInt (coe v5) (coe MAlonzo.Code.Data.Vec.Base.d_sum_420 v0 v2)) (coe v4) C_multipliedSizes_40 v4 v5 - -> coe - addInt - (coe - mulInt (coe v5) - (coe - d_prod_84 v0 - (coe - MAlonzo.Code.Data.Vec.Base.du_map_178 - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78) (coe v2)))) - (coe v4) + -> coe addInt (coe mulInt (coe v5) (coe d_prod_84 v0 v2)) (coe v4) C_minSize_44 v4 v5 -> let v6 = subInt (coe v0) (coe (1 :: Integer)) in coe (coe - addInt - (coe - mulInt (coe v5) - (coe - d_minimum_92 (coe v6) - (coe - MAlonzo.Code.Data.Vec.Base.du_map_178 - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78) (coe v2)))) + addInt (coe mulInt (coe v5) (coe d_minimum_92 (coe v6) (coe v2))) (coe v4)) C_maxSize_48 v4 v5 -> let v6 = subInt (coe v0) (coe (1 :: Integer)) in coe (coe - addInt - (coe - mulInt (coe v5) - (coe - d_maximum_88 (coe v6) - (coe - MAlonzo.Code.Data.Vec.Base.du_map_178 - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78) (coe v2)))) + addInt (coe mulInt (coe v5) (coe d_maximum_88 (coe v6) (coe v2))) (coe v4)) C_twoArgumentsSubtractedSizes_50 v3 v4 v5 -> case coe v2 of @@ -327,10 +243,7 @@ d_runModel_104 v0 v1 v2 mulInt (coe v4) (coe MAlonzo.Code.Data.Nat.Base.d__'8852'__208 (coe v5) - (coe - MAlonzo.Code.Agda.Builtin.Nat.d__'45'__22 - (MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 (coe v7)) - (MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 (coe v10))))) + (coe MAlonzo.Code.Agda.Builtin.Nat.d__'45'__22 v7 v10))) (coe v3) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -343,11 +256,7 @@ d_runModel_104 v0 v1 v2 seq (coe v10) (coe MAlonzo.Code.Data.Bool.Base.du_if_then_else__44 - (coe - ltInt - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 (coe v6)) - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 (coe v9))) - (coe v3) + (coe ltInt (coe v6) (coe v9)) (coe v3) (coe d_runModel_104 (coe (2 :: Integer)) (coe v4) (coe @@ -366,11 +275,7 @@ d_runModel_104 v0 v1 v2 seq (coe v10) (coe MAlonzo.Code.Data.Bool.Base.du_if_then_else__44 - (coe - ltInt - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 (coe v9)) - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 (coe v6))) - (coe v3) + (coe ltInt (coe v9) (coe v6)) (coe v3) (coe d_runModel_104 (coe (2 :: Integer)) (coe v4) (coe @@ -390,11 +295,7 @@ d_runModel_104 v0 v1 v2 (coe MAlonzo.Code.Data.Bool.Base.du_if_then_else__44 (coe - MAlonzo.Code.Data.Bool.Base.d_not_22 - (coe - eqInt - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 (coe v6)) - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 (coe v9)))) + MAlonzo.Code.Data.Bool.Base.d_not_22 (coe eqInt (coe v6) (coe v9))) (coe v3) (coe d_runModel_104 (coe (2 :: Integer)) (coe v4) @@ -414,10 +315,7 @@ d_runModel_104 v0 v1 v2 seq (coe v10) (coe MAlonzo.Code.Data.Bool.Base.du_if_then_else__44 - (coe - ltInt - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 (coe v9)) - (coe MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 (coe v6))) + (coe ltInt (coe v9) (coe v6)) (coe d_runModel_104 (coe (2 :: Integer)) (coe v4) (coe @@ -444,17 +342,8 @@ d_runModel_104 v0 v1 v2 -> coe addInt (coe - addInt - (coe - mulInt (coe v4) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v10))) - (coe - mulInt (coe v5) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13)))) + addInt (coe mulInt (coe v4) (coe v10)) + (coe mulInt (coe v5) (coe v13))) (coe v3) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -473,13 +362,9 @@ d_runModel_104 v0 v1 v2 (coe d_maximum_88 (coe (1 :: Integer)) (coe - MAlonzo.Code.Data.Vec.Base.C__'8759'__38 - (MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v9)) + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 v9 (coe - MAlonzo.Code.Data.Vec.Base.C__'8759'__38 - (MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v12)) + MAlonzo.Code.Data.Vec.Base.C__'8759'__38 v12 (coe MAlonzo.Code.Data.Vec.Base.C_'91''93'_32))))) (coe v3) _ -> MAlonzo.RTE.mazUnreachableError @@ -496,14 +381,7 @@ d_runModel_104 v0 v1 v2 seq (coe v14) (coe MAlonzo.Code.Data.Bool.Base.du_if_then_else__44 - (coe - ltInt - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13)) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v7))) + (coe ltInt (coe v13) (coe v7)) (coe addInt (coe @@ -519,55 +397,21 @@ d_runModel_104 v0 v1 v2 (coe mulInt (coe - mulInt - (coe - mulInt (coe v5) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v10))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13))) + mulInt (coe mulInt (coe v5) (coe v10)) + (coe v13)) + (coe v13)) (coe - mulInt - (coe - mulInt (coe v4) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v10))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13)))) + mulInt (coe mulInt (coe v4) (coe v10)) + (coe v13))) (coe v3)) (coe (2 :: Integer))) (coe mulInt (coe - mulInt - (coe - mulInt (coe v5) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v10))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13)))) - (coe - mulInt - (coe - mulInt (coe v4) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v10))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13)))) + mulInt (coe mulInt (coe v5) (coe v10)) + (coe v13)) + (coe v13))) + (coe mulInt (coe mulInt (coe v4) (coe v10)) (coe v13))) (coe v3)) (coe addInt @@ -575,361 +419,472 @@ d_runModel_104 v0 v1 v2 addInt (coe mulInt - (coe - mulInt - (coe - mulInt (coe v5) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v10))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13))) - (coe - mulInt - (coe - mulInt (coe v4) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v10))) - (coe - MAlonzo.Code.Cost.Size.d_defaultValueMeasure_78 - (coe v13)))) + (coe mulInt (coe mulInt (coe v5) (coe v10)) (coe v13)) + (coe v13)) + (coe mulInt (coe mulInt (coe v4) (coe v10)) (coe v13))) (coe v3))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Cost.Model.convertRawModel -d_convertRawModel_328 :: +d_convertRawModel_294 :: + MAlonzo.Code.Cost.Raw.T_RawModel_144 -> + Integer -> Maybe T_CostingModel_8 +d_convertRawModel_294 v0 + = case coe v0 of + MAlonzo.Code.Cost.Raw.C_ConstantCost_146 v1 + -> coe + (\ v2 -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe C_constantCost_12 v1)) + MAlonzo.Code.Cost.Raw.C_AddedSizes_148 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v2 v3 + -> coe + (\ v4 -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe C_addedSizes_36 v2 v3)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_MultipliedSizes_150 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v2 v3 + -> coe + (\ v4 -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe C_multipliedSizes_40 v2 v3)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_MinSize_152 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v2 v3 + -> coe + (\ v4 -> + let v5 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v4 of + _ | coe geqInt (coe v4) (coe (1 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe C_minSize_44 v2 v3) + _ -> coe v5)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_MaxSize_154 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v2 v3 + -> coe + (\ v4 -> + let v5 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v4 of + _ | coe geqInt (coe v4) (coe (1 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe C_maxSize_48 v2 v3) + _ -> coe v5)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_LinearInX_156 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v2 v3 + -> coe + (\ v4 -> + let v5 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v4 of + _ | coe geqInt (coe v4) (coe (1 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_linearCostIn_16 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) v2 + v3) + _ -> coe v5)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_LinearInY_158 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v2 v3 + -> coe + (\ v4 -> + let v5 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v4 of + _ | coe geqInt (coe v4) (coe (2 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_linearCostIn_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) + v2 v3) + 1 -> coe v5 + _ -> coe v5)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_LinearInZ_160 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v2 v3 + -> coe + (\ v4 -> + let v5 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v4 of + _ | coe geqInt (coe v4) (coe (3 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_linearCostIn_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))) + v2 v3) + 2 -> coe v5 + 1 -> coe v5 + _ -> coe v5)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_LinearInU_162 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v2 v3 + -> coe + (\ v4 -> + let v5 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v4 of + _ | coe geqInt (coe v4) (coe (4 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_linearCostIn_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)))) + v2 v3) + 3 -> coe v5 + 2 -> coe v5 + 1 -> coe v5 + _ -> coe v5)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_LinearInY2_164 v1 v2 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v3 v4 + -> coe + (\ v5 -> + let v6 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v5 of + _ | coe geqInt (coe v5) (coe (2 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_linearCostIn_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) + v3 v4) + 1 -> coe v6 + _ -> coe v6)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_LiteralInYOrLinearInZ_166 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v2 v3 + -> coe + (\ v4 -> + let v5 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v4 of + _ | coe geqInt (coe v4) (coe (3 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_literalCostIn_32 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) + (coe + C_linearCostIn_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))) + v2 v3)) + 2 -> coe v5 + 1 -> coe v5 + _ -> coe v5)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_LinearInMaxYZ_168 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v2 v3 + -> coe + (\ v4 -> + let v5 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v4 of + 3 -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe C_twoArgumentsLinearInMaxYZ_62 (coe v2) (coe v3)) + _ | coe geqInt (coe v4) (coe (3 :: Integer)) -> coe v5 + 2 -> coe v5 + 1 -> coe v5 + _ -> coe v5)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_LinearInXAndY_170 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkTwoVariableLinearFunction_74 v2 v3 v4 + -> coe + (\ v5 -> + let v6 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v5 of + _ | coe geqInt (coe v5) (coe (2 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_withInteractionIn_28 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) + v2 v3 v4 (0 :: Integer)) + 1 -> coe v6 + _ -> coe v6)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_LinearInYAndZ_172 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkTwoVariableLinearFunction_74 v2 v3 v4 + -> coe + (\ v5 -> + let v6 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v5 of + 3 -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe C_twoArgumentsLinearInYAndZ_60 (coe v2) (coe v3) (coe v4)) + _ | coe geqInt (coe v5) (coe (3 :: Integer)) -> coe v6 + 2 -> coe v6 + 1 -> coe v6 + _ -> coe v6)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_QuadraticInX_174 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkOneVariableQuadraticFunction_58 v2 v3 v4 + -> coe + (\ v5 -> + let v6 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v5 of + _ | coe geqInt (coe v5) (coe (1 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_quadraticCostIn1_20 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) v2 v3 v4) + _ -> coe v6)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_QuadraticInY_176 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkOneVariableQuadraticFunction_58 v2 v3 v4 + -> coe + (\ v5 -> + let v6 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v5 of + _ | coe geqInt (coe v5) (coe (2 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_quadraticCostIn1_20 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) + v2 v3 v4) + 1 -> coe v6 + _ -> coe v6)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_QuadraticInZ_178 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkOneVariableQuadraticFunction_58 v2 v3 v4 + -> coe + (\ v5 -> + let v6 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v5 of + _ | coe geqInt (coe v5) (coe (3 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_quadraticCostIn1_20 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))) + v2 v3 v4) + 2 -> coe v6 + 1 -> coe v6 + _ -> coe v6)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_QuadraticInXAndY_180 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkTwoVariableQuadraticFunction_106 v2 v3 v4 v5 v6 v7 v8 + -> coe + (\ v9 -> + let v10 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v9 of + _ | coe geqInt (coe v9) (coe (2 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_quadraticCostIn2_24 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) + v2 v3 v4 v5 v6 v7 v8) + 1 -> coe v10 + _ -> coe v10)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_WithInteractionInXAndY_182 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkTwoVariableWithInteractionFunction_126 v2 v3 v4 v5 + -> coe + (\ v6 -> + let v7 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v6 of + _ | coe geqInt (coe v6) (coe (2 :: Integer)) -> + coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe + C_withInteractionIn_28 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) + (coe + MAlonzo.Code.Data.Fin.Base.C_suc_16 + (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) + v2 v3 v4 v5) + 1 -> coe v7 + _ -> coe v7)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_SubtractedSizes_184 v1 v2 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v3 v4 + -> coe + (\ v5 -> + let v6 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v5 of + 2 -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe C_twoArgumentsSubtractedSizes_50 (coe v3) (coe v4) (coe v2)) + _ | coe geqInt (coe v5) (coe (2 :: Integer)) -> coe v6 + 1 -> coe v6 + _ -> coe v6)) + _ -> MAlonzo.RTE.mazUnreachableError + MAlonzo.Code.Cost.Raw.C_ConstAboveDiagonal_186 v1 v2 + -> coe d_'46'extendedlambda15_444 (coe v1) (coe v2) + MAlonzo.Code.Cost.Raw.C_ConstBelowDiagonal_188 v1 v2 + -> coe d_'46'extendedlambda16_450 (coe v1) (coe v2) + MAlonzo.Code.Cost.Raw.C_ConstOffDiagonal_190 v1 v2 + -> coe d_'46'extendedlambda17_456 (coe v1) (coe v2) + MAlonzo.Code.Cost.Raw.C_AboveAndBelowDiagonal_192 v1 v2 + -> coe d_'46'extendedlambda18_462 (coe v1) (coe v2) + MAlonzo.Code.Cost.Raw.C_ExpModCost_194 v1 + -> case coe v1 of + MAlonzo.Code.Cost.Raw.C_mkExpModCostingFunction_142 v2 v3 v4 + -> coe + (\ v5 -> + let v6 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v5 of + 3 -> coe + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 + (coe C_threeArgumentsExpModCost_64 (coe v2) (coe v3) (coe v4)) + _ | coe geqInt (coe v5) (coe (3 :: Integer)) -> coe v6 + 2 -> coe v6 + 1 -> coe v6 + _ -> coe v6)) + _ -> MAlonzo.RTE.mazUnreachableError + _ -> MAlonzo.RTE.mazUnreachableError +-- Cost.Model..extendedlambda15 +d_'46'extendedlambda15_444 :: Integer -> - MAlonzo.Code.Cost.Raw.T_RawModel_144 -> Maybe T_CostingModel_8 -d_convertRawModel_328 v0 v1 - = let v2 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + MAlonzo.Code.Cost.Raw.T_RawModel_144 -> + Integer -> Maybe T_CostingModel_8 +d_'46'extendedlambda15_444 v0 v1 v2 + = let v3 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in coe - (case coe v1 of - MAlonzo.Code.Cost.Raw.C_ConstantCost_146 v3 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe C_constantCost_12 v3) - MAlonzo.Code.Cost.Raw.C_AddedSizes_148 v3 - -> case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v4 v5 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe C_addedSizes_36 v4 v5) - _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Cost.Raw.C_MultipliedSizes_150 v3 - -> case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v4 v5 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe C_multipliedSizes_40 v4 v5) - _ -> MAlonzo.RTE.mazUnreachableError - MAlonzo.Code.Cost.Raw.C_MinSize_152 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (1 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v4 v5 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe C_minSize_44 v4 v5) - _ -> MAlonzo.RTE.mazUnreachableError - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_MaxSize_154 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (1 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v4 v5 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe C_maxSize_48 v4 v5) - _ -> MAlonzo.RTE.mazUnreachableError - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_LinearInX_156 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (1 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v4 v5 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_linearCostIn_16 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) v4 v5) - _ -> MAlonzo.RTE.mazUnreachableError - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_LinearInY_158 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v4 v5 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_linearCostIn_16 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) - v4 v5) - _ -> MAlonzo.RTE.mazUnreachableError - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_LinearInZ_160 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (3 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v4 v5 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_linearCostIn_16 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))) - v4 v5) - _ -> MAlonzo.RTE.mazUnreachableError - 2 -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_LinearInU_162 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (4 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v4 v5 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_linearCostIn_16 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)))) - v4 v5) - _ -> MAlonzo.RTE.mazUnreachableError - 3 -> coe v2 - 2 -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_LinearInY2_164 v3 v4 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v5 v6 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_linearCostIn_16 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) - v5 v6) - _ -> MAlonzo.RTE.mazUnreachableError - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_LiteralInYOrLinearInZ_166 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (3 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v4 v5 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_literalCostIn_32 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) - (coe - C_linearCostIn_16 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))) - v4 v5)) - _ -> MAlonzo.RTE.mazUnreachableError - 2 -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_LinearInMaxYZ_168 v3 - -> case coe v0 of - 3 -> case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v4 v5 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe C_twoArgumentsLinearInMaxYZ_62 (coe v4) (coe v5)) - _ -> MAlonzo.RTE.mazUnreachableError - _ | coe geqInt (coe v0) (coe (3 :: Integer)) -> coe v2 - 2 -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_LinearInYAndZ_172 v3 - -> case coe v0 of - 3 -> case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkTwoVariableLinearFunction_74 v4 v5 v6 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe C_twoArgumentsLinearInYAndZ_60 (coe v4) (coe v5) (coe v6)) - _ -> MAlonzo.RTE.mazUnreachableError - _ | coe geqInt (coe v0) (coe (3 :: Integer)) -> coe v2 - 2 -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_QuadraticInX_174 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkOneVariableQuadraticFunction_58 v4 v5 v6 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_quadraticCostIn1_20 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) v4 - v5 v6) - _ -> MAlonzo.RTE.mazUnreachableError - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_QuadraticInY_176 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkOneVariableQuadraticFunction_58 v4 v5 v6 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_quadraticCostIn1_20 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) - v4 v5 v6) - _ -> MAlonzo.RTE.mazUnreachableError - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_QuadraticInZ_178 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (3 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkOneVariableQuadraticFunction_58 v4 v5 v6 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_quadraticCostIn1_20 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))) - v4 v5 v6) - _ -> MAlonzo.RTE.mazUnreachableError - 2 -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_QuadraticInXAndY_180 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkTwoVariableQuadraticFunction_106 v4 v5 v6 v7 v8 v9 v10 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_quadraticCostIn2_24 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) - v4 v5 v6 v7 v8 v9 v10) - _ -> MAlonzo.RTE.mazUnreachableError - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_WithInteractionInXAndY_182 v3 - -> case coe v0 of - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> - case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkTwoVariableWithInteractionFunction_126 v4 v5 v6 v7 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe - C_withInteractionIn_28 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12) - (coe - MAlonzo.Code.Data.Fin.Base.C_suc_16 - (coe MAlonzo.Code.Data.Fin.Base.C_zero_12)) - v4 v5 v6 v7) - _ -> MAlonzo.RTE.mazUnreachableError - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_SubtractedSizes_184 v3 v4 - -> case coe v0 of - 2 -> case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkLinearFunction_42 v5 v6 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe C_twoArgumentsSubtractedSizes_50 (coe v5) (coe v6) (coe v4)) - _ -> MAlonzo.RTE.mazUnreachableError - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_ConstAboveDiagonal_186 v3 v4 - -> case coe v0 of - 2 -> coe - MAlonzo.Code.Data.Maybe.Base.du_map_64 - (coe C_twoArgumentsConstAboveDiagonal_52 (coe v3)) - (d_convertRawModel_328 (coe (2 :: Integer)) (coe v4)) - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_ConstBelowDiagonal_188 v3 v4 - -> case coe v0 of - 2 -> coe - MAlonzo.Code.Data.Maybe.Base.du_map_64 - (coe C_twoArgumentsConstBelowDiagonal_54 (coe v3)) - (d_convertRawModel_328 (coe (2 :: Integer)) (coe v4)) - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_ConstOffDiagonal_190 v3 v4 - -> case coe v0 of - 2 -> coe - MAlonzo.Code.Data.Maybe.Base.du_map_64 - (coe C_twoArgumentsConstOffDiagonal_56 (coe v3)) - (d_convertRawModel_328 (coe (2 :: Integer)) (coe v4)) - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_AboveAndBelowDiagonal_192 v3 v4 - -> case coe v0 of - 2 -> coe - MAlonzo.Code.Data.Maybe.Base.du_map_64 - (coe C_twoArgumentsAboveAndBelowDiagonal_58 (coe v3)) - (d_convertRawModel_328 (coe (2 :: Integer)) (coe v4)) - _ | coe geqInt (coe v0) (coe (2 :: Integer)) -> coe v2 - 1 -> coe v2 - _ -> coe v2 - MAlonzo.Code.Cost.Raw.C_ExpModCost_194 v3 - -> case coe v0 of - 3 -> case coe v3 of - MAlonzo.Code.Cost.Raw.C_mkExpModCostingFunction_142 v4 v5 v6 - -> coe - MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe C_threeArgumentsExpModCost_64 (coe v4) (coe v5) (coe v6)) - _ -> MAlonzo.RTE.mazUnreachableError - _ | coe geqInt (coe v0) (coe (3 :: Integer)) -> coe v2 - 2 -> coe v2 - 1 -> coe v2 - _ -> coe v2 - _ -> coe v2) + (case coe v2 of + 2 -> coe + MAlonzo.Code.Data.Maybe.Base.du_map_64 + (coe C_twoArgumentsConstAboveDiagonal_52 (coe v0)) + (coe d_convertRawModel_294 v1 (2 :: Integer)) + _ | coe geqInt (coe v2) (coe (2 :: Integer)) -> coe v3 + 1 -> coe v3 + _ -> coe v3) +-- Cost.Model..extendedlambda16 +d_'46'extendedlambda16_450 :: + Integer -> + MAlonzo.Code.Cost.Raw.T_RawModel_144 -> + Integer -> Maybe T_CostingModel_8 +d_'46'extendedlambda16_450 v0 v1 v2 + = let v3 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v2 of + 2 -> coe + MAlonzo.Code.Data.Maybe.Base.du_map_64 + (coe C_twoArgumentsConstBelowDiagonal_54 (coe v0)) + (coe d_convertRawModel_294 v1 (2 :: Integer)) + _ | coe geqInt (coe v2) (coe (2 :: Integer)) -> coe v3 + 1 -> coe v3 + _ -> coe v3) +-- Cost.Model..extendedlambda17 +d_'46'extendedlambda17_456 :: + Integer -> + MAlonzo.Code.Cost.Raw.T_RawModel_144 -> + Integer -> Maybe T_CostingModel_8 +d_'46'extendedlambda17_456 v0 v1 v2 + = let v3 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v2 of + 2 -> coe + MAlonzo.Code.Data.Maybe.Base.du_map_64 + (coe C_twoArgumentsConstOffDiagonal_56 (coe v0)) + (coe d_convertRawModel_294 v1 (2 :: Integer)) + _ | coe geqInt (coe v2) (coe (2 :: Integer)) -> coe v3 + 1 -> coe v3 + _ -> coe v3) +-- Cost.Model..extendedlambda18 +d_'46'extendedlambda18_462 :: + Integer -> + MAlonzo.Code.Cost.Raw.T_RawModel_144 -> + Integer -> Maybe T_CostingModel_8 +d_'46'extendedlambda18_462 v0 v1 v2 + = let v3 = coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 in + coe + (case coe v2 of + 2 -> coe + MAlonzo.Code.Data.Maybe.Base.du_map_64 + (coe C_twoArgumentsAboveAndBelowDiagonal_58 (coe v0)) + (coe d_convertRawModel_294 v1 (2 :: Integer)) + _ | coe geqInt (coe v2) (coe (2 :: Integer)) -> coe v3 + 1 -> coe v3 + _ -> coe v3) -- Cost.Model.convertCpuAndMemoryModel -d_convertCpuAndMemoryModel_478 :: +d_convertCpuAndMemoryModel_496 :: Integer -> MAlonzo.Code.Cost.Raw.T_CpuAndMemoryModel_196 -> Maybe T_BuiltinModel_68 -d_convertCpuAndMemoryModel_478 v0 v1 +d_convertCpuAndMemoryModel_496 v0 v1 = case coe v1 of MAlonzo.Code.Cost.Raw.C_mkCpuAndMemoryModel_206 v2 v3 - -> let v4 = d_convertRawModel_328 (coe v0) (coe v2) in + -> let v4 = coe d_convertRawModel_294 v2 v0 in coe - (let v5 = d_convertRawModel_328 (coe v0) (coe v3) in + (let v5 = coe d_convertRawModel_294 v3 v0 in coe (case coe v4 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v6 @@ -942,14 +897,14 @@ d_convertCpuAndMemoryModel_478 v0 v1 _ -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18)) _ -> MAlonzo.RTE.mazUnreachableError -- Cost.Model.getModel -d_getModel_502 :: +d_getModel_520 :: MAlonzo.Code.Builtin.T_Builtin_2 -> 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_196) -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -d_getModel_502 v0 v1 +d_getModel_520 v0 v1 = case coe v1 of MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 @@ -965,13 +920,13 @@ d_getModel_502 v0 v1 (\ v6 -> coe MAlonzo.Code.Data.String.Properties.du_'8776''45'reflexive_8 - (coe MAlonzo.Code.Builtin.d_showBuiltin_464 (coe v0))) + (coe MAlonzo.Code.Builtin.d_showBuiltin_492 (coe v0))) (coe MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_decidable_112 (coe MAlonzo.Code.Data.Char.Properties.d__'8799'__14) (coe MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12 - (MAlonzo.Code.Builtin.d_showBuiltin_464 (coe v0))) + (MAlonzo.Code.Builtin.d_showBuiltin_492 (coe v0))) (coe MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12 v4))) in coe @@ -980,7 +935,7 @@ d_getModel_502 v0 v1 MAlonzo.Code.Data.Maybe.Base.du_map_64 (\ v7 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v0) (coe v7)) - (d_convertCpuAndMemoryModel_478 + (d_convertCpuAndMemoryModel_496 (coe addInt (coe (1 :: Integer)) (coe @@ -990,27 +945,27 @@ d_getModel_502 v0 v1 (coe MAlonzo.Code.Data.List.NonEmpty.Base.d_tail_32 (coe - MAlonzo.Code.Builtin.Signature.d_args_86 - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0)))))) + MAlonzo.Code.Builtin.Signature.d_args_88 + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0)))))) (coe v5)) - else coe d_getModel_502 (coe v0) (coe v3)) + else coe d_getModel_520 (coe v0) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Cost.Model.dummyModel -d_dummyModel_538 :: Integer -> T_BuiltinModel_68 -d_dummyModel_538 ~v0 = du_dummyModel_538 -du_dummyModel_538 :: T_BuiltinModel_68 -du_dummyModel_538 +d_dummyModel_556 :: Integer -> T_BuiltinModel_68 +d_dummyModel_556 ~v0 = du_dummyModel_556 +du_dummyModel_556 :: T_BuiltinModel_68 +du_dummyModel_556 = coe C_constructor_80 (coe C_constantCost_12 (0 :: Integer)) (coe C_constantCost_12 (0 :: Integer)) -- Cost.Model.lookupModel -d_lookupModel_544 :: +d_lookupModel_562 :: [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] -> MAlonzo.Code.Builtin.T_Builtin_2 -> T_BuiltinModel_68 -d_lookupModel_544 v0 v1 +d_lookupModel_562 v0 v1 = case coe v0 of - [] -> coe du_dummyModel_538 + [] -> coe du_dummyModel_556 (:) v2 v3 -> case coe v2 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v4 v5 @@ -1021,17 +976,17 @@ d_lookupModel_544 v0 v1 (\ v6 -> coe MAlonzo.Code.Data.Nat.Properties.du_'8801''8658''8801''7495'_2786 - (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v4))) + (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v4))) (coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe - eqInt (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v4)) - (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v1))) + eqInt (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v4)) + (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v1))) (coe MAlonzo.Code.Relation.Nullary.Reflects.d_T'45'reflects_70 (coe - eqInt (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v4)) - (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v1))))) in + eqInt (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v4)) + (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v1))))) in coe (case coe v6 of MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v7 v8 @@ -1050,7 +1005,7 @@ d_lookupModel_544 v0 v1 MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 -> if coe v10 then coe seq (coe v11) (coe v5) - else coe d_lookupModel_544 (coe v3) (coe v1) + else coe d_lookupModel_562 (coe v3) (coe v1) _ -> MAlonzo.RTE.mazUnreachableError) else (let v9 = seq @@ -1065,22 +1020,22 @@ d_lookupModel_544 v0 v1 MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v10 v11 -> if coe v10 then coe seq (coe v11) (coe v5) - else coe d_lookupModel_544 (coe v3) (coe v1) + else coe d_lookupModel_562 (coe v3) (coe v1) _ -> MAlonzo.RTE.mazUnreachableError)) _ -> MAlonzo.RTE.mazUnreachableError) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Cost.Model.allJust -d_allJust_580 :: () -> [Maybe AgdaAny] -> Maybe [AgdaAny] -d_allJust_580 ~v0 v1 = du_allJust_580 v1 -du_allJust_580 :: [Maybe AgdaAny] -> Maybe [AgdaAny] -du_allJust_580 v0 +d_allJust_598 :: () -> [Maybe AgdaAny] -> Maybe [AgdaAny] +d_allJust_598 ~v0 v1 = du_allJust_598 v1 +du_allJust_598 :: [Maybe AgdaAny] -> Maybe [AgdaAny] +du_allJust_598 v0 = case coe v0 of [] -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe v0) (:) v1 v2 -> case coe v1 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v3 - -> let v4 = coe du_allJust_580 (coe v2) in + -> let v4 = coe du_allJust_598 (coe v2) in coe (case coe v4 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v5 @@ -1094,21 +1049,21 @@ du_allJust_580 v0 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Cost.Model.ModelAssignment -d_ModelAssignment_602 :: () -d_ModelAssignment_602 = erased +d_ModelAssignment_620 :: () +d_ModelAssignment_620 = erased -- Cost.Model.createMap -d_createMap_606 :: +d_createMap_624 :: 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_196) -> Maybe (MAlonzo.Code.Builtin.T_Builtin_2 -> T_BuiltinModel_68) -d_createMap_606 v0 +d_createMap_624 v0 = coe - MAlonzo.Code.Data.Maybe.Base.du_map_64 d_lookupModel_544 + MAlonzo.Code.Data.Maybe.Base.du_map_64 d_lookupModel_562 (coe - du_allJust_580 + du_allJust_598 (coe MAlonzo.Code.Data.List.Base.du_map_22 - (coe (\ v1 -> d_getModel_502 (coe v1) (coe v0))) - (coe MAlonzo.Code.Builtin.d_builtinList_466))) + (coe (\ v1 -> d_getModel_520 (coe v1) (coe v0))) + (coe MAlonzo.Code.Builtin.d_builtinList_494))) diff --git a/plutus-metatheory/src/MAlonzo/Code/Cost/Size.hs b/plutus-metatheory/src/MAlonzo/Code/Cost/Size.hs index 6893e977238..8cbf8392fa7 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Cost/Size.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Cost/Size.hs @@ -24,6 +24,7 @@ import qualified MAlonzo.Code.Agda.Builtin.Unit import qualified MAlonzo.Code.Builtin.Constant.AtomicType import qualified MAlonzo.Code.Builtin.Signature import qualified MAlonzo.Code.Cost.Base +import qualified MAlonzo.Code.Data.Nat.Base import qualified MAlonzo.Code.RawU import qualified MAlonzo.Code.Untyped.CEK import qualified MAlonzo.Code.Utils @@ -54,23 +55,32 @@ d_mlResultElementSize_12 = size -- Cost.Size.dataSize d_dataSize_14 :: MAlonzo.Code.Utils.T_DATA_618 -> Integer d_dataSize_14 = size +-- Cost.Size.dataNodeCount +d_dataNodeCount_16 :: MAlonzo.Code.Utils.T_DATA_618 -> Integer +d_dataNodeCount_16 = size . DataNodeCount -- Cost.Size.boolSize -d_boolSize_16 :: Bool -> Integer -d_boolSize_16 = size +d_boolSize_18 :: Bool -> Integer +d_boolSize_18 = size -- Cost.Size.unitSize -d_unitSize_18 :: +d_unitSize_20 :: MAlonzo.Code.Agda.Builtin.Unit.T_'8868'_6 -> Integer -d_unitSize_18 = size +d_unitSize_20 = size -- Cost.Size.stringSize -d_stringSize_20 :: +d_stringSize_22 :: MAlonzo.Code.Agda.Builtin.String.T_String_6 -> Integer -d_stringSize_20 = size +d_stringSize_22 = size +-- Cost.Size.valueSize +d_valueSize_24 :: MAlonzo.Code.Utils.T_Value_776 -> Integer +d_valueSize_24 = size +-- Cost.Size.valueMaxDepth +d_valueMaxDepth_26 :: MAlonzo.Code.Utils.T_Value_776 -> Integer +d_valueMaxDepth_26 = size . ValueMaxDepth -- Cost.Size.defaultConstantMeasure -d_defaultConstantMeasure_22 :: - MAlonzo.Code.RawU.T_TmCon_202 -> Integer -d_defaultConstantMeasure_22 v0 +d_defaultConstantMeasure_28 :: + MAlonzo.Code.RawU.T_TmCon_204 -> Integer +d_defaultConstantMeasure_28 v0 = case coe v0 of - MAlonzo.Code.RawU.C_tmCon_206 v1 v2 + MAlonzo.Code.RawU.C_tmCon_208 v1 v2 -> case coe v1 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v4 -> case coe v4 of @@ -79,18 +89,20 @@ d_defaultConstantMeasure_22 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 -> coe d_byteStringSize_6 v2 MAlonzo.Code.Builtin.Constant.AtomicType.C_aString_12 - -> coe d_stringSize_20 v2 + -> coe d_stringSize_22 v2 MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14 - -> coe d_unitSize_18 v2 + -> coe d_unitSize_20 v2 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16 - -> coe d_boolSize_16 v2 + -> coe d_boolSize_18 v2 MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 -> coe d_dataSize_14 v2 - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> coe d_valueSize_24 v2 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> coe d_g1ElementSize_8 v2 - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> coe d_g2ElementSize_10 v2 - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26 -> coe d_mlResultElementSize_12 v2 _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.Signature.C_list_16 v4 @@ -108,14 +120,72 @@ d_defaultConstantMeasure_22 v0 _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Cost.Size.defaultValueMeasure -d_defaultValueMeasure_78 :: +d_defaultValueMeasure_86 :: MAlonzo.Code.Untyped.CEK.T_Value_14 -> Integer -d_defaultValueMeasure_78 v0 +d_defaultValueMeasure_86 v0 = let v1 = 0 :: Integer in coe (case coe v0 of MAlonzo.Code.Untyped.CEK.C_V'45'con_50 v2 v3 -> coe - d_defaultConstantMeasure_22 - (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v2) (coe v3)) + d_defaultConstantMeasure_28 + (coe MAlonzo.Code.RawU.C_tmCon_208 (coe v2) (coe v3)) + _ -> coe v1) +-- Cost.Size.valueMaxDepthMeasure +d_valueMaxDepthMeasure_92 :: + MAlonzo.Code.Untyped.CEK.T_Value_14 -> Integer +d_valueMaxDepthMeasure_92 v0 + = let v1 = 0 :: Integer in + coe + (case coe v0 of + MAlonzo.Code.Untyped.CEK.C_V'45'con_50 v2 v3 + -> case coe v2 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v5 + -> case coe v5 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> coe d_valueMaxDepth_26 v3 + _ -> coe v1 + _ -> coe v1 + _ -> coe v1) +-- Cost.Size.dataNodeCountMeasure +d_dataNodeCountMeasure_96 :: + MAlonzo.Code.Untyped.CEK.T_Value_14 -> Integer +d_dataNodeCountMeasure_96 v0 + = let v1 = 0 :: Integer in + coe + (case coe v0 of + MAlonzo.Code.Untyped.CEK.C_V'45'con_50 v2 v3 + -> case coe v2 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v5 + -> case coe v5 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 + -> coe d_dataNodeCount_16 v3 + _ -> coe v1 + _ -> coe v1 + _ -> coe v1) +-- Cost.Size.numBytesAsWords +d_numBytesAsWords_100 :: + MAlonzo.Code.Untyped.CEK.T_Value_14 -> Integer +d_numBytesAsWords_100 v0 + = let v1 = 0 :: Integer in + coe + (case coe v0 of + MAlonzo.Code.Untyped.CEK.C_V'45'con_50 v2 v3 + -> case coe v2 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v5 + -> case coe v5 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 + -> case coe v3 of + _ | coe geqInt (coe v3) (coe (1 :: Integer)) -> + let v6 = subInt (coe v3) (coe (1 :: Integer)) in + coe + (coe + addInt (coe (1 :: Integer)) + (coe + MAlonzo.Code.Data.Nat.Base.du__'47'__318 (coe v6) + (coe (8 :: Integer)))) + 0 -> coe v1 + _ -> coe v1 + _ -> coe v1 + _ -> coe v1 _ -> coe v1) diff --git a/plutus-metatheory/src/MAlonzo/Code/Declarative.hs b/plutus-metatheory/src/MAlonzo/Code/Declarative.hs index e3b302e3845..cadca85fa98 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Declarative.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Declarative.hs @@ -38,18 +38,18 @@ d_mkTy_6 :: MAlonzo.Code.Type.T__'8866''8902'__20 d_mkTy_6 = coe - MAlonzo.Code.Builtin.Signature.du_mkTy_204 (coe (\ v0 v1 v2 -> v2)) + MAlonzo.Code.Builtin.Signature.du_mkTy_206 (coe (\ v0 v1 v2 -> v2)) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.C_'96'_22 v3)) (\ v0 v1 v2 v3 v4 -> coe MAlonzo.Code.Type.C__'183'__30 v1 v3 v4) (coe (\ v0 v1 -> coe MAlonzo.Code.Type.C_'94'_34)) (\ v0 v1 -> coe MAlonzo.Code.Type.C_con_36 v1) -- Declarative._.sig2type d_sig2type_8 :: - MAlonzo.Code.Builtin.Signature.T_Sig_72 -> + MAlonzo.Code.Builtin.Signature.T_Sig_74 -> MAlonzo.Code.Type.T__'8866''8902'__20 d_sig2type_8 = coe - MAlonzo.Code.Builtin.Signature.du_sig2type_242 + MAlonzo.Code.Builtin.Signature.du_sig2type_244 (coe (\ v0 v1 v2 -> v2)) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.C_'96'_22 v3)) (\ v0 v1 v2 v3 v4 -> coe MAlonzo.Code.Type.C__'183'__30 v1 v3 v4) @@ -65,7 +65,7 @@ d_sig2typeΠ_10 :: MAlonzo.Code.Type.T__'8866''8902'__20 d_sig2typeΠ_10 = coe - MAlonzo.Code.Builtin.Signature.du_sig2typeΠ_228 + MAlonzo.Code.Builtin.Signature.du_sig2typeΠ_230 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.C_Π_24 v1 v2) -- Declarative._.sig2type⇒ d_sig2type'8658'_12 :: @@ -76,7 +76,7 @@ d_sig2type'8658'_12 :: MAlonzo.Code.Type.T__'8866''8902'__20 d_sig2type'8658'_12 = coe - MAlonzo.Code.Builtin.Signature.du_sig2type'8658'_214 + MAlonzo.Code.Builtin.Signature.du_sig2type'8658'_216 (coe (\ v0 v1 v2 -> v2)) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.C_'96'_22 v3)) (\ v0 v1 v2 v3 v4 -> coe MAlonzo.Code.Type.C__'183'__30 v1 v3 v4) @@ -91,7 +91,7 @@ d_'8866''9839'2TyNe'9839'_14 :: MAlonzo.Code.Type.T__'8866''8902'__20 d_'8866''9839'2TyNe'9839'_14 = coe - MAlonzo.Code.Builtin.Signature.du_'8866''9839'2TyNe'9839'_186 + MAlonzo.Code.Builtin.Signature.du_'8866''9839'2TyNe'9839'_188 (coe (\ v0 v1 v2 -> v2)) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.C_'96'_22 v3)) (\ v0 v1 v2 v3 v4 -> coe MAlonzo.Code.Type.C__'183'__30 v1 v3 v4) @@ -114,9 +114,9 @@ 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe - MAlonzo.Code.Builtin.Signature.du_sig2type_242 + MAlonzo.Code.Builtin.Signature.du_sig2type_244 (coe (\ v2 v3 v4 -> v4)) (coe (\ v2 v3 v4 v5 -> coe MAlonzo.Code.Type.C_'96'_22 v5)) (\ v2 v3 v4 v5 v6 -> coe MAlonzo.Code.Type.C__'183'__30 v3 v5 v6) @@ -124,13 +124,13 @@ d_btype_42 v0 v1 (\ v2 v3 -> coe MAlonzo.Code.Type.C_con_36 v3) (\ v2 v3 v4 -> coe MAlonzo.Code.Type.C__'8658'__26 v3 v4) (\ v2 v3 v4 -> coe MAlonzo.Code.Type.C_Π_24 v3 v4) - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v1))) + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v1))) -- Declarative.btype-ren 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_780) (coe v0)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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_776 + C__'183''8902'__124 MAlonzo.Code.Utils.T_Kind_782 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 1e2fef467f3..b2f1b03d1c0 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Declarative/Erasure.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Declarative/Erasure.hs @@ -104,10 +104,10 @@ du_eraseVar_40 v0 v1 v2 -- Declarative.Erasure.eraseTC d_eraseTC_48 :: MAlonzo.Code.Type.T__'8866''8902'__20 -> - AgdaAny -> MAlonzo.Code.RawU.T_TmCon_202 + AgdaAny -> MAlonzo.Code.RawU.T_TmCon_204 d_eraseTC_48 v0 v1 = coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe MAlonzo.Code.Declarative.d_ty2TyTag_74 (coe v0)) (coe v1) -- Declarative.Erasure.erase d_erase_60 :: @@ -165,8 +165,8 @@ d_erase_60 v0 v1 v2 v3 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) 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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) v7 + (coe MAlonzo.Code.Utils.C_'42'_784) 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 22cbbb8e99e..eac4a958870 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v9)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) 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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v8)) (MAlonzo.Code.Type.Equality.d_ren'8801'β_80 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_780) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'9839'_786) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub'8709'_896 (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v8))) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe v8))) (MAlonzo.Code.Type.Equality.d_ren'8801'β_80 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v13) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_786) (coe v13) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub'8709'_896 (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v8)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v6)) + (coe v3) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v6)) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v1) - (coe v3) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) + (coe v3) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v9)) + (coe v3) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v9)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) 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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v13) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v13) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v8)) (MAlonzo.Code.Type.Equality.d_sub'8801'β_172 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v8) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_780) + (coe v0) (coe v1) (coe v4) (coe MAlonzo.Code.Utils.C_'9839'_786) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub'8709'_896 (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v8))) + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe v8))) (MAlonzo.Code.Type.Equality.d_sub'8801'β_172 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v13) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_786) (coe v13) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub'8709'_896 (coe v0) - (coe MAlonzo.Code.Utils.C_'9839'_780) (coe v8)) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 9a9e5e55dad..fd429807262 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Base.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Base.hs @@ -49,7 +49,7 @@ d_prettyPrintTy_8 :: d_prettyPrintTy_8 = display @T.Text . unconvT 0 -- Evaluator.Base.prettyPrintUTm d_prettyPrintUTm_10 :: - MAlonzo.Code.RawU.T_Untyped_208 -> + MAlonzo.Code.RawU.T_Untyped_210 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 d_prettyPrintUTm_10 = display @T.Text . U.uconv 0 -- Evaluator.Base.ERROR @@ -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'_778) (coe v2)))) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v2)))) MAlonzo.Code.Check.C_IndexOutOfBounds_82 v1 v2 -> coe ("IndexOutOfBounds" :: Data.Text.Text) MAlonzo.Code.Check.C_TooManyConstrArgs_84 diff --git a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs index 5e9e90e33c5..2a473628262 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Program.hs @@ -112,7 +112,7 @@ d_deBruijnifyU_30 :: d_deBruijnifyU_30 = \ (U.Program ann ver tm) -> second (void . U.Program ann ver) . runExcept $ U.deBruijnTerm tm -- Evaluator.Program.convPU -d_convPU_32 :: T_ProgramU_28 -> MAlonzo.Code.RawU.T_Untyped_208 +d_convPU_32 :: T_ProgramU_28 -> MAlonzo.Code.RawU.T_Untyped_210 d_convPU_32 = U.convP -- Evaluator.Program.BudgetMode d_BudgetMode_36 a0 = () @@ -205,7 +205,7 @@ d_parseUPLC_62 v0 MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe - MAlonzo.Code.Untyped.d_scopeCheckU0_288 (coe d_convPU_32 v1)))) + MAlonzo.Code.Untyped.d_scopeCheckU0_290 (coe d_convPU_32 v1)))) -- Evaluator.Program.typeCheckPLC d_typeCheckPLC_70 :: MAlonzo.Code.Scoped.T_ScopedTm_522 -> @@ -271,7 +271,7 @@ d_executePLC_80 v0 v1 MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe - MAlonzo.Code.Untyped.CEK.d_stepper_1292 + MAlonzo.Code.Untyped.CEK.d_stepper_1408 (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 @@ -297,7 +297,7 @@ d_executePLC_80 v0 v1 MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Evaluator.Base.d_prettyPrintUTm_10 - (MAlonzo.Code.Untyped.d_extricateU0_226 + (MAlonzo.Code.Untyped.d_extricateU0_228 (coe MAlonzo.Code.Untyped.CEK.d_discharge_126 (coe v7)))) @@ -445,12 +445,12 @@ d_executePLC_80 v0 v1 MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe - MAlonzo.Code.Algorithmic.CEK.du_stepper_1658 + MAlonzo.Code.Algorithmic.CEK.du_stepper_1772 (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) (coe - MAlonzo.Code.Algorithmic.CEK.C__'894'_'9659'__1314 + MAlonzo.Code.Algorithmic.CEK.C__'894'_'9659'__1428 (coe MAlonzo.Code.Algorithmic.C_'8709'_4) (coe v3) - (coe MAlonzo.Code.Algorithmic.CEK.C_ε_1296) + (coe MAlonzo.Code.Algorithmic.CEK.C_ε_1410) (coe MAlonzo.Code.Algorithmic.CEK.C_'91''93'_202) (coe v4)))) (coe (\ v5 -> @@ -462,7 +462,7 @@ d_executePLC_80 v0 v1 (coe MAlonzo.Code.Utils.C_gasError_420)) in coe (case coe v5 of - MAlonzo.Code.Algorithmic.CEK.C_'9633'_1320 v7 + MAlonzo.Code.Algorithmic.CEK.C_'9633'_1434 v7 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -487,7 +487,7 @@ d_executePLC_80 v0 v1 (coe MAlonzo.Code.Algorithmic.CEK.d_discharge_228 (coe v3) (coe v7)))))) - MAlonzo.Code.Algorithmic.CEK.C_'9670'_1322 v7 + MAlonzo.Code.Algorithmic.CEK.C_'9670'_1436 v7 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe @@ -516,7 +516,7 @@ d_showUPLCResult_138 v0 MAlonzo.Code.Utils.C_inj'8322'_14 (coe MAlonzo.Code.Evaluator.Base.d_prettyPrintUTm_10 - (MAlonzo.Code.Untyped.d_extricateU0_226 + (MAlonzo.Code.Untyped.d_extricateU0_228 (coe MAlonzo.Code.Untyped.CEK.d_discharge_126 (coe v2)))) MAlonzo.Code.Untyped.CEK.C_'9670'_228 -> coe @@ -573,19 +573,19 @@ du_executeUPLCwithMP_144 v0 v1 v2 v3 (\ v6 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe MAlonzo.Code.Cost.Model.d_lookupModel_544 (coe v6)))) + (coe MAlonzo.Code.Cost.Model.d_lookupModel_562 (coe v6)))) (coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) (coe - MAlonzo.Code.Cost.Model.du_allJust_580 + MAlonzo.Code.Cost.Model.du_allJust_598 (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Cost.Model.d_getModel_502 + MAlonzo.Code.Cost.Model.d_getModel_520 (coe MAlonzo.Code.Builtin.C_addInteger_4) (coe v5)) (coe MAlonzo.Code.Data.List.Base.du_map_22 (coe - (\ v6 -> MAlonzo.Code.Cost.Model.d_getModel_502 (coe v6) (coe v5))) + (\ v6 -> MAlonzo.Code.Cost.Model.d_getModel_520 (coe v6) (coe v5))) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe MAlonzo.Code.Builtin.C_subtractInteger_6) @@ -794,165 +794,193 @@ du_executeUPLCwithMP_144 v0 v1 v2 v3 (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_mkPairData_112) + MAlonzo.Code.Builtin.C_insertCoin_112) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_mkNilData_114) + MAlonzo.Code.Builtin.C_lookupCoin_114) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_mkNilPairData_116) + MAlonzo.Code.Builtin.C_unionValue_116) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'add_118) + MAlonzo.Code.Builtin.C_valueContains_118) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'neg_120) + MAlonzo.Code.Builtin.C_scaleValue_120) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'scalarMul_122) + MAlonzo.Code.Builtin.C_valueData_122) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'equal_124) + MAlonzo.Code.Builtin.C_unValueData_124) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'hashToGroup_126) + MAlonzo.Code.Builtin.C_mkPairData_126) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'compress_128) + MAlonzo.Code.Builtin.C_mkNilData_128) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'uncompress_130) + MAlonzo.Code.Builtin.C_mkNilPairData_130) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'add_132) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'add_132) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'neg_134) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'neg_134) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'scalarMul_136) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'scalarMul_136) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'equal_138) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'equal_138) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'hashToGroup_140) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'hashToGroup_140) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'compress_142) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'compress_142) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'uncompress_144) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'uncompress_144) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'millerLoop_146) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'add_146) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'mulMlResult_148) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'neg_148) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'finalVerify_150) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'scalarMul_150) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_keccak'45'256_152) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'equal_152) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_blake2b'45'224_154) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'hashToGroup_154) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_byteStringToInteger_156) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'compress_156) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_integerToByteString_158) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'uncompress_158) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_andByteString_160) + MAlonzo.Code.Builtin.C_bls12'45'381'45'millerLoop_160) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_orByteString_162) + MAlonzo.Code.Builtin.C_bls12'45'381'45'mulMlResult_162) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_xorByteString_164) + MAlonzo.Code.Builtin.C_bls12'45'381'45'finalVerify_164) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_complementByteString_166) + MAlonzo.Code.Builtin.C_keccak'45'256_166) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_readBit_168) + MAlonzo.Code.Builtin.C_blake2b'45'224_168) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_writeBits_170) + MAlonzo.Code.Builtin.C_byteStringToInteger_170) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_replicateByte_172) + MAlonzo.Code.Builtin.C_integerToByteString_172) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_shiftByteString_174) + MAlonzo.Code.Builtin.C_andByteString_174) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_rotateByteString_176) + MAlonzo.Code.Builtin.C_orByteString_176) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_countSetBits_178) + MAlonzo.Code.Builtin.C_xorByteString_178) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_findFirstSetBit_180) + MAlonzo.Code.Builtin.C_complementByteString_180) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_ripemd'45'160_182) + MAlonzo.Code.Builtin.C_readBit_182) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_expModInteger_184) + MAlonzo.Code.Builtin.C_writeBits_184) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_dropList_186) + MAlonzo.Code.Builtin.C_replicateByte_186) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'multiScalarMul_188) + MAlonzo.Code.Builtin.C_shiftByteString_188) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'multiScalarMul_190) + MAlonzo.Code.Builtin.C_rotateByteString_190) (coe - MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) in + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_countSetBits_192) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_findFirstSetBit_194) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_ripemd'45'160_196) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_expModInteger_198) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_dropList_200) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'multiScalarMul_202) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'multiScalarMul_204) + (coe + MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) in coe (case coe v6 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v7 @@ -1029,7 +1057,7 @@ d_executeUPLC_192 v0 v1 MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe - MAlonzo.Code.Untyped.CEK.d_stepper_1292 + MAlonzo.Code.Untyped.CEK.d_stepper_1408 (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 (coe (0 :: Integer)) @@ -1039,13 +1067,13 @@ d_executeUPLC_192 v0 v1 C_Counting_42 v2 -> coe du_executeUPLCwithMP_144 (coe v2) - (coe MAlonzo.Code.Cost.d_machineParameters_140) - (coe MAlonzo.Code.Cost.d_countingReport_144) (coe v1) + (coe MAlonzo.Code.Cost.d_machineParameters_150) + (coe MAlonzo.Code.Cost.d_countingReport_154) (coe v1) C_Tallying_44 v2 -> coe du_executeUPLCwithMP_144 (coe v2) - (coe MAlonzo.Code.Cost.d_tallyingMachineParameters_220) - (coe MAlonzo.Code.Cost.d_tallyingReport_224) (coe v1) + (coe MAlonzo.Code.Cost.d_tallyingMachineParameters_230) + (coe MAlonzo.Code.Cost.d_tallyingReport_234) (coe v1) _ -> MAlonzo.RTE.mazUnreachableError -- Evaluator.Program.evalProgramNU d_evalProgramNU_204 :: @@ -1114,5 +1142,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'_778) (coe v3))))) + (coe MAlonzo.Code.Utils.C_'42'_784) (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 bbb9460db1d..2d49670e0b4 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Evaluator/Term.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Evaluator/Term.hs @@ -139,22 +139,22 @@ d_convTy_42 = convT d_unconvTy_44 :: MAlonzo.Code.Raw.T_RawTy_2 -> T_Type_16 d_unconvTy_44 = unconvT 0 -- Evaluator.Term.convTmU -d_convTmU_46 :: T_TermU_24 -> MAlonzo.Code.RawU.T_Untyped_208 +d_convTmU_46 :: T_TermU_24 -> MAlonzo.Code.RawU.T_Untyped_210 d_convTmU_46 = U.conv -- Evaluator.Term.unconvTmU -d_unconvTmU_48 :: MAlonzo.Code.RawU.T_Untyped_208 -> T_TermU_24 +d_unconvTmU_48 :: MAlonzo.Code.RawU.T_Untyped_210 -> T_TermU_24 d_unconvTmU_48 = U.uconv 0 -- Evaluator.Term.checkKindX checkKindAgda :: T_Type_16 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Evaluator.Base.T_ERROR_12 MAlonzo.Code.Agda.Builtin.Unit.T_'8868'_6 @@ -215,13 +215,13 @@ inferKindAgda :: T_Type_16 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Evaluator.Base.T_ERROR_12 - MAlonzo.Code.Utils.T_Kind_776 + MAlonzo.Code.Utils.T_Kind_782 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_776 + MAlonzo.Code.Utils.T_Kind_782 d_inferKind'8709'_68 v0 = coe MAlonzo.Code.Utils.du_eitherBind_54 @@ -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'_778) (coe v3))))) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v3))))) _ -> MAlonzo.RTE.mazUnreachableError)))) -- Evaluator.Term.checkType∅ checkTypeAgda :: @@ -412,7 +412,7 @@ 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'_778))) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe (\ v3 -> coe @@ -738,29 +738,29 @@ d_runTCEK_166 v0 MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe - MAlonzo.Code.Algorithmic.CEK.du_stepper_1658 + MAlonzo.Code.Algorithmic.CEK.du_stepper_1772 (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) (coe - MAlonzo.Code.Algorithmic.CEK.C__'894'_'9659'__1314 + MAlonzo.Code.Algorithmic.CEK.C__'894'_'9659'__1428 (coe MAlonzo.Code.Algorithmic.C_'8709'_4) (coe v3) - (coe MAlonzo.Code.Algorithmic.CEK.C_ε_1296) + (coe MAlonzo.Code.Algorithmic.CEK.C_ε_1410) (coe MAlonzo.Code.Algorithmic.CEK.C_'91''93'_202) (coe v4)))) (coe (\ v5 -> case coe v5 of - MAlonzo.Code.Algorithmic.CEK.C__'894'_'9659'__1314 v6 v7 v8 v9 v10 + MAlonzo.Code.Algorithmic.CEK.C__'894'_'9659'__1428 v6 v7 v8 v9 v10 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20 (coe MAlonzo.Code.Utils.C_gasError_420)) - MAlonzo.Code.Algorithmic.CEK.C__'9669'__1318 v6 v7 v8 + MAlonzo.Code.Algorithmic.CEK.C__'9669'__1432 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_420)) - MAlonzo.Code.Algorithmic.CEK.C_'9633'_1320 v6 + MAlonzo.Code.Algorithmic.CEK.C_'9633'_1434 v6 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -785,7 +785,7 @@ d_runTCEK_166 v0 (coe MAlonzo.Code.Algorithmic.CEK.d_discharge_228 (coe v3) (coe v6)))))) - MAlonzo.Code.Algorithmic.CEK.C_'9670'_1322 v6 + MAlonzo.Code.Algorithmic.CEK.C_'9670'_1436 v6 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -819,7 +819,7 @@ d_runUValue_186 v0 MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_runtimeError_20) (coe - MAlonzo.Code.Untyped.CEK.d_stepper_1292 + MAlonzo.Code.Untyped.CEK.d_stepper_1408 (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 (coe (0 :: Integer)) @@ -861,7 +861,7 @@ d_runU_194 v0 MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe - MAlonzo.Code.Untyped.d_scopeCheckU0_288 (coe d_convTmU_46 v0))) + MAlonzo.Code.Untyped.d_scopeCheckU0_290 (coe d_convTmU_46 v0))) (coe (\ v1 -> coe @@ -872,7 +872,7 @@ d_runU_194 v0 MAlonzo.Code.Utils.C_inj'8322'_14 (coe d_unconvTmU_48 - (MAlonzo.Code.Untyped.d_extricateU0_226 + (MAlonzo.Code.Untyped.d_extricateU0_228 (coe MAlonzo.Code.Untyped.CEK.d_discharge_126 (coe v2)))))))) -- Evaluator.Term.runUCounting runUCountingAgda :: @@ -910,19 +910,19 @@ d_runUCounting_202 v0 v1 (\ v4 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 - (coe MAlonzo.Code.Cost.Model.d_lookupModel_544 (coe v4)))) + (coe MAlonzo.Code.Cost.Model.d_lookupModel_562 (coe v4)))) (coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) (coe - MAlonzo.Code.Cost.Model.du_allJust_580 + MAlonzo.Code.Cost.Model.du_allJust_598 (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Cost.Model.d_getModel_502 + MAlonzo.Code.Cost.Model.d_getModel_520 (coe MAlonzo.Code.Builtin.C_addInteger_4) (coe v3)) (coe MAlonzo.Code.Data.List.Base.du_map_22 (coe - (\ v4 -> MAlonzo.Code.Cost.Model.d_getModel_502 (coe v4) (coe v3))) + (\ v4 -> MAlonzo.Code.Cost.Model.d_getModel_520 (coe v4) (coe v3))) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe MAlonzo.Code.Builtin.C_subtractInteger_6) @@ -1131,165 +1131,193 @@ d_runUCounting_202 v0 v1 (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_mkPairData_112) + MAlonzo.Code.Builtin.C_insertCoin_112) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_mkNilData_114) + MAlonzo.Code.Builtin.C_lookupCoin_114) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_mkNilPairData_116) + MAlonzo.Code.Builtin.C_unionValue_116) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'add_118) + MAlonzo.Code.Builtin.C_valueContains_118) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'neg_120) + MAlonzo.Code.Builtin.C_scaleValue_120) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'scalarMul_122) + MAlonzo.Code.Builtin.C_valueData_122) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'equal_124) + MAlonzo.Code.Builtin.C_unValueData_124) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'hashToGroup_126) + MAlonzo.Code.Builtin.C_mkPairData_126) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'compress_128) + MAlonzo.Code.Builtin.C_mkNilData_128) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'uncompress_130) + MAlonzo.Code.Builtin.C_mkNilPairData_130) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'add_132) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'add_132) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'neg_134) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'neg_134) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'scalarMul_136) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'scalarMul_136) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'equal_138) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'equal_138) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'hashToGroup_140) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'hashToGroup_140) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'compress_142) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'compress_142) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'uncompress_144) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'uncompress_144) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'millerLoop_146) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'add_146) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'mulMlResult_148) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'neg_148) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'finalVerify_150) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'scalarMul_150) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_keccak'45'256_152) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'equal_152) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_blake2b'45'224_154) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'hashToGroup_154) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_byteStringToInteger_156) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'compress_156) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_integerToByteString_158) + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'uncompress_158) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_andByteString_160) + MAlonzo.Code.Builtin.C_bls12'45'381'45'millerLoop_160) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_orByteString_162) + MAlonzo.Code.Builtin.C_bls12'45'381'45'mulMlResult_162) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_xorByteString_164) + MAlonzo.Code.Builtin.C_bls12'45'381'45'finalVerify_164) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_complementByteString_166) + MAlonzo.Code.Builtin.C_keccak'45'256_166) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_readBit_168) + MAlonzo.Code.Builtin.C_blake2b'45'224_168) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_writeBits_170) + MAlonzo.Code.Builtin.C_byteStringToInteger_170) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_replicateByte_172) + MAlonzo.Code.Builtin.C_integerToByteString_172) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_shiftByteString_174) + MAlonzo.Code.Builtin.C_andByteString_174) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_rotateByteString_176) + MAlonzo.Code.Builtin.C_orByteString_176) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_countSetBits_178) + MAlonzo.Code.Builtin.C_xorByteString_178) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_findFirstSetBit_180) + MAlonzo.Code.Builtin.C_complementByteString_180) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_ripemd'45'160_182) + MAlonzo.Code.Builtin.C_readBit_182) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_expModInteger_184) + MAlonzo.Code.Builtin.C_writeBits_184) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_dropList_186) + MAlonzo.Code.Builtin.C_replicateByte_186) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'multiScalarMul_188) + MAlonzo.Code.Builtin.C_shiftByteString_188) (coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'multiScalarMul_190) + MAlonzo.Code.Builtin.C_rotateByteString_190) (coe - MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) in + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_countSetBits_192) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_findFirstSetBit_194) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_ripemd'45'160_196) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_expModInteger_198) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_dropList_200) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'multiScalarMul_202) + (coe + MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 + (coe + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'multiScalarMul_204) + (coe + MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) in coe (case coe v4 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v5 @@ -1299,7 +1327,7 @@ d_runUCounting_202 v0 v1 MAlonzo.Code.Utils.du_withE_352 (coe MAlonzo.Code.Evaluator.Base.C_scopeError_18) (coe - MAlonzo.Code.Untyped.d_scopeCheckU0_288 (coe d_convTmU_46 v1))) + MAlonzo.Code.Untyped.d_scopeCheckU0_290 (coe d_convTmU_46 v1))) (coe (\ v6 -> coe @@ -1312,7 +1340,7 @@ d_runUCounting_202 v0 v1 (coe MAlonzo.Code.Untyped.CEKWithCost.du_stepperC_338 (coe - MAlonzo.Code.Cost.d_machineParameters_140 + MAlonzo.Code.Cost.d_machineParameters_150 (coe MAlonzo.Code.Utils.C__'44'__450 (coe v2) (coe v5))) (coe MAlonzo.Code.Evaluator.Base.d_maxsteps_72) (coe @@ -1337,7 +1365,7 @@ d_runUCounting_202 v0 v1 MAlonzo.Code.Utils.C__'44'__450 (coe d_unconvTmU_48 - (MAlonzo.Code.Untyped.d_extricateU0_226 + (MAlonzo.Code.Untyped.d_extricateU0_228 (coe MAlonzo.Code.Untyped.CEK.d_discharge_126 (coe v9)))) @@ -1350,7 +1378,7 @@ d_runUCounting_202 v0 v1 (coe MAlonzo.Code.Untyped.CEKWithCost.du_stepperC_338 (coe - MAlonzo.Code.Cost.d_machineParameters_140 + MAlonzo.Code.Cost.d_machineParameters_150 (coe MAlonzo.Code.Utils.C__'44'__450 (coe v2) (coe v5))) @@ -1371,7 +1399,7 @@ d_runUCounting_202 v0 v1 (coe MAlonzo.Code.Untyped.CEKWithCost.du_stepperC_338 (coe - MAlonzo.Code.Cost.d_machineParameters_140 + MAlonzo.Code.Cost.d_machineParameters_150 (coe MAlonzo.Code.Utils.C__'44'__450 (coe v2) (coe v5))) @@ -1554,7 +1582,7 @@ d_alphaU_406 v0 v1 -> case coe v7 of MAlonzo.Code.Utils.C_inj'8322'_14 v9 -> coe - MAlonzo.Code.Untyped.d_decUTm_296 + MAlonzo.Code.Untyped.d_decUTm_298 (coe d_convTmU_46 v8) (coe d_convTmU_46 v9) _ -> coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 _ -> coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Raw.hs b/plutus-metatheory/src/MAlonzo/Code/Raw.hs index 95489452c65..1eb08bfab2f 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_776 -> T_RawTy_2 -> T_RawTy_2 + MAlonzo.Code.Utils.T_Kind_782 -> T_RawTy_2 -> T_RawTy_2 check_Π_10 = RTyPi check_ƛ_12 :: - MAlonzo.Code.Utils.T_Kind_776 -> T_RawTy_2 -> T_RawTy_2 + MAlonzo.Code.Utils.T_Kind_782 -> 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 @@ -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_776 -> T_RawTm_32 -> T_RawTm_32 + MAlonzo.Code.Utils.T_Kind_782 -> 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 @@ -123,7 +123,7 @@ check_ƛ_40 :: T_RawTy_2 -> T_RawTm_32 -> T_RawTm_32 check_ƛ_40 = RLambda check__'183'__42 :: T_RawTm_32 -> T_RawTm_32 -> T_RawTm_32 check__'183'__42 = RApp -check_con_44 :: MAlonzo.Code.RawU.T_TagCon_106 -> T_RawTm_32 +check_con_44 :: MAlonzo.Code.RawU.T_TagCon_108 -> T_RawTm_32 check_con_44 = RCon check_error_46 :: T_RawTy_2 -> T_RawTm_32 check_error_46 = RError @@ -169,7 +169,7 @@ d_decRTyCon_74 v0 v1 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.d_decAtomicTyCon_26 + MAlonzo.Code.Builtin.Constant.AtomicType.d_decAtomicTyCon_28 (coe v3) (coe v4)) _ -> coe v2 C_list_26 @@ -187,29 +187,29 @@ d_decRTyCon_74 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError) -- Raw.decRKi d_decRKi_84 :: - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> Bool + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> Bool d_decRKi_84 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> let v2 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v1 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 _ -> coe v2) - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> let v2 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v1 of - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 _ -> coe v2) - MAlonzo.Code.Utils.C__'8658'__782 v2 v3 + MAlonzo.Code.Utils.C__'8658'__788 v2 v3 -> let v4 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v1 of - MAlonzo.Code.Utils.C__'8658'__782 v5 v6 + MAlonzo.Code.Utils.C__'8658'__788 v5 v6 -> coe MAlonzo.Code.Data.Bool.Base.d__'8743'__24 (coe d_decRKi_84 (coe v2) (coe v5)) @@ -375,7 +375,7 @@ d_decRTm_188 v0 v1 C_con_44 v3 -> case coe v1 of C_con_44 v4 - -> coe MAlonzo.Code.RawU.d_decTagCon_192 (coe v3) (coe v4) + -> coe MAlonzo.Code.RawU.d_decTagCon_194 (coe v3) (coe v4) _ -> coe v2 C_error_46 v3 -> case coe v1 of @@ -386,7 +386,7 @@ d_decRTm_188 v0 v1 C_builtin_48 v4 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28 - (coe MAlonzo.Code.Builtin.d_decBuiltin_440 (coe v3) (coe v4)) + (coe MAlonzo.Code.Builtin.d_decBuiltin_468 (coe v3) (coe v4)) _ -> coe v2 C_wrap_50 v3 v4 v5 -> case coe v1 of diff --git a/plutus-metatheory/src/MAlonzo/Code/RawU.hs b/plutus-metatheory/src/MAlonzo/Code/RawU.hs index 1746a29fbab..65e096d10e2 100644 --- a/plutus-metatheory/src/MAlonzo/Code/RawU.hs +++ b/plutus-metatheory/src/MAlonzo/Code/RawU.hs @@ -48,6 +48,7 @@ pattern TagStr = DefaultUniString pattern TagBool = DefaultUniBool pattern TagUnit = DefaultUniUnit pattern TagData = DefaultUniData +pattern TagValue = DefaultUniValue pattern TagPair ta tb = DefaultUniPair ta tb pattern TagList ta = DefaultUniList ta pattern TagArray ta = DefaultUniArray ta @@ -75,22 +76,22 @@ d_convSigTy_6 :: 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 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 d_convSigTy_6 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 ~v10 ~v11 ~v12 ~v13 ~v14 v15 = du_convSigTy_6 v15 du_convSigTy_6 :: - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 du_convSigTy_6 v0 = coe v0 -- RawU._.sig2type d_sig2type_8 :: - MAlonzo.Code.Builtin.Signature.T_Sig_72 -> + MAlonzo.Code.Builtin.Signature.T_Sig_74 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sig2type_8 = coe - MAlonzo.Code.Builtin.Signature.du_sig2type_242 + MAlonzo.Code.Builtin.Signature.du_sig2type_244 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -113,7 +114,7 @@ d_sigTy2type_10 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> - MAlonzo.Code.Builtin.Signature.T_SigTy_266 -> + MAlonzo.Code.Builtin.Signature.T_SigTy_268 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 d_sigTy2type_10 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 v7 ~v8 ~v9 ~v10 = du_sigTy2type_10 v7 @@ -129,7 +130,7 @@ d_'8866''9839'2TyNe'9839'_12 :: MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 d_'8866''9839'2TyNe'9839'_12 = coe - MAlonzo.Code.Builtin.Signature.du_'8866''9839'2TyNe'9839'_186 + MAlonzo.Code.Builtin.Signature.du_'8866''9839'2TyNe'9839'_188 (\ v0 v1 v2 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v2) (coe (\ v0 v1 v2 v3 -> coe MAlonzo.Code.Type.BetaNormal.C_'96'_8 v3)) @@ -150,12 +151,13 @@ pattern C_string_34 = TagStr pattern C_bool_36 = TagBool pattern C_unit_38 = TagUnit pattern C_pdata_40 = TagData -pattern C_pair_46 a0 a1 = TagPair a0 a1 -pattern C_list_50 a0 = TagList a0 -pattern C_array_54 a0 = TagArray a0 -pattern C_bls12'45'381'45'g1'45'element_56 = TagBLS12_381_G1_Element -pattern C_bls12'45'381'45'g2'45'element_58 = TagBLS12_381_G2_Element -pattern C_bls12'45'381'45'mlresult_60 = TagBLS12_381_MlResult +pattern C_value_42 = TagValue +pattern C_pair_48 a0 a1 = TagPair a0 a1 +pattern C_list_52 a0 = TagList a0 +pattern C_array_56 a0 = TagArray a0 +pattern C_bls12'45'381'45'g1'45'element_58 = TagBLS12_381_G1_Element +pattern C_bls12'45'381'45'g2'45'element_60 = TagBLS12_381_G2_Element +pattern C_bls12'45'381'45'mlresult_62 = TagBLS12_381_MlResult check_integer_30 :: T_Tag_28 (T_Esc_24 Integer) check_integer_30 = TagInt check_bytestring_32 :: @@ -171,35 +173,38 @@ check_unit_38 :: check_unit_38 = TagUnit check_pdata_40 :: T_Tag_28 (T_Esc_24 MAlonzo.Code.Utils.T_DATA_618) check_pdata_40 = TagData -check_pair_46 :: +check_value_42 :: + T_Tag_28 (T_Esc_24 MAlonzo.Code.Utils.T_Value_776) +check_value_42 = TagValue +check_pair_48 :: 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'__436 xA xB)) -check_pair_46 = TagPair -check_list_50 :: +check_pair_48 = TagPair +check_list_52 :: forall xA. T_Tag_28 (T_Esc_24 xA) -> T_Tag_28 (T_Esc_24 (MAlonzo.Code.Utils.T_List_454 xA)) -check_list_50 = TagList -check_array_54 :: +check_list_52 = TagList +check_array_56 :: forall xA. T_Tag_28 (T_Esc_24 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 :: +check_array_56 = TagArray +check_bls12'45'381'45'g1'45'element_58 :: T_Tag_28 (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 :: +check_bls12'45'381'45'g1'45'element_58 = TagBLS12_381_G1_Element +check_bls12'45'381'45'g2'45'element_60 :: T_Tag_28 (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 :: +check_bls12'45'381'45'g2'45'element_60 = TagBLS12_381_G2_Element +check_bls12'45'381'45'mlresult_62 :: T_Tag_28 (T_Esc_24 MAlonzo.Code.Utils.T_Bls12'45'381'45'MlResult_772) -check_bls12'45'381'45'mlresult_60 = TagBLS12_381_MlResult +check_bls12'45'381'45'mlresult_62 = TagBLS12_381_MlResult cover_Tag_28 :: Tag a1 -> () cover_Tag_28 x = case x of @@ -209,6 +214,7 @@ cover_Tag_28 x TagBool -> () TagUnit -> () TagData -> () + TagValue -> () TagPair _ _ -> () TagList _ -> () TagArray _ -> () @@ -216,25 +222,25 @@ cover_Tag_28 x TagBLS12_381_G2_Element -> () TagBLS12_381_MlResult -> () -- RawU.TyTag -d_TyTag_62 :: () -d_TyTag_62 = erased +d_TyTag_64 :: () +d_TyTag_64 = erased -- RawU.⟦_⟧tag -d_'10214'_'10215'tag_64 :: +d_'10214'_'10215'tag_66 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> () -d_'10214'_'10215'tag_64 = erased +d_'10214'_'10215'tag_66 = erased -- RawU.decTyTag -d_decTyTag_68 :: +d_decTyTag_70 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_decTyTag_68 v0 v1 +d_decTyTag_70 v0 v1 = case coe v0 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v3 -> case coe v1 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v5 -> coe MAlonzo.Code.Utils.Decidable.du_dcong_40 - (MAlonzo.Code.Builtin.Constant.AtomicType.d_decAtomicTyCon_26 + (MAlonzo.Code.Builtin.Constant.AtomicType.d_decAtomicTyCon_28 (coe v3) (coe v5)) MAlonzo.Code.Builtin.Signature.C_list_16 v5 -> coe @@ -262,7 +268,7 @@ d_decTyTag_68 v0 v1 MAlonzo.Code.Builtin.Signature.C_list_16 v5 -> coe MAlonzo.Code.Utils.Decidable.du_dcong_40 - (d_decTyTag_68 (coe v3) (coe v5)) + (d_decTyTag_70 (coe v3) (coe v5)) MAlonzo.Code.Builtin.Signature.C_array_20 v5 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 @@ -289,7 +295,7 @@ d_decTyTag_68 v0 v1 MAlonzo.Code.Builtin.Signature.C_array_20 v5 -> coe MAlonzo.Code.Utils.Decidable.du_dcong_40 - (d_decTyTag_68 (coe v3) (coe v5)) + (d_decTyTag_70 (coe v3) (coe v5)) MAlonzo.Code.Builtin.Signature.C_pair_24 v5 v6 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 @@ -316,33 +322,33 @@ d_decTyTag_68 v0 v1 MAlonzo.Code.Builtin.Signature.C_pair_24 v6 v7 -> coe MAlonzo.Code.Utils.Decidable.du_dcong'8322'_70 - (coe d_decTyTag_68 (coe v3) (coe v6)) - (coe d_decTyTag_68 (coe v4) (coe v7)) + (coe d_decTyTag_70 (coe v3) (coe v6)) + (coe d_decTyTag_70 (coe v4) (coe v7)) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- RawU.TagCon -d_TagCon_106 = () -type T_TagCon_106 = TagCon -pattern C_tagCon_110 a0 a1 = TagCon a0 a1 -check_tagCon_110 :: - forall xA. T_Tag_28 (T_Esc_24 xA) -> xA -> T_TagCon_106 -check_tagCon_110 = TagCon -cover_TagCon_106 :: TagCon -> () -cover_TagCon_106 x +d_TagCon_108 = () +type T_TagCon_108 = TagCon +pattern C_tagCon_112 a0 a1 = TagCon a0 a1 +check_tagCon_112 :: + forall xA. T_Tag_28 (T_Esc_24 xA) -> xA -> T_TagCon_108 +check_tagCon_112 = TagCon +cover_TagCon_108 :: TagCon -> () +cover_TagCon_108 x = case x of TagCon _ _ -> () -- RawU.decTagCon' -d_decTagCon''_124 :: +d_decTagCon''_126 :: () -> () -> T_Tag_28 (T_Esc_24 AgdaAny) -> AgdaAny -> T_Tag_28 (T_Esc_24 AgdaAny) -> AgdaAny -> Bool -d_decTagCon''_124 ~v0 ~v1 v2 v3 v4 v5 - = du_decTagCon''_124 v2 v3 v4 v5 -du_decTagCon''_124 :: +d_decTagCon''_126 ~v0 ~v1 v2 v3 v4 v5 + = du_decTagCon''_126 v2 v3 v4 v5 +du_decTagCon''_126 :: T_Tag_28 (T_Esc_24 AgdaAny) -> AgdaAny -> T_Tag_28 (T_Esc_24 AgdaAny) -> AgdaAny -> Bool -du_decTagCon''_124 v0 v1 v2 v3 +du_decTagCon''_126 v0 v1 v2 v3 = let v4 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v0 of @@ -357,7 +363,7 @@ du_decTagCon''_124 v0 v1 v2 v3 _ -> coe v4 C_bytestring_32 -> case coe v2 of - C_bytestring_32 -> coe MAlonzo.Code.Builtin.d_equals_346 v1 v3 + C_bytestring_32 -> coe MAlonzo.Code.Builtin.d_equals_360 v1 v3 _ -> coe v4 C_string_34 -> case coe v2 of @@ -385,25 +391,25 @@ du_decTagCon''_124 v0 v1 v2 v3 -> case coe v2 of C_pdata_40 -> coe MAlonzo.Code.Utils.d_eqDATA_630 (coe v1) (coe v3) _ -> coe v4 - C_pair_46 v7 v8 + C_pair_48 v7 v8 -> case coe v1 of MAlonzo.Code.Utils.C__'44'__450 v9 v10 -> case coe v2 of - C_pair_46 v13 v14 + C_pair_48 v13 v14 -> case coe v3 of 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)) - (coe du_decTagCon''_124 (coe v8) (coe v10) (coe v14) (coe v16)) + (coe du_decTagCon''_126 (coe v7) (coe v9) (coe v13) (coe v15)) + (coe du_decTagCon''_126 (coe v8) (coe v10) (coe v14) (coe v16)) _ -> MAlonzo.RTE.mazUnreachableError _ -> coe v4 _ -> MAlonzo.RTE.mazUnreachableError - C_list_50 v6 + C_list_52 v6 -> case coe v1 of MAlonzo.Code.Utils.C_'91''93'_458 -> case coe v2 of - C_list_50 v8 + C_list_52 v8 -> case coe v3 of MAlonzo.Code.Utils.C_'91''93'_458 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 @@ -411,78 +417,78 @@ du_decTagCon''_124 v0 v1 v2 v3 _ -> coe v4 MAlonzo.Code.Utils.C__'8759'__460 v7 v8 -> case coe v2 of - C_list_50 v10 + C_list_52 v10 -> case coe v3 of 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)) + (coe du_decTagCon''_126 (coe v6) (coe v7) (coe v10) (coe v11)) (coe - du_decTagCon''_124 (coe C_list_50 v6) (coe v8) - (coe C_list_50 v10) (coe v12)) + du_decTagCon''_126 (coe C_list_52 v6) (coe v8) + (coe C_list_52 v10) (coe v12)) _ -> coe v4 _ -> coe v4 _ -> MAlonzo.RTE.mazUnreachableError - C_array_54 v6 + C_array_56 v6 -> case coe v2 of - C_array_54 v8 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 + C_array_56 v8 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 _ -> coe v4 _ -> coe v4) -- RawU.decTagCon -d_decTagCon_192 :: T_TagCon_106 -> T_TagCon_106 -> Bool -d_decTagCon_192 v0 v1 +d_decTagCon_194 :: T_TagCon_108 -> T_TagCon_108 -> Bool +d_decTagCon_194 v0 v1 = case coe v0 of - C_tagCon_110 v3 v4 + C_tagCon_112 v3 v4 -> case coe v1 of - C_tagCon_110 v6 v7 - -> coe du_decTagCon''_124 (coe v3) (coe v4) (coe v6) (coe v7) + C_tagCon_112 v6 v7 + -> coe du_decTagCon''_126 (coe v3) (coe v4) (coe v6) (coe v7) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- RawU.TmCon -d_TmCon_202 = () -data T_TmCon_202 - = C_tmCon_206 MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 +d_TmCon_204 = () +data T_TmCon_204 + = C_tmCon_208 MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 AgdaAny -- RawU.Untyped -d_Untyped_208 = () -type T_Untyped_208 = UTerm -pattern C_UVar_210 a0 = UVar a0 -pattern C_ULambda_212 a0 = ULambda a0 -pattern C_UApp_214 a0 a1 = UApp a0 a1 -pattern C_UCon_216 a0 = UCon a0 -pattern C_UError_218 = UError -pattern C_UBuiltin_220 a0 = UBuiltin a0 -pattern C_UDelay_222 a0 = UDelay a0 -pattern C_UForce_224 a0 = UForce a0 -pattern C_UConstr_226 a0 a1 = UConstr a0 a1 -pattern C_UCase_228 a0 a1 = UCase a0 a1 -check_UVar_210 :: Integer -> T_Untyped_208 -check_UVar_210 = UVar -check_ULambda_212 :: T_Untyped_208 -> T_Untyped_208 -check_ULambda_212 = ULambda -check_UApp_214 :: T_Untyped_208 -> T_Untyped_208 -> T_Untyped_208 -check_UApp_214 = UApp -check_UCon_216 :: T_TagCon_106 -> T_Untyped_208 -check_UCon_216 = UCon -check_UError_218 :: T_Untyped_208 -check_UError_218 = UError -check_UBuiltin_220 :: - MAlonzo.Code.Builtin.T_Builtin_2 -> T_Untyped_208 -check_UBuiltin_220 = UBuiltin -check_UDelay_222 :: T_Untyped_208 -> T_Untyped_208 -check_UDelay_222 = UDelay -check_UForce_224 :: T_Untyped_208 -> T_Untyped_208 -check_UForce_224 = UForce -check_UConstr_226 :: +d_Untyped_210 = () +type T_Untyped_210 = UTerm +pattern C_UVar_212 a0 = UVar a0 +pattern C_ULambda_214 a0 = ULambda a0 +pattern C_UApp_216 a0 a1 = UApp a0 a1 +pattern C_UCon_218 a0 = UCon a0 +pattern C_UError_220 = UError +pattern C_UBuiltin_222 a0 = UBuiltin a0 +pattern C_UDelay_224 a0 = UDelay a0 +pattern C_UForce_226 a0 = UForce a0 +pattern C_UConstr_228 a0 a1 = UConstr a0 a1 +pattern C_UCase_230 a0 a1 = UCase a0 a1 +check_UVar_212 :: Integer -> T_Untyped_210 +check_UVar_212 = UVar +check_ULambda_214 :: T_Untyped_210 -> T_Untyped_210 +check_ULambda_214 = ULambda +check_UApp_216 :: T_Untyped_210 -> T_Untyped_210 -> T_Untyped_210 +check_UApp_216 = UApp +check_UCon_218 :: T_TagCon_108 -> T_Untyped_210 +check_UCon_218 = UCon +check_UError_220 :: T_Untyped_210 +check_UError_220 = UError +check_UBuiltin_222 :: + MAlonzo.Code.Builtin.T_Builtin_2 -> T_Untyped_210 +check_UBuiltin_222 = UBuiltin +check_UDelay_224 :: T_Untyped_210 -> T_Untyped_210 +check_UDelay_224 = UDelay +check_UForce_226 :: T_Untyped_210 -> T_Untyped_210 +check_UForce_226 = UForce +check_UConstr_228 :: Integer -> - 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_454 T_Untyped_208 -> T_Untyped_208 -check_UCase_228 = UCase -cover_Untyped_208 :: UTerm -> () -cover_Untyped_208 x + MAlonzo.Code.Utils.T_List_454 T_Untyped_210 -> T_Untyped_210 +check_UConstr_228 = UConstr +check_UCase_230 :: + T_Untyped_210 -> + MAlonzo.Code.Utils.T_List_454 T_Untyped_210 -> T_Untyped_210 +check_UCase_230 = UCase +cover_Untyped_210 :: UTerm -> () +cover_Untyped_210 x = case x of UVar _ -> () ULambda _ -> () @@ -495,15 +501,15 @@ cover_Untyped_208 x UConstr _ _ -> () UCase _ _ -> () -- RawU.tag2TyTag -d_tag2TyTag_232 :: +d_tag2TyTag_234 :: () -> T_Tag_28 AgdaAny -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -d_tag2TyTag_232 ~v0 v1 = du_tag2TyTag_232 v1 -du_tag2TyTag_232 :: +d_tag2TyTag_234 ~v0 v1 = du_tag2TyTag_234 v1 +du_tag2TyTag_234 :: T_Tag_28 AgdaAny -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -du_tag2TyTag_232 v0 +du_tag2TyTag_234 v0 = case coe v0 of C_integer_30 -> coe @@ -529,142 +535,153 @@ du_tag2TyTag_232 v0 -> coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18) - C_pair_46 v3 v4 + C_value_42 + -> coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20) + C_pair_48 v3 v4 -> coe MAlonzo.Code.Builtin.Signature.C_pair_24 - (coe du_tag2TyTag_232 (coe v3)) (coe du_tag2TyTag_232 (coe v4)) - C_list_50 v2 + (coe du_tag2TyTag_234 (coe v3)) (coe du_tag2TyTag_234 (coe v4)) + C_list_52 v2 -> coe MAlonzo.Code.Builtin.Signature.C_list_16 - (coe du_tag2TyTag_232 (coe v2)) - C_array_54 v2 + (coe du_tag2TyTag_234 (coe v2)) + C_array_56 v2 -> coe MAlonzo.Code.Builtin.Signature.C_array_20 - (coe du_tag2TyTag_232 (coe v2)) - C_bls12'45'381'45'g1'45'element_56 + (coe du_tag2TyTag_234 (coe v2)) + C_bls12'45'381'45'g1'45'element_58 -> coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20) - C_bls12'45'381'45'g2'45'element_58 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22) + C_bls12'45'381'45'g2'45'element_60 -> coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22) - C_bls12'45'381'45'mlresult_60 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24) + C_bls12'45'381'45'mlresult_62 -> coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26) _ -> MAlonzo.RTE.mazUnreachableError -- RawU.tagLemma -d_tagLemma_246 :: +d_tagLemma_248 :: () -> T_Tag_28 (T_Esc_24 AgdaAny) -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -d_tagLemma_246 = erased +d_tagLemma_248 = erased -- RawU.tagCon2TmCon -d_tagCon2TmCon_256 :: T_TagCon_106 -> T_TmCon_202 -d_tagCon2TmCon_256 v0 +d_tagCon2TmCon_258 :: T_TagCon_108 -> T_TmCon_204 +d_tagCon2TmCon_258 v0 = case coe v0 of - C_tagCon_110 v2 v3 + C_tagCon_112 v2 v3 -> case coe v2 of C_integer_30 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)) (coe v3) C_bytestring_32 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10)) (coe v3) C_string_34 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aString_12)) (coe v3) C_bool_36 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) (coe v3) C_unit_38 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14)) (coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8) C_pdata_40 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)) (coe v3) - C_pair_46 v6 v7 + C_value_42 + -> coe + C_tmCon_208 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20)) + (coe v3) + C_pair_48 v6 v7 -> coe seq (coe v3) (coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_pair_24 - (coe du_tag2TyTag_232 (coe v6)) (coe du_tag2TyTag_232 (coe v7))) + (coe du_tag2TyTag_234 (coe v6)) (coe du_tag2TyTag_234 (coe v7))) (coe v3)) - C_list_50 v5 + C_list_52 v5 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_list_16 - (coe du_tag2TyTag_232 (coe v5))) + (coe du_tag2TyTag_234 (coe v5))) (coe v3) - C_array_54 v5 + C_array_56 v5 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_array_20 - (coe du_tag2TyTag_232 (coe v5))) + (coe du_tag2TyTag_234 (coe v5))) (coe v3) - C_bls12'45'381'45'g1'45'element_56 + C_bls12'45'381'45'g1'45'element_58 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)) (coe v3) - C_bls12'45'381'45'g2'45'element_58 + C_bls12'45'381'45'g2'45'element_60 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)) (coe v3) - C_bls12'45'381'45'mlresult_60 + C_bls12'45'381'45'mlresult_62 -> coe - C_tmCon_206 + C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24)) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26)) (coe v3) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- RawU.tyTag2Tag -d_tyTag2Tag_310 :: +d_tyTag2Tag_314 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -d_tyTag2Tag_310 v0 +d_tyTag2Tag_314 v0 = case coe v0 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v2 -> case coe v2 of @@ -689,41 +706,44 @@ d_tyTag2Tag_310 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased (coe C_pdata_40) - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> coe + MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased (coe C_value_42) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased - (coe C_bls12'45'381'45'g1'45'element_56) - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + (coe C_bls12'45'381'45'g1'45'element_58) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased - (coe C_bls12'45'381'45'g2'45'element_58) - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 + (coe C_bls12'45'381'45'g2'45'element_60) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased - (coe C_bls12'45'381'45'mlresult_60) + (coe C_bls12'45'381'45'mlresult_62) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.Signature.C_list_16 v2 - -> let v3 = d_tyTag2Tag_310 (coe v2) in + -> let v3 = d_tyTag2Tag_314 (coe v2) in coe (case coe v3 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v4 v5 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased - (coe C_list_50 v5) + (coe C_list_52 v5) _ -> MAlonzo.RTE.mazUnreachableError) MAlonzo.Code.Builtin.Signature.C_array_20 v2 - -> let v3 = d_tyTag2Tag_310 (coe v2) in + -> let v3 = d_tyTag2Tag_314 (coe v2) in coe (case coe v3 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v4 v5 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased - (coe C_array_54 v5) + (coe C_array_56 v5) _ -> MAlonzo.RTE.mazUnreachableError) MAlonzo.Code.Builtin.Signature.C_pair_24 v2 v3 - -> let v4 = d_tyTag2Tag_310 (coe v2) in + -> let v4 = d_tyTag2Tag_314 (coe v2) in coe - (let v5 = d_tyTag2Tag_310 (coe v3) in + (let v5 = d_tyTag2Tag_314 (coe v3) in coe (case coe v4 of MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v6 v7 @@ -731,71 +751,73 @@ d_tyTag2Tag_310 v0 MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9 -> coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 erased - (coe C_pair_46 v7 v9) + (coe C_pair_48 v7 v9) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError)) _ -> MAlonzo.RTE.mazUnreachableError -- RawU.tyTagLemma -d_tyTagLemma_358 :: +d_tyTagLemma_362 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -d_tyTagLemma_358 = erased +d_tyTagLemma_362 = erased -- RawU.tmCon2TagCon -d_tmCon2TagCon_368 :: T_TmCon_202 -> T_TagCon_106 -d_tmCon2TagCon_368 v0 +d_tmCon2TagCon_372 :: T_TmCon_204 -> T_TagCon_108 +d_tmCon2TagCon_372 v0 = case coe v0 of - C_tmCon_206 v1 v2 + C_tmCon_208 v1 v2 -> case coe v1 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v4 -> case coe v4 of MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 - -> coe C_tagCon_110 (coe C_integer_30) v2 + -> coe C_tagCon_112 (coe C_integer_30) v2 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 - -> coe C_tagCon_110 (coe C_bytestring_32) v2 + -> coe C_tagCon_112 (coe C_bytestring_32) v2 MAlonzo.Code.Builtin.Constant.AtomicType.C_aString_12 - -> coe C_tagCon_110 (coe C_string_34) v2 + -> coe C_tagCon_112 (coe C_string_34) v2 MAlonzo.Code.Builtin.Constant.AtomicType.C_aUnit_14 -> coe - C_tagCon_110 (coe C_unit_38) + C_tagCon_112 (coe C_unit_38) (coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8) MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16 - -> coe C_tagCon_110 (coe C_bool_36) v2 + -> coe C_tagCon_112 (coe C_bool_36) v2 MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 - -> coe C_tagCon_110 (coe C_pdata_40) v2 - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 - -> coe C_tagCon_110 (coe C_bls12'45'381'45'g1'45'element_56) v2 - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 - -> coe C_tagCon_110 (coe C_bls12'45'381'45'g2'45'element_58) v2 - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 - -> coe C_tagCon_110 (coe C_bls12'45'381'45'mlresult_60) v2 + -> coe C_tagCon_112 (coe C_pdata_40) v2 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> coe C_tagCon_112 (coe C_value_42) v2 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 + -> coe C_tagCon_112 (coe C_bls12'45'381'45'g1'45'element_58) v2 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 + -> coe C_tagCon_112 (coe C_bls12'45'381'45'g2'45'element_60) v2 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26 + -> coe C_tagCon_112 (coe C_bls12'45'381'45'mlresult_62) v2 _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.Signature.C_list_16 v4 -> coe - C_tagCon_110 + C_tagCon_112 (coe - C_list_50 + C_list_52 (MAlonzo.Code.Agda.Builtin.Sigma.d_snd_30 - (coe d_tyTag2Tag_310 (coe v4)))) + (coe d_tyTag2Tag_314 (coe v4)))) v2 MAlonzo.Code.Builtin.Signature.C_array_20 v4 -> coe - C_tagCon_110 + C_tagCon_112 (coe - C_array_54 + C_array_56 (MAlonzo.Code.Agda.Builtin.Sigma.d_snd_30 - (coe d_tyTag2Tag_310 (coe v4)))) + (coe d_tyTag2Tag_314 (coe v4)))) v2 MAlonzo.Code.Builtin.Signature.C_pair_24 v4 v5 -> coe seq (coe v2) (coe - C_tagCon_110 + C_tagCon_112 (coe - C_pair_46 + C_pair_48 (MAlonzo.Code.Agda.Builtin.Sigma.d_snd_30 - (coe d_tyTag2Tag_310 (coe v4))) + (coe d_tyTag2Tag_314 (coe v4))) (MAlonzo.Code.Agda.Builtin.Sigma.d_snd_30 - (coe d_tyTag2Tag_310 (coe v5)))) + (coe d_tyTag2Tag_314 (coe v5)))) v2) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError diff --git a/plutus-metatheory/src/MAlonzo/Code/Scoped.hs b/plutus-metatheory/src/MAlonzo/Code/Scoped.hs index 9f0859d9884..706e892f04f 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Scoped.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Scoped.hs @@ -41,10 +41,10 @@ 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_776 T_ScopedTy_14 | - C_ƛ_24 MAlonzo.Code.Utils.T_Kind_776 T_ScopedTy_14 | + C_Π_22 MAlonzo.Code.Utils.T_Kind_782 T_ScopedTy_14 | + C_ƛ_24 MAlonzo.Code.Utils.T_Kind_782 T_ScopedTy_14 | C__'183'__26 T_ScopedTy_14 T_ScopedTy_14 | - C_con_30 MAlonzo.Code.Utils.T_Kind_776 + C_con_30 MAlonzo.Code.Utils.T_Kind_782 MAlonzo.Code.Builtin.Constant.Type.T_TyCon_6 | C_μ_32 T_ScopedTy_14 T_ScopedTy_14 | C_SOP_34 (MAlonzo.Code.Utils.T_List_454 @@ -527,11 +527,11 @@ 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_776 T_ScopedTm_522 | + C_Λ_530 MAlonzo.Code.Utils.T_Kind_782 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 | - C_con_538 MAlonzo.Code.RawU.T_TmCon_202 | + C_con_538 MAlonzo.Code.RawU.T_TmCon_204 | C_error_540 T_ScopedTy_14 | C_builtin_544 MAlonzo.Code.Builtin.T_Builtin_2 | C_wrap_546 T_ScopedTy_14 T_ScopedTy_14 T_ScopedTm_522 | @@ -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'_780) + C_con_30 (coe MAlonzo.Code.Utils.C_'9839'_786) (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'__782 - (coe MAlonzo.Code.Utils.C_'9839'_780) - (coe MAlonzo.Code.Utils.C_'9839'_780)) + MAlonzo.Code.Utils.C__'8658'__788 + (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe MAlonzo.Code.Utils.C_'9839'_786)) (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'__782 - (coe MAlonzo.Code.Utils.C_'9839'_780) - (coe MAlonzo.Code.Utils.C_'9839'_780)) + MAlonzo.Code.Utils.C__'8658'__788 + (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe MAlonzo.Code.Utils.C_'9839'_786)) (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'__782 - (coe MAlonzo.Code.Utils.C_'9839'_780) + MAlonzo.Code.Utils.C__'8658'__788 + (coe MAlonzo.Code.Utils.C_'9839'_786) (coe - MAlonzo.Code.Utils.C__'8658'__782 - (coe MAlonzo.Code.Utils.C_'9839'_780) - (coe MAlonzo.Code.Utils.C_'9839'_780))) + MAlonzo.Code.Utils.C__'8658'__788 + (coe MAlonzo.Code.Utils.C_'9839'_786) + (coe MAlonzo.Code.Utils.C_'9839'_786))) (coe MAlonzo.Code.Builtin.Constant.Type.C_pair_14)) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Raw.C_μ_18 v2 v3 @@ -853,7 +853,7 @@ d_scopeCheckTm_686 v0 v1 v2 MAlonzo.Code.Raw.C_con_44 v3 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe C_con_538 (coe MAlonzo.Code.RawU.d_tagCon2TmCon_256 (coe v3))) + (coe C_con_538 (coe MAlonzo.Code.RawU.d_tagCon2TmCon_258 (coe v3))) MAlonzo.Code.Raw.C_error_46 v3 -> coe MAlonzo.Code.Utils.du_fmap_292 @@ -1064,7 +1064,7 @@ d_extricateScope_828 v0 v1 v2 C_con_538 v3 -> coe MAlonzo.Code.Raw.C_con_44 - (coe MAlonzo.Code.RawU.d_tmCon2TagCon_368 (coe v3)) + (coe MAlonzo.Code.RawU.d_tmCon2TagCon_372 (coe v3)) C_error_540 v3 -> coe MAlonzo.Code.Raw.C_error_46 @@ -1144,11 +1144,11 @@ du_uglyWeirdFin_888 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError -- Scoped.uglyTmCon d_uglyTmCon_894 :: - MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.RawU.T_TmCon_204 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 d_uglyTmCon_894 v0 = case coe v0 of - MAlonzo.Code.RawU.C_tmCon_206 v1 v2 + MAlonzo.Code.RawU.C_tmCon_208 v1 v2 -> let v3 = "size" :: Data.Text.Text in coe (case coe v1 of diff --git a/plutus-metatheory/src/MAlonzo/Code/Scoped/Extrication.hs b/plutus-metatheory/src/MAlonzo/Code/Scoped/Extrication.hs index fc9ecb656c2..90b8b44db2d 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v4)) (coe - d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v5)) MAlonzo.Code.Type.BetaNormal.C_ƛ_18 v6 -> case coe v1 of - MAlonzo.Code.Utils.C__'8658'__782 v7 v8 + MAlonzo.Code.Utils.C__'8658'__788 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'_780) (coe v7) + (coe MAlonzo.Code.Utils.C_'9839'_786) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v5)) _ -> MAlonzo.RTE.mazUnreachableError -- Scoped.Extrication.extricateNe⋆ d_extricateNe'8902'_34 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'__782 (coe v4) (coe v1)) (coe v6)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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,7 +149,7 @@ 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4] -> MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTy_14 d_extricateNf'8902''45'List_42 v0 v1 v2 @@ -164,7 +164,7 @@ d_extricateNf'8902''45'List_42 v0 v1 v2 -- Scoped.Extrication.extricateNf⋆-VecList d_extricateNf'8902''45'VecList_56 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Utils.T_List_454 @@ -173,7 +173,7 @@ 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> MAlonzo.Code.Utils.T_List_454 (MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.Scoped.T_ScopedTy_14) @@ -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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe MAlonzo.Code.Type.C__'183'__30 v9 (coe MAlonzo.Code.Type.C__'183'__30 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (MAlonzo.Code.Type.BetaNormal.d_embNf_128 (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNormal.d_weakenNf_122 v0 (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v9) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784))) 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'_778) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v2)) (coe d_extricate_140 (coe v0) (coe v1) @@ -419,7 +419,7 @@ d_extricate_140 v0 v1 v2 v3 -> coe MAlonzo.Code.Scoped.C_con_538 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe MAlonzo.Code.Algorithmic.d_ty2sty_64 (coe v4)) (coe v6)) MAlonzo.Code.Algorithmic.C_builtin_'47'__264 v5 -> coe MAlonzo.Code.Scoped.C_builtin_544 (coe v5) @@ -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'_778) + d_extricateNf'8902'_26 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v2)) _ -> MAlonzo.RTE.mazUnreachableError -- Scoped.Extrication.extricate-ConstrArgs diff --git a/plutus-metatheory/src/MAlonzo/Code/Type.hs b/plutus-metatheory/src/MAlonzo/Code/Type.hs index 0c91b49a280..26c08aa4d70 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_776 + C__'44''8902'__6 T_Ctx'8902'_2 MAlonzo.Code.Utils.T_Kind_782 -- 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_776 T__'8866''8902'__20 | + C_Π_24 MAlonzo.Code.Utils.T_Kind_782 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_776 T__'8866''8902'__20 + C__'183'__30 MAlonzo.Code.Utils.T_Kind_782 T__'8866''8902'__20 T__'8866''8902'__20 | - C_μ_32 MAlonzo.Code.Utils.T_Kind_776 T__'8866''8902'__20 + C_μ_32 MAlonzo.Code.Utils.T_Kind_782 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 0de84814ee5..00ef074673c 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_776 -> () + MAlonzo.Code.Utils.T_Kind_782 -> () d_Val_4 = erased -- Type.BetaNBE.reflect d_reflect_22 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Ne'8902'__6 -> AgdaAny du_reflect_22 v0 v1 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v1 - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Type.BetaNormal.C_ne_20 v1 - MAlonzo.Code.Utils.C__'8658'__782 v2 v3 + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> AgdaAny + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny d_fresh_38 ~v0 v1 = du_fresh_38 v1 -du_fresh_38 :: MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny +du_fresh_38 :: MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Type.BetaNormal.d_renNf_46 (coe v1) (coe v2) (coe v3) (coe v0) (coe v4) - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Type.BetaNormal.d_renNf_46 (coe v1) (coe v2) (coe v3) (coe v0) (coe v4) - MAlonzo.Code.Utils.C__'8658'__782 v5 v6 + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> AgdaAny -> AgdaAny + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778 -> coe v2 - MAlonzo.Code.Utils.C_'9839'_780 -> coe v2 - MAlonzo.Code.Utils.C__'8658'__782 v3 v4 + MAlonzo.Code.Utils.C_'42'_784 -> coe v2 + MAlonzo.Code.Utils.C_'9839'_786 -> coe v2 + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v7) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v0) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v0) (coe - d_eval_166 (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) + d_eval_166 (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v6) (coe v4))) (d_reify_86 - (coe MAlonzo.Code.Utils.C_'42'_778) (coe v0) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v0) (coe - d_eval_166 (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) + d_eval_166 (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v7) (coe v4))) MAlonzo.Code.Type.C_ƛ_28 v8 -> case coe v2 of - MAlonzo.Code.Utils.C__'8658'__782 v9 v10 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v6) (coe v2)) (coe v8) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe v0) (coe d_eval_166 (coe v0) (coe v1) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_780) (coe v6) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_778) (coe v7) (coe v4)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [MAlonzo.Code.Type.T__'8866''8902'__20] -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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 3ff89ef7b7c..d36fcfff2b1 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_776 -> AgdaAny -> AgdaAny -> () + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> (MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny du_symCR_100 v0 v1 v2 v3 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_778 -> erased - MAlonzo.Code.Utils.C_'9839'_780 -> erased - MAlonzo.Code.Utils.C__'8658'__782 v4 v5 + MAlonzo.Code.Utils.C_'42'_784 -> erased + MAlonzo.Code.Utils.C_'9839'_786 -> erased + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny du_transCR_158 v0 v1 v2 v3 v4 v5 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_778 -> erased - MAlonzo.Code.Utils.C_'9839'_780 -> erased - MAlonzo.Code.Utils.C__'8658'__782 v6 v7 + MAlonzo.Code.Utils.C_'42'_784 -> erased + MAlonzo.Code.Utils.C_'9839'_786 -> erased + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny du_reflectCR_266 v0 v1 = case coe v0 of - 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.Code.Utils.C_'42'_784 -> erased + MAlonzo.Code.Utils.C_'9839'_786 -> erased + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny du_renVal'45'id_524 v0 v1 v2 v3 = case coe v0 of - MAlonzo.Code.Utils.C_'42'_778 -> erased - MAlonzo.Code.Utils.C_'9839'_780 -> erased - MAlonzo.Code.Utils.C__'8658'__782 v4 v5 + MAlonzo.Code.Utils.C_'42'_784 -> erased + MAlonzo.Code.Utils.C_'9839'_786 -> erased + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778 -> erased - MAlonzo.Code.Utils.C_'9839'_780 -> erased - MAlonzo.Code.Utils.C__'8658'__782 v6 v7 + MAlonzo.Code.Utils.C_'42'_784 -> erased + MAlonzo.Code.Utils.C_'9839'_786 -> erased + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> AgdaAny -> AgdaAny -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778 -> erased - MAlonzo.Code.Utils.C_'9839'_780 -> erased - MAlonzo.Code.Utils.C__'8658'__782 v5 v6 + MAlonzo.Code.Utils.C_'42'_784 -> erased + MAlonzo.Code.Utils.C_'9839'_786 -> erased + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'__782 v11 v12 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v8) (coe v2)) (coe v10) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v8) (coe v2)) (coe v10) + (coe MAlonzo.Code.Utils.C__'8658'__788 (coe v8) (coe v2)) (coe v10) (coe v4)) (coe d_idext_840 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v8) (coe v2)) (coe v3) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> Integer -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'__782 v13 v14 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v3)) (coe v0) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (coe v10) (coe v3)) (coe v12) (coe v5)) (coe d_idext_840 (coe v1) (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v3)) (coe v5) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v3)) (coe v0) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v3)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'__782 v13 v14 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v10) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (coe v10) (coe v1)) (coe MAlonzo.Code.Type.RenamingSubstitution.d_ren_28 (coe v0) (coe v2) - (coe v8) (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v1)) + (coe v8) (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v1)) (coe v2) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'__782 v13 v14 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v10) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (coe v10) (coe v1)) (coe MAlonzo.Code.Type.RenamingSubstitution.d_sub_346 (coe v0) (coe v2) - (coe v8) (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v10) (coe v1)) + (coe v8) (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v10) (coe v1)) (coe v2) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'__782 v15 v16 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v19) (coe v2)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v19) (coe v2)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (coe v19) (coe v2)) (coe v26) (coe v4)) (coe d_fund_1482 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v19) (coe v2)) (coe v3) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> Integer -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny +du_idCR_1618 :: MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 4feae67ff2b..7d878794f65 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.BetaNormal.T__'8866'Nf'8902'__4) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T_Ctx'8902'_2 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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 e075d1bd7d0..db75f95aa7a 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778 -> coe v3 - MAlonzo.Code.Utils.C_'9839'_780 -> coe v3 - MAlonzo.Code.Utils.C__'8658'__782 v4 v5 + MAlonzo.Code.Utils.C_'42'_784 -> coe v3 + MAlonzo.Code.Utils.C_'9839'_786 -> coe v3 + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> AgdaAny -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> AgdaAny -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778 + MAlonzo.Code.Utils.C_'42'_784 -> coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 v1 v2 v4 - MAlonzo.Code.Utils.C_'9839'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> coe MAlonzo.Code.Type.Equality.C_trans'8801'β_18 v1 v2 v4 - MAlonzo.Code.Utils.C__'8658'__782 v5 v6 + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778 + MAlonzo.Code.Utils.C_'42'_784 -> 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'_780 + MAlonzo.Code.Utils.C_'9839'_786 -> 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'__782 v7 v8 + MAlonzo.Code.Utils.C__'8658'__788 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'__782 (coe v1) (coe v2)) (coe v4)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v1) (coe v2)) (coe v0) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v9) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v8) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v8) (coe v4) (coe v5) (coe v6)) (d_evalSR_358 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v9) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v9) (coe v4) (coe v5) (coe v6)) MAlonzo.Code.Type.C_ƛ_28 v10 -> case coe v2 of - MAlonzo.Code.Utils.C__'8658'__782 v11 v12 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v8) (coe v2)) (coe v10) + (coe MAlonzo.Code.Utils.C__'8658'__788 (coe v8) (coe v2)) (coe v10) (coe v5)) (coe d_evalSR_358 (coe v0) (coe v1) - (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v8) (coe v2)) (coe v10) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe MAlonzo.Code.Type.BetaNBE.d_eval_166 (coe v1) (coe v0) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784))) (coe v9) (coe v5)) (coe d_evalSR_358 (coe v0) (coe v1) (coe - MAlonzo.Code.Utils.C__'8658'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v8) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v8) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_780) (coe v8) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_786) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v6) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> AgdaAny) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> AgdaAny +du_idSR_462 :: MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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 c1426a74472..172ade4b8f0 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'__782 (coe v4) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v4) (coe v1)) (coe v6)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v4) (coe v1)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 (coe v4) (coe v1)) (coe v6)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (coe v4) (coe v1)) (coe v6)) (coe d_stabilityNe_14 (coe v0) - (coe MAlonzo.Code.Utils.C__'8658'__782 (coe v4) (coe v1)) (coe v6)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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 02f79b52770..d2fe8061d92 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_776 T__'8866'Nf'8902'__4 | + = C_Π_14 MAlonzo.Code.Utils.T_Kind_782 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_776 T__'8866'Nf'8902'__4 + C_μ_24 MAlonzo.Code.Utils.T_Kind_782 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_776 T__'8866'Ne'8902'__6 + C__'183'__10 MAlonzo.Code.Utils.T_Kind_782 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v7)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v6)) (d_renNf_46 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v7)) C_ƛ_18 v8 -> case coe v3 of - MAlonzo.Code.Utils.C__'8658'__782 v9 v10 + MAlonzo.Code.Utils.C__'8658'__788 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'_780) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'9839'_786) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) (coe v7)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'__782 (coe v6) (coe v3)) (coe v8)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v4)) - (d_embNf_128 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v5)) + (d_embNf_128 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v4)) + (d_embNf_128 (coe v0) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v5)) C_ƛ_18 v6 -> case coe v1 of - MAlonzo.Code.Utils.C__'8658'__782 v7 v8 + MAlonzo.Code.Utils.C__'8658'__788 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'_780) (coe v4)) + (coe v0) (coe MAlonzo.Code.Utils.C_'9839'_786) (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v4) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v4) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_778) (coe v5)) + (coe MAlonzo.Code.Utils.C_'42'_784) (coe v5)) _ -> MAlonzo.RTE.mazUnreachableError -- Type.BetaNormal.embNe d_embNe_134 :: MAlonzo.Code.Type.T_Ctx'8902'_2 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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 d6b63fd564a..1f62af72868 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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 a52bb3f4989..d4f85e45269 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v15) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v15) (coe v18) (coe v5) (coe v12)) (d_ren'8801'β_80 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v16) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v14) (coe v17) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'__782 v13 v14 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v17) (coe v2)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v16) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v16) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v16) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v16) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_780) (coe v12) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_786) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v13) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v15) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v15) (coe v18) (coe v5) (coe v12)) (d_sub'8801'β_172 - (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_778) (coe v16) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) (coe v14) (coe v17) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'__782 v13 v14 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v17) (coe v2)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v16) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v16) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v16) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v16) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_780) (coe v12) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'9839'_786) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v13) + (coe v0) (coe v1) (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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 03c393e2f49..83a0352af85 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) + (coe du_ext_18 (coe v2)) (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v6)) (d_ren_28 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v7)) MAlonzo.Code.Type.C_ƛ_28 v8 -> case coe v3 of - MAlonzo.Code.Utils.C__'8658'__782 v9 v10 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v6) (coe v3)) (coe v8)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_780) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_778) (coe v7)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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'_778) (coe v7)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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'_778) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v6)) (d_sub_346 - (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_778) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'42'_784) (coe v7)) MAlonzo.Code.Type.C_ƛ_28 v8 -> case coe v3 of - MAlonzo.Code.Utils.C__'8658'__782 v9 v10 + MAlonzo.Code.Utils.C__'8658'__788 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'__782 (coe v6) (coe v3)) (coe v8)) + (coe MAlonzo.Code.Utils.C__'8658'__788 (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'__782 + MAlonzo.Code.Utils.C__'8658'__788 (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778)) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784)) (coe - MAlonzo.Code.Utils.C__'8658'__782 (coe v6) - (coe MAlonzo.Code.Utils.C_'42'_778))) + MAlonzo.Code.Utils.C__'8658'__788 (coe v6) + (coe MAlonzo.Code.Utils.C_'42'_784))) (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'_780) + (coe v0) (coe v1) (coe v2) (coe MAlonzo.Code.Utils.C_'9839'_786) (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'_778) (coe v7)) + (coe MAlonzo.Code.Utils.C_'42'_784) (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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8715''8902'__14) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> [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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8715''8902'__14 -> MAlonzo.Code.Type.T__'8866''8902'__20) -> Integer -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> - MAlonzo.Code.Utils.T_Kind_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + MAlonzo.Code.Utils.T_Kind_782 -> MAlonzo.Code.Type.T__'8866''8902'__20 -> - (MAlonzo.Code.Utils.T_Kind_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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_776 -> + (MAlonzo.Code.Utils.T_Kind_782 -> 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 d566b98c363..a657946a43e 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped.hs @@ -43,7 +43,7 @@ data T__'8866'_14 = C_'96'_18 MAlonzo.Code.Data.Fin.Base.T_Fin_10 | C_ƛ_20 T__'8866'_14 | C__'183'__22 T__'8866'_14 T__'8866'_14 | C_force_24 T__'8866'_14 | C_delay_26 T__'8866'_14 | - C_con_28 MAlonzo.Code.RawU.T_TmCon_202 | + C_con_28 MAlonzo.Code.RawU.T_TmCon_204 | C_constr_34 Integer [T__'8866'_14] | C_case_40 T__'8866'_14 [T__'8866'_14] | C_builtin_44 MAlonzo.Code.Builtin.T_Builtin_2 | C_error_46 @@ -56,11 +56,11 @@ du_uglyDATA_76 :: MAlonzo.Code.Agda.Builtin.String.T_String_6 du_uglyDATA_76 = coe ("(DATA)" :: Data.Text.Text) -- Untyped.uglyTmCon d_uglyTmCon_80 :: - MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.RawU.T_TmCon_204 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 d_uglyTmCon_80 v0 = case coe v0 of - MAlonzo.Code.RawU.C_tmCon_206 v1 v2 + MAlonzo.Code.RawU.C_tmCon_208 v1 v2 -> case coe v1 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v4 -> case coe v4 of @@ -89,11 +89,13 @@ d_uglyTmCon_80 v0 else coe ("(bool false)" :: Data.Text.Text) MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 -> coe du_uglyDATA_76 - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> coe ("(value ???)" :: Data.Text.Text) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> coe ("(bls12-381-g1-element ???)" :: Data.Text.Text) - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> coe ("(bls12-381-g2-element ???)" :: Data.Text.Text) - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26 -> coe ("(bls12-381-mlresult ???)" :: Data.Text.Text) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.Signature.C_list_16 v4 @@ -114,14 +116,14 @@ d_uglyTmCon_80 v0 (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (d_uglyTmCon_80 - (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v4) (coe v6))) + (coe MAlonzo.Code.RawU.C_tmCon_208 (coe v4) (coe v6))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" , " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (d_uglyTmCon_80 - (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v5) (coe v7))) + (coe MAlonzo.Code.RawU.C_tmCon_208 (coe v5) (coe v7))) (") )" :: Data.Text.Text)))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError @@ -139,26 +141,26 @@ d_uglyTmConList_84 v0 v1 MAlonzo.Code.Utils.C_'91''93'_458 -> coe d_uglyTmCon_80 - (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v0) (coe v2)) + (coe MAlonzo.Code.RawU.C_tmCon_208 (coe v0) (coe v2)) MAlonzo.Code.Utils.C__'8759'__460 v4 v5 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (d_uglyTmCon_80 - (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v0) (coe v2))) + (coe MAlonzo.Code.RawU.C_tmCon_208 (coe v0) (coe v2))) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" , " :: Data.Text.Text) (d_uglyTmConList_84 (coe v0) (coe v3))) _ -> MAlonzo.RTE.mazUnreachableError _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.showNat -d_showNat_130 :: +d_showNat_132 :: Integer -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_showNat_130 = T.pack . show +d_showNat_132 = T.pack . show -- Untyped.uglyBuiltin -d_uglyBuiltin_132 :: +d_uglyBuiltin_134 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_uglyBuiltin_132 v0 +d_uglyBuiltin_134 v0 = let v1 = "other" :: Data.Text.Text in coe (case coe v0 of @@ -166,36 +168,36 @@ d_uglyBuiltin_132 v0 -> coe ("addInteger" :: Data.Text.Text) _ -> coe v1) -- Untyped.uglyList -d_uglyList_136 :: +d_uglyList_138 :: Integer -> [T__'8866'_14] -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_uglyList_136 v0 v1 +d_uglyList_138 v0 v1 = coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("[" :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyList''_140 (coe v0) (coe v1)) ("]" :: Data.Text.Text)) + (d_uglyList''_142 (coe v0) (coe v1)) ("]" :: Data.Text.Text)) -- Untyped.uglyList' -d_uglyList''_140 :: +d_uglyList''_142 :: Integer -> [T__'8866'_14] -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_uglyList''_140 v0 v1 +d_uglyList''_142 v0 v1 = case coe v1 of [] -> coe ("" :: Data.Text.Text) (:) v2 v3 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_144 (coe v0) (coe v2)) + (d_ugly_146 (coe v0) (coe v2)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (" , " :: Data.Text.Text) (d_uglyList''_140 (coe v0) (coe v3))) + (" , " :: Data.Text.Text) (d_uglyList''_142 (coe v0) (coe v3))) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.ugly -d_ugly_144 :: +d_ugly_146 :: Integer -> T__'8866'_14 -> MAlonzo.Code.Agda.Builtin.String.T_String_6 -d_ugly_144 v0 v1 +d_ugly_146 v0 v1 = case coe v1 of C_'96'_18 v2 -> coe ("(` var )" :: Data.Text.Text) C_ƛ_20 v2 @@ -204,7 +206,7 @@ d_ugly_144 v0 v1 ("(\411 " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_144 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) + (d_ugly_146 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) (")" :: Data.Text.Text)) C__'183'__22 v2 v3 -> coe @@ -212,27 +214,27 @@ d_ugly_144 v0 v1 ("( " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_144 (coe v0) (coe v2)) + (d_ugly_146 (coe v0) (coe v2)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" \183 " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_144 (coe v0) (coe v3)) (")" :: Data.Text.Text)))) + (d_ugly_146 (coe v0) (coe v3)) (")" :: Data.Text.Text)))) C_force_24 v2 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("(force " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_144 (coe v0) (coe v2)) (")" :: Data.Text.Text)) + (d_ugly_146 (coe v0) (coe v2)) (")" :: Data.Text.Text)) C_delay_26 v2 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("(delay " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_144 (coe v0) (coe v2)) (")" :: Data.Text.Text)) + (d_ugly_146 (coe v0) (coe v2)) (")" :: Data.Text.Text)) C_con_28 v2 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 @@ -249,115 +251,115 @@ d_ugly_144 v0 v1 (coe MAlonzo.Code.Data.Nat.Show.d_show_56 v2) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyList_136 (coe v0) (coe v3)) (")" :: Data.Text.Text))) + (d_uglyList_138 (coe v0) (coe v3)) (")" :: Data.Text.Text))) C_case_40 v2 v3 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("(case " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_ugly_144 (coe v0) (coe v2)) + (d_ugly_146 (coe v0) (coe v2)) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 (" " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyList_136 (coe v0) (coe v3)) (")" :: Data.Text.Text)))) + (d_uglyList_138 (coe v0) (coe v3)) (")" :: Data.Text.Text)))) C_builtin_44 v2 -> coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 ("(builtin " :: Data.Text.Text) (coe MAlonzo.Code.Data.String.Base.d__'43''43'__20 - (d_uglyBuiltin_132 (coe v2)) (")" :: Data.Text.Text)) + (d_uglyBuiltin_134 (coe v2)) (")" :: Data.Text.Text)) C_error_46 -> coe ("error" :: Data.Text.Text) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.extG -d_extG_178 :: +d_extG_180 :: () -> (AgdaAny -> Integer) -> Maybe AgdaAny -> Integer -d_extG_178 ~v0 v1 v2 = du_extG_178 v1 v2 -du_extG_178 :: (AgdaAny -> Integer) -> Maybe AgdaAny -> Integer -du_extG_178 v0 v1 +d_extG_180 ~v0 v1 v2 = du_extG_180 v1 v2 +du_extG_180 :: (AgdaAny -> Integer) -> Maybe AgdaAny -> Integer +du_extG_180 v0 v1 = case coe v1 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v2 -> coe addInt (coe (1 :: Integer)) (coe v0 v2) MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe (0 :: Integer) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.extricateUList -d_extricateUList_188 :: +d_extricateUList_190 :: Integer -> [T__'8866'_14] -> - MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.RawU.T_Untyped_208 -d_extricateUList_188 v0 v1 + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.RawU.T_Untyped_210 +d_extricateUList_190 v0 v1 = case coe v1 of [] -> coe MAlonzo.Code.Utils.C_'91''93'_458 (:) v2 v3 -> coe MAlonzo.Code.Utils.C__'8759'__460 - (coe d_extricateU_192 (coe v0) (coe v2)) - (coe d_extricateUList_188 (coe v0) (coe v3)) + (coe d_extricateU_194 (coe v0) (coe v2)) + (coe d_extricateUList_190 (coe v0) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.extricateU -d_extricateU_192 :: - Integer -> T__'8866'_14 -> MAlonzo.Code.RawU.T_Untyped_208 -d_extricateU_192 v0 v1 +d_extricateU_194 :: + Integer -> T__'8866'_14 -> MAlonzo.Code.RawU.T_Untyped_210 +d_extricateU_194 v0 v1 = case coe v1 of C_'96'_18 v2 -> coe - MAlonzo.Code.RawU.C_UVar_210 + MAlonzo.Code.RawU.C_UVar_212 (coe MAlonzo.Code.Data.Fin.Base.du_toℕ_18 (coe v2)) C_ƛ_20 v2 -> coe - MAlonzo.Code.RawU.C_ULambda_212 + MAlonzo.Code.RawU.C_ULambda_214 (coe - d_extricateU_192 (coe addInt (coe (1 :: Integer)) (coe v0)) + d_extricateU_194 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) C__'183'__22 v2 v3 -> coe - MAlonzo.Code.RawU.C_UApp_214 - (coe d_extricateU_192 (coe v0) (coe v2)) - (coe d_extricateU_192 (coe v0) (coe v3)) + MAlonzo.Code.RawU.C_UApp_216 + (coe d_extricateU_194 (coe v0) (coe v2)) + (coe d_extricateU_194 (coe v0) (coe v3)) C_force_24 v2 -> coe - MAlonzo.Code.RawU.C_UForce_224 - (coe d_extricateU_192 (coe v0) (coe v2)) + MAlonzo.Code.RawU.C_UForce_226 + (coe d_extricateU_194 (coe v0) (coe v2)) C_delay_26 v2 -> coe - MAlonzo.Code.RawU.C_UDelay_222 - (coe d_extricateU_192 (coe v0) (coe v2)) + MAlonzo.Code.RawU.C_UDelay_224 + (coe d_extricateU_194 (coe v0) (coe v2)) C_con_28 v2 -> coe - MAlonzo.Code.RawU.C_UCon_216 - (coe MAlonzo.Code.RawU.d_tmCon2TagCon_368 (coe v2)) + MAlonzo.Code.RawU.C_UCon_218 + (coe MAlonzo.Code.RawU.d_tmCon2TagCon_372 (coe v2)) C_constr_34 v2 v3 -> case coe v3 of [] -> coe - MAlonzo.Code.RawU.C_UConstr_226 (coe v2) + MAlonzo.Code.RawU.C_UConstr_228 (coe v2) (coe MAlonzo.Code.Utils.C_'91''93'_458) (:) v4 v5 -> coe - MAlonzo.Code.RawU.C_UConstr_226 (coe v2) + MAlonzo.Code.RawU.C_UConstr_228 (coe v2) (coe MAlonzo.Code.Utils.C__'8759'__460 - (coe d_extricateU_192 (coe v0) (coe v4)) - (coe d_extricateUList_188 (coe v0) (coe v5))) + (coe d_extricateU_194 (coe v0) (coe v4)) + (coe d_extricateUList_190 (coe v0) (coe v5))) _ -> MAlonzo.RTE.mazUnreachableError C_case_40 v2 v3 -> coe - MAlonzo.Code.RawU.C_UCase_228 - (coe d_extricateU_192 (coe v0) (coe v2)) - (coe d_extricateUList_188 (coe v0) (coe v3)) - C_builtin_44 v2 -> coe MAlonzo.Code.RawU.C_UBuiltin_220 (coe v2) - C_error_46 -> coe MAlonzo.Code.RawU.C_UError_218 + MAlonzo.Code.RawU.C_UCase_230 + (coe d_extricateU_194 (coe v0) (coe v2)) + (coe d_extricateUList_190 (coe v0) (coe v3)) + C_builtin_44 v2 -> coe MAlonzo.Code.RawU.C_UBuiltin_222 (coe v2) + C_error_46 -> coe MAlonzo.Code.RawU.C_UError_220 _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.extricateU0 -d_extricateU0_226 :: - T__'8866'_14 -> MAlonzo.Code.RawU.T_Untyped_208 -d_extricateU0_226 v0 - = coe d_extricateU_192 (coe (0 :: Integer)) (coe v0) +d_extricateU0_228 :: + T__'8866'_14 -> MAlonzo.Code.RawU.T_Untyped_210 +d_extricateU0_228 v0 + = coe d_extricateU_194 (coe (0 :: Integer)) (coe v0) -- Untyped.extG' -d_extG''_232 :: +d_extG''_234 :: () -> (Integer -> MAlonzo.Code.Utils.T_Either_6 @@ -365,15 +367,15 @@ d_extG''_232 :: Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 (Maybe AgdaAny) -d_extG''_232 ~v0 v1 v2 = du_extG''_232 v1 v2 -du_extG''_232 :: +d_extG''_234 ~v0 v1 v2 = du_extG''_234 v1 v2 +du_extG''_234 :: (Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 AgdaAny) -> Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 (Maybe AgdaAny) -du_extG''_232 v0 v1 +du_extG''_234 v0 v1 = case coe v1 of 0 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 @@ -385,12 +387,12 @@ du_extG''_232 v0 v1 (coe MAlonzo.Code.Utils.du_EitherP_344) (coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16) (coe v0 v2)) -- Untyped.scopeCheckUList -d_scopeCheckUList_242 :: +d_scopeCheckUList_244 :: Integer -> - MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.RawU.T_Untyped_208 -> + MAlonzo.Code.Utils.T_List_454 MAlonzo.Code.RawU.T_Untyped_210 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 [T__'8866'_14] -d_scopeCheckUList_242 v0 v1 +d_scopeCheckUList_244 v0 v1 = case coe v1 of MAlonzo.Code.Utils.C_'91''93'_458 -> coe @@ -399,12 +401,12 @@ d_scopeCheckUList_242 v0 v1 MAlonzo.Code.Utils.C__'8759'__460 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckU_246 (coe v0) (coe v2)) + (coe d_scopeCheckU_248 (coe v0) (coe v2)) (coe (\ v4 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckUList_242 (coe v0) (coe v3)) + (coe d_scopeCheckUList_244 (coe v0) (coe v3)) (coe (\ v5 -> coe @@ -413,14 +415,14 @@ d_scopeCheckUList_242 v0 v1 MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe v4) (coe v5)))))) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.scopeCheckU -d_scopeCheckU_246 :: +d_scopeCheckU_248 :: Integer -> - MAlonzo.Code.RawU.T_Untyped_208 -> + MAlonzo.Code.RawU.T_Untyped_210 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 T__'8866'_14 -d_scopeCheckU_246 v0 v1 +d_scopeCheckU_248 v0 v1 = case coe v1 of - MAlonzo.Code.RawU.C_UVar_210 v2 + MAlonzo.Code.RawU.C_UVar_212 v2 -> coe MAlonzo.Code.Utils.du_fmap_292 (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_'96'_18) @@ -428,60 +430,60 @@ d_scopeCheckU_246 v0 v1 MAlonzo.Code.Utils.du_maybeToEither_94 (coe MAlonzo.Code.Scoped.C_deBError_578) (MAlonzo.Code.Utils.d_natToFin_118 (coe v0) (coe v2))) - MAlonzo.Code.RawU.C_ULambda_212 v2 + MAlonzo.Code.RawU.C_ULambda_214 v2 -> coe MAlonzo.Code.Utils.du_fmap_292 (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_ƛ_20) (coe - d_scopeCheckU_246 (coe addInt (coe (1 :: Integer)) (coe v0)) + d_scopeCheckU_248 (coe addInt (coe (1 :: Integer)) (coe v0)) (coe v2)) - MAlonzo.Code.RawU.C_UApp_214 v2 v3 + MAlonzo.Code.RawU.C_UApp_216 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckU_246 (coe v0) (coe v2)) + (coe d_scopeCheckU_248 (coe v0) (coe v2)) (coe (\ v4 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckU_246 (coe v0) (coe v3)) + (coe d_scopeCheckU_248 (coe v0) (coe v3)) (coe (\ v5 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C__'183'__22 (coe v4) (coe v5)))))) - MAlonzo.Code.RawU.C_UCon_216 v2 + MAlonzo.Code.RawU.C_UCon_218 v2 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 - (coe C_con_28 (coe MAlonzo.Code.RawU.d_tagCon2TmCon_256 (coe v2))) - MAlonzo.Code.RawU.C_UError_218 + (coe C_con_28 (coe MAlonzo.Code.RawU.d_tagCon2TmCon_258 (coe v2))) + MAlonzo.Code.RawU.C_UError_220 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_error_46) - MAlonzo.Code.RawU.C_UBuiltin_220 v2 + MAlonzo.Code.RawU.C_UBuiltin_222 v2 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe C_builtin_44 (coe v2)) - MAlonzo.Code.RawU.C_UDelay_222 v2 + MAlonzo.Code.RawU.C_UDelay_224 v2 -> coe MAlonzo.Code.Utils.du_fmap_292 (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_delay_26) - (coe d_scopeCheckU_246 (coe v0) (coe v2)) - MAlonzo.Code.RawU.C_UForce_224 v2 + (coe d_scopeCheckU_248 (coe v0) (coe v2)) + MAlonzo.Code.RawU.C_UForce_226 v2 -> coe MAlonzo.Code.Utils.du_fmap_292 (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_force_24) - (coe d_scopeCheckU_246 (coe v0) (coe v2)) - MAlonzo.Code.RawU.C_UConstr_226 v2 v3 + (coe d_scopeCheckU_248 (coe v0) (coe v2)) + MAlonzo.Code.RawU.C_UConstr_228 v2 v3 -> coe MAlonzo.Code.Utils.du_fmap_292 (coe MAlonzo.Code.Utils.du_EitherP_344) (coe C_constr_34 (coe v2)) - (coe d_scopeCheckUList_242 (coe v0) (coe v3)) - MAlonzo.Code.RawU.C_UCase_228 v2 v3 + (coe d_scopeCheckUList_244 (coe v0) (coe v3)) + MAlonzo.Code.RawU.C_UCase_230 v2 v3 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckU_246 (coe v0) (coe v2)) + (coe d_scopeCheckU_248 (coe v0) (coe v2)) (coe (\ v4 -> coe MAlonzo.Code.Utils.du_eitherBind_54 - (coe d_scopeCheckUList_242 (coe v0) (coe v3)) + (coe d_scopeCheckUList_244 (coe v0) (coe v3)) (coe (\ v5 -> coe @@ -489,84 +491,84 @@ d_scopeCheckU_246 v0 v1 (coe C_case_40 (coe v4) (coe v5)))))) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.scopeCheckU0 -d_scopeCheckU0_288 :: - MAlonzo.Code.RawU.T_Untyped_208 -> +d_scopeCheckU0_290 :: + MAlonzo.Code.RawU.T_Untyped_210 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 T__'8866'_14 -d_scopeCheckU0_288 v0 - = coe d_scopeCheckU_246 (coe (0 :: Integer)) (coe v0) +d_scopeCheckU0_290 v0 + = coe d_scopeCheckU_248 (coe (0 :: Integer)) (coe v0) -- Untyped.decUTm -d_decUTm_296 :: - MAlonzo.Code.RawU.T_Untyped_208 -> - MAlonzo.Code.RawU.T_Untyped_208 -> Bool -d_decUTm_296 v0 v1 +d_decUTm_298 :: + MAlonzo.Code.RawU.T_Untyped_210 -> + MAlonzo.Code.RawU.T_Untyped_210 -> Bool +d_decUTm_298 v0 v1 = let v2 = coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8 in coe (case coe v0 of - MAlonzo.Code.RawU.C_UVar_210 v3 + MAlonzo.Code.RawU.C_UVar_212 v3 -> case coe v1 of - MAlonzo.Code.RawU.C_UVar_210 v4 + MAlonzo.Code.RawU.C_UVar_212 v4 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28 (coe MAlonzo.Code.Data.Nat.Properties.d__'8799'__2796 (coe v3) (coe v3)) _ -> coe v2 - MAlonzo.Code.RawU.C_ULambda_212 v3 + MAlonzo.Code.RawU.C_ULambda_214 v3 -> case coe v1 of - MAlonzo.Code.RawU.C_ULambda_212 v4 - -> coe d_decUTm_296 (coe v3) (coe v4) + MAlonzo.Code.RawU.C_ULambda_214 v4 + -> coe d_decUTm_298 (coe v3) (coe v4) _ -> coe v2 - MAlonzo.Code.RawU.C_UApp_214 v3 v4 + MAlonzo.Code.RawU.C_UApp_216 v3 v4 -> case coe v1 of - MAlonzo.Code.RawU.C_UApp_214 v5 v6 + MAlonzo.Code.RawU.C_UApp_216 v5 v6 -> coe MAlonzo.Code.Data.Bool.Base.d__'8743'__24 - (coe d_decUTm_296 (coe v3) (coe v5)) - (coe d_decUTm_296 (coe v4) (coe v6)) + (coe d_decUTm_298 (coe v3) (coe v5)) + (coe d_decUTm_298 (coe v4) (coe v6)) _ -> coe v2 - MAlonzo.Code.RawU.C_UCon_216 v3 + MAlonzo.Code.RawU.C_UCon_218 v3 -> case coe v1 of - MAlonzo.Code.RawU.C_UCon_216 v4 - -> coe MAlonzo.Code.RawU.d_decTagCon_192 (coe v3) (coe v4) + MAlonzo.Code.RawU.C_UCon_218 v4 + -> coe MAlonzo.Code.RawU.d_decTagCon_194 (coe v3) (coe v4) _ -> coe v2 - MAlonzo.Code.RawU.C_UError_218 + MAlonzo.Code.RawU.C_UError_220 -> case coe v1 of - MAlonzo.Code.RawU.C_UError_218 + MAlonzo.Code.RawU.C_UError_220 -> coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10 _ -> coe v2 - MAlonzo.Code.RawU.C_UBuiltin_220 v3 + MAlonzo.Code.RawU.C_UBuiltin_222 v3 -> case coe v1 of - MAlonzo.Code.RawU.C_UBuiltin_220 v4 + MAlonzo.Code.RawU.C_UBuiltin_222 v4 -> coe MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28 - (coe MAlonzo.Code.Builtin.d_decBuiltin_440 (coe v3) (coe v4)) + (coe MAlonzo.Code.Builtin.d_decBuiltin_468 (coe v3) (coe v4)) _ -> coe v2 - MAlonzo.Code.RawU.C_UDelay_222 v3 + MAlonzo.Code.RawU.C_UDelay_224 v3 -> case coe v1 of - MAlonzo.Code.RawU.C_UDelay_222 v4 - -> coe d_decUTm_296 (coe v3) (coe v4) + MAlonzo.Code.RawU.C_UDelay_224 v4 + -> coe d_decUTm_298 (coe v3) (coe v4) _ -> coe v2 - MAlonzo.Code.RawU.C_UForce_224 v3 + MAlonzo.Code.RawU.C_UForce_226 v3 -> case coe v1 of - MAlonzo.Code.RawU.C_UForce_224 v4 - -> coe d_decUTm_296 (coe v3) (coe v4) + MAlonzo.Code.RawU.C_UForce_226 v4 + -> coe d_decUTm_298 (coe v3) (coe v4) _ -> coe v2 _ -> coe v2) -- Untyped.buildDebruijnEncoding -d_buildDebruijnEncoding_332 :: +d_buildDebruijnEncoding_334 :: () -> Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 (Maybe AgdaAny) -d_buildDebruijnEncoding_332 ~v0 v1 - = du_buildDebruijnEncoding_332 v1 -du_buildDebruijnEncoding_332 :: +d_buildDebruijnEncoding_334 ~v0 v1 + = du_buildDebruijnEncoding_334 v1 +du_buildDebruijnEncoding_334 :: Integer -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Scoped.T_ScopeError_576 (Maybe AgdaAny) -du_buildDebruijnEncoding_332 v0 +du_buildDebruijnEncoding_334 v0 = coe - du_extG''_232 + du_extG''_234 (coe (\ v1 -> coe @@ -574,18 +576,18 @@ du_buildDebruijnEncoding_332 v0 (coe MAlonzo.Code.Scoped.C_deBError_578))) (coe v0) -- Untyped.make-integer -d_make'45'integer_338 :: +d_make'45'integer_340 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -d_make'45'integer_338 +d_make'45'integer_340 = coe - MAlonzo.Code.RawU.du_tag2TyTag_232 + MAlonzo.Code.RawU.du_tag2TyTag_234 (coe MAlonzo.Code.RawU.C_integer_30) -- Untyped.con-integer -d_con'45'integer_342 :: Integer -> Integer -> T__'8866'_14 -d_con'45'integer_342 ~v0 v1 = du_con'45'integer_342 v1 -du_con'45'integer_342 :: Integer -> T__'8866'_14 -du_con'45'integer_342 v0 +d_con'45'integer_344 :: Integer -> Integer -> T__'8866'_14 +d_con'45'integer_344 ~v0 v1 = du_con'45'integer_344 v1 +du_con'45'integer_344 :: Integer -> T__'8866'_14 +du_con'45'integer_344 v0 = coe C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 (coe d_make'45'integer_338) (coe v0)) + MAlonzo.Code.RawU.C_tmCon_208 (coe d_make'45'integer_340) (coe v0)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/CEK.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/CEK.hs index 599d2286159..fc580c8baa3 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped/CEK.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/CEK.hs @@ -102,7 +102,7 @@ d_discharge_126 v0 C_V'45'con_50 v1 v2 -> coe MAlonzo.Code.Untyped.C_con_28 - (coe MAlonzo.Code.RawU.C_tmCon_206 (coe v1) (coe v2)) + (coe MAlonzo.Code.RawU.C_tmCon_208 (coe v1) (coe v2)) C_V'45'delay_54 v1 v2 v3 -> coe MAlonzo.Code.Untyped.C_delay_26 @@ -485,7 +485,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_div_312 + MAlonzo.Code.Builtin.d_div_326 v21 v25))) _ -> coe v19 @@ -559,7 +559,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_quot_314 + MAlonzo.Code.Builtin.d_quot_328 v21 v25))) _ -> coe v19 @@ -633,7 +633,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_rem_316 + MAlonzo.Code.Builtin.d_rem_330 v21 v25))) _ -> coe v19 @@ -707,7 +707,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_mod_318 + MAlonzo.Code.Builtin.d_mod_332 v21 v25))) _ -> coe v19 @@ -1002,7 +1002,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_concat_324 + MAlonzo.Code.Builtin.d_concat_338 v21 v25)) _ -> coe v19 @@ -1057,7 +1057,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 -> let v28 = coe - MAlonzo.Code.Builtin.d_cons_326 + MAlonzo.Code.Builtin.d_cons_340 v21 v25 in coe @@ -1156,7 +1156,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v39) (coe - MAlonzo.Code.Builtin.d_slice_328 + MAlonzo.Code.Builtin.d_slice_342 v29 v33 v37)) @@ -1215,7 +1215,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)) (coe - MAlonzo.Code.Builtin.d_lengthBS_308 + MAlonzo.Code.Builtin.d_lengthBS_322 v13)) _ -> coe v11 _ -> coe v11 @@ -1285,7 +1285,7 @@ d_BUILTIN_278 v0 (coe v25) (coe - MAlonzo.Code.Builtin.d_lengthBS_308 + MAlonzo.Code.Builtin.d_lengthBS_322 v21) in coe (case coe @@ -1305,7 +1305,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_index_310 + MAlonzo.Code.Builtin.d_index_324 v21 v25))) else coe @@ -1385,7 +1385,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) (coe - MAlonzo.Code.Builtin.d_equals_346 + MAlonzo.Code.Builtin.d_equals_360 v21 v25)) _ -> coe v19 @@ -1447,7 +1447,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) (coe - MAlonzo.Code.Builtin.d_B'60'_330 + MAlonzo.Code.Builtin.d_B'60'_344 v21 v25)) _ -> coe v19 @@ -1509,7 +1509,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) (coe - MAlonzo.Code.Builtin.d_B'60''61'_332 + MAlonzo.Code.Builtin.d_B'60''61'_346 v21 v25)) _ -> coe v19 @@ -1557,7 +1557,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v15) (coe - MAlonzo.Code.Builtin.d_SHA2'45'256_334 + MAlonzo.Code.Builtin.d_SHA2'45'256_348 v13)) _ -> coe v11 _ -> coe v11 @@ -1600,7 +1600,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v15) (coe - MAlonzo.Code.Builtin.d_SHA3'45'256_336 + MAlonzo.Code.Builtin.d_SHA3'45'256_350 v13)) _ -> coe v11 _ -> coe v11 @@ -1643,7 +1643,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v15) (coe - MAlonzo.Code.Builtin.d_BLAKE2B'45'256_338 + MAlonzo.Code.Builtin.d_BLAKE2B'45'256_352 v13)) _ -> coe v11 _ -> coe v11 @@ -1712,7 +1712,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 -> let v40 = coe - MAlonzo.Code.Builtin.d_verifyEd25519Sig_340 + MAlonzo.Code.Builtin.d_verifyEd25519Sig_354 v29 v33 v37 in @@ -1816,7 +1816,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 -> let v40 = coe - MAlonzo.Code.Builtin.d_verifyEcdsaSecp256k1Sig_342 + MAlonzo.Code.Builtin.d_verifyEcdsaSecp256k1Sig_356 v29 v33 v37 in @@ -1920,7 +1920,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 -> let v40 = coe - MAlonzo.Code.Builtin.d_verifySchnorrSecp256k1Sig_344 + MAlonzo.Code.Builtin.d_verifySchnorrSecp256k1Sig_358 v29 v33 v37 in @@ -2122,7 +2122,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10)) (coe - MAlonzo.Code.Builtin.d_ENCODEUTF8_348 + MAlonzo.Code.Builtin.d_ENCODEUTF8_362 v13)) _ -> coe v11 _ -> coe v11 @@ -2159,7 +2159,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 -> let v16 = coe - MAlonzo.Code.Builtin.d_DECODEUTF8_350 + MAlonzo.Code.Builtin.d_DECODEUTF8_364 v13 in coe (case coe v16 of @@ -2297,7 +2297,7 @@ d_BUILTIN_278 v0 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe - MAlonzo.Code.Builtin.d_TRACE_322 + MAlonzo.Code.Builtin.d_TRACE_336 erased v26 v9) _ -> coe v10 _ -> coe v10 @@ -2493,7 +2493,7 @@ d_BUILTIN_278 v0 -> case coe v27 of MAlonzo.Code.Builtin.Signature.C_list_16 v30 -> let v31 - = MAlonzo.Code.RawU.d_decTyTag_68 + = MAlonzo.Code.RawU.d_decTyTag_70 (coe v25) (coe v30) in coe @@ -3565,14 +3565,568 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10)) (coe - MAlonzo.Code.Builtin.d_serialiseDATA_352 + MAlonzo.Code.Builtin.d_serialiseDATA_366 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_mkPairData_112 + MAlonzo.Code.Builtin.C_insertCoin_112 + -> coe + (\ v1 -> + let v2 + = coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (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_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_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_422) in + coe + (case coe v24 of + C_app_106 v32 v33 + -> let v34 + = coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Utils.C_userError_422) in + coe + (case coe v32 of + C_base_94 + -> let v35 + = coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Utils.C_userError_422) in + coe + (case coe v33 of + C_V'45'con_50 v36 v37 + -> case coe v36 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v39 + -> case coe v39 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 + -> case coe + v25 of + C_V'45'con_50 v40 v41 + -> case coe + v40 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v43 + -> case coe + v43 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 + -> case coe + v17 of + C_V'45'con_50 v44 v45 + -> case coe + v44 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v47 + -> case coe + v47 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 + -> case coe + v9 of + C_V'45'con_50 v48 v49 + -> case coe + v48 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v51 + -> case coe + v51 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> let v52 + = coe + MAlonzo.Code.Builtin.d_insertCOIN_368 + v37 + v41 + v45 + v49 in + coe + (case coe + v52 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v53 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe + C_V'45'con_50 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + v51) + (coe + v53)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Utils.C_userError_422) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> coe + v35 + _ -> coe + v35 + _ -> coe + v35 + _ -> coe + v35 + _ -> coe + v35 + _ -> coe + v35 + _ -> coe + v35 + _ -> coe + v35 + _ -> coe + v35 + _ -> coe v35 + _ -> coe v35 + _ -> coe v35) + _ -> coe v34) + _ -> coe v26) + _ -> coe v18) + _ -> coe v10) + _ -> coe v2)) + MAlonzo.Code.Builtin.C_lookupCoin_114 + -> coe + (\ v1 -> + let v2 + = coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (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_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_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_422) in + coe + (case coe v24 of + C_base_94 + -> let v27 + = coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Utils.C_userError_422) in + coe + (case coe v25 of + C_V'45'con_50 v28 v29 + -> case coe v28 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v31 + -> case coe v31 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 + -> case coe v17 of + C_V'45'con_50 v32 v33 + -> case coe + v32 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v35 + -> case coe + v35 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 + -> case coe + v9 of + C_V'45'con_50 v36 v37 + -> case coe + v36 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v39 + -> case coe + v39 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe + C_V'45'con_50 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe + MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)) + (coe + MAlonzo.Code.Builtin.d_lookupCOIN_370 + v29 + v33 + v37)) + _ -> coe + v27 + _ -> coe + v27 + _ -> coe + v27 + _ -> coe + v27 + _ -> coe + v27 + _ -> coe v27 + _ -> coe v27 + _ -> coe v27 + _ -> coe v27) + _ -> coe v26) + _ -> coe v18) + _ -> coe v10) + _ -> coe v2)) + MAlonzo.Code.Builtin.C_unionValue_116 + -> coe + (\ v1 -> + let v2 + = coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (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_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_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_422) in + coe + (case coe v17 of + C_V'45'con_50 v20 v21 + -> case coe v20 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v23 + -> case coe v23 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> case coe v9 of + C_V'45'con_50 v24 v25 + -> case coe v24 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 + -> case coe v27 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> let v28 + = coe + MAlonzo.Code.Builtin.d_unionVALUE_372 + v21 + v25 in + coe + (case coe + v28 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v29 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe + C_V'45'con_50 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + v27) + (coe + v29)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Utils.C_userError_422) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> coe v19 + _ -> coe v19 + _ -> coe v19 + _ -> coe v19 + _ -> coe v19 + _ -> coe v19) + _ -> coe v18) + _ -> coe v10) + _ -> coe v2)) + MAlonzo.Code.Builtin.C_valueContains_118 + -> coe + (\ v1 -> + let v2 + = coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (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_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_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_422) in + coe + (case coe v17 of + C_V'45'con_50 v20 v21 + -> case coe v20 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v23 + -> case coe v23 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> case coe v9 of + C_V'45'con_50 v24 v25 + -> case coe v24 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 + -> case coe v27 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> let v28 + = coe + MAlonzo.Code.Builtin.d_valueCONTAINS_374 + v21 + v25 in + coe + (case coe + v28 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v29 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe + C_V'45'con_50 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) + (coe + v29)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Utils.C_userError_422) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> coe v19 + _ -> coe v19 + _ -> coe v19 + _ -> coe v19 + _ -> coe v19 + _ -> coe v19) + _ -> coe v18) + _ -> coe v10) + _ -> coe v2)) + MAlonzo.Code.Builtin.C_scaleValue_120 + -> coe + (\ v1 -> + let v2 + = coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (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_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_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_422) in + coe + (case coe v17 of + C_V'45'con_50 v20 v21 + -> case coe v20 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v23 + -> case coe v23 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 + -> case coe v9 of + C_V'45'con_50 v24 v25 + -> case coe v24 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 + -> case coe v27 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> let v28 + = coe + MAlonzo.Code.Builtin.d_scaleVALUE_376 + v21 + v25 in + coe + (case coe + v28 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v29 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe + C_V'45'con_50 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + v27) + (coe + v29)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Utils.C_userError_422) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> coe v19 + _ -> coe v19 + _ -> coe v19 + _ -> coe v19 + _ -> coe v19 + _ -> coe v19) + _ -> coe v18) + _ -> coe v10) + _ -> coe v2)) + MAlonzo.Code.Builtin.C_valueData_122 + -> coe + (\ v1 -> + let v2 + = coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (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_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_422) in + coe + (case coe v9 of + C_V'45'con_50 v12 v13 + -> case coe v12 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v15 + -> case coe v15 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> let v16 + = coe + MAlonzo.Code.Builtin.d_valueDATA_378 + v13 in + coe + (case coe v16 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v17 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe + C_V'45'con_50 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe + MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18)) + (coe v17)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Utils.C_userError_422) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> coe v11 + _ -> coe v11 + _ -> coe v11) + _ -> coe v10) + _ -> coe v2)) + MAlonzo.Code.Builtin.C_unValueData_124 + -> coe + (\ v1 -> + let v2 + = coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (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_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_422) in + coe + (case coe v9 of + C_V'45'con_50 v12 v13 + -> case coe v12 of + MAlonzo.Code.Builtin.Signature.C_atomic_12 v15 + -> case coe v15 of + MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 + -> let v16 + = coe + MAlonzo.Code.Builtin.d_unValueDATA_380 + v13 in + coe + (case coe v16 of + MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v17 + -> coe + MAlonzo.Code.Utils.C_inj'8322'_14 + (coe + C_V'45'con_50 + (coe + MAlonzo.Code.Builtin.Signature.C_atomic_12 + (coe + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20)) + (coe v17)) + MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 + -> coe + MAlonzo.Code.Utils.C_inj'8321'_12 + (coe + MAlonzo.Code.Utils.C_userError_422) + _ -> MAlonzo.RTE.mazUnreachableError) + _ -> coe v11 + _ -> coe v11 + _ -> coe v11) + _ -> coe v10) + _ -> coe v2)) + MAlonzo.Code.Builtin.C_mkPairData_126 -> coe (\ v1 -> let v2 @@ -3640,7 +4194,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_mkNilData_114 + MAlonzo.Code.Builtin.C_mkNilData_128 -> coe (\ v1 -> let v2 @@ -3687,7 +4241,7 @@ d_BUILTIN_278 v0 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_mkNilPairData_116 + MAlonzo.Code.Builtin.C_mkNilPairData_130 -> coe (\ v1 -> let v2 @@ -3740,7 +4294,7 @@ d_BUILTIN_278 v0 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'add_118 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'add_132 -> coe (\ v1 -> let v2 @@ -3774,13 +4328,13 @@ d_BUILTIN_278 v0 -> case coe v20 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v23 -> case coe v23 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> case coe v9 of C_V'45'con_50 v24 v25 -> case coe v24 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 -> case coe v27 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -3789,7 +4343,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'add_354 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'add_382 v21 v25)) _ -> coe v19 @@ -3801,7 +4355,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'neg_120 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'neg_134 -> coe (\ v1 -> let v2 @@ -3828,7 +4382,7 @@ d_BUILTIN_278 v0 -> case coe v12 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v15 -> case coe v15 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -3837,14 +4391,14 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v15) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'neg_356 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'neg_384 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'scalarMul_122 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'scalarMul_136 -> coe (\ v1 -> let v2 @@ -3884,7 +4438,7 @@ d_BUILTIN_278 v0 -> case coe v24 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 -> case coe v27 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -3893,7 +4447,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'scalarMul_358 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'scalarMul_386 v21 v25)) _ -> coe v19 @@ -3905,7 +4459,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'equal_124 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'equal_138 -> coe (\ v1 -> let v2 @@ -3939,13 +4493,13 @@ d_BUILTIN_278 v0 -> case coe v20 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v23 -> case coe v23 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> case coe v9 of C_V'45'con_50 v24 v25 -> case coe v24 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 -> case coe v27 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -3955,7 +4509,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'equal_360 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'equal_388 v21 v25)) _ -> coe v19 @@ -3967,7 +4521,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'hashToGroup_126 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'hashToGroup_140 -> coe (\ v1 -> let v2 @@ -4010,7 +4564,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 -> let v28 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'hashToGroup_362 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'hashToGroup_390 v21 v25 in coe @@ -4024,7 +4578,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)) (coe v29)) MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 @@ -4042,7 +4596,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'compress_128 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'compress_142 -> coe (\ v1 -> let v2 @@ -4069,7 +4623,7 @@ d_BUILTIN_278 v0 -> case coe v12 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v15 -> case coe v15 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -4079,14 +4633,14 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10)) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'compress_364 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'compress_392 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'uncompress_130 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'uncompress_144 -> coe (\ v1 -> let v2 @@ -4116,7 +4670,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 -> let v16 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'uncompress_366 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'uncompress_394 v13 in coe (case coe v16 of @@ -4128,7 +4682,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20)) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22)) (coe v17)) MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe @@ -4141,7 +4695,7 @@ d_BUILTIN_278 v0 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'add_132 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'add_146 -> coe (\ v1 -> let v2 @@ -4175,13 +4729,13 @@ d_BUILTIN_278 v0 -> case coe v20 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v23 -> case coe v23 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> case coe v9 of C_V'45'con_50 v24 v25 -> case coe v24 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 -> case coe v27 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -4190,7 +4744,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'add_368 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'add_396 v21 v25)) _ -> coe v19 @@ -4202,7 +4756,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'neg_134 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'neg_148 -> coe (\ v1 -> let v2 @@ -4229,7 +4783,7 @@ d_BUILTIN_278 v0 -> case coe v12 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v15 -> case coe v15 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -4238,14 +4792,14 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v15) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'neg_370 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'neg_398 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'scalarMul_136 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'scalarMul_150 -> coe (\ v1 -> let v2 @@ -4285,7 +4839,7 @@ d_BUILTIN_278 v0 -> case coe v24 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 -> case coe v27 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -4294,7 +4848,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'scalarMul_372 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'scalarMul_400 v21 v25)) _ -> coe v19 @@ -4306,7 +4860,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'equal_138 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'equal_152 -> coe (\ v1 -> let v2 @@ -4340,13 +4894,13 @@ d_BUILTIN_278 v0 -> case coe v20 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v23 -> case coe v23 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> case coe v9 of C_V'45'con_50 v24 v25 -> case coe v24 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 -> case coe v27 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -4356,7 +4910,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'equal_374 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'equal_402 v21 v25)) _ -> coe v19 @@ -4368,7 +4922,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'hashToGroup_140 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'hashToGroup_154 -> coe (\ v1 -> let v2 @@ -4411,7 +4965,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 -> let v28 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'hashToGroup_376 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'hashToGroup_404 v21 v25 in coe @@ -4425,7 +4979,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)) (coe v29)) MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 @@ -4443,7 +4997,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'compress_142 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'compress_156 -> coe (\ v1 -> let v2 @@ -4470,7 +5024,7 @@ d_BUILTIN_278 v0 -> case coe v12 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v15 -> case coe v15 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -4480,14 +5034,14 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10)) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'compress_378 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'compress_406 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'uncompress_144 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'uncompress_158 -> coe (\ v1 -> let v2 @@ -4517,7 +5071,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBytestring_10 -> let v16 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'uncompress_380 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'uncompress_408 v13 in coe (case coe v16 of @@ -4529,7 +5083,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22)) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24)) (coe v17)) MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> coe @@ -4542,7 +5096,7 @@ d_BUILTIN_278 v0 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'millerLoop_146 + MAlonzo.Code.Builtin.C_bls12'45'381'45'millerLoop_160 -> coe (\ v1 -> let v2 @@ -4576,13 +5130,13 @@ d_BUILTIN_278 v0 -> case coe v20 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v23 -> case coe v23 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> case coe v9 of C_V'45'con_50 v24 v25 -> case coe v24 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 -> case coe v27 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -4590,9 +5144,9 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Signature.C_atomic_12 (coe - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24)) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26)) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'millerLoop_382 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'millerLoop_410 v21 v25)) _ -> coe v19 @@ -4604,7 +5158,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'mulMlResult_148 + MAlonzo.Code.Builtin.C_bls12'45'381'45'mulMlResult_162 -> coe (\ v1 -> let v2 @@ -4638,13 +5192,13 @@ d_BUILTIN_278 v0 -> case coe v20 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v23 -> case coe v23 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26 -> case coe v9 of C_V'45'con_50 v24 v25 -> case coe v24 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 -> case coe v27 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -4653,7 +5207,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v27) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'mulMlResult_384 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'mulMlResult_412 v21 v25)) _ -> coe v19 @@ -4665,7 +5219,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'finalVerify_150 + MAlonzo.Code.Builtin.C_bls12'45'381'45'finalVerify_164 -> coe (\ v1 -> let v2 @@ -4699,13 +5253,13 @@ d_BUILTIN_278 v0 -> case coe v20 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v23 -> case coe v23 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26 -> case coe v9 of C_V'45'con_50 v24 v25 -> case coe v24 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v27 -> case coe v27 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe @@ -4715,7 +5269,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16)) (coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'finalVerify_386 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'finalVerify_414 v21 v25)) _ -> coe v19 @@ -4727,7 +5281,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_keccak'45'256_152 + MAlonzo.Code.Builtin.C_keccak'45'256_166 -> coe (\ v1 -> let v2 @@ -4763,14 +5317,14 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v15) (coe - MAlonzo.Code.Builtin.d_KECCAK'45'256_388 + MAlonzo.Code.Builtin.d_KECCAK'45'256_416 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_blake2b'45'224_154 + MAlonzo.Code.Builtin.C_blake2b'45'224_168 -> coe (\ v1 -> let v2 @@ -4806,14 +5360,14 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v15) (coe - MAlonzo.Code.Builtin.d_BLAKE2B'45'224_390 + MAlonzo.Code.Builtin.d_BLAKE2B'45'224_418 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_byteStringToInteger_156 + MAlonzo.Code.Builtin.C_byteStringToInteger_170 -> coe (\ v1 -> let v2 @@ -4863,7 +5417,7 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)) (coe - MAlonzo.Code.Builtin.d_BStoI_392 + MAlonzo.Code.Builtin.d_BStoI_420 v21 v25)) _ -> coe v19 @@ -4875,7 +5429,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_integerToByteString_158 + MAlonzo.Code.Builtin.C_integerToByteString_172 -> coe (\ v1 -> let v2 @@ -4937,7 +5491,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 -> let v40 = coe - MAlonzo.Code.Builtin.d_ItoBS_394 + MAlonzo.Code.Builtin.d_ItoBS_422 v29 v33 v37 in @@ -4979,7 +5533,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_andByteString_160 + MAlonzo.Code.Builtin.C_andByteString_174 -> coe (\ v1 -> let v2 @@ -5047,7 +5601,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v39) (coe - MAlonzo.Code.Builtin.d_andBYTESTRING_396 + MAlonzo.Code.Builtin.d_andBYTESTRING_424 v29 v33 v37)) @@ -5069,7 +5623,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_orByteString_162 + MAlonzo.Code.Builtin.C_orByteString_176 -> coe (\ v1 -> let v2 @@ -5137,7 +5691,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v39) (coe - MAlonzo.Code.Builtin.d_orBYTESTRING_398 + MAlonzo.Code.Builtin.d_orBYTESTRING_426 v29 v33 v37)) @@ -5159,7 +5713,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_xorByteString_164 + MAlonzo.Code.Builtin.C_xorByteString_178 -> coe (\ v1 -> let v2 @@ -5227,7 +5781,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v39) (coe - MAlonzo.Code.Builtin.d_xorBYTESTRING_400 + MAlonzo.Code.Builtin.d_xorBYTESTRING_428 v29 v33 v37)) @@ -5249,7 +5803,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_complementByteString_166 + MAlonzo.Code.Builtin.C_complementByteString_180 -> coe (\ v1 -> let v2 @@ -5285,14 +5839,14 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v15) (coe - MAlonzo.Code.Builtin.d_complementBYTESTRING_402 + MAlonzo.Code.Builtin.d_complementBYTESTRING_430 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_readBit_168 + MAlonzo.Code.Builtin.C_readBit_182 -> coe (\ v1 -> let v2 @@ -5335,7 +5889,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 -> let v28 = coe - MAlonzo.Code.Builtin.d_readBIT_404 + MAlonzo.Code.Builtin.d_readBIT_432 v21 v25 in coe @@ -5367,7 +5921,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_writeBits_170 + MAlonzo.Code.Builtin.C_writeBits_184 -> coe (\ v1 -> let v2 @@ -5432,7 +5986,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aBool_16 -> let v42 = coe - MAlonzo.Code.Builtin.d_writeBITS_406 + MAlonzo.Code.Builtin.d_writeBITS_434 v29 (coe MAlonzo.Code.Utils.du_toList_512 @@ -5478,7 +6032,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_replicateByte_172 + MAlonzo.Code.Builtin.C_replicateByte_186 -> coe (\ v1 -> let v2 @@ -5521,7 +6075,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 -> let v28 = coe - MAlonzo.Code.Builtin.d_replicateBYTE_408 + MAlonzo.Code.Builtin.d_replicateBYTE_436 v21 v25 in coe @@ -5553,7 +6107,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_shiftByteString_174 + MAlonzo.Code.Builtin.C_shiftByteString_188 -> coe (\ v1 -> let v2 @@ -5596,7 +6150,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 -> let v28 = coe - MAlonzo.Code.Builtin.d_shiftBYTESTRING_410 + MAlonzo.Code.Builtin.d_shiftBYTESTRING_438 v21 v25 in coe @@ -5627,7 +6181,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_rotateByteString_176 + MAlonzo.Code.Builtin.C_rotateByteString_190 -> coe (\ v1 -> let v2 @@ -5670,7 +6224,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 -> let v28 = coe - MAlonzo.Code.Builtin.d_rotateBYTESTRING_412 + MAlonzo.Code.Builtin.d_rotateBYTESTRING_440 v21 v25 in coe @@ -5701,7 +6255,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_countSetBits_178 + MAlonzo.Code.Builtin.C_countSetBits_192 -> coe (\ v1 -> let v2 @@ -5738,14 +6292,14 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)) (coe - MAlonzo.Code.Builtin.d_countSetBITS_414 + MAlonzo.Code.Builtin.d_countSetBITS_442 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_findFirstSetBit_180 + MAlonzo.Code.Builtin.C_findFirstSetBit_194 -> coe (\ v1 -> let v2 @@ -5782,14 +6336,14 @@ d_BUILTIN_278 v0 (coe MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8)) (coe - MAlonzo.Code.Builtin.d_findFirstSetBIT_416 + MAlonzo.Code.Builtin.d_findFirstSetBIT_444 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_ripemd'45'160_182 + MAlonzo.Code.Builtin.C_ripemd'45'160_196 -> coe (\ v1 -> let v2 @@ -5825,14 +6379,14 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v15) (coe - MAlonzo.Code.Builtin.d_RIPEMD'45'160_418 + MAlonzo.Code.Builtin.d_RIPEMD'45'160_446 v13)) _ -> coe v11 _ -> coe v11 _ -> coe v11) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_expModInteger_184 + MAlonzo.Code.Builtin.C_expModInteger_198 -> coe (\ v1 -> let v2 @@ -5894,7 +6448,7 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Constant.AtomicType.C_aInteger_8 -> let v40 = coe - MAlonzo.Code.Builtin.d_expModINTEGER_420 + MAlonzo.Code.Builtin.d_expModINTEGER_448 v29 v33 v37 in @@ -5935,7 +6489,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_dropList_186 + MAlonzo.Code.Builtin.C_dropList_200 -> coe (\ v1 -> let v2 @@ -5988,7 +6542,7 @@ d_BUILTIN_278 v0 _ -> coe v10 _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'multiScalarMul_188 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G1'45'multiScalarMul_202 -> coe (\ v1 -> let v2 @@ -6034,10 +6588,10 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v31 -> case coe v31 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> let v32 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'multiScalarMul_422 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G1'45'multiScalarMul_450 (coe MAlonzo.Code.Utils.du_toList_512 (coe @@ -6078,7 +6632,7 @@ d_BUILTIN_278 v0 _ -> coe v18) _ -> coe v10) _ -> coe v2)) - MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'multiScalarMul_190 + MAlonzo.Code.Builtin.C_bls12'45'381'45'G2'45'multiScalarMul_204 -> coe (\ v1 -> let v2 @@ -6124,10 +6678,10 @@ d_BUILTIN_278 v0 MAlonzo.Code.Builtin.Signature.C_atomic_12 v31 -> case coe v31 of - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> let v32 = coe - MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'multiScalarMul_424 + MAlonzo.Code.Builtin.d_BLS12'45'381'45'G2'45'multiScalarMul_452 (coe MAlonzo.Code.Utils.du_toList_512 (coe @@ -6170,18 +6724,18 @@ d_BUILTIN_278 v0 _ -> coe v2)) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.CEK.mkFullyAppliedBuiltin -d_mkFullyAppliedBuiltin_938 :: +d_mkFullyAppliedBuiltin_1054 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> T_BApp_42 -> T_BApp_42 -d_mkFullyAppliedBuiltin_938 ~v0 ~v1 ~v2 ~v3 ~v4 v5 - = du_mkFullyAppliedBuiltin_938 v5 -du_mkFullyAppliedBuiltin_938 :: T_BApp_42 -> T_BApp_42 -du_mkFullyAppliedBuiltin_938 v0 = coe v0 +d_mkFullyAppliedBuiltin_1054 ~v0 ~v1 ~v2 ~v3 ~v4 v5 + = du_mkFullyAppliedBuiltin_1054 v5 +du_mkFullyAppliedBuiltin_1054 :: T_BApp_42 -> T_BApp_42 +du_mkFullyAppliedBuiltin_1054 v0 = coe v0 -- Untyped.CEK.BUILTIN' -d_BUILTIN''_982 :: +d_BUILTIN''_1098 :: MAlonzo.Code.Builtin.T_Builtin_2 -> Integer -> MAlonzo.Code.Utils.T__'8724'_'8803'__188 -> @@ -6190,21 +6744,21 @@ d_BUILTIN''_982 :: T_BApp_42 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Utils.T_RuntimeError_418 T_Value_14 -d_BUILTIN''_982 v0 ~v1 ~v2 ~v3 ~v4 v5 = du_BUILTIN''_982 v0 v5 -du_BUILTIN''_982 :: +d_BUILTIN''_1098 v0 ~v1 ~v2 ~v3 ~v4 v5 = du_BUILTIN''_1098 v0 v5 +du_BUILTIN''_1098 :: MAlonzo.Code.Builtin.T_Builtin_2 -> T_BApp_42 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Utils.T_RuntimeError_418 T_Value_14 -du_BUILTIN''_982 v0 v1 = coe d_BUILTIN_278 v0 v1 +du_BUILTIN''_1098 v0 v1 = coe d_BUILTIN_278 v0 v1 -- Untyped.CEK.ival -d_ival_988 :: MAlonzo.Code.Builtin.T_Builtin_2 -> T_Value_14 -d_ival_988 v0 +d_ival_1104 :: MAlonzo.Code.Builtin.T_Builtin_2 -> T_Value_14 +d_ival_1104 v0 = coe d_V'45'I_258 (coe v0) (coe (0 :: Integer)) (coe - MAlonzo.Code.Builtin.Signature.d_fv_96 - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))) + MAlonzo.Code.Builtin.Signature.d_fv_98 + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0))) (coe MAlonzo.Code.Utils.C_start_192) (coe (0 :: Integer)) (coe MAlonzo.Code.Data.List.Base.du_foldr_216 @@ -6214,34 +6768,34 @@ d_ival_988 v0 (coe MAlonzo.Code.Data.List.NonEmpty.Base.d_tail_32 (coe - MAlonzo.Code.Builtin.Signature.d_args_86 - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0))))) + MAlonzo.Code.Builtin.Signature.d_args_88 + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0))))) (coe MAlonzo.Code.Utils.C_start_192) (coe C_base_94) -- Untyped.CEK.pushValueFrames -d_pushValueFrames_992 :: T_Stack_6 -> T_Stack_6 -> T_Stack_6 -d_pushValueFrames_992 v0 v1 +d_pushValueFrames_1108 :: T_Stack_6 -> T_Stack_6 -> T_Stack_6 +d_pushValueFrames_1108 v0 v1 = case coe v1 of C_ε_10 -> coe v0 C__'44'__12 v2 v3 -> coe - d_pushValueFrames_992 + d_pushValueFrames_1108 (coe C__'44'__12 (coe v0) (coe C_'45''183'v_202 (coe v3))) (coe v2) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.CEK.lookup? -d_lookup'63'_1004 :: () -> Integer -> [AgdaAny] -> Maybe AgdaAny -d_lookup'63'_1004 ~v0 v1 v2 = du_lookup'63'_1004 v1 v2 -du_lookup'63'_1004 :: Integer -> [AgdaAny] -> Maybe AgdaAny -du_lookup'63'_1004 v0 v1 +d_lookup'63'_1120 :: () -> Integer -> [AgdaAny] -> Maybe AgdaAny +d_lookup'63'_1120 ~v0 v1 v2 = du_lookup'63'_1120 v1 v2 +du_lookup'63'_1120 :: Integer -> [AgdaAny] -> Maybe AgdaAny +du_lookup'63'_1120 v0 v1 = case coe v1 of [] -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 (:) v2 v3 -> case coe v0 of 0 -> coe MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (coe v2) _ -> let v4 = subInt (coe v0) (coe (1 :: Integer)) in - coe (coe du_lookup'63'_1004 (coe v4) (coe v3)) + coe (coe du_lookup'63'_1120 (coe v4) (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.CEK.lookup?-deterministic -d_lookup'63''45'deterministic_1028 :: +d_lookup'63''45'deterministic_1144 :: () -> AgdaAny -> AgdaAny -> @@ -6250,10 +6804,10 @@ d_lookup'63''45'deterministic_1028 :: MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -d_lookup'63''45'deterministic_1028 = erased +d_lookup'63''45'deterministic_1144 = erased -- Untyped.CEK.step -d_step_1050 :: T_State_218 -> T_State_218 -d_step_1050 v0 +d_step_1166 :: T_State_218 -> T_State_218 +d_step_1166 v0 = case coe v0 of C__'894'_'9659'__222 v1 v2 v3 v4 -> case coe v4 of @@ -6281,7 +6835,7 @@ d_step_1050 v0 (coe C_V'45'delay_54 (coe v1) (coe v3) (coe v5)) MAlonzo.Code.Untyped.C_con_28 v5 -> case coe v5 of - MAlonzo.Code.RawU.C_tmCon_206 v6 v7 + MAlonzo.Code.RawU.C_tmCon_208 v6 v7 -> coe C__'9669'__224 (coe v2) (coe C_V'45'con_50 (coe v6) (coe v7)) _ -> MAlonzo.RTE.mazUnreachableError @@ -6308,7 +6862,7 @@ d_step_1050 v0 (coe C_case'45'_216 (coe v1) (coe v3) (coe v6))) (coe v3) (coe v5) MAlonzo.Code.Untyped.C_builtin_44 v5 - -> coe C__'9669'__224 (coe v2) (coe d_ival_988 (coe v5)) + -> coe C__'9669'__224 (coe v2) (coe d_ival_1104 (coe v5)) MAlonzo.Code.Untyped.C_error_46 -> coe C_'9670'_228 _ -> MAlonzo.RTE.mazUnreachableError C__'9669'__224 v1 v2 @@ -6338,7 +6892,7 @@ d_step_1050 v0 -> case coe v10 of 0 -> coe MAlonzo.Code.Utils.du_either_22 - (coe du_BUILTIN''_982 (coe v6) (coe C_app_106 v12 v2)) + (coe du_BUILTIN''_1098 (coe v6) (coe C_app_106 v12 v2)) (coe (\ v13 -> coe C_'9670'_228)) (coe C__'9669'__224 (coe v3)) _ -> let v13 = subInt (coe v10) (coe (1 :: Integer)) in @@ -6358,7 +6912,7 @@ d_step_1050 v0 C_V'45'con_50 v5 v6 -> coe C_'9670'_228 C_V'45'delay_54 v5 v6 v7 -> coe - d_step_1050 + d_step_1166 (coe C__'894'_'9659'__222 (coe v5) (coe v3) (coe v6) (coe v7)) C_V'45'constr_60 v5 v6 -> coe C_'9670'_228 C_V'45'I'8658'_74 v5 v6 v7 v8 v9 v10 v11 -> coe C_'9670'_228 @@ -6398,8 +6952,8 @@ d_step_1050 v0 MAlonzo.Code.Data.Maybe.Base.du_maybe_32 (coe C__'894'_'9659'__222 (coe v5) - (coe d_pushValueFrames_992 (coe v3) (coe v9)) (coe v6)) - (coe C_'9670'_228) (coe du_lookup'63'_1004 (coe v8) (coe v7)) + (coe d_pushValueFrames_1108 (coe v3) (coe v9)) (coe v6)) + (coe C_'9670'_228) (coe du_lookup'63'_1120 (coe v8) (coe v7)) C_V'45'I'8658'_74 v8 v9 v10 v11 v12 v13 v14 -> coe C_'9670'_228 C_V'45'IΠ_90 v8 v9 v10 v11 v12 v13 v14 v15 -> coe C_'9670'_228 _ -> MAlonzo.RTE.mazUnreachableError @@ -6409,24 +6963,24 @@ d_step_1050 v0 C_'9670'_228 -> coe v0 _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.CEK.stepper -d_stepper_1292 :: +d_stepper_1408 :: Integer -> T_State_218 -> MAlonzo.Code.Utils.T_Either_6 MAlonzo.Code.Utils.T_RuntimeError_418 T_State_218 -d_stepper_1292 v0 v1 +d_stepper_1408 v0 v1 = case coe v0 of 0 -> coe MAlonzo.Code.Utils.C_inj'8321'_12 (coe MAlonzo.Code.Utils.C_gasError_420) _ -> let v2 = subInt (coe v0) (coe (1 :: Integer)) in coe - (let v3 = d_step_1050 (coe v1) in + (let v3 = d_step_1166 (coe v1) in coe (case coe v3 of C__'894'_'9659'__222 v4 v5 v6 v7 - -> coe d_stepper_1292 (coe v2) (coe v3) - C__'9669'__224 v4 v5 -> coe d_stepper_1292 (coe v2) (coe v3) + -> coe d_stepper_1408 (coe v2) (coe v3) + C__'9669'__224 v4 v5 -> coe d_stepper_1408 (coe v2) (coe v3) C_'9633'_226 v4 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3) C_'9670'_228 -> coe MAlonzo.Code.Utils.C_inj'8322'_14 (coe v3) _ -> MAlonzo.RTE.mazUnreachableError)) diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/CEKWithCost.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/CEKWithCost.hs index 4204ef56646..c482bb0551d 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped/CEKWithCost.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/CEKWithCost.hs @@ -140,13 +140,13 @@ du_argsizes_68 v0 v1 (coe MAlonzo.Code.Utils.d_alldone_248 (coe - MAlonzo.Code.Builtin.Signature.d_fv_96 - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0)))) + MAlonzo.Code.Builtin.Signature.d_fv_98 + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0)))) (coe MAlonzo.Code.Utils.d_alldone_248 (coe - MAlonzo.Code.Builtin.Signature.d_args'9839'_92 - (coe MAlonzo.Code.Builtin.d_signature_298 (coe v0)))) + MAlonzo.Code.Builtin.Signature.d_args'9839'_94 + (coe MAlonzo.Code.Builtin.d_signature_312 (coe v0)))) (coe v1)) -- Untyped.CEKWithCost.stepC d_stepC_70 :: @@ -247,7 +247,7 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0))) MAlonzo.Code.Untyped.C_con_28 v6 -> case coe v6 of - MAlonzo.Code.RawU.C_tmCon_206 v7 v8 + MAlonzo.Code.RawU.C_tmCon_208 v7 v8 -> coe MAlonzo.Code.Utils.du__'62''62'__282 (coe @@ -334,7 +334,7 @@ du_stepC_70 v0 v1 MAlonzo.Code.Utils.C__'44'__388 (coe MAlonzo.Code.Untyped.CEK.C__'9669'__224 (coe v3) - (coe MAlonzo.Code.Untyped.CEK.d_ival_988 (coe v6))) + (coe MAlonzo.Code.Untyped.CEK.d_ival_1104 (coe v6))) (coe MAlonzo.Code.Cost.Base.d_ε_60 (coe v0))) MAlonzo.Code.Untyped.C_error_46 -> coe @@ -535,12 +535,12 @@ du_stepC_70 v0 v1 (coe MAlonzo.Code.Untyped.CEK.C__'894'_'9659'__222 (coe v6) (coe - MAlonzo.Code.Untyped.CEK.d_pushValueFrames_992 (coe v4) + MAlonzo.Code.Untyped.CEK.d_pushValueFrames_1108 (coe v4) (coe v10)) (coe v7)) (coe MAlonzo.Code.Untyped.CEK.C_'9670'_228) (coe - MAlonzo.Code.Untyped.CEK.du_lookup'63'_1004 (coe v9) + MAlonzo.Code.Untyped.CEK.du_lookup'63'_1120 (coe v9) (coe v8))) (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 diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Equality.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Equality.hs index a888882de79..9eda8fa000b 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped/Equality.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Equality.hs @@ -92,15 +92,15 @@ d_eqArray_46 :: d_eqArray_46 = \ _ HasEq -> (==) -- Untyped.Equality.decEq-TmCon d_decEq'45'TmCon_48 :: - MAlonzo.Code.RawU.T_TmCon_202 -> - MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.RawU.T_TmCon_204 -> + MAlonzo.Code.RawU.T_TmCon_204 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 d_decEq'45'TmCon_48 v0 v1 = case coe v0 of - MAlonzo.Code.RawU.C_tmCon_206 v2 v3 + MAlonzo.Code.RawU.C_tmCon_208 v2 v3 -> case coe v1 of - MAlonzo.Code.RawU.C_tmCon_206 v4 v5 - -> let v6 = MAlonzo.Code.RawU.d_decTyTag_68 (coe v2) (coe v4) in + MAlonzo.Code.RawU.C_tmCon_208 v4 v5 + -> let v6 = MAlonzo.Code.RawU.d_decTyTag_70 (coe v2) (coe v4) in coe (case coe v6 of MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v7 v8 @@ -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_420 (coe d_HsEqBytestring_360) + -> coe du_builtinEq_422 (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,13 +160,15 @@ 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_420 (coe d_HsEqDATA_394) - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 - -> 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_420 (coe d_HsEqBlsG2_390) - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 - -> coe du_builtinEq_420 (coe d_HsEqBlsMlResult_392) + -> coe du_builtinEq_422 (coe d_HsEqDATA_394) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> coe du_builtinEq_422 (coe d_HsEqValue_396) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 + -> coe du_builtinEq_422 (coe d_HsEqBlsG1_388) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 + -> coe du_builtinEq_422 (coe d_HsEqBlsG2_390) + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26 + -> coe du_builtinEq_422 (coe d_HsEqBlsMlResult_392) _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.Signature.C_list_16 v2 -> coe @@ -243,7 +245,7 @@ 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_462 + -> coe du_decEq'45'Array'45''10214'_'10215'tag_466 MAlonzo.Code.Builtin.Signature.C_pair_24 v2 v3 -> coe (\ v4 -> @@ -927,17 +929,17 @@ d_decEq'45''8866'_56 v0 v1 v2 (\ v5 -> coe MAlonzo.Code.Data.Nat.Properties.du_'8801''8658''8801''7495'_2786 - (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v3))) + (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v3))) (coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe - eqInt (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v3)) - (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v4))) + eqInt (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v3)) + (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v4))) (coe MAlonzo.Code.Relation.Nullary.Reflects.d_T'45'reflects_70 (coe - eqInt (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v3)) - (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v4))))) in + eqInt (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v3)) + (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v4))))) in coe (case coe v5 of MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v6 v7 @@ -1192,7 +1194,7 @@ d_DecAtomicTyCon_144 :: T_DecEq_6 d_DecAtomicTyCon_144 = coe C_constructor_14 - (coe MAlonzo.Code.Builtin.Constant.AtomicType.d_decAtomicTyCon_26) + (coe MAlonzo.Code.Builtin.Constant.AtomicType.d_decAtomicTyCon_28) -- Untyped.Equality.DecEq-TmCon d_DecEq'45'TmCon_146 :: T_DecEq_6 d_DecEq'45'TmCon_146 @@ -1214,7 +1216,7 @@ du_DecEq'45'List_156 v0 -- Untyped.Equality.DecEq-Builtin d_DecEq'45'Builtin_160 :: T_DecEq_6 d_DecEq'45'Builtin_160 - = coe C_constructor_14 (coe MAlonzo.Code.Builtin.d_decBuiltin_440) + = coe C_constructor_14 (coe MAlonzo.Code.Builtin.d_decBuiltin_468) -- Untyped.Equality.DecEq-ℕ d_DecEq'45'ℕ_162 :: T_DecEq_6 d_DecEq'45'ℕ_162 @@ -1256,7 +1258,7 @@ d_DecEq'45'Bool_174 -- Untyped.Equality.DecEq-TyTag d_DecEq'45'TyTag_176 :: T_DecEq_6 d_DecEq'45'TyTag_176 - = coe C_constructor_14 (coe MAlonzo.Code.RawU.d_decTyTag_68) + = coe C_constructor_14 (coe MAlonzo.Code.RawU.d_decTyTag_70) -- Untyped.Equality.DecEq-⟦_⟧tag d_DecEq'45''10214'_'10215'tag_180 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> T_DecEq_6 @@ -1581,10 +1583,14 @@ d_HsEqBlsMlResult_392 d_HsEqDATA_394 :: T_HsEq_28 d_HsEqDATA_394 = coe C_constructor_36 (coe MAlonzo.Code.Utils.d_eqDATA_630) +-- Untyped.Equality.HsEqValue +d_HsEqValue_396 :: T_HsEq_28 +d_HsEqValue_396 + = coe C_constructor_36 (coe MAlonzo.Code.Utils.d_eqValue_778) -- Untyped.Equality.HsEq-⟦_⟧tag -d_HsEq'45''10214'_'10215'tag_398 :: +d_HsEq'45''10214'_'10215'tag_400 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> T_HsEq_28 -d_HsEq'45''10214'_'10215'tag_398 v0 +d_HsEq'45''10214'_'10215'tag_400 v0 = case coe v0 of MAlonzo.Code.Builtin.Signature.C_atomic_12 v2 -> case coe v2 of @@ -1600,11 +1606,13 @@ d_HsEq'45''10214'_'10215'tag_398 v0 -> coe du_fromDec_354 (coe d_DecEq'45'Bool_174) MAlonzo.Code.Builtin.Constant.AtomicType.C_aData_18 -> coe d_HsEqDATA_394 - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_20 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aValue_20 + -> coe d_HsEqValue_396 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g1'45'element_22 -> coe d_HsEqBlsG1_388 - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_22 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'g2'45'element_24 -> coe d_HsEqBlsG2_390 - MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_24 + MAlonzo.Code.Builtin.Constant.AtomicType.C_aBls12'45'381'45'mlresult_26 -> coe d_HsEqBlsMlResult_392 _ -> MAlonzo.RTE.mazUnreachableError MAlonzo.Code.Builtin.Signature.C_list_16 v2 @@ -1618,21 +1626,21 @@ d_HsEq'45''10214'_'10215'tag_398 v0 (coe d_DecEq'45''10214'_'10215'tag_180 (coe v3)) _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.Equality.magicNeg -d_magicNeg_414 +d_magicNeg_416 = error "MAlonzo Runtime Error: postulate evaluated: Untyped.Equality.magicNeg" -- Untyped.Equality.builtinEq -d_builtinEq_420 :: +d_builtinEq_422 :: () -> T_HsEq_28 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -d_builtinEq_420 ~v0 v1 v2 v3 = du_builtinEq_420 v1 v2 v3 -du_builtinEq_420 :: +d_builtinEq_422 ~v0 v1 v2 v3 = du_builtinEq_422 v1 v2 v3 +du_builtinEq_422 :: T_HsEq_28 -> AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 -du_builtinEq_420 v0 v1 v2 +du_builtinEq_422 v0 v1 v2 = let v3 = coe d_hsEq_34 v0 v1 v2 in coe (if coe v3 @@ -1645,27 +1653,27 @@ du_builtinEq_420 v0 v1 v2 (coe v3) (coe MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) -- Untyped.Equality.hsEqArrayHelper -d_hsEqArrayHelper_456 :: +d_hsEqArrayHelper_460 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> T_HsEq_28 -d_hsEqArrayHelper_456 ~v0 = du_hsEqArrayHelper_456 -du_hsEqArrayHelper_456 :: T_HsEq_28 -du_hsEqArrayHelper_456 = coe du_HsEqArray_368 +d_hsEqArrayHelper_460 ~v0 = du_hsEqArrayHelper_460 +du_hsEqArrayHelper_460 :: T_HsEq_28 +du_hsEqArrayHelper_460 = coe du_HsEqArray_368 -- Untyped.Equality.decEq-Array-⟦_⟧tag -d_decEq'45'Array'45''10214'_'10215'tag_462 :: +d_decEq'45'Array'45''10214'_'10215'tag_466 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> 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_462 ~v0 - = du_decEq'45'Array'45''10214'_'10215'tag_462 -du_decEq'45'Array'45''10214'_'10215'tag_462 :: +d_decEq'45'Array'45''10214'_'10215'tag_466 ~v0 + = du_decEq'45'Array'45''10214'_'10215'tag_466 +du_decEq'45'Array'45''10214'_'10215'tag_466 :: 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_462 - = coe du_builtinEq_420 (coe du_hsEqArrayHelper_456) +du_decEq'45'Array'45''10214'_'10215'tag_466 + = coe du_builtinEq_422 (coe du_hsEqArrayHelper_460) -- Untyped.Equality..extendedlambda6 -d_'46'extendedlambda6_506 :: +d_'46'extendedlambda6_510 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> AgdaAny -> AgdaAny -> @@ -1675,9 +1683,9 @@ d_'46'extendedlambda6_506 :: 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_506 = erased +d_'46'extendedlambda6_510 = erased -- Untyped.Equality..extendedlambda7 -d_'46'extendedlambda7_544 :: +d_'46'extendedlambda7_548 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Utils.T_List_454 AgdaAny -> MAlonzo.Code.Utils.T_List_454 AgdaAny -> @@ -1686,9 +1694,9 @@ d_'46'extendedlambda7_544 :: AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda7_544 = erased +d_'46'extendedlambda7_548 = erased -- Untyped.Equality..extendedlambda8 -d_'46'extendedlambda8_590 :: +d_'46'extendedlambda8_594 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> AgdaAny -> @@ -1699,9 +1707,9 @@ d_'46'extendedlambda8_590 :: 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_590 = erased +d_'46'extendedlambda8_594 = erased -- Untyped.Equality..extendedlambda9 -d_'46'extendedlambda9_614 :: +d_'46'extendedlambda9_618 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> (MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> @@ -1710,9 +1718,9 @@ d_'46'extendedlambda9_614 :: AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda9_614 = erased +d_'46'extendedlambda9_618 = erased -- Untyped.Equality..extendedlambda10 -d_'46'extendedlambda10_646 :: +d_'46'extendedlambda10_650 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 -> AgdaAny -> AgdaAny -> @@ -1720,9 +1728,9 @@ d_'46'extendedlambda10_646 :: 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_646 = erased +d_'46'extendedlambda10_650 = erased -- Untyped.Equality..extendedlambda11 -d_'46'extendedlambda11_666 :: +d_'46'extendedlambda11_670 :: Integer -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> @@ -1730,9 +1738,9 @@ d_'46'extendedlambda11_666 :: 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_666 = erased +d_'46'extendedlambda11_670 = erased -- Untyped.Equality..extendedlambda12 -d_'46'extendedlambda12_732 :: +d_'46'extendedlambda12_736 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -1740,9 +1748,9 @@ d_'46'extendedlambda12_732 :: 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_732 = erased +d_'46'extendedlambda12_736 = erased -- Untyped.Equality..extendedlambda13 -d_'46'extendedlambda13_812 :: +d_'46'extendedlambda13_816 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -1752,9 +1760,9 @@ d_'46'extendedlambda13_812 :: 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_812 = erased +d_'46'extendedlambda13_816 = erased -- Untyped.Equality..extendedlambda14 -d_'46'extendedlambda14_890 :: +d_'46'extendedlambda14_894 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -1762,9 +1770,9 @@ d_'46'extendedlambda14_890 :: 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_890 = erased +d_'46'extendedlambda14_894 = erased -- Untyped.Equality..extendedlambda15 -d_'46'extendedlambda15_954 :: +d_'46'extendedlambda15_958 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Untyped.T__'8866'_14 -> @@ -1772,19 +1780,19 @@ d_'46'extendedlambda15_954 :: 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_954 = erased +d_'46'extendedlambda15_958 = erased -- Untyped.Equality..extendedlambda16 -d_'46'extendedlambda16_1018 :: - MAlonzo.Code.RawU.T_TmCon_202 -> - MAlonzo.Code.RawU.T_TmCon_202 -> +d_'46'extendedlambda16_1022 :: + MAlonzo.Code.RawU.T_TmCon_204 -> + MAlonzo.Code.RawU.T_TmCon_204 -> (MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20) -> Integer -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda16_1018 = erased +d_'46'extendedlambda16_1022 = erased -- Untyped.Equality..extendedlambda17 -d_'46'extendedlambda17_1106 :: +d_'46'extendedlambda17_1110 :: Integer -> Integer -> [MAlonzo.Code.Untyped.T__'8866'_14] -> @@ -1794,9 +1802,9 @@ d_'46'extendedlambda17_1106 :: 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_1106 = erased +d_'46'extendedlambda17_1110 = erased -- Untyped.Equality..extendedlambda18 -d_'46'extendedlambda18_1202 :: +d_'46'extendedlambda18_1206 :: Integer -> MAlonzo.Code.Untyped.T__'8866'_14 -> [MAlonzo.Code.Untyped.T__'8866'_14] -> @@ -1806,9 +1814,9 @@ d_'46'extendedlambda18_1202 :: 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_1202 = erased +d_'46'extendedlambda18_1206 = erased -- Untyped.Equality..extendedlambda19 -d_'46'extendedlambda19_1270 :: +d_'46'extendedlambda19_1274 :: MAlonzo.Code.Builtin.T_Builtin_2 -> MAlonzo.Code.Builtin.T_Builtin_2 -> (MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> @@ -1816,4 +1824,4 @@ d_'46'extendedlambda19_1270 :: Integer -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 -d_'46'extendedlambda19_1270 = erased +d_'46'extendedlambda19_1274 = erased diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Reduction.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Reduction.hs index ecddf2a588e..372b234f398 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped/Reduction.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Reduction.hs @@ -99,8 +99,8 @@ du_sat_36 v0 MAlonzo.Code.Untyped.C_case_40 v1 v2 -> coe C_no'45'builtin_6 MAlonzo.Code.Untyped.C_builtin_44 v1 -> coe - C_want_8 (coe MAlonzo.Code.Builtin.d_arity'8320'_300 (coe v1)) - (coe MAlonzo.Code.Builtin.d_arity_304 (coe v1)) + C_want_8 (coe MAlonzo.Code.Builtin.d_arity'8320'_314 (coe v1)) + (coe MAlonzo.Code.Builtin.d_arity_318 (coe v1)) MAlonzo.Code.Untyped.C_error_46 -> coe C_no'45'builtin_6 _ -> MAlonzo.RTE.mazUnreachableError -- Untyped.Reduction.sat-app-step @@ -352,22 +352,22 @@ d_progress_640 v0 (coe MAlonzo.Code.Data.List.NonEmpty.Base.d_tail_32 (coe - MAlonzo.Code.Builtin.Signature.d_args_86 + MAlonzo.Code.Builtin.Signature.d_args_88 (coe - MAlonzo.Code.Builtin.d_signature_298 + MAlonzo.Code.Builtin.d_signature_312 (coe v10))))) in coe (let v12 = addInt (coe - MAlonzo.Code.Builtin.Signature.d_fv'9839'_84 + MAlonzo.Code.Builtin.Signature.d_fv'9839'_86 (coe - MAlonzo.Code.Builtin.d_signature_298 + MAlonzo.Code.Builtin.d_signature_312 (coe v10))) (coe - MAlonzo.Code.Builtin.Signature.d_fv'8902'_82 + MAlonzo.Code.Builtin.Signature.d_fv'8902'_84 (coe - MAlonzo.Code.Builtin.d_signature_298 + MAlonzo.Code.Builtin.d_signature_312 (coe v10))) in coe (case coe v12 of @@ -1111,22 +1111,22 @@ d_progress_640 v0 (coe MAlonzo.Code.Data.List.NonEmpty.Base.d_tail_32 (coe - MAlonzo.Code.Builtin.Signature.d_args_86 + MAlonzo.Code.Builtin.Signature.d_args_88 (coe - MAlonzo.Code.Builtin.d_signature_298 + MAlonzo.Code.Builtin.d_signature_312 (coe v12))))) in coe (let v14 = addInt (coe - MAlonzo.Code.Builtin.Signature.d_fv'9839'_84 + MAlonzo.Code.Builtin.Signature.d_fv'9839'_86 (coe - MAlonzo.Code.Builtin.d_signature_298 + MAlonzo.Code.Builtin.d_signature_312 (coe v12))) (coe - MAlonzo.Code.Builtin.Signature.d_fv'8902'_82 + MAlonzo.Code.Builtin.Signature.d_fv'8902'_84 (coe - MAlonzo.Code.Builtin.d_signature_298 + MAlonzo.Code.Builtin.d_signature_312 (coe v12))) in coe (case coe v14 of @@ -2266,7 +2266,7 @@ d_progress_640 v0 MAlonzo.Code.Untyped.C_constr_34 v3 v4 -> let v5 = coe - MAlonzo.Code.Untyped.CEK.du_lookup'63'_1004 (coe v3) (coe v2) in + MAlonzo.Code.Untyped.CEK.du_lookup'63'_1120 (coe v3) (coe v2) in coe (case coe v5 of MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 v6 @@ -2312,7 +2312,7 @@ d_refl'45''8773'_1320 v0 d_integer_1322 :: MAlonzo.Code.Builtin.Signature.T__'8866''9839'_4 d_integer_1322 = coe - MAlonzo.Code.RawU.du_tag2TyTag_232 + MAlonzo.Code.RawU.du_tag2TyTag_234 (coe MAlonzo.Code.RawU.C_integer_30) -- Untyped.Reduction.con-integer d_con'45'integer_1326 :: @@ -2323,7 +2323,7 @@ du_con'45'integer_1326 :: du_con'45'integer_1326 v0 = coe MAlonzo.Code.Untyped.C_con_28 - (coe MAlonzo.Code.RawU.C_tmCon_206 (coe d_integer_1322) (coe v0)) + (coe MAlonzo.Code.RawU.C_tmCon_208 (coe d_integer_1322) (coe v0)) -- Untyped.Reduction.ex1 d_ex1_1338 :: MAlonzo.Code.Untyped.T__'8866'_14 d_ex1_1338 diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Modular.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Modular.hs index adc8a41ada8..60c4cd97e0e 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Modular.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Modular.hs @@ -2453,7 +2453,7 @@ du_compatBuiltin'63'_938 v0 v1 MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26)) MAlonzo.Code.Untyped.C_builtin_44 v8 -> let v9 - = MAlonzo.Code.Builtin.d_decBuiltin_440 + = MAlonzo.Code.Builtin.d_decBuiltin_468 (coe v3) (coe v8) in coe (case coe v9 of @@ -2584,7 +2584,7 @@ du_compatBuiltin'63'_938 v0 v1 MAlonzo.Code.Relation.Nullary.Reflects.C_of'8319'_26) MAlonzo.Code.Untyped.C_builtin_44 v14 -> let v15 - = MAlonzo.Code.Builtin.d_decBuiltin_440 + = MAlonzo.Code.Builtin.d_decBuiltin_468 (coe v3) (coe v14) in coe diff --git a/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Structures.hs b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Structures.hs index d077f5159c5..2298eab7b62 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Structures.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Untyped/Relation/Binary/Structures.hs @@ -97,7 +97,7 @@ data T_TermCompatible_30 AgdaAny -> MAlonzo.Code.Untyped.Relation.Binary.Core.T_Pointwise_20 -> AgdaAny) - (MAlonzo.Code.RawU.T_TmCon_202 -> Integer -> AgdaAny) + (MAlonzo.Code.RawU.T_TmCon_204 -> Integer -> AgdaAny) (Integer -> MAlonzo.Code.Builtin.T_Builtin_2 -> AgdaAny) (Integer -> AgdaAny) -- Untyped.Relation.Binary.Structures.TermCompatible.compat-var @@ -179,7 +179,7 @@ d_compat'45'case_132 v0 -- Untyped.Relation.Binary.Structures.TermCompatible.compat-con d_compat'45'con_138 :: T_TermCompatible_30 -> - MAlonzo.Code.RawU.T_TmCon_202 -> Integer -> AgdaAny + MAlonzo.Code.RawU.T_TmCon_204 -> 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 diff --git a/plutus-metatheory/src/MAlonzo/Code/Utils.hs b/plutus-metatheory/src/MAlonzo/Code/Utils.hs index 5e72e405a52..7885f2e71c8 100644 --- a/plutus-metatheory/src/MAlonzo/Code/Utils.hs +++ b/plutus-metatheory/src/MAlonzo/Code/Utils.hs @@ -40,6 +40,7 @@ import PlutusCore.Data as D import qualified PlutusCore.Crypto.BLS12_381.G1 as G1 import qualified PlutusCore.Crypto.BLS12_381.G2 as G2 import qualified PlutusCore.Crypto.BLS12_381.Pairing as Pairing +import qualified PlutusCore.Value as V type Pair a b = (a , b) -- Utils.Either d_Either_6 a0 a1 = () @@ -734,20 +735,31 @@ 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.Value +type T_Value_776 = V.Value +d_Value_776 + = error "MAlonzo Runtime Error: postulate evaluated: Utils.Value" +-- Utils.eqValue +d_eqValue_778 :: T_Value_776 -> T_Value_776 -> Bool +d_eqValue_778 = (==) +-- Utils.valueFromList +d_valueFromList_780 + = error + "MAlonzo Runtime Error: postulate evaluated: Utils.valueFromList" -- Utils.Kind -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 +d_Kind_782 = () +type T_Kind_782 = KIND +pattern C_'42'_784 = Star +pattern C_'9839'_786 = Sharp +pattern C__'8658'__788 a0 a1 = Arrow a0 a1 +check_'42'_784 :: T_Kind_782 +check_'42'_784 = Star +check_'9839'_786 :: T_Kind_782 +check_'9839'_786 = Sharp +check__'8658'__788 :: T_Kind_782 -> T_Kind_782 -> T_Kind_782 +check__'8658'__788 = Arrow +cover_Kind_782 :: KIND -> () +cover_Kind_782 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 a94fa43dc19..520d7a1380c 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation.hs @@ -215,12 +215,12 @@ du_cert_96 v0 v1 _ -> MAlonzo.RTE.mazUnreachableError -- VerifiedCompilation.checkScope d_checkScope_100 :: - MAlonzo.Code.RawU.T_Untyped_208 -> + MAlonzo.Code.RawU.T_Untyped_210 -> Maybe MAlonzo.Code.Untyped.T__'8866'_14 d_checkScope_100 v0 = coe MAlonzo.Code.Utils.du_eitherToMaybe_112 - (coe MAlonzo.Code.Untyped.d_scopeCheckU0_288 (coe v0)) + (coe MAlonzo.Code.Untyped.d_scopeCheckU0_290 (coe v0)) -- VerifiedCompilation.checkScopeᵗ d_checkScope'7511'_102 :: MAlonzo.Code.VerifiedCompilation.Trace.T_NonEmptySep_90 @@ -229,7 +229,7 @@ d_checkScope'7511'_102 :: MAlonzo.Code.VerifiedCompilation.Trace.T_UncertifiedOptTag_4 MAlonzo.Code.VerifiedCompilation.Trace.T_CertifiedOptTag_12) MAlonzo.Code.VerifiedCompilation.Trace.T_Hints_80) - MAlonzo.Code.RawU.T_Untyped_208 -> + MAlonzo.Code.RawU.T_Untyped_210 -> Maybe (MAlonzo.Code.VerifiedCompilation.Trace.T_NonEmptySep_90 (MAlonzo.Code.Utils.T__'215'__436 diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs index 6c883b2d7be..98e060e9638 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseOfCase.hs @@ -168,7 +168,7 @@ d_isCoCCase'63'_58 v0 v1 coe MAlonzo.Code.Data.Nat.Properties.du_'8801''8658''8801''7495'_2786 (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v33))) (coe @@ -176,11 +176,11 @@ d_isCoCCase'63'_58 v0 v1 (coe eqInt (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v33)) (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe MAlonzo.Code.Builtin.C_ifThenElse_60))) (coe @@ -188,11 +188,11 @@ d_isCoCCase'63'_58 v0 v1 (coe eqInt (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v33)) (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe MAlonzo.Code.Builtin.C_ifThenElse_60))))) in coe @@ -473,7 +473,7 @@ d_isCoCForce'63'_162 v0 v1 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 (coe - MAlonzo.Code.Builtin.d_decBuiltin_440 + MAlonzo.Code.Builtin.d_decBuiltin_468 (coe v30) (coe diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce.hs index 451fed4809f..c5c5ab9d924 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UCaseReduce.hs @@ -211,7 +211,7 @@ du_red'45'constr_258 v0 seq (coe v10) (let v17 = coe - MAlonzo.Code.Untyped.CEK.du_lookup'63'_1004 + MAlonzo.Code.Untyped.CEK.du_lookup'63'_1120 (coe v15) (coe v4) in coe @@ -264,7 +264,7 @@ du_red'45'constr_258 v0 (coe v15) (let v22 = coe - MAlonzo.Code.Untyped.CEK.du_lookup'63'_1004 + MAlonzo.Code.Untyped.CEK.du_lookup'63'_1120 (coe v20) (coe @@ -654,7 +654,7 @@ du_red'45'bool_342 v0 -> 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 + MAlonzo.Code.RawU.C_tmCon_208 v17 v18 -> coe seq (coe v16) (case coe v10 of @@ -723,7 +723,7 @@ du_red'45'bool_342 v0 MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'33'_992 v21 -> case coe v19 of - MAlonzo.Code.RawU.C_tmCon_206 v22 v23 + MAlonzo.Code.RawU.C_tmCon_208 v22 v23 -> coe seq (coe @@ -846,14 +846,14 @@ du_red'45'integer_364 v0 -> 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 + MAlonzo.Code.RawU.C_tmCon_208 v17 v18 -> coe seq (coe v16) (coe seq (coe v10) (let v19 = coe - MAlonzo.Code.Untyped.CEK.du_lookup'63'_1004 + MAlonzo.Code.Untyped.CEK.du_lookup'63'_1120 (coe v18) (coe @@ -902,7 +902,7 @@ du_red'45'integer_364 v0 MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'33'_992 v21 -> case coe v19 of - MAlonzo.Code.RawU.C_tmCon_206 v22 v23 + MAlonzo.Code.RawU.C_tmCon_208 v22 v23 -> coe seq (coe @@ -913,7 +913,7 @@ du_red'45'integer_364 v0 v15) (let v24 = coe - MAlonzo.Code.Untyped.CEK.du_lookup'63'_1004 + MAlonzo.Code.Untyped.CEK.du_lookup'63'_1120 (coe v23) (coe @@ -1022,7 +1022,7 @@ du_red'45'cons'8321'_404 v0 -> 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 + MAlonzo.Code.RawU.C_tmCon_208 v18 v19 -> case coe v18 of MAlonzo.Code.Builtin.Signature.C_list_16 v21 -> case coe v17 of @@ -1061,7 +1061,7 @@ du_red'45'cons'8321'_404 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe v21) (coe @@ -1069,7 +1069,7 @@ du_red'45'cons'8321'_404 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_list_16 v21) @@ -1112,7 +1112,7 @@ du_red'45'cons'8321'_404 v0 MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'45'list'33'_1006 v22 -> case coe v19 of - MAlonzo.Code.RawU.C_tmCon_206 v23 v24 + MAlonzo.Code.RawU.C_tmCon_208 v23 v24 -> case coe v23 of MAlonzo.Code.Builtin.Signature.C_list_16 v26 @@ -1153,7 +1153,7 @@ du_red'45'cons'8321'_404 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe v26) (coe @@ -1161,7 +1161,7 @@ du_red'45'cons'8321'_404 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_list_16 v26) @@ -1266,7 +1266,7 @@ du_red'45'cons'8322'_430 v0 -> 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 + MAlonzo.Code.RawU.C_tmCon_208 v18 v19 -> case coe v18 of MAlonzo.Code.Builtin.Signature.C_list_16 v21 -> case coe v17 of @@ -1312,7 +1312,7 @@ du_red'45'cons'8322'_430 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe v21) (coe @@ -1320,7 +1320,7 @@ du_red'45'cons'8322'_430 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_list_16 v21) @@ -1364,7 +1364,7 @@ du_red'45'cons'8322'_430 v0 MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'45'list'33'_1006 v22 -> case coe v19 of - MAlonzo.Code.RawU.C_tmCon_206 v23 v24 + MAlonzo.Code.RawU.C_tmCon_208 v23 v24 -> case coe v23 of MAlonzo.Code.Builtin.Signature.C_list_16 v26 @@ -1412,7 +1412,7 @@ du_red'45'cons'8322'_430 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe v26) (coe @@ -1420,7 +1420,7 @@ du_red'45'cons'8322'_430 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe MAlonzo.Code.Builtin.Signature.C_list_16 v26) @@ -1676,7 +1676,7 @@ du_red'45'pair_478 v0 -> 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 + MAlonzo.Code.RawU.C_tmCon_208 v19 v20 -> case coe v19 of MAlonzo.Code.Builtin.Signature.C_pair_24 v22 v23 -> case coe v20 of @@ -1708,7 +1708,7 @@ du_red'45'pair_478 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe v22) (coe @@ -1716,7 +1716,7 @@ du_red'45'pair_478 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe v23) (coe @@ -1757,7 +1757,7 @@ du_red'45'pair_478 v0 MAlonzo.Code.VerifiedCompilation.UntypedViews.C_tmCon'45'pair'33'_1024 v23 -> case coe v19 of - MAlonzo.Code.RawU.C_tmCon_206 v24 v25 + MAlonzo.Code.RawU.C_tmCon_208 v24 v25 -> case coe v24 of MAlonzo.Code.Builtin.Signature.C_pair_24 v27 v28 @@ -1791,7 +1791,7 @@ du_red'45'pair_478 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe v27) (coe @@ -1799,7 +1799,7 @@ du_red'45'pair_478 v0 (coe MAlonzo.Code.Untyped.C_con_28 (coe - MAlonzo.Code.RawU.C_tmCon_206 + MAlonzo.Code.RawU.C_tmCon_208 (coe v28) (coe @@ -2184,7 +2184,7 @@ d_decide_526 v0 v1 v2 v16) (let v25 = coe - MAlonzo.Code.Untyped.CEK.du_lookup'63'_1004 + MAlonzo.Code.Untyped.CEK.du_lookup'63'_1120 (coe v23) (coe @@ -2302,7 +2302,7 @@ d_decide_526 v0 v1 v2 v21) (let v30 = coe - MAlonzo.Code.Untyped.CEK.du_lookup'63'_1004 + MAlonzo.Code.Untyped.CEK.du_lookup'63'_1120 (coe v28) (coe @@ -3220,7 +3220,7 @@ du_decide'45''126'_648 v0 v1 v2 v16) (let v25 = coe - MAlonzo.Code.Untyped.CEK.du_lookup'63'_1004 + MAlonzo.Code.Untyped.CEK.du_lookup'63'_1120 (coe v23) (coe @@ -3338,7 +3338,7 @@ du_decide'45''126'_648 v0 v1 v2 v21) (let v30 = coe - MAlonzo.Code.Untyped.CEK.du_lookup'63'_1004 + MAlonzo.Code.Untyped.CEK.du_lookup'63'_1120 (coe v28) (coe diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs index 73e3761bfe7..18c4985d265 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UForceDelay.hs @@ -421,11 +421,11 @@ d_forceDelaySimpleBefore_144 MAlonzo.Code.Untyped.C_'96'_18 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))))))))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (1 :: Integer))))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (1 :: Integer))))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (2 :: Integer))))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (2 :: Integer))))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (3 :: Integer))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (3 :: Integer))) -- VerifiedCompilation.UForceDelay.forceDelaySimpleAfter d_forceDelaySimpleAfter_146 :: MAlonzo.Code.Untyped.T__'8866'_14 d_forceDelaySimpleAfter_146 @@ -445,11 +445,11 @@ d_forceDelaySimpleAfter_146 MAlonzo.Code.Untyped.C_'96'_18 (coe MAlonzo.Code.Data.Fin.Base.C_zero_12))))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (1 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (1 :: Integer)))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (2 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (2 :: Integer)))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (3 :: Integer))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (3 :: Integer))) -- VerifiedCompilation.UForceDelay.forceDelaySimple d_forceDelaySimple_148 :: T_FD_112 d_forceDelaySimple_148 @@ -485,17 +485,17 @@ d_forceDelaySimple_148 MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe (0 :: Integer)) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (1 :: Integer)))))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (1 :: Integer)))))) (coe MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe (0 :: Integer)) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (2 :: Integer)))))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (2 :: Integer)))))) (coe MAlonzo.Code.VerifiedCompilation.UntypedTranslation.du_reflexive_1596 (coe (0 :: Integer)) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (3 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (3 :: Integer)))) -- VerifiedCompilation.UForceDelay.lastDelayBreak d_lastDelayBreak_150 :: T_FD_112 -> MAlonzo.Code.Data.Irrelevant.T_Irrelevant_20 @@ -521,15 +521,15 @@ d_ast0_170 MAlonzo.Code.Untyped.C_builtin_44 (coe MAlonzo.Code.Builtin.C_ifThenElse_60))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (1 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (1 :: Integer)))) (coe MAlonzo.Code.Untyped.C_delay_26 (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (1 :: Integer))))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (1 :: Integer))))) (coe MAlonzo.Code.Untyped.C_delay_26 (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (2 :: Integer))))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (2 :: Integer))))) -- VerifiedCompilation.UForceDelay.ast1 d_ast1_172 :: MAlonzo.Code.Untyped.T__'8866'_14 d_ast1_172 @@ -545,11 +545,11 @@ d_ast1_172 MAlonzo.Code.Untyped.C_builtin_44 (coe MAlonzo.Code.Builtin.C_ifThenElse_60))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (1 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (1 :: Integer)))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (1 :: Integer)))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (1 :: Integer)))) (coe - MAlonzo.Code.Untyped.du_con'45'integer_342 (coe (2 :: Integer))) + MAlonzo.Code.Untyped.du_con'45'integer_344 (coe (2 :: Integer))) -- VerifiedCompilation.UForceDelay.ifThenElseProof d_ifThenElseProof_174 :: T_FD_112 d_ifThenElseProof_174 @@ -1074,13 +1074,13 @@ d_isFD'63'_184 v0 v1 v2 v3 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 (coe - MAlonzo.Code.Builtin.d_decBuiltin_440 + MAlonzo.Code.Builtin.d_decBuiltin_468 (coe v53) (coe v69)) (coe - MAlonzo.Code.Builtin.d_decBuiltin_440 + MAlonzo.Code.Builtin.d_decBuiltin_468 (coe v53) (coe @@ -1811,13 +1811,13 @@ d_isFD'63'_184 v0 v1 v2 v3 = coe MAlonzo.Code.Relation.Nullary.Decidable.Core.du__'215''45'dec__84 (coe - MAlonzo.Code.Builtin.d_decBuiltin_440 + MAlonzo.Code.Builtin.d_decBuiltin_468 (coe v64) (coe v80)) (coe - MAlonzo.Code.Builtin.d_decBuiltin_440 + MAlonzo.Code.Builtin.d_decBuiltin_468 (coe v64) (coe diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UInline.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UInline.hs index 35b70731f0a..414926902eb 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UInline.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UInline.hs @@ -711,20 +711,20 @@ d_check_316 v0 v1 v2 v3 v4 v5 v6 v7 (\ v11 -> coe MAlonzo.Code.Data.Nat.Properties.du_'8801''8658''8801''7495'_2786 - (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v9))) + (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v9))) (coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe eqInt - (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v9)) - (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v10))) + (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v9)) + (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v10))) (coe MAlonzo.Code.Relation.Nullary.Reflects.d_T'45'reflects_70 (coe eqInt - (coe MAlonzo.Code.Builtin.d_enumBuiltin_426 (coe v9)) + (coe MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v9)) (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v10))))) in coe (case coe v11 of @@ -1299,7 +1299,7 @@ d_e_1174 :: (MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> MAlonzo.Code.Untyped.T__'8866'_14) -> T__'8829'__102 -> - MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.RawU.T_TmCon_204 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 d_e_1174 = erased -- VerifiedCompilation.UInline._.e diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedTranslation.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedTranslation.hs index d804edd0e4a..42635c42aca 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedTranslation.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedTranslation.hs @@ -2535,27 +2535,27 @@ du_translation'63'_160 v0 v1 v2 v3 v4 coe MAlonzo.Code.Data.Nat.Properties.du_'8801''8658''8801''7495'_2786 (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v7))) (coe MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 (coe eqInt (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v7)) (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v9))) (coe MAlonzo.Code.Relation.Nullary.Reflects.d_T'45'reflects_70 (coe eqInt (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v7)) (coe - MAlonzo.Code.Builtin.d_enumBuiltin_426 + MAlonzo.Code.Builtin.d_enumBuiltin_454 (coe v9))))) in coe (case coe v13 of diff --git a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs index d55bf8b695f..19d1f9d95d9 100644 --- a/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs +++ b/plutus-metatheory/src/MAlonzo/Code/VerifiedCompilation/UntypedViews.hs @@ -1635,14 +1635,14 @@ du_constr'63'_1648 v0 v1 v2 -- VerifiedCompilation.UntypedViews.con? d_con'63'_1762 :: Integer -> - (MAlonzo.Code.RawU.T_TmCon_202 -> ()) -> - (MAlonzo.Code.RawU.T_TmCon_202 -> + (MAlonzo.Code.RawU.T_TmCon_204 -> ()) -> + (MAlonzo.Code.RawU.T_TmCon_204 -> 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'_1762 ~v0 ~v1 v2 v3 = du_con'63'_1762 v2 v3 du_con'63'_1762 :: - (MAlonzo.Code.RawU.T_TmCon_202 -> + (MAlonzo.Code.RawU.T_TmCon_204 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> MAlonzo.Code.Untyped.T__'8866'_14 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 @@ -1870,19 +1870,19 @@ d_tmCon'63'_1948 :: (AgdaAny -> ()) -> (AgdaAny -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) -> - MAlonzo.Code.RawU.T_TmCon_202 -> + MAlonzo.Code.RawU.T_TmCon_204 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 d_tmCon'63'_1948 v0 ~v1 v2 v3 = du_tmCon'63'_1948 v0 v2 v3 du_tmCon'63'_1948 :: 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.RawU.T_TmCon_204 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 du_tmCon'63'_1948 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 + MAlonzo.Code.RawU.C_tmCon_208 v3 v4 + -> let v5 = MAlonzo.Code.RawU.d_decTyTag_70 (coe v0) (coe v3) in coe (case coe v5 of MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32 v6 v7 @@ -1987,7 +1987,7 @@ d_tmCon'45'list'63'_2040 :: (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.RawU.T_TmCon_204 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 d_tmCon'45'list'63'_2040 ~v0 v1 v2 = du_tmCon'45'list'63'_2040 v1 v2 @@ -1995,11 +1995,11 @@ du_tmCon'45'list'63'_2040 :: (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.RawU.T_TmCon_204 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 du_tmCon'45'list'63'_2040 v0 v1 = case coe v1 of - MAlonzo.Code.RawU.C_tmCon_206 v2 v3 + MAlonzo.Code.RawU.C_tmCon_208 v2 v3 -> let v4 = d_list'63'_2016 (coe v2) in coe (case coe v4 of @@ -2052,7 +2052,7 @@ d_tmCon'45'pair'63'_2110 :: 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.RawU.T_TmCon_204 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 d_tmCon'45'pair'63'_2110 ~v0 v1 v2 = du_tmCon'45'pair'63'_2110 v1 v2 @@ -2061,11 +2061,11 @@ du_tmCon'45'pair'63'_2110 :: 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.RawU.T_TmCon_204 -> MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20 du_tmCon'45'pair'63'_2110 v0 v1 = case coe v1 of - MAlonzo.Code.RawU.C_tmCon_206 v2 v3 + MAlonzo.Code.RawU.C_tmCon_208 v2 v3 -> let v4 = d_pair'63'_2028 (coe v2) in coe (case coe v4 of @@ -2605,8 +2605,8 @@ du_inh'45'builtin_2692 v0 -- VerifiedCompilation.UntypedViews.inh-con d_inh'45'con_2700 :: Integer -> - (MAlonzo.Code.RawU.T_TmCon_202 -> ()) -> - MAlonzo.Code.RawU.T_TmCon_202 -> + (MAlonzo.Code.RawU.T_TmCon_204 -> ()) -> + MAlonzo.Code.RawU.T_TmCon_204 -> T_Inhabited_2602 -> T_Inhabited_2602 d_inh'45'con_2700 ~v0 ~v1 ~v2 v3 = du_inh'45'con_2700 v3 du_inh'45'con_2700 :: T_Inhabited_2602 -> T_Inhabited_2602 @@ -2765,7 +2765,7 @@ d_addComm'63'_2812 v0 v1 v2 (coe du_builtin'63'_1840 (coe - MAlonzo.Code.Builtin.d_decBuiltin_440 + MAlonzo.Code.Builtin.d_decBuiltin_468 (coe MAlonzo.Code.Builtin.C_addInteger_4))) (\ v3 -> coe du_'8943'_2404) in coe @@ -2839,7 +2839,7 @@ d_addComm'63'_2812 v0 v1 v2 (coe du_builtin'63'_1840 (coe - MAlonzo.Code.Builtin.d_decBuiltin_440 + MAlonzo.Code.Builtin.d_decBuiltin_468 (coe MAlonzo.Code.Builtin.C_addInteger_4))) (coe @@ -3064,7 +3064,7 @@ d_addComm'63'_2812 v0 v1 v2 (coe du_builtin'63'_1840 (coe - MAlonzo.Code.Builtin.d_decBuiltin_440 + MAlonzo.Code.Builtin.d_decBuiltin_468 (coe MAlonzo.Code.Builtin.C_addInteger_4))) (coe diff --git a/plutus-metatheory/src/Raw.hs b/plutus-metatheory/src/Raw.hs index b1c5c20cfc4..9577aa4599e 100644 --- a/plutus-metatheory/src/Raw.hs +++ b/plutus-metatheory/src/Raw.hs @@ -6,7 +6,6 @@ {-# LANGUAGE RankNTypes #-} {-# LANGUAGE TypeApplications #-} {-# OPTIONS_GHC -Wall #-} --- FIXME (https://github.com/IntersectMBO/plutus-private/issues/1796) {-# OPTIONS_GHC -Wno-incomplete-patterns #-} module Raw where @@ -38,6 +37,7 @@ data AtomicTyCon | ATyConUnit | ATyConBool | ATyConData + | ATyConValue | ATyConBLS12_381_G1_Element | ATyConBLS12_381_G2_Element | ATyConBLS12_381_MlResult @@ -96,6 +96,7 @@ convTyCon (SomeTypeIn DefaultUniString) = RTyCon (RTyConAtom ATyConStr) convTyCon (SomeTypeIn DefaultUniBool) = RTyCon (RTyConAtom ATyConBool) convTyCon (SomeTypeIn DefaultUniUnit) = RTyCon (RTyConAtom ATyConUnit) convTyCon (SomeTypeIn DefaultUniData) = RTyCon (RTyConAtom ATyConData) +convTyCon (SomeTypeIn DefaultUniValue) = RTyCon (RTyConAtom ATyConValue) convTyCon (SomeTypeIn DefaultUniBLS12_381_G1_Element) = RTyCon (RTyConAtom ATyConBLS12_381_G1_Element) convTyCon (SomeTypeIn DefaultUniBLS12_381_G2_Element) = RTyCon (RTyConAtom ATyConBLS12_381_G2_Element) convTyCon (SomeTypeIn DefaultUniBLS12_381_MlResult) = RTyCon (RTyConAtom ATyConBLS12_381_MlResult) @@ -150,6 +151,7 @@ unconvTyCon (RTyConAtom ATyConStr) = SomeTypeIn DefaultUniString unconvTyCon (RTyConAtom ATyConBool) = SomeTypeIn DefaultUniBool unconvTyCon (RTyConAtom ATyConUnit) = SomeTypeIn DefaultUniUnit unconvTyCon (RTyConAtom ATyConData) = SomeTypeIn DefaultUniData +unconvTyCon (RTyConAtom ATyConValue) = SomeTypeIn DefaultUniValue unconvTyCon (RTyConAtom ATyConBLS12_381_G1_Element) = SomeTypeIn DefaultUniBLS12_381_G1_Element unconvTyCon (RTyConAtom ATyConBLS12_381_G2_Element) = diff --git a/plutus-metatheory/src/Raw.lagda.md b/plutus-metatheory/src/Raw.lagda.md index e70baca853e..1789cab5ae2 100644 --- a/plutus-metatheory/src/Raw.lagda.md +++ b/plutus-metatheory/src/Raw.lagda.md @@ -51,7 +51,7 @@ data RawTy where data RawTyCon where atomic : AtomicTyCon → RawTyCon list : RawTyCon - array : RawTyCon + array : RawTyCon pair : RawTyCon {-# COMPILE GHC RawTyCon = data RTyCon (RTyConAtom | RTyConList | RTyConArray | RTyConPair) #-} @@ -80,7 +80,7 @@ data RawTm : Set where decRTyCon : (C C' : RawTyCon) → Bool decRTyCon (atomic t) (atomic t') = does (decAtomicTyCon t t') decRTyCon pair pair = true -decRTyCon array array = true +decRTyCon array array = true decRTyCon list list = true decRTyCon _ _ = false diff --git a/plutus-metatheory/src/RawU.lagda.md b/plutus-metatheory/src/RawU.lagda.md index cdf22dede31..abba08d8172 100644 --- a/plutus-metatheory/src/RawU.lagda.md +++ b/plutus-metatheory/src/RawU.lagda.md @@ -36,7 +36,7 @@ open import Relation.Nullary using (does;yes;no;¬_) open import Data.Unit using (⊤;tt) open import Data.Product using (Σ;proj₁;proj₂) renaming (_,_ to _,,_) -open import Utils using (♯;ByteString;DATA;List;Array;[];_∷_;_×_;_,_;eqDATA;Bls12-381-G1-Element;Bls12-381-G2-Element;Bls12-381-MlResult) +open import Utils using (♯;ByteString;DATA;Value;List;Array;[];_∷_;_×_;_,_;eqDATA;Bls12-381-G1-Element;Bls12-381-G2-Element;Bls12-381-MlResult) open import Utils.Decidable using (dcong;dcong₂) import Builtin as B open import Builtin using (Builtin;equals) @@ -82,6 +82,7 @@ data Tag : Set → Set where bool : Tag (Esc Bool) unit : Tag (Esc ⊤) pdata : Tag (Esc DATA) + value : Tag (Esc Value) pair : ∀{A B} → Tag (Esc A) → Tag (Esc B) → Tag (Esc (A × B)) list : ∀{A} → Tag (Esc A) → Tag (Esc (List A)) array : ∀{A} → Tag (Esc A) → Tag (Esc (Array A)) @@ -96,6 +97,7 @@ data Tag : Set → Set where {-# FOREIGN GHC pattern TagBool = DefaultUniBool #-} {-# FOREIGN GHC pattern TagUnit = DefaultUniUnit #-} {-# FOREIGN GHC pattern TagData = DefaultUniData #-} +{-# FOREIGN GHC pattern TagValue = DefaultUniValue #-} {-# FOREIGN GHC pattern TagPair ta tb = DefaultUniPair ta tb #-} {-# FOREIGN GHC pattern TagList ta = DefaultUniList ta #-} {-# FOREIGN GHC pattern TagArray ta = DefaultUniArray ta #-} @@ -108,6 +110,7 @@ data Tag : Set → Set where | TagBool | TagUnit | TagData + | TagValue | TagPair | TagList | TagArray @@ -237,6 +240,7 @@ tag2TyTag string = B.string tag2TyTag bool = B.bool tag2TyTag unit = B.unit tag2TyTag pdata = B.pdata +tag2TyTag value = B.value tag2TyTag bls12-381-g1-element = B.bls12-381-g1-element tag2TyTag bls12-381-g2-element = B.bls12-381-g2-element tag2TyTag bls12-381-mlresult = B.bls12-381-mlresult @@ -251,6 +255,7 @@ tagLemma string = refl tagLemma bool = refl tagLemma unit = refl tagLemma pdata = refl +tagLemma value = refl tagLemma (pair t u) = cong₂ _×_ (tagLemma t) (tagLemma u) tagLemma (list t) = cong List (tagLemma t) tagLemma (array t) = cong Array (tagLemma t) @@ -265,6 +270,7 @@ tagCon2TmCon (tagCon string x) = tmCon (B.string) x tagCon2TmCon (tagCon bool x) = tmCon (B.bool) x tagCon2TmCon (tagCon unit x) = tmCon (B.unit) tt tagCon2TmCon (tagCon pdata x) = tmCon (B.pdata) x +tagCon2TmCon (tagCon value x) = tmCon (B.value) x tagCon2TmCon (tagCon bls12-381-g1-element x) = tmCon (B.bls12-381-g1-element) x tagCon2TmCon (tagCon bls12-381-g2-element x) = tmCon (B.bls12-381-g2-element) x tagCon2TmCon (tagCon bls12-381-mlresult x) = tmCon (B.bls12-381-mlresult) x @@ -284,6 +290,7 @@ tyTag2Tag (atomic aString) = String ,, string tyTag2Tag (atomic aUnit) = ⊤ ,, unit tyTag2Tag (atomic aBool) = Bool ,, bool tyTag2Tag (atomic aData) = DATA ,, pdata +tyTag2Tag (atomic aValue) = Value ,, value tyTag2Tag (atomic aBls12-381-g1-element) = Bls12-381-G1-Element ,, bls12-381-g1-element tyTag2Tag (atomic aBls12-381-g2-element) = Bls12-381-G2-Element ,, bls12-381-g2-element tyTag2Tag (atomic aBls12-381-mlresult) = Bls12-381-MlResult ,, bls12-381-mlresult @@ -301,6 +308,7 @@ tyTagLemma (atomic aString) = refl tyTagLemma (atomic aUnit) = refl tyTagLemma (atomic aBool) = refl tyTagLemma (atomic aData) = refl +tyTagLemma (atomic aValue) = refl tyTagLemma (atomic aBls12-381-g1-element) = refl tyTagLemma (atomic aBls12-381-g2-element) = refl tyTagLemma (atomic aBls12-381-mlresult) = refl @@ -315,6 +323,7 @@ tmCon2TagCon (tmCon (atomic aString) x) = tagCon string x tmCon2TagCon (tmCon (atomic aUnit) x) = tagCon unit tt tmCon2TagCon (tmCon (atomic aBool) x) = tagCon bool x tmCon2TagCon (tmCon (atomic aData) x) = tagCon pdata x +tmCon2TagCon (tmCon (atomic aValue) x) = tagCon value x tmCon2TagCon (tmCon (atomic aBls12-381-g1-element) x) = tagCon bls12-381-g1-element x tmCon2TagCon (tmCon (atomic aBls12-381-g2-element) x) = tagCon bls12-381-g2-element x tmCon2TagCon (tmCon (atomic aBls12-381-mlresult) x) = tagCon bls12-381-mlresult x diff --git a/plutus-metatheory/src/Untyped.lagda.md b/plutus-metatheory/src/Untyped.lagda.md index ce079998180..befa59c357e 100644 --- a/plutus-metatheory/src/Untyped.lagda.md +++ b/plutus-metatheory/src/Untyped.lagda.md @@ -42,7 +42,7 @@ 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) + using (_⊢♯;integer;bool;string;pdata;value;bytestring;unit;bls12-381-g1-element;bls12-381-g2-element;bls12-381-mlresult) public open _⊢♯ public @@ -102,6 +102,7 @@ uglyTmCon (tmCon string s) = "(string " ++ s ++ ")" uglyTmCon (tmCon bool false) = "(bool false)" uglyTmCon (tmCon bool true) = "(bool true)" uglyTmCon (tmCon pdata d) = uglyDATA d +uglyTmCon (tmCon value v) = "(value ???)" -- FIXME: https://github.com/IntersectMBO/plutus-private/issues/1872 uglyTmCon (tmCon bls12-381-g1-element e) = "(bls12-381-g1-element ???)" -- FIXME uglyTmCon (tmCon bls12-381-g2-element e) = "(bls12-381-g2-element ???)" -- FIXME uglyTmCon (tmCon bls12-381-mlresult r) = "(bls12-381-mlresult ???)" -- FIXME diff --git a/plutus-metatheory/src/Untyped/CEK.lagda.md b/plutus-metatheory/src/Untyped/CEK.lagda.md index cbb58bfadf9..f525d3f7b85 100644 --- a/plutus-metatheory/src/Untyped/CEK.lagda.md +++ b/plutus-metatheory/src/Untyped/CEK.lagda.md @@ -31,10 +31,10 @@ open Eq using (_≡_; refl) open import Untyped using (_⊢) open _⊢ open import Untyped.RenamingSubstitution using (Sub;sub;lifts) -open import Utils hiding (List;length) +open import Utils hiding (List;length;Value) open import Builtin open import Builtin.Signature using (Sig;sig;Args;_⊢♯;args♯;fv) - using (integer;bool;bytestring;string;pdata;unit;bls12-381-g1-element;bls12-381-g2-element;bls12-381-mlresult) + using (integer;bool;bytestring;string;pdata;value;unit;bls12-381-g1-element;bls12-381-g2-element;bls12-381-mlresult) open _⊢♯ open Sig open import RawU using (TmCon;tmCon;TyTag;decTyTag;⟦_⟧tag) @@ -324,6 +324,41 @@ BUILTIN serialiseData = λ { (app base (V-con pdata d)) -> inj₂ (V-con bytestring (serialiseDATA d)) ; _ -> inj₁ userError } +BUILTIN insertCoin + (app (app (app (app base (V-con bytestring b)) (V-con bytestring b')) (V-con integer n)) (V-con value v)) + with insertCOIN b b' n v +... | just v' = inj₂ (V-con value v') +... | nothing = inj₁ userError +BUILTIN insertCoin _ = inj₁ userError +BUILTIN lookupCoin = λ + { (app (app (app base (V-con bytestring b)) (V-con bytestring b')) (V-con value v)) -> inj₂ (V-con integer (lookupCOIN b b' v)) + ; _ -> inj₁ userError + } +BUILTIN unionValue (app (app base (V-con value v1)) (V-con value v2)) + with unionVALUE v1 v2 +... | just v' = inj₂ (V-con value v') +... | nothing = inj₁ userError +BUILTIN unionValue _ = inj₁ userError +BUILTIN valueContains (app (app base (V-con value v1)) (V-con value v2)) + with (valueCONTAINS v1 v2) +... | just b = inj₂ (V-con bool b) +... | nothing = inj₁ userError +BUILTIN valueContains _ = inj₁ userError +BUILTIN scaleValue (app (app base (V-con integer n)) (V-con value v)) + with scaleVALUE n v +... | just v' = inj₂ (V-con value v') +... | nothing = inj₁ userError +BUILTIN scaleValue _ = inj₁ userError +BUILTIN valueData (app base (V-con value v)) + with valueDATA v +... | just d = inj₂ (V-con pdata d) +... | nothing = inj₁ userError +BUILTIN valueData _ = inj₁ userError +BUILTIN unValueData (app base (V-con pdata d)) + with unValueDATA d +... | (just v) = inj₂ (V-con value v) +... | nothing = inj₁ userError +BUILTIN unValueData _ = inj₁ userError BUILTIN chooseUnit = λ { (app (app (app⋆ base) (V-con unit tt)) v) -> inj₂ v ; _ -> inj₁ userError diff --git a/plutus-metatheory/src/Untyped/Equality.lagda.md b/plutus-metatheory/src/Untyped/Equality.lagda.md index 2a8fac6452e..466be027ca8 100644 --- a/plutus-metatheory/src/Untyped/Equality.lagda.md +++ b/plutus-metatheory/src/Untyped/Equality.lagda.md @@ -242,6 +242,8 @@ instance HsEqBlsMlResult = record { hsEq = U.eqBls12-381-MlResult } HsEqDATA : HsEq U.DATA HsEqDATA = record { hsEq = U.eqDATA } + HsEqValue : HsEq U.Value + HsEqValue = record { hsEq = U.eqValue } HsEq-⟦_⟧tag : (t : TyTag) → HsEq ⟦ t ⟧tag HsEq-⟦ _⊢♯.atomic AtomicTyCon.aInteger ⟧tag = fromDec @@ -250,6 +252,7 @@ HsEq-⟦ _⊢♯.atomic AtomicTyCon.aString ⟧tag = fromDec HsEq-⟦ _⊢♯.atomic AtomicTyCon.aUnit ⟧tag = fromDec HsEq-⟦ _⊢♯.atomic AtomicTyCon.aBool ⟧tag = fromDec HsEq-⟦ _⊢♯.atomic AtomicTyCon.aData ⟧tag = HsEqDATA +HsEq-⟦ _⊢♯.atomic AtomicTyCon.aValue ⟧tag = HsEqValue HsEq-⟦ _⊢♯.atomic AtomicTyCon.aBls12-381-g1-element ⟧tag = HsEqBlsG1 HsEq-⟦ _⊢♯.atomic AtomicTyCon.aBls12-381-g2-element ⟧tag = HsEqBlsG2 HsEq-⟦ _⊢♯.atomic AtomicTyCon.aBls12-381-mlresult ⟧tag = HsEqBlsMlResult @@ -260,14 +263,39 @@ HsEq-⟦ _⊢♯.pair t₁ t₂ ⟧tag = HsEqPair {A = ⟦ t₁ ⟧tag} {B = ⟦ ## An example +``` +private postulate + magicNeg : ∀ {A : Set} {a b : A} → ¬ a ≡ b + +builtinEq : {A : Set} {{HS : HsEq A}} → Binary.Decidable {A = A} _≡_ +builtinEq {A} x y with hsEq x y +... | false = no magicNeg +... | true with primTrustMe {Agda.Primitive.lzero} {A} {x} {y} +... | refl = yes refl +``` + Let's look at the behavior of `builtinEq (mkByteString "foo") (mkByteString "foo")` vs `builtinEq (mkByteString "foo") (mkByteString "bar")`. + At type-checking time, if the two bytestrings are definitionally equal unification will succeed, -and the function will return `yes refl`. There is no way to return `no` because there is -no way to prove that the two terms are not equal without extra information about the -`ByteString` type. But this is enough to make Agda not succesfully type-check the program, -since it gets stuck while trying to normalize `primTrustMe`. +and the function will return `yes refl`. + +``` +_ : isYes (builtinEq (U.mkByteString "") (U.mkByteString "")) ≡ true +_ = refl +``` + +There is no way to return `no` because there is no way to prove that the two +terms are not equal without extra information about the `ByteString` type. But +this is enough to make Agda not succesfully type-check the program, since it +gets stuck while trying to normalize `primTrustMe`: + +``` +-- The following does not type check because reduction gets stuck +-- _ : isNo (builtinEq (U.mkByteString "foo") (U.mkByteString "bar")) ≡ false +-- _ = refl +``` At runtime, `hsEq` will defer to the Haskell implementation of bytestring equality, and return the correct result based on that. In the `yes` case, matching on `refl` will be a no-op, @@ -275,15 +303,6 @@ while in the `no` case, we return a phony negative proof. This is safe to do bec at runtime and the proof gets erased anyway. ``` -postulate - magicNeg : ∀ {A : Set} {a b : A} → ¬ a ≡ b - -builtinEq : {A : Set} {{HS : HsEq A}} → Binary.Decidable {A = A} _≡_ -builtinEq {A} x y with hsEq x y -... | false = no magicNeg -... | true with primTrustMe {Agda.Primitive.lzero} {A} {x} {y} -... | refl = yes refl - -- This is split out because the HTML generator can't handle double nested instance arguments! hsEqArrayHelper : (t : TyTag) → HsEq (U.Array ⟦ t ⟧tag) hsEqArrayHelper t = HsEqArray {A = ⟦ t ⟧tag} {{HE = hasEq-TyTag t}} {{HS = HsEq-⟦ t ⟧tag}} @@ -306,6 +325,7 @@ decEq-⟦ _⊢♯.atomic AtomicTyCon.aString ⟧tag = Data.String.Properties._ decEq-⟦ _⊢♯.atomic AtomicTyCon.aUnit ⟧tag = Data.Unit.Properties._≟_ decEq-⟦ _⊢♯.atomic AtomicTyCon.aBool ⟧tag = Data.Bool.Properties._≟_ decEq-⟦ _⊢♯.atomic AtomicTyCon.aData ⟧tag = builtinEq +decEq-⟦ _⊢♯.atomic AtomicTyCon.aValue ⟧tag = builtinEq decEq-⟦ _⊢♯.atomic AtomicTyCon.aBls12-381-g1-element ⟧tag = builtinEq decEq-⟦ _⊢♯.atomic AtomicTyCon.aBls12-381-g2-element ⟧tag = builtinEq decEq-⟦ _⊢♯.atomic AtomicTyCon.aBls12-381-mlresult ⟧tag = builtinEq diff --git a/plutus-metatheory/src/Utils.lagda.md b/plutus-metatheory/src/Utils.lagda.md index d90333c1753..2d54caff23b 100644 --- a/plutus-metatheory/src/Utils.lagda.md +++ b/plutus-metatheory/src/Utils.lagda.md @@ -402,6 +402,43 @@ eqBls12-381-MlResult _ _ = Bool.true {-# COMPILE GHC eqBls12-381-MlResult = (==) #-} ``` +## Value + +The Value type is currently postulated, but should eventually be implemented, +for example as nested maps. + +``` +-- FIXME (https://github.com/IntersectMBO/plutus-private/issues/1872) +postulate Value : Set +{-# FOREIGN GHC import qualified PlutusCore.Value as V #-} +{-# COMPILE GHC Value = type V.Value #-} +``` + +``` +-- Agda implementation should only be used as part of deciding builtin equality. +-- See "Decidable Equality of Builtins" in "Untyped.Equality". +eqValue : Value → Value → Bool +eqValue _ _ = Bool.true +{-# COMPILE GHC eqValue = (==) #-} +``` + +### Constructing constants of type Value + +Since the Value type is postulated, we also postulate a way to construct Value +constants, which is used for printing Value constants when dumping certifier +traces in Haskell (AgdaUnparse). + +``` +postulate valueFromList : List (ByteString × List (ByteString × ℤ)) → Value +``` + +An Agda implementation of Value should only have quantities in the interval +-2^127 ... 2^127-1, and must have ordered keys and no duplicated keys (see UPLC +specification pdf for more detail). Therefore, a function like `valueFromList` +would be partial in practice. For the time being, we keep the postulate as a +total function for convenience and because we expect the Haskell code to enforce +these constraints already. + ## Kinds The kind of types is `*`. Plutus core core is based on System Fω which