From 0e75f03f21a5ddbe73de3cea9966f9cebeb35b09 Mon Sep 17 00:00:00 2001 From: Matthias Benkort <5680256+KtorZ@users.noreply.github.com> Date: Thu, 12 Aug 2021 17:57:16 +0200 Subject: [PATCH] Provide 'MustSatisfyAnyOf' constructor for TxContraints. (#3706) * Provide 'MustSatisfyAnyOf' constructor for TxContraints. It is actually useful in some cases to be able to perform a disjunction of constraints, and while it is possible to resort to 'Bool' in some cases, when using internal libraries like e.g. the state-machine, we are stuck with the TxConstraints API and therefore, unable to express some useful conditions. * re-generate the plutus-use-cases tests as needed. --- .../src/Ledger/Constraints/OffChain.hs | 9 + .../src/Ledger/Constraints/OnChain.hs | 5 +- .../src/Ledger/Constraints/TxConstraints.hs | 8 + plutus-use-cases/test/Spec/future.pir | 8312 ++++--- .../test/Spec/gameStateMachine.pir | 15541 ++++++------ plutus-use-cases/test/Spec/governance.pir | 20529 ++++++++-------- .../test/Spec/multisigStateMachine.pir | 16775 +++++++------ plutus-use-cases/test/Spec/renderGuess.txt | 112 +- 8 files changed, 31447 insertions(+), 29844 deletions(-) diff --git a/plutus-ledger/src/Ledger/Constraints/OffChain.hs b/plutus-ledger/src/Ledger/Constraints/OffChain.hs index f97ede4d47f..f704f1fb16d 100644 --- a/plutus-ledger/src/Ledger/Constraints/OffChain.hs +++ b/plutus-ledger/src/Ledger/Constraints/OffChain.hs @@ -414,6 +414,7 @@ data MkTxError = | OwnPubKeyMissing | TypedValidatorMissing | DatumWrongHash DatumHash Datum + | CannotSatisfyAny deriving stock (Eq, Show, Generic) deriving anyclass (ToJSON, FromJSON) @@ -428,6 +429,7 @@ instance Pretty MkTxError where OwnPubKeyMissing -> "Own public key is missing" TypedValidatorMissing -> "Script instance is missing" DatumWrongHash h d -> "Wrong hash for datum" <+> pretty d <> colon <+> pretty h + CannotSatisfyAny -> "Cannot satisfy any of the required constraints" lookupTxOutRef :: ( MonadReader (ScriptLookups a) m @@ -538,3 +540,10 @@ processConstraint = \case unless (datumHash dv == dvh) (throwError $ DatumWrongHash dvh dv) unbalancedTx . tx . Tx.datumWitnesses . at dvh .= Just dv + MustSatisfyAnyOf xs -> do + s <- get + let tryNext [] = + throwError CannotSatisfyAny + tryNext (h:q) = do + processConstraint h `catchError` \_ -> put s >> tryNext q + tryNext xs diff --git a/plutus-ledger/src/Ledger/Constraints/OnChain.hs b/plutus-ledger/src/Ledger/Constraints/OnChain.hs index a52ac83476e..9f5f91e6075 100644 --- a/plutus-ledger/src/Ledger/Constraints/OnChain.hs +++ b/plutus-ledger/src/Ledger/Constraints/OnChain.hs @@ -48,7 +48,7 @@ checkOwnOutputConstraint ctx@ScriptContext{scriptContextTxInfo} OutputConstraint {-# INLINABLE checkTxConstraint #-} checkTxConstraint :: ScriptContext -> TxConstraint -> Bool -checkTxConstraint ScriptContext{scriptContextTxInfo} = \case +checkTxConstraint ctx@ScriptContext{scriptContextTxInfo} = \case MustIncludeDatum dv -> traceIfFalse "L2" -- "Missing datum" $ dv `elem` fmap snd (txInfoData scriptContextTxInfo) @@ -92,6 +92,9 @@ checkTxConstraint ScriptContext{scriptContextTxInfo} = \case MustHashDatum dvh dv -> traceIfFalse "Lc" -- "MustHashDatum" $ V.findDatum dvh scriptContextTxInfo == Just dv + MustSatisfyAnyOf xs -> + traceIfFalse "Ld" -- "MustSatisfyAnyOf" + $ any (checkTxConstraint ctx) xs {-# INLINABLE checkScriptContext #-} -- | Does the 'ScriptContext' satisfy the constraints? diff --git a/plutus-ledger/src/Ledger/Constraints/TxConstraints.hs b/plutus-ledger/src/Ledger/Constraints/TxConstraints.hs index e2a6c2d2298..aa865a6cfa9 100644 --- a/plutus-ledger/src/Ledger/Constraints/TxConstraints.hs +++ b/plutus-ledger/src/Ledger/Constraints/TxConstraints.hs @@ -50,6 +50,7 @@ data TxConstraint = | MustPayToPubKey PubKeyHash Value | MustPayToOtherScript ValidatorHash Datum Value | MustHashDatum DatumHash Datum + | MustSatisfyAnyOf [TxConstraint] deriving stock (Haskell.Show, Generic, Haskell.Eq) deriving anyclass (ToJSON, FromJSON) @@ -77,6 +78,8 @@ instance Pretty TxConstraint where hang 2 $ vsep ["must pay to script:", pretty vlh, pretty dv, pretty vl] MustHashDatum dvh dv -> hang 2 $ vsep ["must hash datum:", pretty dvh, pretty dv] + MustSatisfyAnyOf xs -> + hang 2 $ vsep ["must satisfy any of:", prettyList xs] data InputConstraint a = InputConstraint @@ -244,6 +247,10 @@ mustSpendScriptOutput txOutref = singleton . MustSpendScriptOutput txOutref mustHashDatum :: DatumHash -> Datum -> TxConstraints i o mustHashDatum dvh = singleton . MustHashDatum dvh +{-# INLINABLE mustSatisfyAnyOf #-} +mustSatisfyAnyOf :: forall i o. [TxConstraints i o] -> TxConstraints i o +mustSatisfyAnyOf = singleton . MustSatisfyAnyOf . concatMap txConstraints + {-# INLINABLE isSatisfiable #-} -- | Are the constraints satisfiable? isSatisfiable :: forall i o. TxConstraints i o -> Bool @@ -304,6 +311,7 @@ modifiesUtxoSet TxConstraints{txConstraints, txOwnOutputs, txOwnInputs} = MustMintValue{} -> True MustPayToPubKey _ vl -> not (isZero vl) MustPayToOtherScript _ _ vl -> not (isZero vl) + MustSatisfyAnyOf xs -> any requiresInputOutput xs _ -> False in any requiresInputOutput txConstraints || not (null txOwnOutputs) diff --git a/plutus-use-cases/test/Spec/future.pir b/plutus-use-cases/test/Spec/future.pir index 2e415c89865..e2b36a01e0d 100644 --- a/plutus-use-cases/test/Spec/future.pir +++ b/plutus-use-cases/test/Spec/future.pir @@ -223,369 +223,84 @@ ) ) ) - (datatypebind - (datatype - (tyvardecl TxConstraint (type)) - - TxConstraint_match - (vardecl MustBeSignedBy (fun (con bytestring) TxConstraint)) - (vardecl - MustHashDatum (fun (con bytestring) (fun (con data) TxConstraint)) - ) - (vardecl MustIncludeDatum (fun (con data) TxConstraint)) - (vardecl - MustMintValue - (fun (con bytestring) (fun (con data) (fun (con bytestring) (fun (con integer) TxConstraint)))) - ) - (vardecl - MustPayToOtherScript - (fun (con bytestring) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint))) - ) - (vardecl - MustPayToPubKey - (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint)) - ) - (vardecl - MustProduceAtLeast - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) - ) - (vardecl - MustSpendAtLeast - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) - ) - (vardecl MustSpendPubKeyOutput (fun TxOutRef TxConstraint)) - (vardecl - MustSpendScriptOutput (fun TxOutRef (fun (con data) TxConstraint)) - ) - (vardecl MustValidateIn (fun [Interval (con integer)] TxConstraint)) - ) - ) - (datatypebind - (datatype - (tyvardecl TxConstraints (fun (type) (fun (type) (type)))) - (tyvardecl i (type)) (tyvardecl o (type)) - TxConstraints_match - (vardecl - TxConstraints - (fun [List TxConstraint] (fun [List [InputConstraint i]] (fun [List [OutputConstraint o]] [[TxConstraints i] o]))) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl StateMachine (fun (type) (fun (type) (type)))) - (tyvardecl s (type)) (tyvardecl i (type)) - StateMachine_match - (vardecl - StateMachine - (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] [[StateMachine s] i])))) - ) - ) - ) - (termbind - (strict) - (vardecl - mkStateMachine - (all s (type) (all i (type) (fun s (fun i (fun ScriptContext Bool))))) - ) - (abs - s - (type) - (abs i (type) (lam ds s (lam ds i (lam ds ScriptContext True)))) - ) - ) (let (rec) - (termbind - (strict) - (vardecl - fFunctorNil_cfmap - (all a (type) (all b (type) (fun (fun a b) (fun [List a] [List b])))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - f - (fun a b) - (lam - l - [List a] - { - [ - [ - { [ { Nil_match a } l ] (all dead (type) [List b]) } - (abs dead (type) { Nil b }) - ] - (lam - x - a - (lam - xs - [List a] - (abs - dead - (type) - [ - [ { Cons b } [ f x ] ] - [ [ { { fFunctorNil_cfmap a } b } f ] xs ] - ] - ) - ) - ) - ] - (all dead (type) dead) - } - ) - ) + (datatypebind + (datatype + (tyvardecl TxConstraint (type)) + + TxConstraint_match + (vardecl MustBeSignedBy (fun (con bytestring) TxConstraint)) + (vardecl + MustHashDatum + (fun (con bytestring) (fun (con data) TxConstraint)) ) - ) - ) - (let - (nonrec) - (termbind - (strict) + (vardecl MustIncludeDatum (fun (con data) TxConstraint)) (vardecl - fAdditiveGroupValue_cscale - (fun (con integer) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + MustMintValue + (fun (con bytestring) (fun (con data) (fun (con bytestring) (fun (con integer) TxConstraint)))) ) - (lam - i - (con integer) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - [ - { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - c - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - c - ] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con integer)] - } - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] - [ - { - [ - { - { Tuple2_match (con bytestring) } - (con integer) - } - ds - ] - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - c - (con bytestring) - (lam - a - (con integer) - [ - [ - { - { Tuple2 (con bytestring) } - (con integer) - } - c - ] - [ - [ (builtin multiplyInteger) i ] - a - ] - ] - ) - ) - ] - ) - ] - a - ] - ] - ) - ) - ] - ) - ] - ds - ] - ) + (vardecl + MustPayToOtherScript + (fun (con bytestring) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint))) ) - ) - (termbind - (strict) (vardecl - addInteger (fun (con integer) (fun (con integer) (con integer))) + MustPayToPubKey + (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint)) ) - (lam - x - (con integer) - (lam y (con integer) [ [ (builtin addInteger) x ] y ]) + (vardecl + MustProduceAtLeast + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) ) - ) - (termbind - (strict) + (vardecl MustSatisfyAnyOf (fun [List TxConstraint] TxConstraint)) (vardecl - equalsByteString - (fun (con bytestring) (fun (con bytestring) Bool)) + MustSpendAtLeast + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) ) - (lam - x - (con bytestring) - (lam - y - (con bytestring) - [ - [ - [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsByteString) x ] y ] - ] - True - ] - False - ] - ) + (vardecl MustSpendPubKeyOutput (fun TxOutRef TxConstraint)) + (vardecl + MustSpendScriptOutput + (fun TxOutRef (fun (con data) TxConstraint)) ) - ) - (datatypebind - (datatype - (tyvardecl These (fun (type) (fun (type) (type)))) - (tyvardecl a (type)) (tyvardecl b (type)) - These_match - (vardecl That (fun b [[These a] b])) - (vardecl These (fun a (fun b [[These a] b]))) - (vardecl This (fun a [[These a] b])) + (vardecl + MustValidateIn (fun [Interval (con integer)] TxConstraint) ) ) + ) + (let + (nonrec) (datatypebind (datatype - (tyvardecl AdditiveMonoid (fun (type) (type))) - (tyvardecl a (type)) - AdditiveMonoid_match + (tyvardecl TxConstraints (fun (type) (fun (type) (type)))) + (tyvardecl i (type)) (tyvardecl o (type)) + TxConstraints_match (vardecl - CConsAdditiveMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [AdditiveMonoid a])) - ) - ) - ) - (termbind - (strict) - (vardecl bad_name (fun Bool (fun Bool Bool))) - (lam - ds - Bool - (lam - ds - Bool - { - [ - [ - { [ Bool_match ds ] (all dead (type) Bool) } - (abs dead (type) True) - ] - (abs dead (type) ds) - ] - (all dead (type) dead) - } + TxConstraints + (fun [List TxConstraint] (fun [List [InputConstraint i]] (fun [List [OutputConstraint o]] [[TxConstraints i] o]))) ) ) ) - (termbind - (nonstrict) - (vardecl fAdditiveMonoidBool [AdditiveMonoid Bool]) - [ [ { CConsAdditiveMonoid Bool } bad_name ] False ] - ) (datatypebind (datatype - (tyvardecl Monoid (fun (type) (type))) - (tyvardecl a (type)) - Monoid_match + (tyvardecl StateMachine (fun (type) (fun (type) (type)))) + (tyvardecl s (type)) (tyvardecl i (type)) + StateMachine_match (vardecl - CConsMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [Monoid a])) + StateMachine + (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] [[StateMachine s] i])))) ) ) ) (termbind (strict) (vardecl - p1Monoid - (all a (type) (fun [Monoid a] [(lam a (type) (fun a (fun a a))) a])) + mkStateMachine + (all s (type) (all i (type) (fun s (fun i (fun ScriptContext Bool))))) ) (abs - a + s (type) - (lam - v - [Monoid a] - [ - { - [ { Monoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) - ] - ) - ) - ) - (termbind - (strict) - (vardecl mempty (all a (type) (fun [Monoid a] a))) - (abs - a - (type) - (lam - v - [Monoid a] - [ - { [ { Monoid_match a } v ] a } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) - ] - ) + (abs i (type) (lam ds s (lam ds i (lam ds ScriptContext True)))) ) ) (let @@ -593,69 +308,48 @@ (termbind (strict) (vardecl - fFoldableNil_cfoldMap - (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [List a] m))))) + fFunctorNil_cfmap + (all a (type) (all b (type) (fun (fun a b) (fun [List a] [List b])))) ) (abs - m + a (type) (abs - a + b (type) (lam - dMonoid - [Monoid m] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - dSemigroup [(lam a (type) (fun a (fun a a))) m] - ) - [ { p1Monoid m } dMonoid ] - ) - (lam - ds - (fun a m) - (lam - ds - [List a] - { - [ - [ - { [ { Nil_match a } ds ] (all dead (type) m) } - (abs dead (type) [ { mempty m } dMonoid ]) - ] - (lam - x - a - (lam - xs - [List a] - (abs - dead - (type) - [ - [ dSemigroup [ ds x ] ] - [ - [ - [ - { { fFoldableNil_cfoldMap m } a } - dMonoid - ] - ds - ] - xs - ] - ] - ) - ) + f + (fun a b) + (lam + l + [List a] + { + [ + [ + { + [ { Nil_match a } l ] (all dead (type) [List b]) + } + (abs dead (type) { Nil b }) + ] + (lam + x + a + (lam + xs + [List a] + (abs + dead + (type) + [ + [ { Cons b } [ f x ] ] + [ [ { { fFunctorNil_cfmap a } b } f ] xs ] + ] ) - ] - (all dead (type) dead) - } - ) - ) + ) + ) + ] + (all dead (type) dead) + } ) ) ) @@ -666,67 +360,250 @@ (termbind (strict) (vardecl - p1AdditiveMonoid - (all a (type) (fun [AdditiveMonoid a] [(lam a (type) (fun a (fun a a))) a])) - ) - (abs - a - (type) - (lam - v - [AdditiveMonoid a] - [ - { - [ { AdditiveMonoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) - ] - ) + fAdditiveGroupValue_cscale + (fun (con integer) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) ) - ) - (termbind - (strict) - (vardecl zero (all a (type) (fun [AdditiveMonoid a] a))) - (abs - a - (type) + (lam + i + (con integer) (lam - v - [AdditiveMonoid a] + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - { [ { AdditiveMonoid_match a } v ] a } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + [ + { + { Tuple2_match (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + ds + ] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + c + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + { + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + c + ] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con integer)] + } + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con integer) + } + ds + ] + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + c + (con bytestring) + (lam + a + (con integer) + [ + [ + { + { + Tuple2 (con bytestring) + } + (con integer) + } + c + ] + [ + [ + (builtin multiplyInteger) + i + ] + a + ] + ] + ) + ) + ] + ) + ] + a + ] + ] + ) + ) + ] + ) + ] + ds + ] + ) + ) + ) + (termbind + (strict) + (vardecl + addInteger + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam y (con integer) [ [ (builtin addInteger) x ] y ]) + ) + ) + (termbind + (strict) + (vardecl + equalsByteString + (fun (con bytestring) (fun (con bytestring) Bool)) + ) + (lam + x + (con bytestring) + (lam + y + (con bytestring) + [ + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin equalsByteString) x ] y ] + ] + True + ] + False ] ) ) ) + (datatypebind + (datatype + (tyvardecl These (fun (type) (fun (type) (type)))) + (tyvardecl a (type)) (tyvardecl b (type)) + These_match + (vardecl That (fun b [[These a] b])) + (vardecl These (fun a (fun b [[These a] b]))) + (vardecl This (fun a [[These a] b])) + ) + ) + (datatypebind + (datatype + (tyvardecl AdditiveMonoid (fun (type) (type))) + (tyvardecl a (type)) + AdditiveMonoid_match + (vardecl + CConsAdditiveMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [AdditiveMonoid a])) + ) + ) + ) + (termbind + (strict) + (vardecl bad_name (fun Bool (fun Bool Bool))) + (lam + ds + Bool + (lam + ds + Bool + { + [ + [ + { [ Bool_match ds ] (all dead (type) Bool) } + (abs dead (type) True) + ] + (abs dead (type) ds) + ] + (all dead (type) dead) + } + ) + ) + ) + (termbind + (nonstrict) + (vardecl fAdditiveMonoidBool [AdditiveMonoid Bool]) + [ [ { CConsAdditiveMonoid Bool } bad_name ] False ] + ) + (datatypebind + (datatype + (tyvardecl Monoid (fun (type) (type))) + (tyvardecl a (type)) + Monoid_match + (vardecl + CConsMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [Monoid a])) + ) + ) + ) (termbind (strict) (vardecl - fMonoidSum - (all a (type) (fun [AdditiveMonoid a] [Monoid [(lam a (type) a) a]])) + p1Monoid + (all a (type) (fun [Monoid a] [(lam a (type) (fun a (fun a a))) a])) ) (abs a (type) (lam v - [AdditiveMonoid a] + [Monoid a] [ - [ - { CConsMonoid [(lam a (type) a) a] } - (lam - eta - [(lam a (type) a) a] - (lam - eta - [(lam a (type) a) a] - [ [ [ { p1AdditiveMonoid a } v ] eta ] eta ] - ) - ) - ] - [ { zero a } v ] + { + [ { Monoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } + (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) + ] + ) + ) + ) + (termbind + (strict) + (vardecl mempty (all a (type) (fun [Monoid a] a))) + (abs + a + (type) + (lam + v + [Monoid a] + [ + { [ { Monoid_match a } v ] a } + (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) ] ) ) @@ -736,51 +613,74 @@ (termbind (strict) (vardecl - foldr - (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) + fFoldableNil_cfoldMap + (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [List a] m))))) ) (abs - a + m (type) (abs - b + a (type) (lam - f - (fun a (fun b b)) - (lam - acc - b + dMonoid + [Monoid m] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dSemigroup [(lam a (type) (fun a (fun a a))) m] + ) + [ { p1Monoid m } dMonoid ] + ) (lam - l - [List a] - { - [ + ds + (fun a m) + (lam + ds + [List a] + { [ - { - [ { Nil_match a } l ] (all dead (type) b) - } - (abs dead (type) acc) - ] - (lam - x - a + [ + { + [ { Nil_match a } ds ] + (all dead (type) m) + } + (abs dead (type) [ { mempty m } dMonoid ]) + ] (lam - xs - [List a] - (abs - dead - (type) - [ - [ f x ] - [ [ [ { { foldr a } b } f ] acc ] xs ] - ] + x + a + (lam + xs + [List a] + (abs + dead + (type) + [ + [ dSemigroup [ ds x ] ] + [ + [ + [ + { + { fFoldableNil_cfoldMap m } + a + } + dMonoid + ] + ds + ] + xs + ] + ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) ) ) @@ -792,1521 +692,1672 @@ (termbind (strict) (vardecl - union - (all k (type) (all v (type) (all r (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] [[These v] r]])))))) + p1AdditiveMonoid + (all a (type) (fun [AdditiveMonoid a] [(lam a (type) (fun a (fun a a))) a])) ) (abs - k + a (type) - (abs + (lam v - (type) - (abs - r - (type) + [AdditiveMonoid a] + [ + { + [ { AdditiveMonoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } + (lam + v [(lam a (type) (fun a (fun a a))) a] (lam v a v) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl zero (all a (type) (fun [AdditiveMonoid a] a))) + (abs + a + (type) + (lam + v + [AdditiveMonoid a] + [ + { [ { AdditiveMonoid_match a } v ] a } (lam - dEq - [(lam a (type) (fun a (fun a Bool))) k] + v [(lam a (type) (fun a (fun a a))) a] (lam v a v) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fMonoidSum + (all a (type) (fun [AdditiveMonoid a] [Monoid [(lam a (type) a) a]])) + ) + (abs + a + (type) + (lam + v + [AdditiveMonoid a] + [ + [ + { CConsMonoid [(lam a (type) a) a] } (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] + eta + [(lam a (type) a) a] (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] - [ + eta + [(lam a (type) a) a] + [ [ [ { p1AdditiveMonoid a } v ] eta ] eta ] + ) + ) + ] + [ { zero a } v ] + ] + ) + ) + ) + (let + (rec) + (termbind + (strict) + (vardecl + foldr + (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) + ) + (abs + a + (type) + (abs + b + (type) + (lam + f + (fun a (fun b b)) + (lam + acc + b + (lam + l + [List a] + { [ [ { - { foldr [[Tuple2 k] [[These v] r]] } - [List [[Tuple2 k] [[These v] r]]] + [ { Nil_match a } l ] + (all dead (type) b) } - { Cons [[Tuple2 k] [[These v] r]] } + (abs dead (type) acc) ] - [ - [ - { - { fFunctorNil_cfmap [[Tuple2 k] r] } - [[Tuple2 k] [[These v] r]] - } - (lam - ds - [[Tuple2 k] r] + (lam + x + a + (lam + xs + [List a] + (abs + dead + (type) [ - { - [ { { Tuple2_match k } r } ds ] - [[Tuple2 k] [[These v] r]] - } - (lam - c - k - (lam - a - r - [ - [ - { - { Tuple2 k } - [[These v] r] - } - c - ] - [ { { That v } r } a ] - ] - ) - ) + [ f x ] + [ + [ [ { { foldr a } b } f ] acc ] + xs + ] ] ) - ] + ) + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ) + ) + (let + (nonrec) + (termbind + (strict) + (vardecl + union + (all k (type) (all v (type) (all r (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] [[These v] r]])))))) + ) + (abs + k + (type) + (abs + v + (type) + (abs + r + (type) + (lam + dEq + [(lam a (type) (fun a (fun a Bool))) k] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] + [ [ + [ + { + { + foldr [[Tuple2 k] [[These v] r]] + } + [List [[Tuple2 k] [[These v] r]]] + } + { Cons [[Tuple2 k] [[These v] r]] } + ] [ [ { - { foldr [[Tuple2 k] r] } - [List [[Tuple2 k] r]] + { + fFunctorNil_cfmap + [[Tuple2 k] r] + } + [[Tuple2 k] [[These v] r]] } (lam - e + ds [[Tuple2 k] r] - (lam - xs - [List [[Tuple2 k] r]] - [ - { + [ + { + [ + { { Tuple2_match k } r } + ds + ] + [[Tuple2 k] [[These v] r]] + } + (lam + c + k + (lam + a + r [ - { { Tuple2_match k } r } - e + [ + { + { Tuple2 k } + [[These v] r] + } + c + ] + [ { { That v } r } a ] ] - [List [[Tuple2 k] r]] - } + ) + ) + ] + ) + ] + [ + [ + [ + { + { foldr [[Tuple2 k] r] } + [List [[Tuple2 k] r]] + } + (lam + e + [[Tuple2 k] r] (lam - c - k - (lam - ds - r + xs + [List [[Tuple2 k] r]] + [ { [ - [ - { + { + { Tuple2_match k } + r + } + e + ] + [List [[Tuple2 k] r]] + } + (lam + c + k + (lam + ds + r + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 k] v] - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - [[Tuple2 k] v] [ - { + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 k] v] + } [ { - { - Tuple2_match - k - } - v + fMonoidSum + Bool } - ds + fAdditiveMonoidBool ] - Bool - } + ] (lam - c - k - (lam - ds - v - [ + ds + [[Tuple2 k] v] + [ + { [ - dEq - c + { + { + Tuple2_match + k + } + v + } + ds ] + Bool + } + (lam c - ] - ) + k + (lam + ds + v + [ + [ + dEq + c + ] + c + ] + ) + ) + ] ) ] - ) + ds + ] ] - ds - ] - ] - (all dead (type) [List [[Tuple2 k] r]]) - } - (abs - dead (type) xs - ) - ] - (abs - dead - (type) - [ - [ - { - Cons - [[Tuple2 k] r] + (all dead (type) [List [[Tuple2 k] r]]) } - e + (abs + dead + (type) + xs + ) ] - xs + (abs + dead + (type) + [ + [ + { + Cons + [[Tuple2 k] r] + } + e + ] + xs + ] + ) ] - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ) + ] ) - ] - ) - ) + ) + ] + { Nil [[Tuple2 k] r] } + ] + ds ] - { Nil [[Tuple2 k] r] } ] - ds ] - ] - ] - [ - [ - { - { fFunctorNil_cfmap [[Tuple2 k] v] } - [[Tuple2 k] [[These v] r]] - } - (lam - ds - [[Tuple2 k] v] + [ [ { - [ { { Tuple2_match k } v } ds ] + { + fFunctorNil_cfmap [[Tuple2 k] v] + } [[Tuple2 k] [[These v] r]] } (lam - c - k - (lam - i - v - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun [List [[Tuple2 k] r]] [[These v] r]) - ) - (lam - ds - [List [[Tuple2 k] r]] - { - [ - [ - { - [ - { - Nil_match - [[Tuple2 k] r] - } - ds - ] - (all dead (type) [[These v] r]) - } - (abs - dead - (type) + ds + [[Tuple2 k] v] + [ + { + [ + { { Tuple2_match k } v } ds + ] + [[Tuple2 k] [[These v] r]] + } + (lam + c + k + (lam + i + v + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun [List [[Tuple2 k] r]] [[These v] r]) + ) + (lam + ds + [List [[Tuple2 k] r]] + { + [ [ - { { This v } r } - i + { + [ + { + Nil_match + [[Tuple2 k] r] + } + ds + ] + (all dead (type) [[These v] r]) + } + (abs + dead + (type) + [ + { + { This v } + r + } + i + ] + ) ] - ) - ] - (lam - ds - [[Tuple2 k] r] - (lam - xs - [List [[Tuple2 k] r]] - (abs - dead - (type) - [ - { + (lam + ds + [[Tuple2 k] r] + (lam + xs + [List [[Tuple2 k] r]] + (abs + dead + (type) [ - { - { - Tuple2_match - k - } - r - } - ds - ] - [[These v] r] - } - (lam - c - k - (lam - i - r { [ - [ + { { + Tuple2_match + k + } + r + } + ds + ] + [[These v] r] + } + (lam + c + k + (lam + i + r + { + [ [ - Bool_match - [ + { [ - dEq - c + Bool_match + [ + [ + dEq + c + ] + c + ] ] - c - ] + (all dead (type) [[These v] r]) + } + (abs + dead + (type) + [ + [ + { + { + These + v + } + r + } + i + ] + i + ] + ) ] - (all dead (type) [[These v] r]) - } - (abs - dead - (type) - [ + (abs + dead + (type) [ - { - { - These - v - } - r - } - i + go + xs ] - i - ] - ) - ] - (abs - dead - (type) - [ - go - xs + ) ] - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ) + ] ) - ] + ) ) - ) - ) + ] + (all dead (type) dead) + } + ) + ) + [ + [ + { + { Tuple2 k } + [[These v] r] + } + c ] - (all dead (type) dead) - } + [ go ds ] + ] ) ) - [ - [ - { - { Tuple2 k } - [[These v] r] - } - c - ] - [ go ds ] - ] ) - ) + ] ) ] - ) + ds + ] ] - ds - ] - ] + ) + ) ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - unionVal - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]])) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + (termbind + (strict) + (vardecl + unionVal + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]])) + ) + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ [ { - [ - { - { Tuple2_match (con bytestring) } - [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ds - ] + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] } (lam - c - (con bytestring) - (lam - a - [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ + ds + [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [ + { [ { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + { Tuple2_match (con bytestring) } + [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - c + ds ] - [ + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } + (lam + c + (con bytestring) + (lam + a + [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ [ { - [ - { - { - These_match - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - a - ] + { Tuple2 (con bytestring) } [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] } - (lam - b - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + c + ] + [ + [ [ - [ - { + { + [ { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con integer)] + { + These_match + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] - } - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] + a + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + } + (lam + b + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ [ { - [ - { - { - Tuple2_match - (con bytestring) - } - (con integer) - } - ds - ] + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con integer)] + } [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] } (lam - c - (con bytestring) - (lam - a - (con integer) - [ + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { [ { { - Tuple2 + Tuple2_match (con bytestring) } - [[These (con integer)] (con integer)] - } - c - ] - [ - { - { - That - (con integer) - } (con integer) } - a + ds ] - ] - ) + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + (lam + c + (con bytestring) + (lam + a + (con integer) + [ + [ + { + { + Tuple2 + (con bytestring) + } + [[These (con integer)] (con integer)] + } + c + ] + [ + { + { + That + (con integer) + } + (con integer) + } + a + ] + ] + ) + ) + ] ) ] - ) - ] - b - ] - ) - ] - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - (lam - b - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - [ - { - { - { - union - (con bytestring) - } - (con integer) - } - (con integer) - } - equalsByteString + b ] - a - ] - b + ) ] - ) - ) - ] - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con integer)] - } - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] - } (lam - ds - [[Tuple2 (con bytestring)] (con integer)] - [ - { + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + (lam + b + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ [ - { + [ { - Tuple2_match - (con bytestring) + { + { + union + (con bytestring) + } + (con integer) + } + (con integer) } - (con integer) - } - ds + equalsByteString + ] + a ] + b + ] + ) + ) + ] + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con integer)] + } [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] } (lam - c - (con bytestring) - (lam - a - (con integer) - [ + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { [ { { - Tuple2 + Tuple2_match (con bytestring) } - [[These (con integer)] (con integer)] - } - c - ] - [ - { - { - This - (con integer) - } (con integer) } - a + ds ] - ] - ) + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + (lam + c + (con bytestring) + (lam + a + (con integer) + [ + [ + { + { + Tuple2 + (con bytestring) + } + [[These (con integer)] (con integer)] + } + c + ] + [ + { + { + This + (con integer) + } + (con integer) + } + a + ] + ] + ) + ) + ] ) ] - ) - ] - a + a + ] + ) ] - ) - ] - ] - ) + ] + ) + ) + ] ) ] - ) - ] - [ - [ [ - { - { - { union (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - equalsByteString + [ + [ + { + { + { union (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + equalsByteString + ] + ds + ] + ds ] - ds ] - ds - ] - ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - unionWith - (fun (fun (con integer) (fun (con integer) (con integer))) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]))) - ) - (lam - f - (fun (con integer) (fun (con integer) (con integer))) - (lam - ls - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (termbind + (strict) + (vardecl + unionWith + (fun (fun (con integer) (fun (con integer) (con integer))) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]))) + ) (lam - rs - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + f + (fun (con integer) (fun (con integer) (con integer))) + (lam + ls + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + rs + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ [ { - [ - { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - } - ds - ] + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } (lam - c - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - [ + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + [ + { [ { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + { Tuple2_match (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] } - c + ds ] - [ + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + c + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] [ - { + [ { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - ds - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + c + ] + [ [ { - [ - { - { - Tuple2_match - (con bytestring) - } - [[These (con integer)] (con integer)] - } - ds - ] + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } [[Tuple2 (con bytestring)] (con integer)] } (lam - c - (con bytestring) - (lam - a - [[These (con integer)] (con integer)] - [ + ds + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [ + { [ { { - Tuple2 + Tuple2_match (con bytestring) } - (con integer) + [[These (con integer)] (con integer)] } - c + ds ] - [ + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + c + (con bytestring) + (lam + a + [[These (con integer)] (con integer)] [ [ { + { + Tuple2 + (con bytestring) + } + (con integer) + } + c + ] + [ + [ [ { - { - These_match - (con integer) - } + [ + { + { + These_match + (con integer) + } + (con integer) + } + a + ] (con integer) } - a + (lam + b + (con integer) + [ + [ + f + (con + integer + 0 + ) + ] + b + ] + ) ] - (con integer) - } + (lam + a + (con integer) + (lam + b + (con integer) + [ + [ f a ] b + ] + ) + ) + ] (lam - b + a (con integer) [ - [ - f - (con - integer 0 - ) - ] - b + [ f a ] + (con integer 0 + ) ] ) ] - (lam - a - (con integer) - (lam - b - (con integer) - [ [ f a ] b ] - ) - ) ] - (lam - a - (con integer) - [ - [ f a ] - (con integer 0) - ] - ) - ] - ] - ) + ) + ) + ] ) ] - ) + a + ] ] - a - ] - ] - ) + ) + ) + ] ) ] - ) - ] - [ [ unionVal ls ] rs ] - ] + [ [ unionVal ls ] rs ] + ] + ) + ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fAdditiveGroupValue - (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - ds - [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - (lam - ds - [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - [ - [ [ unionWith addInteger ] ds ] - [ - [ fAdditiveGroupValue_cscale (con integer -1) ] ds - ] - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidTxConstraints_c - (all i (type) (all o (type) (fun [[TxConstraints i] o] (fun [[TxConstraints i] o] [[TxConstraints i] o])))) - ) - (abs - i - (type) - (abs - o - (type) + (termbind + (strict) + (vardecl + fAdditiveGroupValue + (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) (lam - l - [[TxConstraints i] o] + ds + [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (lam - r - [[TxConstraints i] o] + ds + [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [ + [ [ unionWith addInteger ] ds ] [ [ - { { TxConstraints i } o } + fAdditiveGroupValue_cscale (con integer -1) + ] + ds + ] + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fMonoidTxConstraints_c + (all i (type) (all o (type) (fun [[TxConstraints i] o] (fun [[TxConstraints i] o] [[TxConstraints i] o])))) + ) + (abs + i + (type) + (abs + o + (type) + (lam + l + [[TxConstraints i] o] + (lam + r + [[TxConstraints i] o] + [ [ - { - [ { { TxConstraints_match i } o } l ] - [List TxConstraint] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint i]] + [ + { { TxConstraints i } o } + [ + { + [ + { { TxConstraints_match i } o } l + ] + [List TxConstraint] + } (lam ds - [List [OutputConstraint o]] - [ - [ - [ - { - { foldr TxConstraint } - [List TxConstraint] - } - { Cons TxConstraint } - ] + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] [ - { + [ [ { - { - TxConstraints_match i - } - o + { foldr TxConstraint } + [List TxConstraint] } - r + { Cons TxConstraint } ] - [List TxConstraint] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint i]] + [ + { + [ + { + { + TxConstraints_match + i + } + o + } + r + ] + [List TxConstraint] + } (lam ds - [List [OutputConstraint o]] - ds + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] + ds + ) + ) ) - ) - ) + ] + ] + ds ] - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - [ - { - [ { { TxConstraints_match i } o } l ] - [List [InputConstraint i]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint i]] + ] + ] + [ + { + [ { { TxConstraints_match i } o } l ] + [List [InputConstraint i]] + } (lam ds - [List [OutputConstraint o]] - [ - [ + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] [ - { - { foldr [InputConstraint i] } - [List [InputConstraint i]] - } - { Cons [InputConstraint i] } - ] - [ - { + [ [ { - { TxConstraints_match i } - o + { + foldr + [InputConstraint i] + } + [List [InputConstraint i]] } - r + { Cons [InputConstraint i] } ] - [List [InputConstraint i]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint i]] + [ + { + [ + { + { + TxConstraints_match + i + } + o + } + r + ] + [List [InputConstraint i]] + } (lam ds - [List [OutputConstraint o]] - ds + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] + ds + ) + ) ) - ) - ) + ] + ] + ds ] - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - [ - { - [ { { TxConstraints_match i } o } l ] - [List [OutputConstraint o]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint i]] + ] + ] + [ + { + [ { { TxConstraints_match i } o } l ] + [List [OutputConstraint o]] + } (lam ds - [List [OutputConstraint o]] - [ - [ - [ - { - { foldr [OutputConstraint o] } - [List [OutputConstraint o]] - } - { Cons [OutputConstraint o] } - ] + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] [ - { + [ [ { - { TxConstraints_match i } o + { + foldr [OutputConstraint o] + } + [List [OutputConstraint o]] } - r + { Cons [OutputConstraint o] } ] - [List [OutputConstraint o]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint i]] - (lam - ds + [ + { + [ + { + { + TxConstraints_match i + } + o + } + r + ] [List [OutputConstraint o]] + } + (lam ds + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] + ds + ) + ) ) - ) - ) + ] + ] + ds ] - ] - ds - ] + ) + ) ) - ) - ) - ] - ] + ] + ] + ) + ) ) ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl FutureAccounts (type)) + (datatypebind + (datatype + (tyvardecl FutureAccounts (type)) - FutureAccounts_match - (vardecl - FutureAccounts - (fun [[Tuple2 (con bytestring)] (con bytestring)] (fun (con bytestring) (fun [[Tuple2 (con bytestring)] (con bytestring)] (fun (con bytestring) FutureAccounts)))) + FutureAccounts_match + (vardecl + FutureAccounts + (fun [[Tuple2 (con bytestring)] (con bytestring)] (fun (con bytestring) (fun [[Tuple2 (con bytestring)] (con bytestring)] (fun (con bytestring) FutureAccounts)))) + ) + ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Payouts (type)) + (datatypebind + (datatype + (tyvardecl Payouts (type)) - Payouts_match - (vardecl - Payouts - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Payouts)) - ) - ) - ) - (termbind - (strict) - (vardecl - build - (all a (type) (fun (all b (type) (fun (fun a (fun b b)) (fun b b))) [List a])) - ) - (abs - a - (type) - (lam - g - (all b (type) (fun (fun a (fun b b)) (fun b b))) - [ [ { g [List a] } { Cons a } ] { Nil a } ] + Payouts_match + (vardecl + Payouts + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Payouts)) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - mustPayToOtherScript - (all i (type) (all o (type) (fun (con bytestring) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[TxConstraints i] o]))))) - ) - (abs - i - (type) - (abs - o - (type) - (lam - vh - (con bytestring) + (termbind + (strict) + (vardecl + build + (all a (type) (fun (all b (type) (fun (fun a (fun b b)) (fun b b))) [List a])) + ) + (abs + a + (type) (lam - dv - (con data) + g + (all b (type) (fun (fun a (fun b b)) (fun b b))) + [ [ { g [List a] } { Cons a } ] { Nil a } ] + ) + ) + ) + (termbind + (strict) + (vardecl + mustPayToOtherScript + (all i (type) (all o (type) (fun (con bytestring) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[TxConstraints i] o]))))) + ) + (abs + i + (type) + (abs + o + (type) (lam - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ + vh + (con bytestring) + (lam + dv + (con data) + (lam + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - { { TxConstraints i } o } [ [ + { { TxConstraints i } o } [ - { - { foldr TxConstraint } - [List TxConstraint] - } - { Cons TxConstraint } - ] - [ - { build TxConstraint } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + [ + [ + { + { foldr TxConstraint } + [List TxConstraint] + } + { Cons TxConstraint } + ] + [ + { build TxConstraint } + (abs a - [ - [ - c [ MustIncludeDatum dv ] - ] - n - ] + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a + [ + [ + c + [ + MustIncludeDatum dv + ] + ] + n + ] + ) + ) ) - ) - ) - ] - ] - [ - { build TxConstraint } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + ] + ] + [ + { build TxConstraint } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ [ + c [ - MustPayToOtherScript - vh + [ + [ + MustPayToOtherScript + vh + ] + dv + ] + vl ] - dv ] - vl + n ] - ] - n - ] + ) + ) ) - ) - ) + ] + ] ] - ] - ] - [ - [ [ - { - { foldr [InputConstraint i] } - [List [InputConstraint i]] - } - { Cons [InputConstraint i] } + [ + [ + { + { foldr [InputConstraint i] } + [List [InputConstraint i]] + } + { Cons [InputConstraint i] } + ] + { Nil [InputConstraint i] } + ] + { Nil [InputConstraint i] } ] - { Nil [InputConstraint i] } ] - { Nil [InputConstraint i] } - ] - ] - [ - [ [ - { - { foldr [OutputConstraint o] } - [List [OutputConstraint o]] - } - { Cons [OutputConstraint o] } + [ + [ + { + { foldr [OutputConstraint o] } + [List [OutputConstraint o]] + } + { Cons [OutputConstraint o] } + ] + { Nil [OutputConstraint o] } + ] + { Nil [OutputConstraint o] } ] - { Nil [OutputConstraint o] } ] - { Nil [OutputConstraint o] } - ] - ] + ) + ) ) ) ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit) - ) - ) - (termbind - (strict) - (vardecl fToDataUnit_ctoBuiltinData (fun Unit (con data))) - (lam - ds - Unit - [ - { [ Unit_match ds ] (con data) } - [ - [ (builtin constrData) (con integer 0) ] - [ (builtin mkNilData) (con unit ()) ] - ] - ] - ) - ) - (termbind - (nonstrict) - (vardecl unitDatum (con data)) - [ fToDataUnit_ctoBuiltinData Unit ] - ) - (termbind - (strict) - (vardecl - payoutsTx - (fun Payouts (fun FutureAccounts [[TxConstraints Void] Void])) - ) - (lam - ds - Payouts - (lam - ds - FutureAccounts - [ - { [ Payouts_match ds ] [[TxConstraints Void] Void] } + (datatypebind + (datatype + (tyvardecl Unit (type)) + + Unit_match + (vardecl Unit Unit) + ) + ) + (termbind + (strict) + (vardecl + fToDataUnit_ctoBuiltinData (fun Unit (con data)) + ) + (lam + ds + Unit + [ + { [ Unit_match ds ] (con data) } + [ + [ (builtin constrData) (con integer 0) ] + [ (builtin mkNilData) (con unit ()) ] + ] + ] + ) + ) + (termbind + (nonstrict) + (vardecl unitDatum (con data)) + [ fToDataUnit_ctoBuiltinData Unit ] + ) + (termbind + (strict) + (vardecl + payoutsTx + (fun Payouts (fun FutureAccounts [[TxConstraints Void] Void])) + ) + (lam + ds + Payouts (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - [ FutureAccounts_match ds ] - [[TxConstraints Void] Void] - } + FutureAccounts + [ + { + [ Payouts_match ds ] + [[TxConstraints Void] Void] + } + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [[Tuple2 (con bytestring)] (con bytestring)] - (lam - ds - (con bytestring) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + [ FutureAccounts_match ds ] + [[TxConstraints Void] Void] + } (lam ds [[Tuple2 (con bytestring)] (con bytestring)] (lam ds (con bytestring) - [ - [ - { - { fMonoidTxConstraints_c Void } - Void - } + (lam + ds + [[Tuple2 (con bytestring)] (con bytestring)] + (lam + ds + (con bytestring) [ [ - [ + { { - { - mustPayToOtherScript - Void - } + fMonoidTxConstraints_c Void } + Void + } + [ + [ + [ + { + { + mustPayToOtherScript + Void + } + Void + } + ds + ] + unitDatum + ] ds ] - unitDatum ] - ds - ] - ] - [ - [ [ - { - { - mustPayToOtherScript Void - } - Void - } + [ + [ + { + { + mustPayToOtherScript + Void + } + Void + } + ds + ] + unitDatum + ] ds ] - unitDatum ] - ds - ] - ] + ) + ) ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - fAdditiveMonoidValue - (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - ds - [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - (lam - ds - [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - [ [ [ unionWith addInteger ] ds ] ds ] + (termbind + (strict) + (vardecl + fAdditiveMonoidValue + (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + (lam + ds + [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + (lam + ds + [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [ [ [ unionWith addInteger ] ds ] ds ] + ) + ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Margins (type)) + (datatypebind + (datatype + (tyvardecl Margins (type)) - Margins_match - (vardecl - Margins - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Margins)) + Margins_match + (vardecl + Margins + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Margins)) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidTxConstraints_cmempty - (all i (type) (all o (type) [[TxConstraints i] o])) - ) - (abs - i - (type) - (abs - o - (type) - [ - [ - [ { { TxConstraints i } o } { Nil TxConstraint } ] - { Nil [InputConstraint i] } - ] - { Nil [OutputConstraint o] } - ] + (termbind + (strict) + (vardecl + fMonoidTxConstraints_cmempty + (all i (type) (all o (type) [[TxConstraints i] o])) + ) + (abs + i + (type) + (abs + o + (type) + [ + [ + [ + { { TxConstraints i } o } + { Nil TxConstraint } + ] + { Nil [InputConstraint i] } + ] + { Nil [OutputConstraint o] } + ] + ) + ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Observation (fun (type) (type))) - (tyvardecl a (type)) - Observation_match - (vardecl - Observation - (fun a (fun (con integer) [Observation a])) + (datatypebind + (datatype + (tyvardecl Observation (fun (type) (type))) + (tyvardecl a (type)) + Observation_match + (vardecl + Observation + (fun a (fun (con integer) [Observation a])) + ) + ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl SignedMessage (fun (type) (type))) - (tyvardecl a (type)) - SignedMessage_match - (vardecl - SignedMessage - (fun (con bytestring) (fun (con bytestring) (fun (con data) [SignedMessage a]))) + (datatypebind + (datatype + (tyvardecl SignedMessage (fun (type) (type))) + (tyvardecl a (type)) + SignedMessage_match + (vardecl + SignedMessage + (fun (con bytestring) (fun (con bytestring) (fun (con data) [SignedMessage a]))) + ) + ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Role (type)) + (datatypebind + (datatype + (tyvardecl Role (type)) - Role_match - (vardecl Long Role) (vardecl Short Role) - ) - ) - (datatypebind - (datatype - (tyvardecl FutureAction (type)) - - FutureAction_match - (vardecl - AdjustMargin - (fun Role (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] FutureAction)) - ) - (vardecl - Settle - (fun [SignedMessage [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] FutureAction) + Role_match + (vardecl Long Role) (vardecl Short Role) + ) ) - (vardecl - SettleEarly - (fun [SignedMessage [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] FutureAction) + (datatypebind + (datatype + (tyvardecl FutureAction (type)) + + FutureAction_match + (vardecl + AdjustMargin + (fun Role (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] FutureAction)) + ) + (vardecl + Settle + (fun [SignedMessage [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] FutureAction) + ) + (vardecl + SettleEarly + (fun [SignedMessage [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] FutureAction) + ) + ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl FutureState (type)) + (datatypebind + (datatype + (tyvardecl FutureState (type)) - FutureState_match - (vardecl Finished FutureState) - (vardecl Running (fun Margins FutureState)) - ) - ) - (termbind - (strict) - (vardecl - adjustMargin - (fun Role (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun Margins Margins))) - ) - (lam - role - Role - (lam - value - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + FutureState_match + (vardecl Finished FutureState) + (vardecl Running (fun Margins FutureState)) + ) + ) + (termbind + (strict) + (vardecl + adjustMargin + (fun Role (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun Margins Margins))) + ) (lam - accounts - Margins - { - [ - [ - { - [ Role_match role ] - (all dead (type) Margins) - } - (abs - dead - (type) + role + Role + (lam + value + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + accounts + Margins + { + [ [ - { [ Margins_match accounts ] Margins } - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ Role_match role ] + (all dead (type) Margins) + } + (abs + dead + (type) + [ + { [ Margins_match accounts ] Margins } + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + [ Margins ds ] + [ + [ + [ unionWith addInteger ] ds + ] + value + ] + ] + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + { [ Margins_match accounts ] Margins } (lam ds [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ Margins ds ] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - [ [ unionWith addInteger ] ds ] - value + [ + Margins + [ + [ + [ unionWith addInteger ] ds + ] + value + ] + ] + ds ] - ] + ) ) - ) - ] - ) - ] - (abs - dead - (type) - [ - { [ Margins_match accounts ] Margins } - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - Margins - [ - [ [ unionWith addInteger ] ds ] - value - ] - ] - ds - ] - ) + ] ) ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ) ) ) - ) - ) - (termbind - (strict) - (vardecl from (all a (type) (fun a [Interval a]))) - (abs - a - (type) - (lam - s - a - [ - [ - { Interval a } - [ [ { LowerBound a } [ { Finite a } s ] ] True ] - ] - [ [ { UpperBound a } { PosInf a } ] True ] - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fFromDataInteger_cfromBuiltinData - (fun (con data) [Maybe (con integer)]) - ) - (lam - d - (con data) - [ - [ - [ + (termbind + (strict) + (vardecl from (all a (type) (fun a [Interval a]))) + (abs + a + (type) + (lam + s + a [ [ + { Interval a } [ - [ - { - (builtin chooseData) - (fun Unit [Maybe (con integer)]) - } - d - ] - (lam ds Unit { Nothing (con integer) }) + [ { LowerBound a } [ { Finite a } s ] ] True ] - (lam ds Unit { Nothing (con integer) }) ] - (lam ds Unit { Nothing (con integer) }) + [ [ { UpperBound a } { PosInf a } ] True ] ] - (lam - ds - Unit - [ - { Just (con integer) } [ (builtin unIData) d ] - ] - ) - ] - (lam ds Unit { Nothing (con integer) }) - ] - Unit - ] - ) - ) - (termbind - (strict) - (vardecl - fFromDataObservation_cfromBuiltinData - (all a (type) (fun [(lam a (type) (fun (con data) [Maybe a])) a] (fun (con data) [Maybe [Observation a]]))) - ) - (abs - a - (type) - (lam - dFromData - [(lam a (type) (fun (con data) [Maybe a])) a] + ) + ) + ) + (termbind + (strict) + (vardecl + fFromDataInteger_cfromBuiltinData + (fun (con data) [Maybe (con integer)]) + ) (lam d (con data) @@ -2319,632 +2370,739 @@ [ { (builtin chooseData) - (fun Unit [Maybe [Observation a]]) + (fun Unit [Maybe (con integer)]) } d ] - (lam - ds - Unit - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - tup - [[(con pair) (con integer)] [(con list) (con data)]] - ) - [ (builtin unConstrData) d ] - ) - (termbind - (nonstrict) - (vardecl l [(con list) (con data)] - ) - [ - { - { - (builtin sndPair) - (con integer) - } - [(con list) (con data)] - } - tup - ] - ) - (termbind - (nonstrict) - (vardecl l [(con list) (con data)] - ) - [ - { - (builtin tailList) (con data) - } - l - ] - ) - (termbind - (nonstrict) - (vardecl - nilCase [Maybe [Observation a]] - ) + (lam ds Unit { Nothing (con integer) }) + ] + (lam ds Unit { Nothing (con integer) }) + ] + (lam ds Unit { Nothing (con integer) }) + ] + (lam + ds + Unit + [ + { Just (con integer) } + [ (builtin unIData) d ] + ] + ) + ] + (lam ds Unit { Nothing (con integer) }) + ] + Unit + ] + ) + ) + (termbind + (strict) + (vardecl + fFromDataObservation_cfromBuiltinData + (all a (type) (fun [(lam a (type) (fun (con data) [Maybe a])) a] (fun (con data) [Maybe [Observation a]]))) + ) + (abs + a + (type) + (lam + dFromData + [(lam a (type) (fun (con data) [Maybe a])) a] + (lam + d + (con data) + [ + [ + [ + [ + [ + [ + [ { - [ + (builtin chooseData) + (fun Unit [Maybe [Observation a]]) + } + d + ] + (lam + ds + Unit + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + tup + [[(con pair) (con integer)] [(con list) (con data)]] + ) + [ (builtin unConstrData) d ] + ) + (termbind + (nonstrict) + (vardecl + l [(con list) (con data)] + ) + [ + { + { + (builtin sndPair) + (con integer) + } + [(con list) (con data)] + } + tup + ] + ) + (termbind + (nonstrict) + (vardecl + l [(con list) (con data)] + ) [ { + (builtin tailList) + (con data) + } + l + ] + ) + (termbind + (nonstrict) + (vardecl + nilCase + [Maybe [Observation a]] + ) + { + [ [ - { Maybe_match a } - [ - dFromData - [ - { - (builtin headList) - (con data) - } - l - ] - ] - ] - (all dead (type) [Maybe [Observation a]]) - } - (lam - ipv - a - (abs - dead - (type) - { + { [ + { Maybe_match a } [ - { + dFromData + [ + { + (builtin + headList + ) + (con data) + } + l + ] + ] + ] + (all dead (type) [Maybe [Observation a]]) + } + (lam + ipv + a + (abs + dead + (type) + { + [ [ { - Maybe_match - (con integer) - } - [ - fFromDataInteger_cfromBuiltinData [ { - (builtin - headList - ) - (con data) + Maybe_match + (con integer) } - l + [ + fFromDataInteger_cfromBuiltinData + [ + { + (builtin + headList + ) + (con data) + } + l + ] + ] ] - ] - ] - (all dead (type) [Maybe [Observation a]]) - } - (lam - ipv - (con integer) - (abs - dead - (type) - [ - { - Just - [Observation a] - } - [ + (all dead (type) [Maybe [Observation a]]) + } + (lam + ipv + (con integer) + (abs + dead + (type) [ { - Observation - a + Just + [Observation a] } - ipv + [ + [ + { + Observation + a + } + ipv + ] + ipv + ] ] - ipv - ] - ] + ) + ) + ] + (abs + dead + (type) + { + Nothing + [Observation a] + } ) - ) - ] - (abs - dead - (type) - { - Nothing - [Observation a] - } - ) - ] - (all dead (type) dead) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { + Nothing + [Observation a] } ) - ) - ] - (abs - dead - (type) - { Nothing [Observation a] } + ] + (all dead (type) dead) + } + ) + (termbind + (nonstrict) + (vardecl + lvl [Maybe [Observation a]] ) - ] - (all dead (type) dead) - } - ) - (termbind - (nonstrict) - (vardecl - lvl [Maybe [Observation a]] - ) - [ - [ [ [ - { - { - (builtin chooseList) - (con data) - } - (fun Unit [Maybe [Observation a]]) - } [ - { - (builtin tailList) - (con data) - } - l + [ + { + { + (builtin + chooseList + ) + (con data) + } + (fun Unit [Maybe [Observation a]]) + } + [ + { + (builtin tailList) + (con data) + } + l + ] + ] + (lam ds Unit nilCase) ] - ] - (lam ds Unit nilCase) - ] - (lam - ds - Unit - { Nothing [Observation a] } - ) - ] - Unit - ] - ) - (termbind - (nonstrict) - (vardecl - lvl [Maybe [Observation a]] - ) - [ - [ - [ - [ - { - { - (builtin chooseList) - (con data) - } - (fun Unit [Maybe [Observation a]]) - } - l - ] - (lam - ds - Unit - { - Nothing [Observation a] - } - ) - ] - (lam ds Unit lvl) - ] - Unit - ] - ) - (termbind - (nonstrict) - (vardecl x [Maybe [Observation a]] - ) - [ - [ - [ - [ - { + (lam + ds + Unit { - (builtin chooseList) - (con data) + Nothing + [Observation a] } - (fun Unit [Maybe [Observation a]]) - } - l + ) ] - (lam - ds - Unit - { - Nothing [Observation a] - } - ) + Unit ] - (lam ds Unit lvl) - ] - Unit - ] - ) - [ - [ - [ + ) + (termbind + (nonstrict) + (vardecl + lvl [Maybe [Observation a]] + ) [ - { - (builtin ifThenElse) - (fun (con unit) [Maybe [Observation a]]) - } [ [ - (builtin equalsInteger) [ { { - (builtin fstPair) - (con integer) + (builtin + chooseList + ) + (con data) } - [(con list) (con data)] + (fun Unit [Maybe [Observation a]]) } - tup + l ] + (lam + ds + Unit + { + Nothing + [Observation a] + } + ) ] - (con integer 0) + (lam ds Unit lvl) ] + Unit ] - (lam ds (con unit) x) - ] - (lam - ds - (con unit) - { Nothing [Observation a] } - ) - ] - (con unit ()) - ] - ) - ) - ] - (lam ds Unit { Nothing [Observation a] }) - ] - (lam ds Unit { Nothing [Observation a] }) - ] - (lam ds Unit { Nothing [Observation a] }) - ] - (lam ds Unit { Nothing [Observation a] }) - ] - Unit - ] - ) - ) - ) - ) - (termbind - (strict) - (vardecl - fFromDataTuple2_cfromBuiltinData - (all a (type) (all b (type) (fun [(lam a (type) (fun (con data) [Maybe a])) a] (fun [(lam a (type) (fun (con data) [Maybe a])) b] (fun (con data) [Maybe [[Tuple2 a] b]]))))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - dFromData - [(lam a (type) (fun (con data) [Maybe a])) a] - (lam - dFromData - [(lam a (type) (fun (con data) [Maybe a])) b] - (lam - d - (con data) - [ - [ - [ - [ - [ - [ - [ - { - (builtin chooseData) - (fun Unit [Maybe [[Tuple2 a] b]]) - } - d - ] - (lam - ds - Unit - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - tup - [[(con pair) (con integer)] [(con list) (con data)]] - ) - [ (builtin unConstrData) d ] ) (termbind (nonstrict) (vardecl - l [(con list) (con data)] + x [Maybe [Observation a]] ) [ - { - { - (builtin sndPair) - (con integer) - } - [(con list) (con data)] - } - tup + [ + [ + [ + { + { + (builtin + chooseList + ) + (con data) + } + (fun Unit [Maybe [Observation a]]) + } + l + ] + (lam + ds + Unit + { + Nothing + [Observation a] + } + ) + ] + (lam ds Unit lvl) + ] + Unit ] ) - (termbind - (nonstrict) - (vardecl - l [(con list) (con data)] - ) + [ [ - { - (builtin tailList) - (con data) - } - l - ] - ) - (termbind - (nonstrict) - (vardecl - nilCase - [Maybe [[Tuple2 a] b]] - ) - { [ [ { + (builtin ifThenElse) + (fun (con unit) [Maybe [Observation a]]) + } + [ [ - { Maybe_match a } + (builtin + equalsInteger + ) [ - dFromData - [ + { { (builtin - headList + fstPair ) - (con data) + (con integer) } - l - ] + [(con list) (con data)] + } + tup ] ] - (all dead (type) [Maybe [[Tuple2 a] b]]) + (con integer 0) + ] + ] + (lam ds (con unit) x) + ] + (lam + ds + (con unit) + { + Nothing [Observation a] + } + ) + ] + (con unit ()) + ] + ) + ) + ] + (lam + ds Unit { Nothing [Observation a] } + ) + ] + (lam ds Unit { Nothing [Observation a] } + ) + ] + (lam ds Unit { Nothing [Observation a] }) + ] + (lam ds Unit { Nothing [Observation a] }) + ] + Unit + ] + ) + ) + ) + ) + (termbind + (strict) + (vardecl + fFromDataTuple2_cfromBuiltinData + (all a (type) (all b (type) (fun [(lam a (type) (fun (con data) [Maybe a])) a] (fun [(lam a (type) (fun (con data) [Maybe a])) b] (fun (con data) [Maybe [[Tuple2 a] b]]))))) + ) + (abs + a + (type) + (abs + b + (type) + (lam + dFromData + [(lam a (type) (fun (con data) [Maybe a])) a] + (lam + dFromData + [(lam a (type) (fun (con data) [Maybe a])) b] + (lam + d + (con data) + [ + [ + [ + [ + [ + [ + [ + { + (builtin chooseData) + (fun Unit [Maybe [[Tuple2 a] b]]) + } + d + ] + (lam + ds + Unit + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + tup + [[(con pair) (con integer)] [(con list) (con data)]] + ) + [ + (builtin unConstrData) d + ] + ) + (termbind + (nonstrict) + (vardecl + l + [(con list) (con data)] + ) + [ + { + { + (builtin sndPair) + (con integer) + } + [(con list) (con data)] } - (lam - ipv - a - (abs - dead - (type) + tup + ] + ) + (termbind + (nonstrict) + (vardecl + l + [(con list) (con data)] + ) + [ + { + (builtin tailList) + (con data) + } + l + ] + ) + (termbind + (nonstrict) + (vardecl + nilCase + [Maybe [[Tuple2 a] b]] + ) + { + [ + [ { [ + { + Maybe_match a + } [ - { + dFromData + [ + { + (builtin + headList + ) + (con data) + } + l + ] + ] + ] + (all dead (type) [Maybe [[Tuple2 a] b]]) + } + (lam + ipv + a + (abs + dead + (type) + { + [ [ { - Maybe_match - b - } - [ - dFromData [ { - (builtin - headList - ) - (con data) + Maybe_match + b } - l - ] - ] - ] - (all dead (type) [Maybe [[Tuple2 a] b]]) - } - (lam - ipv - b - (abs - dead - (type) - [ - { - Just - [[Tuple2 a] b] - } - [ [ - { + dFromData + [ { - Tuple2 - a + (builtin + headList + ) + (con data) } - b - } - ipv + l + ] ] - ipv ] - ] + (all dead (type) [Maybe [[Tuple2 a] b]]) + } + (lam + ipv + b + (abs + dead + (type) + [ + { + Just + [[Tuple2 a] b] + } + [ + [ + { + { + Tuple2 + a + } + b + } + ipv + ] + ipv + ] + ] + ) + ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 a] b] + } ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 a] b] + } + ) + ] + (all dead (type) dead) + } + ) + (termbind + (nonstrict) + (vardecl + lvl + [Maybe [[Tuple2 a] b]] + ) + [ + [ + [ + [ + { + { + (builtin + chooseList ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 a] b] - } - ) + (con data) + } + (fun Unit [Maybe [[Tuple2 a] b]]) + } + [ + { + (builtin + tailList + ) + (con data) + } + l ] - (all dead (type) dead) + ] + (lam ds Unit nilCase + ) + ] + (lam + ds + Unit + { + Nothing + [[Tuple2 a] b] } ) - ) + ] + Unit ] - (abs - dead - (type) - { - Nothing [[Tuple2 a] b] - } + ) + (termbind + (nonstrict) + (vardecl + lvl + [Maybe [[Tuple2 a] b]] ) - ] - (all dead (type) dead) - } - ) - (termbind - (nonstrict) - (vardecl - lvl [Maybe [[Tuple2 a] b]] - ) - [ - [ [ [ - { - { - (builtin - chooseList - ) - (con data) - } - (fun Unit [Maybe [[Tuple2 a] b]]) - } [ - { - (builtin tailList) - (con data) - } - l + [ + { + { + (builtin + chooseList + ) + (con data) + } + (fun Unit [Maybe [[Tuple2 a] b]]) + } + l + ] + (lam + ds + Unit + { + Nothing + [[Tuple2 a] b] + } + ) ] + (lam ds Unit lvl) ] - (lam ds Unit nilCase) - ] - (lam - ds Unit - { - Nothing [[Tuple2 a] b] - } + ] + ) + (termbind + (nonstrict) + (vardecl + x [Maybe [[Tuple2 a] b]] ) - ] - Unit - ] - ) - (termbind - (nonstrict) - (vardecl - lvl [Maybe [[Tuple2 a] b]] - ) - [ - [ [ [ - { - { - (builtin - chooseList - ) - (con data) - } - (fun Unit [Maybe [[Tuple2 a] b]]) - } - l + [ + [ + { + { + (builtin + chooseList + ) + (con data) + } + (fun Unit [Maybe [[Tuple2 a] b]]) + } + l + ] + (lam + ds + Unit + { + Nothing + [[Tuple2 a] b] + } + ) + ] + (lam ds Unit lvl) ] - (lam - ds - Unit - { - Nothing - [[Tuple2 a] b] - } - ) + Unit ] - (lam ds Unit lvl) - ] - Unit - ] - ) - (termbind - (nonstrict) - (vardecl - x [Maybe [[Tuple2 a] b]] - ) - [ + ) [ [ [ - { + [ { (builtin - chooseList + ifThenElse ) - (con data) + (fun (con unit) [Maybe [[Tuple2 a] b]]) } - (fun Unit [Maybe [[Tuple2 a] b]]) - } - l + [ + [ + (builtin + equalsInteger + ) + [ + { + { + (builtin + fstPair + ) + (con integer) + } + [(con list) (con data)] + } + tup + ] + ] + (con integer 0) + ] + ] + (lam ds (con unit) x) ] (lam ds - Unit + (con unit) { Nothing [[Tuple2 a] b] } ) ] - (lam ds Unit lvl) + (con unit ()) ] - Unit - ] + ) ) - [ - [ - [ - [ - { - (builtin ifThenElse) - (fun (con unit) [Maybe [[Tuple2 a] b]]) - } - [ - [ - (builtin - equalsInteger - ) - [ - { - { - (builtin - fstPair - ) - (con integer) - } - [(con list) (con data)] - } - tup - ] - ] - (con integer 0) - ] - ] - (lam ds (con unit) x) - ] - (lam - ds - (con unit) - { Nothing [[Tuple2 a] b] } - ) - ] - (con unit ()) - ] + ] + (lam + ds + Unit + { Nothing [[Tuple2 a] b] } ) + ] + (lam + ds Unit { Nothing [[Tuple2 a] b] } ) ] (lam @@ -2953,1758 +3111,1945 @@ ] (lam ds Unit { Nothing [[Tuple2 a] b] }) ] - (lam ds Unit { Nothing [[Tuple2 a] b] }) + Unit ] - (lam ds Unit { Nothing [[Tuple2 a] b] }) - ] - Unit - ] + ) + ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fFromDataBuiltinByteString_cfromBuiltinData - (fun (con data) [Maybe (con bytestring)]) - ) - (lam - d - (con data) - [ - [ + (termbind + (strict) + (vardecl + fFromDataBuiltinByteString_cfromBuiltinData + (fun (con data) [Maybe (con bytestring)]) + ) + (lam + d + (con data) [ [ [ [ [ - { - (builtin chooseData) - (fun Unit [Maybe (con bytestring)]) - } - d + [ + [ + { + (builtin chooseData) + (fun Unit [Maybe (con bytestring)]) + } + d + ] + (lam + ds Unit { Nothing (con bytestring) } + ) + ] + (lam ds Unit { Nothing (con bytestring) }) ] (lam ds Unit { Nothing (con bytestring) }) ] (lam ds Unit { Nothing (con bytestring) }) ] - (lam ds Unit { Nothing (con bytestring) }) + (lam + ds + Unit + [ + { Just (con bytestring) } + [ (builtin unBData) d ] + ] + ) ] - (lam ds Unit { Nothing (con bytestring) }) - ] - (lam - ds Unit - [ - { Just (con bytestring) } - [ (builtin unBData) d ] - ] - ) + ] + ) + ) + (termbind + (nonstrict) + (vardecl + fFromDataValue + (fun (con data) [Maybe [[Tuple2 (con bytestring)] (con integer)]]) + ) + [ + [ + { + { + fFromDataTuple2_cfromBuiltinData + (con bytestring) + } + (con integer) + } + fFromDataBuiltinByteString_cfromBuiltinData + ] + fFromDataInteger_cfromBuiltinData ] - Unit - ] - ) - ) - (termbind - (nonstrict) - (vardecl - fFromDataValue - (fun (con data) [Maybe [[Tuple2 (con bytestring)] (con integer)]]) - ) - [ - [ - { - { - fFromDataTuple2_cfromBuiltinData (con bytestring) - } - (con integer) - } - fFromDataBuiltinByteString_cfromBuiltinData - ] - fFromDataInteger_cfromBuiltinData - ] - ) - (termbind - (strict) - (vardecl - fFromDataNil_cfromBuiltinData - (all a (type) (fun [(lam a (type) (fun (con data) [Maybe a])) a] (fun (con data) [Maybe [List a]]))) - ) - (abs - a - (type) - (lam - dFromData - [(lam a (type) (fun (con data) [Maybe a])) a] - (lam - d - (con data) - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun [(con list) (con data)] [Maybe [List a]]) - ) - (lam - l - [(con list) (con data)] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl x [Maybe [List a]]) - [ { Just [List a] } { Nil a } ] + ) + (termbind + (strict) + (vardecl + fFromDataNil_cfromBuiltinData + (all a (type) (fun [(lam a (type) (fun (con data) [Maybe a])) a] (fun (con data) [Maybe [List a]]))) + ) + (abs + a + (type) + (lam + dFromData + [(lam a (type) (fun (con data) [Maybe a])) a] + (lam + d + (con data) + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun [(con list) (con data)] [Maybe [List a]]) ) - [ - [ + (lam + l + [(con list) (con data)] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl x [Maybe [List a]]) + [ { Just [List a] } { Nil a } ] + ) [ [ - { - { - (builtin chooseList) (con data) - } - (fun Unit [Maybe [List a]]) - } - l - ] - (lam ds Unit x) - ] - (lam - ds - Unit - { [ [ { - [ - { Maybe_match a } - [ - dFromData - [ - { - (builtin headList) - (con data) - } - l - ] - ] - ] - (all dead (type) [Maybe [List a]]) + { + (builtin chooseList) + (con data) + } + (fun Unit [Maybe [List a]]) } - (lam - a - a - (abs - dead - (type) + l + ] + (lam ds Unit x) + ] + (lam + ds + Unit + { + [ + [ { [ + { Maybe_match a } [ - { + dFromData + [ + { + (builtin headList) + (con data) + } + l + ] + ] + ] + (all dead (type) [Maybe [List a]]) + } + (lam + a + a + (abs + dead + (type) + { + [ [ { - Maybe_match - [List a] - } - [ - go [ { - (builtin - tailList - ) - (con data) + Maybe_match + [List a] } - l + [ + go + [ + { + (builtin + tailList + ) + (con data) + } + l + ] + ] ] - ] + (all dead (type) [Maybe [List a]]) + } + (lam + ipv + [List a] + (abs + dead + (type) + [ + { + Just + [List a] + } + [ + [ + { + Cons a + } + a + ] + ipv + ] + ] + ) + ) ] - (all dead (type) [Maybe [List a]]) - } - (lam - ipv - [List a] (abs dead (type) - [ - { - Just [List a] - } - [ - [ - { Cons a } a - ] - ipv - ] - ] + { + Nothing [List a] + } ) - ) - ] - (abs - dead - (type) - { Nothing [List a] } - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { Nothing [List a] } ) - ) - ] - (abs - dead (type) { Nothing [List a] } - ) - ] - (all dead (type) dead) - } - ) - ] - Unit - ] + ] + (all dead (type) dead) + } + ) + ] + Unit + ] + ) + ) ) - ) - ) - [ - [ [ [ [ [ [ - { - (builtin chooseData) - (fun Unit [Maybe [List a]]) - } - d + [ + [ + { + (builtin chooseData) + (fun Unit [Maybe [List a]]) + } + d + ] + (lam ds Unit { Nothing [List a] }) + ] + (lam ds Unit { Nothing [List a] }) ] - (lam ds Unit { Nothing [List a] }) + (lam + ds + Unit + [ go [ (builtin unListData) d ] ] + ) ] (lam ds Unit { Nothing [List a] }) ] - (lam - ds - Unit - [ go [ (builtin unListData) d ] ] - ) + (lam ds Unit { Nothing [List a] }) ] - (lam ds Unit { Nothing [List a] }) + Unit ] - (lam ds Unit { Nothing [List a] }) - ] - Unit - ] + ) + ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fFromDataValue - (fun (con data) [Maybe [List [[Tuple2 (con bytestring)] (con integer)]]]) - ) - (lam - eta - (con data) - [ + (termbind + (strict) + (vardecl + fFromDataValue + (fun (con data) [Maybe [List [[Tuple2 (con bytestring)] (con integer)]]]) + ) + (lam + eta + (con data) + [ + [ + { + fFromDataNil_cfromBuiltinData + [[Tuple2 (con bytestring)] (con integer)] + } + fFromDataValue + ] + eta + ] + ) + ) + (termbind + (nonstrict) + (vardecl + fFromDataValue + (fun (con data) [Maybe [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) + ) [ - { - fFromDataNil_cfromBuiltinData - [[Tuple2 (con bytestring)] (con integer)] - } + [ + { + { + fFromDataTuple2_cfromBuiltinData + (con bytestring) + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + fFromDataBuiltinByteString_cfromBuiltinData + ] fFromDataValue ] - eta - ] - ) - ) - (termbind - (nonstrict) - (vardecl - fFromDataValue - (fun (con data) [Maybe [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) - ) - [ - [ - { - { - fFromDataTuple2_cfromBuiltinData (con bytestring) - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - fFromDataBuiltinByteString_cfromBuiltinData - ] - fFromDataValue - ] - ) - (termbind - (strict) - (vardecl - fFromDataValue - (fun (con data) [Maybe [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]]) - ) - (lam - eta - (con data) - [ + ) + (termbind + (strict) + (vardecl + fFromDataValue + (fun (con data) [Maybe [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]]) + ) + (lam + eta + (con data) + [ + [ + { + fFromDataNil_cfromBuiltinData + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + fFromDataValue + ] + eta + ] + ) + ) + (termbind + (nonstrict) + (vardecl + futureStateMachine + (fun (con data) [Maybe [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]]) + ) [ { - fFromDataNil_cfromBuiltinData - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + fFromDataObservation_cfromBuiltinData + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } fFromDataValue ] - eta - ] - ) - ) - (termbind - (nonstrict) - (vardecl - futureStateMachine - (fun (con data) [Maybe [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]]) - ) - [ - { - fFromDataObservation_cfromBuiltinData - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - fFromDataValue - ] - ) - (termbind - (strict) - (vardecl - totalMargin - (fun Margins [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) - ) - (lam - ds - Margins - [ - { - [ Margins_match ds ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } + ) + (termbind + (strict) + (vardecl + totalMargin + (fun Margins [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) + ) (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ [ fAdditiveMonoidValue ds ] ds ] - ) + Margins + [ + { + [ Margins_match ds ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ [ fAdditiveMonoidValue ds ] ds ] + ) + ) + ] ) - ] - ) - ) - (datatypebind - (datatype - (tyvardecl Either (fun (type) (fun (type) (type)))) - (tyvardecl a (type)) (tyvardecl b (type)) - Either_match - (vardecl Left (fun a [[Either a] b])) - (vardecl Right (fun b [[Either a] b])) - ) - ) - (datatypebind - (datatype - (tyvardecl SignedMessageCheckError (type)) - - SignedMessageCheckError_match - (vardecl - DatumMissing - (fun (con bytestring) SignedMessageCheckError) ) - (vardecl DatumNotEqualToExpected SignedMessageCheckError + (datatypebind + (datatype + (tyvardecl Either (fun (type) (fun (type) (type)))) + (tyvardecl a (type)) (tyvardecl b (type)) + Either_match + (vardecl Left (fun a [[Either a] b])) + (vardecl Right (fun b [[Either a] b])) + ) ) - (vardecl DecodingError SignedMessageCheckError) - (vardecl - SignatureMismatch - (fun (con bytestring) (fun (con bytestring) (fun (con bytestring) SignedMessageCheckError))) + (datatypebind + (datatype + (tyvardecl SignedMessageCheckError (type)) + + SignedMessageCheckError_match + (vardecl + DatumMissing + (fun (con bytestring) SignedMessageCheckError) + ) + (vardecl + DatumNotEqualToExpected SignedMessageCheckError + ) + (vardecl DecodingError SignedMessageCheckError) + (vardecl + SignatureMismatch + (fun (con bytestring) (fun (con bytestring) (fun (con bytestring) SignedMessageCheckError))) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - mustHashDatum - (all i (type) (all o (type) (fun (con bytestring) (fun (con data) [[TxConstraints i] o])))) - ) - (abs - i - (type) - (abs - o - (type) - (lam - dvh - (con bytestring) - (lam - x - (con data) - [ - [ + (termbind + (strict) + (vardecl + mustHashDatum + (all i (type) (all o (type) (fun (con bytestring) (fun (con data) [[TxConstraints i] o])))) + ) + (abs + i + (type) + (abs + o + (type) + (lam + dvh + (con bytestring) + (lam + x + (con data) [ - { { TxConstraints i } o } [ - { build TxConstraint } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + [ + { { TxConstraints i } o } + [ + { build TxConstraint } + (abs a - [ - [ c [ [ MustHashDatum dvh ] x ] ] - n - ] + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a + [ + [ + c + [ [ MustHashDatum dvh ] x ] + ] + n + ] + ) + ) ) - ) - ) + ] + ] + { Nil [InputConstraint i] } ] + { Nil [OutputConstraint o] } ] - { Nil [InputConstraint i] } - ] - { Nil [OutputConstraint o] } - ] + ) + ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - checkHashConstraints - (all a (type) (all i (type) (all o (type) (fun [(lam a (type) (fun (con data) [Maybe a])) a] (fun [SignedMessage a] [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]]))))) - ) - (abs - a - (type) - (abs - i - (type) + (termbind + (strict) + (vardecl + checkHashConstraints + (all a (type) (all i (type) (all o (type) (fun [(lam a (type) (fun (con data) [Maybe a])) a] (fun [SignedMessage a] [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]]))))) + ) (abs - o + a (type) - (lam - dFromData - [(lam a (type) (fun (con data) [Maybe a])) a] - (lam - ds - [SignedMessage a] - [ - { - [ { SignedMessage_match a } ds ] - [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]] - } + (abs + i + (type) + (abs + o + (type) + (lam + dFromData + [(lam a (type) (fun (con data) [Maybe a])) a] (lam ds - (con bytestring) - (lam - ds - (con bytestring) + [SignedMessage a] + [ + { + [ { SignedMessage_match a } ds ] + [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]] + } (lam ds - (con data) - { - [ - [ - { + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con data) + { + [ [ - { Maybe_match a } - [ dFromData ds ] + { + [ + { Maybe_match a } + [ dFromData ds ] + ] + (all dead (type) [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]]) + } + (lam + a + a + (abs + dead + (type) + [ + { + { + Right + SignedMessageCheckError + } + [[Tuple2 a] [[TxConstraints i] o]] + } + [ + [ + { + { Tuple2 a } + [[TxConstraints i] o] + } + a + ] + [ + [ + { + { + mustHashDatum + i + } + o + } + ds + ] + ds + ] + ] + ] + ) + ) ] - (all dead (type) [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]]) - } - (lam - a - a (abs dead (type) [ - { + [ { - Right - SignedMessageCheckError + (builtin trace) + [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]] } - [[Tuple2 a] [[TxConstraints i] o]] - } + (con string "Li") + ] [ - [ + { { - { Tuple2 a } - [[TxConstraints i] o] + Left + SignedMessageCheckError } - a - ] - [ - [ - { - { mustHashDatum i } - o - } - ds - ] - ds - ] + [[Tuple2 a] [[TxConstraints i] o]] + } + DecodingError ] ] ) - ) - ] - (abs - dead - (type) - [ - [ - { - (builtin trace) - [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]] - } - (con string "Li") - ] - [ - { - { - Left - SignedMessageCheckError - } - [[Tuple2 a] [[TxConstraints i] o]] - } - DecodingError - ] ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] + ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - verifySignedMessageConstraints - (all a (type) (all i (type) (all o (type) (fun [(lam a (type) (fun (con data) [Maybe a])) a] (fun (con bytestring) (fun [SignedMessage a] [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]])))))) - ) - (abs - a - (type) - (abs - i - (type) + (termbind + (strict) + (vardecl + verifySignedMessageConstraints + (all a (type) (all i (type) (all o (type) (fun [(lam a (type) (fun (con data) [Maybe a])) a] (fun (con bytestring) (fun [SignedMessage a] [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]])))))) + ) (abs - o + a (type) - (lam - dFromData - [(lam a (type) (fun (con data) [Maybe a])) a] - (lam - pk - (con bytestring) + (abs + i + (type) + (abs + o + (type) (lam - s - [SignedMessage a] - [ - { - [ { SignedMessage_match a } s ] - [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]] - } + dFromData + [(lam a (type) (fun (con data) [Maybe a])) a] + (lam + pk + (con bytestring) (lam - ds - (con bytestring) - (lam - ds - (con bytestring) + s + [SignedMessage a] + [ + { + [ { SignedMessage_match a } s ] + [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]] + } (lam ds - (con data) - { - [ - [ - { + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con data) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin ifThenElse) - Bool - } [ [ - [ + { (builtin - verifySignature + ifThenElse ) - pk + Bool + } + [ + [ + [ + (builtin + verifySignature + ) + pk + ] + ds + ] + ds ] - ds ] - ds + True ] + False ] - True ] - False - ] + (all dead (type) [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]]) + } + (abs + dead + (type) + [ + [ + { + { + { + checkHashConstraints + a + } + i + } + o + } + dFromData + ] + s + ] + ) ] - (all dead (type) [[Either SignedMessageCheckError] [[Tuple2 a] [[TxConstraints i] o]]]) - } - (abs - dead - (type) - [ + (abs + dead + (type) [ { { - { - checkHashConstraints - a - } - i + Left + SignedMessageCheckError } - o + [[Tuple2 a] [[TxConstraints i] o]] } - dFromData - ] - s - ] - ) - ] - (abs - dead - (type) - [ - { - { - Left - SignedMessageCheckError - } - [[Tuple2 a] [[TxConstraints i] o]] - } - [ - [ - [ SignatureMismatch ds ] - pk + [ + [ + [ + SignatureMismatch ds + ] + pk + ] + ds + ] ] - ds - ] + ) ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] + ) ) ) ) ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Future (type)) + (datatypebind + (datatype + (tyvardecl Future (type)) - Future_match - (vardecl - Future - (fun (con integer) (fun (con integer) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Future)))))) + Future_match + (vardecl + Future + (fun (con integer) (fun (con integer) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Future)))))) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - requiredMargin - (fun Future (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - ds - Future - (lam - spotPrice - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - [ Future_match ds ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } + (termbind + (strict) + (vardecl + requiredMargin + (fun Future (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + (lam + ds + Future (lam - ds - (con integer) - (lam - ds - (con integer) + spotPrice + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + [ Future_match ds ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (con integer) (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (con integer) (lam ds - (con bytestring) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ [ unionWith addInteger ] ds ] - [ - [ fAdditiveGroupValue_cscale ds ] + (lam + ds + (con bytestring) + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - [ fAdditiveGroupValue spotPrice ] - ds + [ [ unionWith addInteger ] ds ] + [ + [ + fAdditiveGroupValue_cscale ds + ] + [ + [ + fAdditiveGroupValue + spotPrice + ] + ds + ] + ] ] - ] - ] + ) + ) ) ) ) ) - ) + ] ) - ] - ) - ) - ) - (datatypebind - (datatype - (tyvardecl MultiplicativeMonoid (fun (type) (type))) - (tyvardecl a (type)) - MultiplicativeMonoid_match - (vardecl - CConsMultiplicativeMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [MultiplicativeMonoid a])) + ) ) - ) - ) - (termbind - (strict) - (vardecl - p1MultiplicativeMonoid - (all a (type) (fun [MultiplicativeMonoid a] [(lam a (type) (fun a (fun a a))) a])) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - { - [ { MultiplicativeMonoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } - (lam - v [(lam a (type) (fun a (fun a a))) a] (lam v a v) + (datatypebind + (datatype + (tyvardecl MultiplicativeMonoid (fun (type) (type))) + (tyvardecl a (type)) + MultiplicativeMonoid_match + (vardecl + CConsMultiplicativeMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [MultiplicativeMonoid a])) ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - one (all a (type) (fun [MultiplicativeMonoid a] a)) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - { [ { MultiplicativeMonoid_match a } v ] a } + (termbind + (strict) + (vardecl + p1MultiplicativeMonoid + (all a (type) (fun [MultiplicativeMonoid a] [(lam a (type) (fun a (fun a a))) a])) + ) + (abs + a + (type) (lam - v [(lam a (type) (fun a (fun a a))) a] (lam v a v) - ) - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidProduct - (all a (type) (fun [MultiplicativeMonoid a] [Monoid [(lam a (type) a) a]])) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - [ - { CConsMonoid [(lam a (type) a) a] } - (lam - eta - [(lam a (type) a) a] + v + [MultiplicativeMonoid a] + [ + { + [ { MultiplicativeMonoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } (lam - eta - [(lam a (type) a) a] - [ - [ [ { p1MultiplicativeMonoid a } v ] eta ] - eta - ] + v + [(lam a (type) (fun a (fun a a))) a] + (lam v a v) ) - ) - ] - [ { one a } v ] - ] + ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl bad_name (fun Bool (fun Bool Bool))) - (lam - ds - Bool - (lam - x - Bool - { - [ + (termbind + (strict) + (vardecl + one (all a (type) (fun [MultiplicativeMonoid a] a)) + ) + (abs + a + (type) + (lam + v + [MultiplicativeMonoid a] [ - { [ Bool_match ds ] (all dead (type) Bool) } - (abs dead (type) x) + { [ { MultiplicativeMonoid_match a } v ] a } + (lam + v + [(lam a (type) (fun a (fun a a))) a] + (lam v a v) + ) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + ) + ) ) - ) - ) - (termbind - (nonstrict) - (vardecl - fMultiplicativeMonoidBool [MultiplicativeMonoid Bool] - ) - [ [ { CConsMultiplicativeMonoid Bool } bad_name ] True ] - ) - (termbind - (strict) - (vardecl - checkPred - (fun (fun [[These (con integer)] (con integer)] Bool) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) - ) - (lam - f - (fun [[These (con integer)] (con integer)] Bool) - (lam - l - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - r - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - dMonoid [Monoid [(lam a (type) a) Bool]] - ) + (termbind + (strict) + (vardecl + fMonoidProduct + (all a (type) (fun [MultiplicativeMonoid a] [Monoid [(lam a (type) a) a]])) + ) + (abs + a + (type) + (lam + v + [MultiplicativeMonoid a] + [ [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool + { CConsMonoid [(lam a (type) a) a] } + (lam + eta + [(lam a (type) a) a] + (lam + eta + [(lam a (type) a) a] + [ + [ + [ { p1MultiplicativeMonoid a } v ] eta + ] + eta + ] + ) + ) ] - ) - [ + [ { one a } v ] + ] + ) + ) + ) + (termbind + (strict) + (vardecl bad_name (fun Bool (fun Bool Bool))) + (lam + ds + Bool + (lam + x + Bool + { [ [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - } + { [ Bool_match ds ] (all dead (type) Bool) } + (abs dead (type) x) + ] + (abs dead (type) False) + ] + (all dead (type) dead) + } + ) + ) + ) + (termbind + (nonstrict) + (vardecl + fMultiplicativeMonoidBool + [MultiplicativeMonoid Bool] + ) + [ + [ { CConsMultiplicativeMonoid Bool } bad_name ] True + ] + ) + (termbind + (strict) + (vardecl + checkPred + (fun (fun [[These (con integer)] (con integer)] Bool) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) + ) + (lam + f + (fun [[These (con integer)] (con integer)] Bool) + (lam + l + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + r + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dMonoid [Monoid [(lam a (type) a) Bool]] + ) [ { fMonoidProduct Bool } fMultiplicativeMonoidBool ] - ] - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + ) + [ [ - { - [ + [ + { { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] } - ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool ] - [(lam a (type) a) Bool] - } + ] (lam ds - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - [ + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + [ + { [ - [ + { { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + Tuple2_match (con bytestring) } - dMonoid - ] - (lam - ds - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + [ [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - [[These (con integer)] (con integer)] + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] } - ds - ] - [(lam a (type) a) Bool] - } + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + dMonoid + ] (lam ds - (con bytestring) - (lam - a - [[These (con integer)] (con integer)] - [ f a ] - ) + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + [[These (con integer)] (con integer)] + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[These (con integer)] (con integer)] + [ f a ] + ) + ) + ] ) ] - ) - ] - a - ] - ) + a + ] + ) + ) + ] ) ] - ) - ] - [ [ unionVal l ] r ] - ] + [ [ unionVal l ] r ] + ] + ) + ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - checkBinRel - (fun (fun (con integer) (fun (con integer) Bool)) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) - ) - (lam - f - (fun (con integer) (fun (con integer) Bool)) - (lam - l - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (termbind + (strict) + (vardecl + checkBinRel + (fun (fun (con integer) (fun (con integer) Bool)) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) + ) (lam - r - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ + f + (fun (con integer) (fun (con integer) Bool)) + (lam + l + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + r + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - checkPred - (lam - k - [[These (con integer)] (con integer)] + [ [ - [ + checkPred + (lam + k + [[These (con integer)] (con integer)] [ - { + [ [ { - { These_match (con integer) } - (con integer) + [ + { + { + These_match (con integer) + } + (con integer) + } + k + ] + Bool } - k + (lam + b + (con integer) + [ [ f (con integer 0) ] b ] + ) ] - Bool - } + (lam + a + (con integer) + (lam b (con integer) [ [ f a ] b ] + ) + ) + ] (lam - b + a (con integer) - [ [ f (con integer 0) ] b ] + [ [ f a ] (con integer 0) ] ) ] - (lam - a - (con integer) - (lam b (con integer) [ [ f a ] b ]) - ) - ] - (lam - a - (con integer) - [ [ f a ] (con integer 0) ] ) ] - ) + l + ] + r ] - l - ] - r - ] + ) + ) ) ) - ) - ) - (termbind - (strict) - (vardecl - isZero - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl dMonoid [Monoid [(lam a (type) a) Bool]]) - [ - { fMonoidProduct Bool } fMultiplicativeMonoidBool - ] + (termbind + (strict) + (vardecl + isZero + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool) ) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dMonoid [Monoid [(lam a (type) a) Bool]] + ) [ { fMonoidProduct Bool } fMultiplicativeMonoidBool ] - ] - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ) + [ [ - { - [ + [ + { { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] } - ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool ] - [(lam a (type) a) Bool] - } + ] (lam ds - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { [ + { + { Tuple2_match (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] (con integer)] - } - dMonoid - ] - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - (con integer) + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] } - ds - ] - [(lam a (type) a) Bool] - } + [[Tuple2 (con bytestring)] (con integer)] + } + dMonoid + ] (lam ds - (con bytestring) - (lam - a - (con integer) - [ + [[Tuple2 (con bytestring)] (con integer)] + [ + { [ - [ + { { - (builtin ifThenElse) - Bool + Tuple2_match + (con bytestring) } + (con integer) + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + (con integer) + [ [ [ - (builtin - equalsInteger - ) - (con integer 0) + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + (con integer 0) + ] + a + ] ] - a + True ] + False ] - True - ] - False - ] - ) + ) + ) + ] ) ] - ) - ] - a - ] - ) + a + ] + ) + ) + ] ) ] - ) - ] - ds - ] - ) - ) - ) - (termbind - (strict) - (vardecl - lessThanInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ - [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanInteger) x ] y ] + ds ] - True - ] - False - ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - lt - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool)) - ) - (lam - l - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - r - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - { - [ + (termbind + (strict) + (vardecl + lessThanInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { - [ Bool_match [ isZero l ] ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ - [ - { - [ Bool_match [ isZero r ] ] - (all dead (type) Bool) - } - (abs dead (type) False) - ] - (abs - dead - (type) - [ - [ [ checkBinRel lessThanInteger ] l ] - r - ] - ) - ] - (all dead (type) dead) - } - ) + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanInteger) x ] y ] + ] + True + ] + False ] - (abs - dead - (type) - [ [ [ checkBinRel lessThanInteger ] l ] r ] - ) - ] - (all dead (type) dead) - } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - violatingRole - (fun Future (fun Margins (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [Maybe Role]))) - ) - (lam - future - Future - (lam - margins - Margins + (termbind + (strict) + (vardecl + lt + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool)) + ) (lam - spotPrice + l [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - minMargin - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - ) - [ [ requiredMargin future ] spotPrice ] - ) + (lam + r + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] { [ [ { - [ - Bool_match + [ Bool_match [ isZero l ] ] + (all dead (type) Bool) + } + (abs + dead + (type) + { [ [ - lt + { + [ Bool_match [ isZero r ] ] + (all dead (type) Bool) + } + (abs dead (type) False) + ] + (abs + dead + (type) [ - { - [ Margins_match margins ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - ds - ) - ) + [ + [ checkBinRel lessThanInteger ] + l + ] + r ] - ] - minMargin + ) ] - ] - (all dead (type) [Maybe Role]) - } - (abs dead (type) [ { Just Role } Short ]) + (all dead (type) dead) + } + ) ] (abs dead (type) - { + [ [ [ checkBinRel lessThanInteger ] l ] r ] + ) + ] + (all dead (type) dead) + } + ) + ) + ) + (termbind + (strict) + (vardecl + violatingRole + (fun Future (fun Margins (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [Maybe Role]))) + ) + (lam + future + Future + (lam + margins + Margins + (lam + spotPrice + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + minMargin + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ) + [ [ requiredMargin future ] spotPrice ] + ) + { + [ [ - [ - { + { + [ + Bool_match [ - Bool_match [ + lt [ - lt - [ - { - [ Margins_match margins ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } + { + [ Margins_match margins ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - ds - ) + ds ) - ] + ) ] - minMargin ] + minMargin ] - (all dead (type) [Maybe Role]) - } - (abs - dead (type) [ { Just Role } Long ] - ) - ] - (abs dead (type) { Nothing Role }) + ] + (all dead (type) [Maybe Role]) + } + (abs dead (type) [ { Just Role } Short ] + ) ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + [ + lt + [ + { + [ + Margins_match + margins + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ds + ) + ) + ] + ] + minMargin + ] + ] + (all dead (type) [Maybe Role]) + } + (abs + dead + (type) + [ { Just Role } Long ] + ) + ] + (abs dead (type) { Nothing Role }) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - transition - (fun Future (fun FutureAccounts (fun [State FutureState] (fun FutureAction [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]])))) - ) - (lam - future - Future - (lam - owners - FutureAccounts + (termbind + (strict) + (vardecl + transition + (fun Future (fun FutureAccounts (fun [State FutureState] (fun FutureAction [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]])))) + ) (lam - ds - [State FutureState] + future + Future (lam - i - FutureAction - [ - { - [ Future_match future ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] - } + owners + FutureAccounts + (lam + ds + [State FutureState] (lam - ds - (con integer) - (lam - ds - (con integer) + i + FutureAction + [ + { + [ Future_match future ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (con integer) (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (con integer) (lam ds - (con bytestring) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - [ - { State_match FutureState } ds - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] - } + (lam + ds + (con bytestring) (lam ds - FutureState - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ { [ - [ - { + { + State_match FutureState + } + ds + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] + } + (lam + ds + FutureState + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ [ - FutureState_match ds + { + [ + FutureState_match + ds + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]]) + } + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] + } + ) ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]]) - } - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] - } - ) - ] - (lam - accounts - Margins - (abs - dead - (type) - [ - [ + (lam + accounts + Margins + (abs + dead + (type) [ - { + [ [ - FutureAction_match - i - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] - } - (lam - role - Role - (lam - topUp - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] - } + { [ + FutureAction_match + i + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] + } + (lam + role + Role + (lam + topUp + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State FutureState] - } - { - { - fMonoidTxConstraints_cmempty - Void - } - Void + Just + [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] } - ] - [ [ - { - State - FutureState - } [ - Running + { + { + Tuple2 + [[TxConstraints Void] Void] + } + [State FutureState] + } + { + { + fMonoidTxConstraints_cmempty + Void + } + Void + } + ] + [ [ + { + State + FutureState + } [ + Running [ - adjustMargin - role + [ + [ + adjustMargin + role + ] + topUp + ] + accounts ] - topUp ] - accounts ] - ] - ] - [ - [ [ - unionWith - addInteger + [ + [ + unionWith + addInteger + ] + topUp + ] + [ + totalMargin + accounts + ] ] - topUp - ] - [ - totalMargin - accounts ] ] ] - ] - ] - ) - ) - ] - (lam - ov - [SignedMessage [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] - [ - [ - { + ) + ) + ] + (lam + ov + [SignedMessage [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] + [ [ { - { - Either_match - SignedMessageCheckError - } - [[Tuple2 [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] [[TxConstraints Void] Void]] - } - [ [ - [ + { { - { + Either_match + SignedMessageCheckError + } + [[Tuple2 [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] [[TxConstraints Void] Void]] + } + [ + [ + [ { - verifySignedMessageConstraints - [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + { + { + verifySignedMessageConstraints + [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + Void + } + Void } - Void - } - Void - } - futureStateMachine + futureStateMachine + ] + ds + ] + ov ] - ds ] - ov - ] - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] - } - (lam - x - SignedMessageCheckError - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] - } - ) - ] - (lam - y - [[Tuple2 [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] [[TxConstraints Void] Void]] - [ - { - [ + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] + } + (lam + x + SignedMessageCheckError { - { - Tuple2_match - [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - [[TxConstraints Void] Void] + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] } - y - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] - } + ) + ] (lam - ds - [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - (lam - oracleConstraints - [[TxConstraints Void] Void] - [ - { - [ + y + [[Tuple2 [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] [[TxConstraints Void] Void]] + [ + { + [ + { { - Observation_match - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Tuple2_match + [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] } - ds - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] - } + [[TxConstraints Void] Void] + } + y + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] + } + (lam + ds + [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - (con integer) + oracleConstraints + [[TxConstraints Void] Void] + [ { [ - [ - { + { + Observation_match + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ds + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] + } + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsInteger - ) - ds + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + ds + ] + ds + ] ] - ds + True ] + False ] - True ] - False - ] - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]]) - } - (abs - dead - (type) - (let - (nonrec - ) - (termbind - (nonstrict - ) - (vardecl - r - [[TxConstraints Void] Void] - ) - [ + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]]) + } + (abs + dead + (type) + (let + (nonrec + ) + (termbind + (nonstrict + ) + (vardecl + r + [[TxConstraints Void] Void] + ) + [ + [ + { + { + fMonoidTxConstraints_c + Void + } + Void + } + oracleConstraints + ] + [ + [ + payoutsTx + [ + { + [ + Margins_match + accounts + ] + Payouts + } + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec + ) + (termbind + (nonstrict + ) + (vardecl + delta + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ) + [ + [ + fAdditiveGroupValue_cscale + ds + ] + [ + [ + fAdditiveGroupValue + ds + ] + ds + ] + ] + ) + [ + [ + Payouts + [ + [ + fAdditiveGroupValue + ds + ] + delta + ] + ] + [ + [ + fAdditiveMonoidValue + ds + ] + delta + ] + ] + ) + ) + ) + ] + ] + owners + ] + ] + ) [ { - { - fMonoidTxConstraints_c - Void - } - Void + Just + [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] } - oracleConstraints - ] - [ [ - payoutsTx [ { - [ - Margins_match - accounts - ] - Payouts + { + Tuple2 + [[TxConstraints Void] Void] + } + [State FutureState] } - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec - ) - (termbind - (nonstrict - ) - (vardecl - delta - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - ) + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + [ [ [ - fAdditiveGroupValue_cscale - ds + { + { + foldr + TxConstraint + } + [List TxConstraint] + } + { + Cons + TxConstraint + } ] [ - [ - fAdditiveGroupValue + { + [ + { + { + TxConstraints_match + Void + } + Void + } + r + ] + [List TxConstraint] + } + (lam ds - ] - ds + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] + ds + ) + ) + ) ] ] - ) + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a + [ + [ + c + [ + MustValidateIn + [ + { + from + (con integer) + } + ds + ] + ] + ] + n + ] + ) + ) + ) + ] + ] + ] + [ [ [ - Payouts - [ - [ - fAdditiveGroupValue - ds - ] - delta - ] + { + { + foldr + [InputConstraint Void] + } + [List [InputConstraint Void]] + } + { + Cons + [InputConstraint Void] + } ] [ - [ - fAdditiveMonoidValue + { + [ + { + { + TxConstraints_match + Void + } + Void + } + r + ] + [List [InputConstraint Void]] + } + (lam ds - ] - delta + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] + ds + ) + ) + ) ] ] - ) - ) - ) - ] - ] - owners - ] - ] - ) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] - } - [ - [ - { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State FutureState] - } - [ - [ - [ - { - { - TxConstraints - Void - } - Void - } + { + Nil + [InputConstraint Void] + } + ] + ] [ [ [ { { foldr - TxConstraint + [OutputConstraint Void] } - [List TxConstraint] + [List [OutputConstraint Void]] } { Cons - TxConstraint + [OutputConstraint Void] } ] [ @@ -4719,7 +5064,7 @@ } r ] - [List TxConstraint] + [List [OutputConstraint Void]] } (lam ds @@ -4736,624 +5081,503 @@ ) ] ] - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n - a - [ - [ - c - [ - MustValidateIn - [ - { - from - (con integer) - } - ds - ] - ] - ] - n - ] - ) - ) - ) - ] - ] - ] - [ - [ - [ - { - { - foldr - [InputConstraint Void] - } - [List [InputConstraint Void]] - } - { - Cons - [InputConstraint Void] - } - ] - [ - { - [ - { - { - TxConstraints_match - Void - } - Void - } - r - ] - [List [InputConstraint Void]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] - (lam - ds - [List [OutputConstraint Void]] - ds - ) - ) - ) - ] + { + Nil + [OutputConstraint Void] + } ] - { - Nil - [InputConstraint Void] - } ] ] [ [ - [ - { - { - foldr - [OutputConstraint Void] - } - [List [OutputConstraint Void]] - } - { - Cons - [OutputConstraint Void] - } - ] - [ - { - [ - { - { - TxConstraints_match - Void - } - Void - } - r - ] - [List [OutputConstraint Void]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] - (lam - ds - [List [OutputConstraint Void]] - ds - ) - ) - ) - ] + { + State + FutureState + } + Finished ] { Nil - [OutputConstraint Void] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } ] ] ] - [ - [ - { - State - FutureState - } - Finished - ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - ] - ] + ) + ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] + } ) - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] - } - ) - ] - (all dead (type) dead) - } - ) + ] + (all dead (type) dead) + } + ) + ) + ] ) - ] - ) + ) + ] ) ] ) ] - ) - ] - (lam - ov - [SignedMessage [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] - [ - [ - { + (lam + ov + [SignedMessage [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] + [ [ { - { - Either_match - SignedMessageCheckError - } - [[Tuple2 [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] [[TxConstraints Void] Void]] - } - [ [ - [ + { { - { + Either_match + SignedMessageCheckError + } + [[Tuple2 [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] [[TxConstraints Void] Void]] + } + [ + [ + [ { - verifySignedMessageConstraints - [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + { + { + verifySignedMessageConstraints + [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + Void + } + Void } - Void - } - Void - } - futureStateMachine + futureStateMachine + ] + ds + ] + ov ] - ds ] - ov - ] - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] - } - (lam - x - SignedMessageCheckError - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] - } - ) - ] - (lam - y - [[Tuple2 [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] [[TxConstraints Void] Void]] - [ - { - [ + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] + } + (lam + x + SignedMessageCheckError { - { - Tuple2_match - [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - [[TxConstraints Void] Void] + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] } - y - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] - } + ) + ] (lam - ds - [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - (lam - oracleConstraints - [[TxConstraints Void] Void] - [ - { - [ + y + [[Tuple2 [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]] [[TxConstraints Void] Void]] + [ + { + [ + { { - Observation_match - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Tuple2_match + [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] } - ds - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] - } + [[TxConstraints Void] Void] + } + y + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] + } + (lam + ds + [Observation [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - (con integer) + oracleConstraints + [[TxConstraints Void] Void] + [ { [ - [ - { + { + Observation_match + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ds + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]] + } + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + (con integer) + { + [ [ { - Maybe_match - Role - } - [ [ + { + Maybe_match + Role + } [ - violatingRole - future + [ + [ + violatingRole + future + ] + accounts + ] + ds ] - accounts ] - ds - ] - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]]) - } - (lam - vRole - Role - (abs - dead - (type) - { - [ - [ - { + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]]) + } + (lam + vRole + Role + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - lessThanEqualsInteger - ) - ds + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + ds + ] + ds + ] ] - ds + False ] + True ] - False ] - True - ] - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]]) - } - (abs - dead - (type) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]]]) } - [ + (abs + dead + (type) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State FutureState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] } [ [ { { - fMonoidTxConstraints_c - Void + Tuple2 + [[TxConstraints Void] Void] } - Void + [State FutureState] } - { + [ [ - [ + { { - [ - Role_match - vRole - ] - (all dead (type) [[TxConstraints Void] Void]) + fMonoidTxConstraints_c + Void } - (abs - dead - (type) + Void + } + { + [ [ - [ + { + [ + Role_match + vRole + ] + (all dead (type) [[TxConstraints Void] Void]) + } + (abs + dead + (type) [ - { - { - mustPayToOtherScript - Void - } - Void - } [ - { + [ + { + { + mustPayToOtherScript + Void + } + Void + } [ - FutureAccounts_match - owners - ] - (con bytestring) - } - (lam - ds - [[Tuple2 (con bytestring)] (con bytestring)] - (lam - ds - (con bytestring) + { + [ + FutureAccounts_match + owners + ] + (con bytestring) + } (lam ds [[Tuple2 (con bytestring)] (con bytestring)] (lam ds (con bytestring) - ds + (lam + ds + [[Tuple2 (con bytestring)] (con bytestring)] + (lam + ds + (con bytestring) + ds + ) + ) ) ) + ] + ] + unitDatum + ] + [ + { + [ + Margins_match + accounts + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + [ + fAdditiveMonoidValue + ds + ] + ds + ] ) ) ] ] - unitDatum - ] + ) + ] + (abs + dead + (type) [ - { + [ [ - Margins_match - accounts - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + { + mustPayToOtherScript + Void + } + Void + } [ - [ - fAdditiveMonoidValue + { + [ + FutureAccounts_match + owners + ] + (con bytestring) + } + (lam ds - ] - ds + [[Tuple2 (con bytestring)] (con bytestring)] + (lam + ds + (con bytestring) + (lam + ds + [[Tuple2 (con bytestring)] (con bytestring)] + (lam + ds + (con bytestring) + ds + ) + ) + ) + ) ] - ) - ) - ] - ] - ) - ] - (abs - dead - (type) - [ - [ - [ - { - { - mustPayToOtherScript - Void - } - Void - } + ] + unitDatum + ] [ { [ - FutureAccounts_match - owners + Margins_match + accounts ] - (con bytestring) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } (lam ds - [[Tuple2 (con bytestring)] (con bytestring)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - (con bytestring) - (lam - ds - [[Tuple2 (con bytestring)] (con bytestring)] - (lam - ds - (con bytestring) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + [ + fAdditiveMonoidValue ds - ) - ) + ] + ds + ] ) ) ] ] - unitDatum - ] - [ - { - [ - Margins_match - accounts - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - fAdditiveMonoidValue - ds - ] - ds - ] - ) - ) - ] + ) ] - ) + (all dead (type) dead) + } ] - (all dead (type) dead) + oracleConstraints + ] + ] + [ + [ + { + State + FutureState + } + Finished + ] + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } ] - oracleConstraints - ] - ] - [ - [ - { - State - FutureState - } - Finished ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } ] - ] + ) ] - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] - } - ) - ] - (all dead (type) dead) + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] } ) - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State FutureState]] - } - ) - ] - (all dead (type) dead) - } - ) + ] + (all dead (type) dead) + } + ) + ) + ] ) - ] - ) + ) + ] ) ] ) ] ) - ] - ) - ) - ] - (all dead (type) dead) - } - ) + ) + ] + (all dead (type) dead) + } + ) + ) + ] ) - ] + ) ) ) ) ) - ) + ] ) - ] + ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - futureStateMachine - (fun Future (fun FutureAccounts [[StateMachine FutureState] FutureAction])) - ) - (lam - ft - Future - (lam - fos - FutureAccounts - [ - [ + (termbind + (strict) + (vardecl + futureStateMachine + (fun Future (fun FutureAccounts [[StateMachine FutureState] FutureAction])) + ) + (lam + ft + Future + (lam + fos + FutureAccounts [ [ - { { StateMachine FutureState } FutureAction } - [ [ transition ft ] fos ] - ] - (lam - ds - FutureState - { + [ [ - [ - { - [ FutureState_match ds ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (lam ipv Margins (abs dead (type) False)) + { + { StateMachine FutureState } + FutureAction + } + [ [ transition ft ] fos ] ] - (all dead (type) dead) + (lam + ds + FutureState + { + [ + [ + { + [ FutureState_match ds ] + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (lam + ipv Margins (abs dead (type) False) + ) + ] + (all dead (type) dead) + } + ) + ] + { + { mkStateMachine FutureState } FutureAction } - ) + ] + { Nothing ThreadToken } ] - { { mkStateMachine FutureState } FutureAction } - ] - { Nothing ThreadToken } - ] + ) + ) ) + futureStateMachine ) ) - futureStateMachine ) ) ) diff --git a/plutus-use-cases/test/Spec/gameStateMachine.pir b/plutus-use-cases/test/Spec/gameStateMachine.pir index e9d5c674c7f..aa2cf9909e6 100644 --- a/plutus-use-cases/test/Spec/gameStateMachine.pir +++ b/plutus-use-cases/test/Spec/gameStateMachine.pir @@ -326,357 +326,72 @@ ) ) ) - (datatypebind - (datatype - (tyvardecl TxConstraint (type)) - - TxConstraint_match - (vardecl MustBeSignedBy (fun (con bytestring) TxConstraint)) - (vardecl - MustHashDatum (fun (con bytestring) (fun (con data) TxConstraint)) - ) - (vardecl MustIncludeDatum (fun (con data) TxConstraint)) - (vardecl - MustMintValue - (fun (con bytestring) (fun (con data) (fun (con bytestring) (fun (con integer) TxConstraint)))) - ) - (vardecl - MustPayToOtherScript - (fun (con bytestring) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint))) - ) - (vardecl - MustPayToPubKey - (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint)) - ) - (vardecl - MustProduceAtLeast - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) - ) - (vardecl - MustSpendAtLeast - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) - ) - (vardecl MustSpendPubKeyOutput (fun TxOutRef TxConstraint)) - (vardecl - MustSpendScriptOutput (fun TxOutRef (fun (con data) TxConstraint)) - ) - (vardecl MustValidateIn (fun [Interval (con integer)] TxConstraint)) - ) - ) - (datatypebind - (datatype - (tyvardecl TxConstraints (fun (type) (fun (type) (type)))) - (tyvardecl i (type)) (tyvardecl o (type)) - TxConstraints_match - (vardecl - TxConstraints - (fun [List TxConstraint] (fun [List [InputConstraint i]] (fun [List [OutputConstraint o]] [[TxConstraints i] o]))) - ) - ) - ) - (datatypebind (datatype (tyvardecl Void (type)) Void_match )) - (datatypebind - (datatype - (tyvardecl StateMachine (fun (type) (fun (type) (type)))) - (tyvardecl s (type)) (tyvardecl i (type)) - StateMachine_match - (vardecl - StateMachine - (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] [[StateMachine s] i])))) - ) - ) - ) (let (rec) - (termbind - (strict) - (vardecl - fFunctorNil_cfmap - (all a (type) (all b (type) (fun (fun a b) (fun [List a] [List b])))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - f - (fun a b) - (lam - l - [List a] - { - [ - [ - { [ { Nil_match a } l ] (all dead (type) [List b]) } - (abs dead (type) { Nil b }) - ] - (lam - x - a - (lam - xs - [List a] - (abs - dead - (type) - [ - [ { Cons b } [ f x ] ] - [ [ { { fFunctorNil_cfmap a } b } f ] xs ] - ] - ) - ) - ) - ] - (all dead (type) dead) - } - ) - ) + (datatypebind + (datatype + (tyvardecl TxConstraint (type)) + + TxConstraint_match + (vardecl MustBeSignedBy (fun (con bytestring) TxConstraint)) + (vardecl + MustHashDatum + (fun (con bytestring) (fun (con data) TxConstraint)) ) - ) - ) - (let - (nonrec) - (termbind - (strict) + (vardecl MustIncludeDatum (fun (con data) TxConstraint)) (vardecl - fAdditiveGroupValue_cscale - (fun (con integer) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + MustMintValue + (fun (con bytestring) (fun (con data) (fun (con bytestring) (fun (con integer) TxConstraint)))) ) - (lam - i - (con integer) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - [ - { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - c - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - c - ] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con integer)] - } - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] - [ - { - [ - { - { Tuple2_match (con bytestring) } - (con integer) - } - ds - ] - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - c - (con bytestring) - (lam - a - (con integer) - [ - [ - { - { Tuple2 (con bytestring) } - (con integer) - } - c - ] - [ - [ (builtin multiplyInteger) i ] - a - ] - ] - ) - ) - ] - ) - ] - a - ] - ] - ) - ) - ] - ) - ] - ds - ] - ) + (vardecl + MustPayToOtherScript + (fun (con bytestring) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint))) ) - ) - (termbind - (strict) (vardecl - addInteger (fun (con integer) (fun (con integer) (con integer))) + MustPayToPubKey + (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint)) ) - (lam - x - (con integer) - (lam y (con integer) [ [ (builtin addInteger) x ] y ]) + (vardecl + MustProduceAtLeast + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) ) - ) - (termbind - (strict) + (vardecl MustSatisfyAnyOf (fun [List TxConstraint] TxConstraint)) (vardecl - equalsByteString - (fun (con bytestring) (fun (con bytestring) Bool)) + MustSpendAtLeast + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) ) - (lam - x - (con bytestring) - (lam - y - (con bytestring) - [ - [ - [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsByteString) x ] y ] - ] - True - ] - False - ] - ) + (vardecl MustSpendPubKeyOutput (fun TxOutRef TxConstraint)) + (vardecl + MustSpendScriptOutput + (fun TxOutRef (fun (con data) TxConstraint)) ) - ) - (datatypebind - (datatype - (tyvardecl These (fun (type) (fun (type) (type)))) - (tyvardecl a (type)) (tyvardecl b (type)) - These_match - (vardecl That (fun b [[These a] b])) - (vardecl These (fun a (fun b [[These a] b]))) - (vardecl This (fun a [[These a] b])) + (vardecl + MustValidateIn (fun [Interval (con integer)] TxConstraint) ) ) + ) + (let + (nonrec) (datatypebind (datatype - (tyvardecl AdditiveMonoid (fun (type) (type))) - (tyvardecl a (type)) - AdditiveMonoid_match + (tyvardecl TxConstraints (fun (type) (fun (type) (type)))) + (tyvardecl i (type)) (tyvardecl o (type)) + TxConstraints_match (vardecl - CConsAdditiveMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [AdditiveMonoid a])) - ) - ) - ) - (termbind - (strict) - (vardecl bad_name (fun Bool (fun Bool Bool))) - (lam - ds - Bool - (lam - ds - Bool - { - [ - [ - { [ Bool_match ds ] (all dead (type) Bool) } - (abs dead (type) True) - ] - (abs dead (type) ds) - ] - (all dead (type) dead) - } + TxConstraints + (fun [List TxConstraint] (fun [List [InputConstraint i]] (fun [List [OutputConstraint o]] [[TxConstraints i] o]))) ) ) ) - (termbind - (nonstrict) - (vardecl fAdditiveMonoidBool [AdditiveMonoid Bool]) - [ [ { CConsAdditiveMonoid Bool } bad_name ] False ] - ) + (datatypebind (datatype (tyvardecl Void (type)) Void_match )) (datatypebind (datatype - (tyvardecl Monoid (fun (type) (type))) - (tyvardecl a (type)) - Monoid_match + (tyvardecl StateMachine (fun (type) (fun (type) (type)))) + (tyvardecl s (type)) (tyvardecl i (type)) + StateMachine_match (vardecl - CConsMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [Monoid a])) - ) - ) - ) - (termbind - (strict) - (vardecl - p1Monoid - (all a (type) (fun [Monoid a] [(lam a (type) (fun a (fun a a))) a])) - ) - (abs - a - (type) - (lam - v - [Monoid a] - [ - { - [ { Monoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) - ] - ) - ) - ) - (termbind - (strict) - (vardecl mempty (all a (type) (fun [Monoid a] a))) - (abs - a - (type) - (lam - v - [Monoid a] - [ - { [ { Monoid_match a } v ] a } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) - ] + StateMachine + (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] [[StateMachine s] i])))) ) ) ) @@ -685,69 +400,48 @@ (termbind (strict) (vardecl - fFoldableNil_cfoldMap - (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [List a] m))))) + fFunctorNil_cfmap + (all a (type) (all b (type) (fun (fun a b) (fun [List a] [List b])))) ) (abs - m + a (type) (abs - a + b (type) (lam - dMonoid - [Monoid m] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - dSemigroup [(lam a (type) (fun a (fun a a))) m] - ) - [ { p1Monoid m } dMonoid ] - ) - (lam - ds - (fun a m) - (lam - ds - [List a] - { - [ - [ - { [ { Nil_match a } ds ] (all dead (type) m) } - (abs dead (type) [ { mempty m } dMonoid ]) - ] - (lam - x - a - (lam - xs - [List a] - (abs - dead - (type) - [ - [ dSemigroup [ ds x ] ] - [ - [ - [ - { { fFoldableNil_cfoldMap m } a } - dMonoid - ] - ds - ] - xs - ] - ] - ) - ) + f + (fun a b) + (lam + l + [List a] + { + [ + [ + { + [ { Nil_match a } l ] (all dead (type) [List b]) + } + (abs dead (type) { Nil b }) + ] + (lam + x + a + (lam + xs + [List a] + (abs + dead + (type) + [ + [ { Cons b } [ f x ] ] + [ [ { { fFunctorNil_cfmap a } b } f ] xs ] + ] ) - ] - (all dead (type) dead) - } - ) - ) + ) + ) + ] + (all dead (type) dead) + } ) ) ) @@ -758,36 +452,233 @@ (termbind (strict) (vardecl - p1AdditiveMonoid - (all a (type) (fun [AdditiveMonoid a] [(lam a (type) (fun a (fun a a))) a])) + fAdditiveGroupValue_cscale + (fun (con integer) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) ) - (abs - a - (type) + (lam + i + (con integer) (lam - v - [AdditiveMonoid a] + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - { - [ { AdditiveMonoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + [ + { + { Tuple2_match (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + ds + ] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + c + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + { + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + c + ] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con integer)] + } + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con integer) + } + ds + ] + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + c + (con bytestring) + (lam + a + (con integer) + [ + [ + { + { + Tuple2 (con bytestring) + } + (con integer) + } + c + ] + [ + [ + (builtin multiplyInteger) + i + ] + a + ] + ] + ) + ) + ] + ) + ] + a + ] + ] + ) + ) + ] + ) + ] + ds + ] + ) + ) + ) + (termbind + (strict) + (vardecl + addInteger + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam y (con integer) [ [ (builtin addInteger) x ] y ]) + ) + ) + (termbind + (strict) + (vardecl + equalsByteString + (fun (con bytestring) (fun (con bytestring) Bool)) + ) + (lam + x + (con bytestring) + (lam + y + (con bytestring) + [ + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin equalsByteString) x ] y ] + ] + True + ] + False ] ) ) ) + (datatypebind + (datatype + (tyvardecl These (fun (type) (fun (type) (type)))) + (tyvardecl a (type)) (tyvardecl b (type)) + These_match + (vardecl That (fun b [[These a] b])) + (vardecl These (fun a (fun b [[These a] b]))) + (vardecl This (fun a [[These a] b])) + ) + ) + (datatypebind + (datatype + (tyvardecl AdditiveMonoid (fun (type) (type))) + (tyvardecl a (type)) + AdditiveMonoid_match + (vardecl + CConsAdditiveMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [AdditiveMonoid a])) + ) + ) + ) + (termbind + (strict) + (vardecl bad_name (fun Bool (fun Bool Bool))) + (lam + ds + Bool + (lam + ds + Bool + { + [ + [ + { [ Bool_match ds ] (all dead (type) Bool) } + (abs dead (type) True) + ] + (abs dead (type) ds) + ] + (all dead (type) dead) + } + ) + ) + ) + (termbind + (nonstrict) + (vardecl fAdditiveMonoidBool [AdditiveMonoid Bool]) + [ [ { CConsAdditiveMonoid Bool } bad_name ] False ] + ) + (datatypebind + (datatype + (tyvardecl Monoid (fun (type) (type))) + (tyvardecl a (type)) + Monoid_match + (vardecl + CConsMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [Monoid a])) + ) + ) + ) (termbind (strict) - (vardecl zero (all a (type) (fun [AdditiveMonoid a] a))) + (vardecl + p1Monoid + (all a (type) (fun [Monoid a] [(lam a (type) (fun a (fun a a))) a])) + ) (abs a (type) (lam v - [AdditiveMonoid a] + [Monoid a] [ - { [ { AdditiveMonoid_match a } v ] a } + { + [ { Monoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) ] ) @@ -795,30 +686,16 @@ ) (termbind (strict) - (vardecl - fMonoidSum - (all a (type) (fun [AdditiveMonoid a] [Monoid [(lam a (type) a) a]])) - ) + (vardecl mempty (all a (type) (fun [Monoid a] a))) (abs a (type) (lam v - [AdditiveMonoid a] + [Monoid a] [ - [ - { CConsMonoid [(lam a (type) a) a] } - (lam - eta - [(lam a (type) a) a] - (lam - eta - [(lam a (type) a) a] - [ [ [ { p1AdditiveMonoid a } v ] eta ] eta ] - ) - ) - ] - [ { zero a } v ] + { [ { Monoid_match a } v ] a } + (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) ] ) ) @@ -828,51 +705,74 @@ (termbind (strict) (vardecl - foldr - (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) + fFoldableNil_cfoldMap + (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [List a] m))))) ) (abs - a + m (type) (abs - b + a (type) (lam - f - (fun a (fun b b)) - (lam - acc - b + dMonoid + [Monoid m] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dSemigroup [(lam a (type) (fun a (fun a a))) m] + ) + [ { p1Monoid m } dMonoid ] + ) (lam - l - [List a] - { - [ + ds + (fun a m) + (lam + ds + [List a] + { [ - { - [ { Nil_match a } l ] (all dead (type) b) - } - (abs dead (type) acc) - ] - (lam - x - a + [ + { + [ { Nil_match a } ds ] + (all dead (type) m) + } + (abs dead (type) [ { mempty m } dMonoid ]) + ] (lam - xs - [List a] - (abs - dead - (type) - [ - [ f x ] - [ [ [ { { foldr a } b } f ] acc ] xs ] - ] + x + a + (lam + xs + [List a] + (abs + dead + (type) + [ + [ dSemigroup [ ds x ] ] + [ + [ + [ + { + { fFoldableNil_cfoldMap m } + a + } + dMonoid + ] + ds + ] + xs + ] + ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) ) ) @@ -884,426 +784,674 @@ (termbind (strict) (vardecl - union - (all k (type) (all v (type) (all r (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] [[These v] r]])))))) + p1AdditiveMonoid + (all a (type) (fun [AdditiveMonoid a] [(lam a (type) (fun a (fun a a))) a])) ) (abs - k + a (type) - (abs + (lam v - (type) - (abs - r - (type) + [AdditiveMonoid a] + [ + { + [ { AdditiveMonoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } + (lam + v [(lam a (type) (fun a (fun a a))) a] (lam v a v) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl zero (all a (type) (fun [AdditiveMonoid a] a))) + (abs + a + (type) + (lam + v + [AdditiveMonoid a] + [ + { [ { AdditiveMonoid_match a } v ] a } (lam - dEq - [(lam a (type) (fun a (fun a Bool))) k] + v [(lam a (type) (fun a (fun a a))) a] (lam v a v) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fMonoidSum + (all a (type) (fun [AdditiveMonoid a] [Monoid [(lam a (type) a) a]])) + ) + (abs + a + (type) + (lam + v + [AdditiveMonoid a] + [ + [ + { CConsMonoid [(lam a (type) a) a] } (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] + eta + [(lam a (type) a) a] (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] - [ + eta + [(lam a (type) a) a] + [ [ [ { p1AdditiveMonoid a } v ] eta ] eta ] + ) + ) + ] + [ { zero a } v ] + ] + ) + ) + ) + (let + (rec) + (termbind + (strict) + (vardecl + foldr + (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) + ) + (abs + a + (type) + (abs + b + (type) + (lam + f + (fun a (fun b b)) + (lam + acc + b + (lam + l + [List a] + { [ [ { - { foldr [[Tuple2 k] [[These v] r]] } - [List [[Tuple2 k] [[These v] r]]] + [ { Nil_match a } l ] + (all dead (type) b) } - { Cons [[Tuple2 k] [[These v] r]] } + (abs dead (type) acc) ] - [ - [ - { - { fFunctorNil_cfmap [[Tuple2 k] r] } - [[Tuple2 k] [[These v] r]] - } - (lam - ds - [[Tuple2 k] r] + (lam + x + a + (lam + xs + [List a] + (abs + dead + (type) [ - { - [ { { Tuple2_match k } r } ds ] - [[Tuple2 k] [[These v] r]] - } - (lam - c - k - (lam - a - r - [ - [ - { - { Tuple2 k } - [[These v] r] - } - c - ] - [ { { That v } r } a ] - ] - ) - ) + [ f x ] + [ + [ [ { { foldr a } b } f ] acc ] + xs + ] ] ) - ] + ) + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ) + ) + (let + (nonrec) + (termbind + (strict) + (vardecl + union + (all k (type) (all v (type) (all r (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] [[These v] r]])))))) + ) + (abs + k + (type) + (abs + v + (type) + (abs + r + (type) + (lam + dEq + [(lam a (type) (fun a (fun a Bool))) k] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] + [ [ + [ + { + { + foldr [[Tuple2 k] [[These v] r]] + } + [List [[Tuple2 k] [[These v] r]]] + } + { Cons [[Tuple2 k] [[These v] r]] } + ] [ [ { - { foldr [[Tuple2 k] r] } - [List [[Tuple2 k] r]] + { + fFunctorNil_cfmap + [[Tuple2 k] r] + } + [[Tuple2 k] [[These v] r]] } (lam - e + ds [[Tuple2 k] r] - (lam - xs - [List [[Tuple2 k] r]] - [ - { + [ + { + [ + { { Tuple2_match k } r } + ds + ] + [[Tuple2 k] [[These v] r]] + } + (lam + c + k + (lam + a + r [ - { { Tuple2_match k } r } - e + [ + { + { Tuple2 k } + [[These v] r] + } + c + ] + [ { { That v } r } a ] ] - [List [[Tuple2 k] r]] - } + ) + ) + ] + ) + ] + [ + [ + [ + { + { foldr [[Tuple2 k] r] } + [List [[Tuple2 k] r]] + } + (lam + e + [[Tuple2 k] r] (lam - c - k - (lam - ds - r + xs + [List [[Tuple2 k] r]] + [ { [ - [ - { + { + { Tuple2_match k } + r + } + e + ] + [List [[Tuple2 k] r]] + } + (lam + c + k + (lam + ds + r + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 k] v] - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - [[Tuple2 k] v] [ - { + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 k] v] + } [ { - { - Tuple2_match - k - } - v + fMonoidSum + Bool } - ds + fAdditiveMonoidBool ] - Bool - } + ] (lam - c - k - (lam - ds - v - [ + ds + [[Tuple2 k] v] + [ + { [ - dEq - c + { + { + Tuple2_match + k + } + v + } + ds ] + Bool + } + (lam c - ] - ) + k + (lam + ds + v + [ + [ + dEq + c + ] + c + ] + ) + ) + ] ) ] - ) + ds + ] ] - ds - ] - ] - (all dead (type) [List [[Tuple2 k] r]]) - } - (abs - dead (type) xs - ) - ] - (abs - dead - (type) - [ - [ - { - Cons - [[Tuple2 k] r] + (all dead (type) [List [[Tuple2 k] r]]) } - e + (abs + dead + (type) + xs + ) ] - xs + (abs + dead + (type) + [ + [ + { + Cons + [[Tuple2 k] r] + } + e + ] + xs + ] + ) ] - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ) + ] ) - ] - ) - ) + ) + ] + { Nil [[Tuple2 k] r] } + ] + ds ] - { Nil [[Tuple2 k] r] } ] - ds ] - ] - ] - [ - [ - { - { fFunctorNil_cfmap [[Tuple2 k] v] } - [[Tuple2 k] [[These v] r]] - } - (lam - ds - [[Tuple2 k] v] + [ [ { - [ { { Tuple2_match k } v } ds ] + { + fFunctorNil_cfmap [[Tuple2 k] v] + } [[Tuple2 k] [[These v] r]] } (lam - c - k - (lam - i - v - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun [List [[Tuple2 k] r]] [[These v] r]) - ) - (lam - ds - [List [[Tuple2 k] r]] - { - [ - [ - { + ds + [[Tuple2 k] v] + [ + { + [ + { { Tuple2_match k } v } ds + ] + [[Tuple2 k] [[These v] r]] + } + (lam + c + k + (lam + i + v + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun [List [[Tuple2 k] r]] [[These v] r]) + ) + (lam + ds + [List [[Tuple2 k] r]] + { + [ [ { - Nil_match - [[Tuple2 k] r] + [ + { + Nil_match + [[Tuple2 k] r] + } + ds + ] + (all dead (type) [[These v] r]) } - ds - ] - (all dead (type) [[These v] r]) - } - (abs - dead - (type) - [ - { { This v } r } - i + (abs + dead + (type) + [ + { + { This v } + r + } + i + ] + ) ] - ) - ] - (lam - ds - [[Tuple2 k] r] - (lam - xs - [List [[Tuple2 k] r]] - (abs - dead - (type) - [ - { + (lam + ds + [[Tuple2 k] r] + (lam + xs + [List [[Tuple2 k] r]] + (abs + dead + (type) [ - { - { - Tuple2_match - k - } - r - } - ds - ] - [[These v] r] - } - (lam - c - k - (lam - i - r { [ - [ + { { + Tuple2_match + k + } + r + } + ds + ] + [[These v] r] + } + (lam + c + k + (lam + i + r + { + [ [ - Bool_match - [ + { [ - dEq - c + Bool_match + [ + [ + dEq + c + ] + c + ] ] - c - ] + (all dead (type) [[These v] r]) + } + (abs + dead + (type) + [ + [ + { + { + These + v + } + r + } + i + ] + i + ] + ) ] - (all dead (type) [[These v] r]) - } - (abs - dead - (type) - [ + (abs + dead + (type) [ - { - { - These - v - } - r - } - i + go + xs ] - i - ] - ) - ] - (abs - dead - (type) - [ - go - xs + ) ] - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ) + ] ) - ] + ) ) - ) - ) + ] + (all dead (type) dead) + } + ) + ) + [ + [ + { + { Tuple2 k } + [[These v] r] + } + c ] - (all dead (type) dead) - } + [ go ds ] + ] ) ) - [ - [ - { - { Tuple2 k } - [[These v] r] - } - c - ] - [ go ds ] - ] ) - ) + ] ) ] - ) + ds + ] ] - ds - ] - ] + ) + ) ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - unionVal - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]])) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + (termbind + (strict) + (vardecl + unionVal + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]])) + ) + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ [ { - [ - { - { Tuple2_match (con bytestring) } - [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ds - ] + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] } (lam - c - (con bytestring) - (lam - a - [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ + ds + [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [ + { [ { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + { Tuple2_match (con bytestring) } + [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - c + ds ] - [ + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } + (lam + c + (con bytestring) + (lam + a + [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ [ { - [ - { - { - These_match - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - a - ] + { Tuple2 (con bytestring) } [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] } - (lam - b + c + ] + [ + [ + [ + { + [ + { + { + These_match + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + a + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + } + (lam + b + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con integer)] + } + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + (lam + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con integer) + } + ds + ] + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + (lam + c + (con bytestring) + (lam + a + (con integer) + [ + [ + { + { + Tuple2 + (con bytestring) + } + [[These (con integer)] (con integer)] + } + c + ] + [ + { + { + That + (con integer) + } + (con integer) + } + a + ] + ] + ) + ) + ] + ) + ] + b + ] + ) + ] + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + (lam + b + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + [ + { + { + { + union + (con bytestring) + } + (con integer) + } + (con integer) + } + equalsByteString + ] + a + ] + b + ] + ) + ) + ] + (lam + a [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] [ [ @@ -1351,7 +1499,7 @@ [ { { - That + This (con integer) } (con integer) @@ -1364,1172 +1512,1103 @@ ] ) ] - b + a ] ) ] - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - (lam - b - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - [ - { - { - { - union - (con bytestring) - } - (con integer) - } - (con integer) - } - equalsByteString - ] - a - ] - b - ] - ) - ) ] + ) + ) + ] + ) + ] + [ + [ + [ + { + { + { union (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + equalsByteString + ] + ds + ] + ds + ] + ] + ) + ) + ) + (termbind + (strict) + (vardecl + unionWith + (fun (fun (con integer) (fun (con integer) (con integer))) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]))) + ) + (lam + f + (fun (con integer) (fun (con integer) (con integer))) + (lam + ls + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + rs + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + [ + { + [ + { + { Tuple2_match (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + } + ds + ] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + c + (con bytestring) (lam a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] [ [ { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con integer)] - } - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] - [ + c + ] + [ + [ + { { - [ - { - { - Tuple2_match - (con bytestring) - } - (con integer) - } - ds - ] + fFunctorNil_cfmap [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] } - (lam - c - (con bytestring) - (lam - a - (con integer) + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + ds + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [ + { [ - [ + { { - { - Tuple2 - (con bytestring) - } - [[These (con integer)] (con integer)] + Tuple2_match + (con bytestring) } - c - ] + [[These (con integer)] (con integer)] + } + ds + ] + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + c + (con bytestring) + (lam + a + [[These (con integer)] (con integer)] [ - { + [ { - This + { + Tuple2 + (con bytestring) + } (con integer) } - (con integer) - } - a - ] - ] - ) - ) - ] - ) - ] - a - ] - ) - ] - ] - ) - ) - ] - ) - ] - [ - [ - [ - { - { - { union (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - equalsByteString + c + ] + [ + [ + [ + { + [ + { + { + These_match + (con integer) + } + (con integer) + } + a + ] + (con integer) + } + (lam + b + (con integer) + [ + [ + f + (con + integer + 0 + ) + ] + b + ] + ) + ] + (lam + a + (con integer) + (lam + b + (con integer) + [ + [ f a ] b + ] + ) + ) + ] + (lam + a + (con integer) + [ + [ f a ] + (con integer 0 + ) + ] + ) + ] + ] + ) + ) + ] + ) + ] + a + ] + ] + ) + ) + ] + ) + ] + [ [ unionVal ls ] rs ] ] - ds - ] + ) + ) + ) + ) + (termbind + (strict) + (vardecl + fAdditiveGroupValue + (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + (lam + ds + [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + (lam ds - ] - ] + [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [ + [ [ unionWith addInteger ] ds ] + [ + [ + fAdditiveGroupValue_cscale (con integer -1) + ] + ds + ] + ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - unionWith - (fun (fun (con integer) (fun (con integer) (con integer))) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]))) - ) - (lam - f - (fun (con integer) (fun (con integer) (con integer))) - (lam - ls - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (datatypebind + (datatype + (tyvardecl Unit (type)) + + Unit_match + (vardecl Unit Unit) + ) + ) + (termbind + (strict) + (vardecl + fToDataUnit_ctoBuiltinData (fun Unit (con data)) + ) (lam - rs - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ds + Unit [ + { [ Unit_match ds ] (con data) } [ - { + [ (builtin constrData) (con integer 0) ] + [ (builtin mkNilData) (con unit ()) ] + ] + ] + ) + ) + (datatypebind + (datatype + (tyvardecl GameInput (type)) + + GameInput_match + (vardecl + Guess + (fun (con bytestring) (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] GameInput))) + ) + (vardecl MintToken GameInput) + ) + ) + (termbind + (strict) + (vardecl + build + (all a (type) (fun (all b (type) (fun (fun a (fun b b)) (fun b b))) [List a])) + ) + (abs + a + (type) + (lam + g + (all b (type) (fun (fun a (fun b b)) (fun b b))) + [ [ { g [List a] } { Cons a } ] { Nil a } ] + ) + ) + ) + (termbind + (strict) + (vardecl + mkValidator + (fun (con bytestring) (fun (con bytestring) [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]])) + ) + (lam + mps + (con bytestring) + (lam + tn + (con bytestring) + [ + [ { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + Cons + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] [ - { + [ + { + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + mps + ] + [ [ { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + Cons + [[Tuple2 (con bytestring)] (con integer)] } - ds - ] - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - c - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] [ [ { { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + (con integer) } - c + tn ] - [ - [ + (con integer 1) + ] + ] + { + Nil + [[Tuple2 (con bytestring)] (con integer)] + } + ] + ] + ] + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ] + ) + ) + ) + (termbind + (strict) + (vardecl + transition + (fun [State GameState] (fun GameInput [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]])) + ) + (lam + ds + [State GameState] + (lam + input + GameInput + [ + { + [ { State_match GameState } ds ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]] + } + (lam + ds + GameState + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + [ + { + [ GameState_match ds ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]] + } + (lam + mph + (con bytestring) + (lam + tn + (con bytestring) + (lam + s + (con bytestring) { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] - } - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - ds - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] [ - { + [ + { + [ GameInput_match input ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]]) + } + (lam + ipv + (con bytestring) + (lam + ipv + (con bytestring) + (lam + ipv + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GameState]] + } + ) + ) + ) + ) + ] + (abs + dead + (type) [ { - { - Tuple2_match - (con bytestring) - } - [[These (con integer)] (con integer)] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GameState]] } - ds - ] - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - c - (con bytestring) - (lam - a - [[These (con integer)] (con integer)] [ [ { { Tuple2 - (con bytestring) + [[TxConstraints Void] Void] } - (con integer) + [State GameState] } - c - ] - [ [ [ - { - [ + [ + { { - { - These_match - (con integer) - } - (con integer) + TxConstraints + Void } - a - ] - (con integer) - } - (lam - b - (con integer) + Void + } [ - [ - f - (con - integer 0 - ) - ] - b - ] - ) - ] - (lam - a - (con integer) - (lam - b - (con integer) - [ [ f a ] b ] - ) - ) - ] - (lam - a - (con integer) - [ - [ f a ] - (con integer 0) - ] - ) - ] - ] - ) - ) - ] - ) - ] - a - ] - ] - ) - ) - ] - ) - ] - [ [ unionVal ls ] rs ] - ] - ) - ) - ) - ) - (termbind - (strict) - (vardecl - fAdditiveGroupValue - (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - ds - [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - (lam - ds - [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - [ - [ [ unionWith addInteger ] ds ] - [ - [ fAdditiveGroupValue_cscale (con integer -1) ] ds - ] - ] - ) - ) - ) - (datatypebind - (datatype - (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit) - ) - ) - (termbind - (strict) - (vardecl fToDataUnit_ctoBuiltinData (fun Unit (con data))) - (lam - ds - Unit - [ - { [ Unit_match ds ] (con data) } - [ - [ (builtin constrData) (con integer 0) ] - [ (builtin mkNilData) (con unit ()) ] - ] - ] - ) - ) - (datatypebind - (datatype - (tyvardecl GameInput (type)) - - GameInput_match - (vardecl - Guess - (fun (con bytestring) (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] GameInput))) - ) - (vardecl MintToken GameInput) - ) - ) - (termbind - (strict) - (vardecl - build - (all a (type) (fun (all b (type) (fun (fun a (fun b b)) (fun b b))) [List a])) - ) - (abs - a - (type) - (lam - g - (all b (type) (fun (fun a (fun b b)) (fun b b))) - [ [ { g [List a] } { Cons a } ] { Nil a } ] - ) - ) - ) - (termbind - (strict) - (vardecl - mkValidator - (fun (con bytestring) (fun (con bytestring) [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]])) - ) - (lam - mps - (con bytestring) - (lam - tn - (con bytestring) - [ - [ - { - Cons - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [ - [ - { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - mps - ] - [ - [ - { - Cons - [[Tuple2 (con bytestring)] (con integer)] - } - [ - [ - { - { Tuple2 (con bytestring) } - (con integer) - } - tn - ] - (con integer 1) - ] - ] - { - Nil - [[Tuple2 (con bytestring)] (con integer)] - } - ] - ] - ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - ) - ) - ) - (termbind - (strict) - (vardecl - transition - (fun [State GameState] (fun GameInput [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]])) - ) - (lam - ds - [State GameState] - (lam - input - GameInput - [ - { - [ { State_match GameState } ds ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]] - } - (lam - ds - GameState - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - [ GameState_match ds ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]] - } - (lam - mph - (con bytestring) - (lam - tn - (con bytestring) - (lam - s - (con bytestring) - { - [ - [ - { - [ GameInput_match input ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]]) - } - (lam - ipv - (con bytestring) - (lam - ipv - (con bytestring) - (lam - ipv - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GameState]] - } - ) - ) - ) - ) - ] - (abs - dead - (type) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GameState]] - } - [ - [ - { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GameState] - } - [ - [ - [ - { - { - TxConstraints - Void - } - Void - } - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + { + build + TxConstraint + } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ [ + c [ [ - MustMintValue - mph - ] - [ - fToDataUnit_ctoBuiltinData - Unit + [ + [ + MustMintValue + mph + ] + [ + fToDataUnit_ctoBuiltinData + Unit + ] + ] + tn ] + (con + integer + 1 + ) ] - tn ] - (con - integer - 1 - ) + n ] - ] - n - ] + ) + ) ) - ) - ) + ] + ] + { + Nil + [InputConstraint Void] + } ] + { + Nil + [OutputConstraint Void] + } ] - { - Nil - [InputConstraint Void] - } ] - { - Nil - [OutputConstraint Void] - } - ] - ] - [ - [ - { State GameState } [ - [ [ Locked mph ] tn ] - s + [ + { State GameState } + [ + [ + [ Locked mph ] + tn + ] + s + ] + ] + ds ] ] - ds ] - ] + ) ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ) ) - ) - ) - ] - (lam - mph - (con bytestring) - (lam - tn - (con bytestring) + ] (lam - currentSecret + mph (con bytestring) - { - [ - [ - { - [ GameInput_match input ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]]) - } - (lam - theGuess - (con bytestring) - (lam - nextSecret - (con bytestring) + (lam + tn + (con bytestring) + (lam + currentSecret + (con bytestring) + { + [ + [ + { + [ GameInput_match input ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]]) + } (lam - takenOut - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (abs - dead - (type) - { - [ - [ - { + theGuess + (con bytestring) + (lam + nextSecret + (con bytestring) + (lam + takenOut + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsByteString - ) - currentSecret - ] - [ - (builtin - sha2_256 - ) - theGuess + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + currentSecret + ] + [ + (builtin + sha2_256 + ) + theGuess + ] + ] ] + True ] + False ] - True ] - False - ] - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]]) - } - (abs - dead - (type) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GameState]] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GameState]]]) } - [ + (abs + dead + (type) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GameState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GameState]] } [ [ - [ + { { - { - TxConstraints - Void - } - Void + Tuple2 + [[TxConstraints Void] Void] } + [State GameState] + } + [ [ [ - [ + { { + TxConstraints + Void + } + Void + } + [ + [ + [ + { + { + foldr + TxConstraint + } + [List TxConstraint] + } + { + Cons + TxConstraint + } + ] + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a + [ + [ + c + [ + [ + [ + [ + MustMintValue + mph + ] + [ + fToDataUnit_ctoBuiltinData + Unit + ] + ] + tn + ] + (con + integer + 0 + ) + ] + ] + n + ] + ) + ) + ) + ] + ] + [ { - foldr + build TxConstraint } - [List TxConstraint] - } - { - Cons - TxConstraint - } - ] - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) + (abs + a + (type) (lam - n - a - [ + c + (fun TxConstraint (fun a a)) + (lam + n + a [ - c [ + c [ + MustSpendAtLeast [ [ - MustMintValue + mkValidator mph ] - [ - fToDataUnit_ctoBuiltinData - Unit - ] + tn ] - tn ] - (con - integer - 0 - ) ] + n ] - n - ] + ) ) ) - ) + ] ] ] [ + [ + [ + { + { + foldr + [InputConstraint Void] + } + [List [InputConstraint Void]] + } + { + Cons + [InputConstraint Void] + } + ] + { + Nil + [InputConstraint Void] + } + ] { - build - TxConstraint + Nil + [InputConstraint Void] } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n - a - [ - [ - c - [ - MustSpendAtLeast - [ - [ - mkValidator - mph - ] - tn - ] - ] - ] - n - ] - ) - ) - ) ] ] - ] - [ [ [ - { + [ + { + { + foldr + [OutputConstraint Void] + } + [List [OutputConstraint Void]] + } { - foldr - [InputConstraint Void] + Cons + [OutputConstraint Void] } - [List [InputConstraint Void]] - } + ] { - Cons - [InputConstraint Void] + Nil + [OutputConstraint Void] } ] { Nil - [InputConstraint Void] + [OutputConstraint Void] } ] - { - Nil - [InputConstraint Void] - } ] ] [ [ - [ - { - { - foldr - [OutputConstraint Void] - } - [List [OutputConstraint Void]] - } - { - Cons - [OutputConstraint Void] - } - ] { - Nil - [OutputConstraint Void] + State + GameState } + [ + [ + [ + Locked + mph + ] + tn + ] + nextSecret + ] ] - { - Nil - [OutputConstraint Void] - } - ] - ] - ] - [ - [ - { - State - GameState - } - [ [ [ - Locked - mph + fAdditiveGroupValue + ds ] - tn + takenOut ] - nextSecret - ] - ] - [ - [ - fAdditiveGroupValue - ds ] - takenOut ] ] - ] + ) ] - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GameState]] - } - ) - ] - (all dead (type) dead) - } + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GameState]] + } + ) + ] + (all dead (type) dead) + } + ) + ) ) ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GameState]] + } ) - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GameState]] - } - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) - ) - (termbind - (nonstrict) - (vardecl machine [[StateMachine GameState] GameInput]) - [ - [ + (termbind + (nonstrict) + (vardecl machine [[StateMachine GameState] GameInput]) [ [ - { { StateMachine GameState } GameInput } - transition + [ + [ + { { StateMachine GameState } GameInput } + transition + ] + (lam ds GameState False) + ] + { { mkStateMachine GameState } GameInput } ] - (lam ds GameState False) + { Nothing ThreadToken } ] - { { mkStateMachine GameState } GameInput } - ] - { Nothing ThreadToken } - ] - ) - (termbind - (strict) - (vardecl absurd (all a (type) (fun Void a))) - (abs a (type) (lam a Void { [ Void_match a ] a })) - ) - (termbind - (strict) - (vardecl fToDataVoid_ctoBuiltinData (fun Void (con data))) - (lam v Void [ { absurd (con data) } v ]) - ) - (termbind - (strict) - (vardecl fEqTxOutRef_c (fun TxOutRef (fun TxOutRef Bool))) - (lam - l - TxOutRef - (lam - r - TxOutRef - { - [ - [ - { + ) + (termbind + (strict) + (vardecl absurd (all a (type) (fun Void a))) + (abs a (type) (lam a Void { [ Void_match a ] a })) + ) + (termbind + (strict) + (vardecl + fToDataVoid_ctoBuiltinData (fun Void (con data)) + ) + (lam v Void [ { absurd (con data) } v ]) + ) + (termbind + (strict) + (vardecl + fEqTxOutRef_c (fun TxOutRef (fun TxOutRef Bool)) + ) + (lam + l + TxOutRef + (lam + r + TxOutRef + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin equalsByteString) + { (builtin ifThenElse) Bool } [ - { - [ TxOutRef_match l ] - (con bytestring) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) + [ + (builtin equalsByteString) + [ + { + [ TxOutRef_match l ] + (con bytestring) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] + ] + [ + { + [ TxOutRef_match r ] + (con bytestring) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] ] ] - [ - { - [ TxOutRef_match r ] - (con bytestring) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) - ] + True ] + False ] - True ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ - [ + (all dead (type) Bool) + } + (abs + dead + (type) [ - { (builtin ifThenElse) Bool } [ [ - (builtin equalsInteger) + { (builtin ifThenElse) Bool } [ - { - [ TxOutRef_match l ] - (con integer) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) + [ + (builtin equalsInteger) + [ + { + [ TxOutRef_match l ] + (con integer) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] + ] + [ + { + [ TxOutRef_match r ] + (con integer) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] ] ] - [ - { - [ TxOutRef_match r ] (con integer) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) - ] + True ] + False ] - True - ] - False + ) ] - ) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) - ) - ) - (termbind - (strict) - (vardecl - checkOwnInputConstraint - (all a (type) (fun ScriptContext (fun [InputConstraint a] Bool))) - ) - (abs - a - (type) - (lam - ds - ScriptContext - (lam - ds - [InputConstraint a] - [ - { [ ScriptContext_match ds ] Bool } + (abs dead (type) False) + ] + (all dead (type) dead) + } + ) + ) + ) + (termbind + (strict) + (vardecl + checkOwnInputConstraint + (all a (type) (fun ScriptContext (fun [InputConstraint a] Bool))) + ) + (abs + a + (type) + (lam + ds + ScriptContext (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { [ { InputConstraint_match a } ds ] Bool } + [InputConstraint a] + [ + { [ ScriptContext_match ds ] Bool } + (lam + ds + TxInfo (lam ds - a - (lam - ds - TxOutRef - [ - { [ TxInfo_match ds ] Bool } + ScriptPurpose + [ + { + [ { InputConstraint_match a } ds ] + Bool + } + (lam + ds + a (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxOutRef + [ + { [ TxInfo_match ds ] Bool } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ - [ - { + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxInInfo - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxInInfo [ - { + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxInInfo + } [ - TxInInfo_match - ds + { + fMonoidSum + Bool + } + fAdditiveMonoidBool ] - Bool - } + ] (lam ds - TxOutRef - (lam - ds - TxOut - [ + TxInInfo + [ + { [ - fEqTxOutRef_c + TxInInfo_match ds ] + Bool + } + (lam ds - ] - ) + TxOutRef + (lam + ds + TxOut + [ + [ + fEqTxOutRef_c + ds + ] + ds + ] + ) + ) + ] ) ] - ) + ds + ] ] - ds - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool + (all dead (type) Bool) } - (con - string - "L0" + (abs + dead + (type) + True ) ] - False + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L0" + ) + ] + False + ] + ) ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ) ) ) ) @@ -2538,563 +2617,615 @@ ) ) ) - ) + ] ) - ] - ) + ) + ] ) + ) + ] + ) + ) + ) + ) + (termbind + (strict) + (vardecl + fSemigroupFirst_c + (all a (type) (fun [(lam a (type) [Maybe a]) a] (fun [(lam a (type) [Maybe a]) a] [(lam a (type) [Maybe a]) a]))) + ) + (abs + a + (type) + (lam + ds + [(lam a (type) [Maybe a]) a] + (lam + b + [(lam a (type) [Maybe a]) a] + { + [ + [ + { + [ { Maybe_match a } ds ] + (all dead (type) [(lam a (type) [Maybe a]) a]) + } + (lam ipv a (abs dead (type) ds)) + ] + (abs dead (type) b) ] - ) + (all dead (type) dead) + } ) - ] + ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fSemigroupFirst_c - (all a (type) (fun [(lam a (type) [Maybe a]) a] (fun [(lam a (type) [Maybe a]) a] [(lam a (type) [Maybe a]) a]))) - ) - (abs - a - (type) - (lam - ds - [(lam a (type) [Maybe a]) a] - (lam - b - [(lam a (type) [Maybe a]) a] - { + (termbind + (strict) + (vardecl + fMonoidFirst + (all a (type) [Monoid [(lam a (type) [Maybe a]) a]]) + ) + (abs + a + (type) + [ [ - [ - { - [ { Maybe_match a } ds ] - (all dead (type) [(lam a (type) [Maybe a]) a]) - } - (lam ipv a (abs dead (type) ds)) - ] - (abs dead (type) b) + { CConsMonoid [(lam a (type) [Maybe a]) a] } + { fSemigroupFirst_c a } ] - (all dead (type) dead) - } + { Nothing a } + ] ) ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidFirst - (all a (type) [Monoid [(lam a (type) [Maybe a]) a]]) - ) - (abs - a - (type) - [ - [ - { CConsMonoid [(lam a (type) [Maybe a]) a] } - { fSemigroupFirst_c a } - ] - { Nothing a } - ] - ) - ) - (termbind - (strict) - (vardecl - findDatumHash - (fun (con data) (fun TxInfo [Maybe (con bytestring)])) - ) - (lam - ds - (con data) - (lam - ds - TxInfo - [ - { [ TxInfo_match ds ] [Maybe (con bytestring)] } + (termbind + (strict) + (vardecl + findDatumHash + (fun (con data) (fun TxInfo [Maybe (con bytestring)])) + ) + (lam + ds + (con data) (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxInfo + [ + { [ TxInfo_match ds ] [Maybe (con bytestring)] } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ - [ - { + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { + [ [ { - Maybe_match - [[Tuple2 (con bytestring)] (con data)] - } - [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] - } - [[Tuple2 (con bytestring)] (con data)] - } - { - fMonoidFirst - [[Tuple2 (con bytestring)] (con data)] - } - ] - (lam - x + { + Maybe_match [[Tuple2 (con bytestring)] (con data)] + } + [ [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - (con data) + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] } - x - ] - [Maybe [[Tuple2 (con bytestring)] (con data)]] - } + [[Tuple2 (con bytestring)] (con data)] + } + { + fMonoidFirst + [[Tuple2 (con bytestring)] (con data)] + } + ] (lam - ds - (con bytestring) - (lam - ds - (con data) + x + [[Tuple2 (con bytestring)] (con data)] + [ { [ - [ + { { + Tuple2_match + (con bytestring) + } + (con data) + } + x + ] + [Maybe [[Tuple2 (con bytestring)] (con data)]] + } + (lam + ds + (con bytestring) + (lam + ds + (con data) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsData - ) - ds + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsData + ) + ds + ] + ds + ] ] - ds + True ] + False ] - True ] - False - ] + (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) + } + (abs + dead + (type) + [ + { + Just + [[Tuple2 (con bytestring)] (con data)] + } + x + ] + ) ] - (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) - } - (abs - dead - (type) - [ + (abs + dead + (type) { - Just + Nothing [[Tuple2 (con bytestring)] (con data)] } - x - ] - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 (con bytestring)] (con data)] - } - ) - ] - (all dead (type) dead) + ) + ] + (all dead (type) dead) + } + ) + ) + ] + ) + ] + ds + ] + ] + (all dead (type) [Maybe (con bytestring)]) + } + (lam + a + [[Tuple2 (con bytestring)] (con data)] + (abs + dead + (type) + [ + { + Just + (con bytestring) + } + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con data) } + a + ] + (con bytestring) + } + (lam + a + (con bytestring) + (lam + ds + (con data) + a ) ) ] - ) - ] - ds - ] + ] + ) + ) ] - (all dead (type) [Maybe (con bytestring)]) - } - (lam - a - [[Tuple2 (con bytestring)] (con data)] (abs dead (type) - [ - { - Just - (con bytestring) - } - [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - (con data) - } - a - ] - (con bytestring) - } - (lam - a - (con bytestring) - (lam - ds - (con data) - a - ) - ) - ] - ] + { + Nothing + (con bytestring) + } ) - ) - ] - (abs - dead - (type) - { - Nothing (con bytestring) - } - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ) ) ) ) ) ) - ) - ) - ) - ) - ) - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fEqCredential_c (fun Credential (fun Credential Bool)) - ) - (lam - ds - Credential - (lam - ds - Credential - [ - [ - { [ Credential_match ds ] Bool } - (lam - l - (con bytestring) - [ - [ - { [ Credential_match ds ] Bool } - (lam - r - (con bytestring) - [ [ equalsByteString l ] r ] - ) - ] - (lam ipv (con bytestring) False) - ] - ) - ] + ) + ) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fEqCredential_c + (fun Credential (fun Credential Bool)) + ) + (lam + ds + Credential (lam - a - (con bytestring) + ds + Credential [ [ { [ Credential_match ds ] Bool } - (lam ipv (con bytestring) False) + (lam + l + (con bytestring) + [ + [ + { [ Credential_match ds ] Bool } + (lam + r + (con bytestring) + [ [ equalsByteString l ] r ] + ) + ] + (lam ipv (con bytestring) False) + ] + ) ] (lam a (con bytestring) - [ [ equalsByteString a ] a ] + [ + [ + { [ Credential_match ds ] Bool } + (lam ipv (con bytestring) False) + ] + (lam + a + (con bytestring) + [ [ equalsByteString a ] a ] + ) + ] ) ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - equalsInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + equalsInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsInteger) x ] y ] - ] - True - ] - False - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fEqStakingCredential_c - (fun StakingCredential (fun StakingCredential Bool)) - ) - (lam - ds - StakingCredential - (lam - ds - StakingCredential - [ - [ - { [ StakingCredential_match ds ] Bool } - (lam - l - Credential [ [ - { [ StakingCredential_match ds ] Bool } - (lam - r Credential [ [ fEqCredential_c l ] r ] - ) + { (builtin ifThenElse) Bool } + [ [ (builtin equalsInteger) x ] y ] ] + True + ] + False + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fEqStakingCredential_c + (fun StakingCredential (fun StakingCredential Bool)) + ) + (lam + ds + StakingCredential + (lam + ds + StakingCredential + [ + [ + { [ StakingCredential_match ds ] Bool } (lam - ipv - (con integer) - (lam - ipv - (con integer) - (lam ipv (con integer) False) - ) + l + Credential + [ + [ + { [ StakingCredential_match ds ] Bool } + (lam + r + Credential + [ [ fEqCredential_c l ] r ] + ) + ] + (lam + ipv + (con integer) + (lam + ipv + (con integer) + (lam ipv (con integer) False) + ) + ) + ] ) ] - ) - ] - (lam - a - (con integer) - (lam - b - (con integer) (lam - c + a (con integer) - [ - [ - { [ StakingCredential_match ds ] Bool } - (lam ipv Credential False) - ] + (lam + b + (con integer) (lam - a + c (con integer) - (lam - b - (con integer) + [ + [ + { + [ StakingCredential_match ds ] Bool + } + (lam ipv Credential False) + ] (lam - c + a (con integer) - { - [ - [ - { + (lam + b + (con integer) + (lam + c + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin ifThenElse) - Bool - } [ [ - (builtin - equalsInteger - ) - a + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + a + ] + a + ] ] - a + True ] + False ] - True ] - False - ] + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + b + ] + b + ] + ] + True + ] + False + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + [ + [ + equalsInteger + c + ] + c + ] + ) + ] + (abs dead (type) False + ) + ] + (all dead (type) dead) + } + ) ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ + (abs dead (type) False) + ] + (all dead (type) dead) + } + ) + ) + ) + ] + ) + ) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl fEqAddress_c (fun Address (fun Address Bool)) + ) + (lam + ds + Address + (lam + ds + Address + [ + { [ Address_match ds ] Bool } + (lam + cred + Credential + (lam + stakingCred + [Maybe StakingCredential] + [ + { [ Address_match ds ] Bool } + (lam + cred + Credential + (lam + stakingCred + [Maybe StakingCredential] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl j Bool) + { + [ + [ + { [ + { + Maybe_match + StakingCredential + } + stakingCred + ] + (all dead (type) Bool) + } + (lam + a + StakingCredential + (abs + dead + (type) { [ - Bool_match [ - [ + { [ { - (builtin - ifThenElse - ) - Bool + Maybe_match + StakingCredential } + stakingCred + ] + (all dead (type) Bool) + } + (lam + a + StakingCredential + (abs + dead + (type) [ [ - (builtin - equalsInteger - ) - b + fEqStakingCredential_c + a ] - b + a ] - ] - True - ] - False + ) + ) ] + (abs + dead (type) False + ) ] - (all dead (type) Bool) + (all dead (type) dead) } - (abs - dead - (type) - [ - [ equalsInteger c ] - c - ] - ) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - ) - ) - ) - ] - ) - ) - ) - (termbind - (strict) - (vardecl fEqAddress_c (fun Address (fun Address Bool))) - (lam - ds - Address - (lam - ds - Address - [ - { [ Address_match ds ] Bool } - (lam - cred - Credential - (lam - stakingCred - [Maybe StakingCredential] - [ - { [ Address_match ds ] Bool } - (lam - cred - Credential - (lam - stakingCred - [Maybe StakingCredential] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ - [ - { - [ - { - Maybe_match - StakingCredential - } - stakingCred + ) + ) ] - (all dead (type) Bool) - } - (lam - a - StakingCredential (abs dead (type) @@ -3112,250 +3243,252 @@ (all dead (type) Bool) } (lam - a + ipv StakingCredential (abs - dead - (type) - [ - [ - fEqStakingCredential_c - a - ] - a - ] + dead (type) False ) ) ] - (abs dead (type) False) + (abs dead (type) True) ] (all dead (type) dead) } ) - ) - ] - (abs - dead - (type) + ] + (all dead (type) dead) + } + ) + [ + [ { + [ Credential_match cred ] Bool + } + (lam + l + (con bytestring) [ [ { [ - { - Maybe_match - StakingCredential - } - stakingCred + Credential_match cred ] - (all dead (type) Bool) + Bool } (lam - ipv - StakingCredential - (abs dead (type) False) - ) - ] - (abs dead (type) True) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - [ - [ - { [ Credential_match cred ] Bool } - (lam - l - (con bytestring) - [ - [ - { - [ Credential_match cred ] - Bool - } - (lam - r - (con bytestring) - { - [ - [ - { + r + (con bytestring) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsByteString - ) - l + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + l + ] + r + ] ] - r + True ] + False ] - True ] - False - ] + (all dead (type) Bool) + } + (abs dead (type) j + ) ] - (all dead (type) Bool) - } - (abs dead (type) j) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) - ] - (lam ipv (con bytestring) False) - ] - ) - ] - (lam - a - (con bytestring) - [ - [ - { - [ Credential_match cred ] Bool - } - (lam ipv (con bytestring) False) + (abs + dead (type) False + ) + ] + (all dead (type) dead) + } + ) + ] + (lam + ipv (con bytestring) False + ) + ] + ) ] (lam a (con bytestring) - { + [ [ - [ - { + { + [ Credential_match cred ] + Bool + } + (lam + ipv (con bytestring) False + ) + ] + (lam + a + (con bytestring) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsByteString - ) - a + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + a + ] + a + ] ] - a + True ] + False ] - True ] - False - ] + (all dead (type) Bool) + } + (abs dead (type) j) ] - (all dead (type) Bool) - } - (abs dead (type) j) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (abs dead (type) False) + ] + (all dead (type) dead) + } + ) + ] ) ] ) - ] + ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl error (all a (type) (fun (con unit) a))) - (abs a (type) (lam thunk (con unit) (error a))) - ) - (termbind - (strict) - (vardecl findOwnInput (fun ScriptContext [Maybe TxInInfo]) - ) - (lam - ds - ScriptContext - [ - { [ ScriptContext_match ds ] [Maybe TxInInfo] } + (termbind + (strict) + (vardecl error (all a (type) (fun (con unit) a))) + (abs a (type) (lam thunk (con unit) (error a))) + ) + (termbind + (strict) + (vardecl + findOwnInput (fun ScriptContext [Maybe TxInInfo]) + ) (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { [ TxInfo_match ds ] [Maybe TxInInfo] } + ScriptContext + [ + { [ ScriptContext_match ds ] [Maybe TxInInfo] } + (lam + ds + TxInfo (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + ScriptPurpose + [ + { [ TxInfo_match ds ] [Maybe TxInInfo] } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ [ - { + [ [ - ScriptPurpose_match - ds + { + [ + ScriptPurpose_match + ds + ] + (all dead (type) [Maybe TxInInfo]) + } + (lam + default_arg0 + DCert + (abs + dead + (type) + { + Nothing + TxInInfo + } + ) + ) ] - (all dead (type) [Maybe TxInInfo]) - } + (lam + default_arg0 + (con bytestring) + (abs + dead + (type) + { + Nothing + TxInInfo + } + ) + ) + ] (lam default_arg0 - DCert + StakingCredential (abs dead (type) @@ -3367,119 +3500,96 @@ ) ] (lam - default_arg0 - (con bytestring) + txOutRef + TxOutRef (abs dead (type) - { - Nothing - TxInInfo - } - ) - ) - ] - (lam - default_arg0 - StakingCredential - (abs - dead - (type) - { - Nothing TxInInfo - } - ) - ) - ] - (lam - txOutRef - TxOutRef - (abs - dead - (type) - [ - [ [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) TxInInfo] - } - TxInInfo - } - { - fMonoidFirst - TxInInfo - } - ] - (lam - x - TxInInfo [ - { - [ - TxInInfo_match - x - ] - [Maybe TxInInfo] - } + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) TxInInfo] + } + TxInInfo + } + { + fMonoidFirst + TxInInfo + } + ] (lam - ds - TxOutRef - (lam - ds - TxOut + x + TxInInfo + [ { [ - [ - { + TxInInfo_match + x + ] + [Maybe TxInInfo] + } + (lam + ds + TxOutRef + (lam + ds + TxOut + { + [ [ - Bool_match - [ + { [ - fEqTxOutRef_c - ds + Bool_match + [ + [ + fEqTxOutRef_c + ds + ] + txOutRef + ] ] - txOutRef - ] + (all dead (type) [Maybe TxInInfo]) + } + (abs + dead + (type) + [ + { + Just + TxInInfo + } + x + ] + ) ] - (all dead (type) [Maybe TxInInfo]) - } - (abs - dead - (type) - [ + (abs + dead + (type) { - Just + Nothing TxInInfo } - x - ] - ) - ] - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) - ] - (all dead (type) dead) - } - ) + ) + ] + (all dead (type) dead) + } + ) + ) + ] ) ] - ) - ] - ds - ] - ) - ) - ] - (all dead (type) dead) - } + ds + ] + ) + ) + ] + (all dead (type) dead) + } + ) + ) ) ) ) @@ -3488,188 +3598,197 @@ ) ) ) - ) + ] ) - ] - ) + ) + ] ) - ] - ) - ) - (termbind - (strict) - (vardecl - getContinuingOutputs (fun ScriptContext [List TxOut]) - ) - (lam - ctx - ScriptContext - { - [ - [ - { + ) + (termbind + (strict) + (vardecl + getContinuingOutputs + (fun ScriptContext [List TxOut]) + ) + (lam + ctx + ScriptContext + { + [ [ - { Maybe_match TxInInfo } [ findOwnInput ctx ] - ] - (all dead (type) [List TxOut]) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { [ TxInInfo_match ds ] [List TxOut] } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { [ TxOut_match ds ] [List TxOut] } + { + [ + { Maybe_match TxInInfo } + [ findOwnInput ctx ] + ] + (all dead (type) [List TxOut]) + } + (lam + ds + TxInInfo + (abs + dead + (type) + [ + { [ TxInInfo_match ds ] [List TxOut] } + (lam + ds + TxOutRef (lam ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + TxOut + [ + { + [ TxOut_match ds ] [List TxOut] + } (lam ds - [Maybe (con bytestring)] - [ - { - [ ScriptContext_match ctx ] - [List TxOut] - } + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { - [ TxInfo_match ds ] - [List TxOut] - } + [Maybe (con bytestring)] + [ + { + [ + ScriptContext_match + ctx + ] + [List TxOut] + } + (lam + ds + TxInfo (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + ScriptPurpose + [ + { + [ + TxInfo_match ds + ] + [List TxOut] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { - { - foldr - TxOut - } - [List TxOut] - } - (lam - e - TxOut - (lam - xs - [List TxOut] - [ + [ + [ + { { - [ - TxOut_match - e - ] - [List TxOut] + foldr + TxOut } + [List TxOut] + } + (lam + e + TxOut (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + xs + [List TxOut] + [ + { + [ + TxOut_match + e + ] + [List TxOut] + } (lam ds - [Maybe (con bytestring)] - { - [ - [ - { + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + { + [ [ - Bool_match - [ + { [ - fEqAddress_c - ds + Bool_match + [ + [ + fEqAddress_c + ds + ] + ds + ] ] - ds - ] + (all dead (type) [List TxOut]) + } + (abs + dead + (type) + [ + [ + { + Cons + TxOut + } + e + ] + xs + ] + ) ] - (all dead (type) [List TxOut]) - } - (abs - dead - (type) - [ - [ - { - Cons - TxOut - } - e - ] + (abs + dead + (type) xs - ] - ) - ] - (abs - dead - (type) - xs - ) - ] - (all dead (type) dead) - } + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] - ) - ) + ) + ] + { + Nil + TxOut + } + ] + ds ] - { - Nil - TxOut - } - ] - ds - ] + ) + ) ) ) ) @@ -3678,917 +3797,944 @@ ) ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) + ] ) - ] - ) + ) + ] ) + ) + ] + (abs + dead + (type) + [ + { error [List TxOut] } + [ + { + [ + Unit_match + [ + [ + { (builtin trace) Unit } + (con string "Lf") + ] + Unit + ] + ] + (con unit) + } + (con unit ()) + ] ] ) - ) - ] - (abs - dead - (type) + ] + (all dead (type) dead) + } + ) + ) + (datatypebind + (datatype + (tyvardecl MultiplicativeMonoid (fun (type) (type))) + (tyvardecl a (type)) + MultiplicativeMonoid_match + (vardecl + CConsMultiplicativeMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [MultiplicativeMonoid a])) + ) + ) + ) + (termbind + (strict) + (vardecl + p1MultiplicativeMonoid + (all a (type) (fun [MultiplicativeMonoid a] [(lam a (type) (fun a (fun a a))) a])) + ) + (abs + a + (type) + (lam + v + [MultiplicativeMonoid a] + [ + { + [ { MultiplicativeMonoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } + (lam + v + [(lam a (type) (fun a (fun a a))) a] + (lam v a v) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl + one (all a (type) (fun [MultiplicativeMonoid a] a)) + ) + (abs + a + (type) + (lam + v + [MultiplicativeMonoid a] + [ + { [ { MultiplicativeMonoid_match a } v ] a } + (lam + v + [(lam a (type) (fun a (fun a a))) a] + (lam v a v) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fMonoidProduct + (all a (type) (fun [MultiplicativeMonoid a] [Monoid [(lam a (type) a) a]])) + ) + (abs + a + (type) + (lam + v + [MultiplicativeMonoid a] [ - { error [List TxOut] } [ - { - [ - Unit_match + { CConsMonoid [(lam a (type) a) a] } + (lam + eta + [(lam a (type) a) a] + (lam + eta + [(lam a (type) a) a] [ [ - { (builtin trace) Unit } - (con string "Lf") + [ { p1MultiplicativeMonoid a } v ] eta ] - Unit + eta ] - ] - (con unit) - } - (con unit ()) + ) + ) ] + [ { one a } v ] ] ) - ] - (all dead (type) dead) - } - ) - ) - (datatypebind - (datatype - (tyvardecl MultiplicativeMonoid (fun (type) (type))) - (tyvardecl a (type)) - MultiplicativeMonoid_match - (vardecl - CConsMultiplicativeMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [MultiplicativeMonoid a])) - ) - ) - ) - (termbind - (strict) - (vardecl - p1MultiplicativeMonoid - (all a (type) (fun [MultiplicativeMonoid a] [(lam a (type) (fun a (fun a a))) a])) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - { - [ { MultiplicativeMonoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } - (lam - v [(lam a (type) (fun a (fun a a))) a] (lam v a v) - ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - one (all a (type) (fun [MultiplicativeMonoid a] a)) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - { [ { MultiplicativeMonoid_match a } v ] a } + (termbind + (strict) + (vardecl bad_name (fun Bool (fun Bool Bool))) + (lam + ds + Bool (lam - v [(lam a (type) (fun a (fun a a))) a] (lam v a v) + x + Bool + { + [ + [ + { [ Bool_match ds ] (all dead (type) Bool) } + (abs dead (type) x) + ] + (abs dead (type) False) + ] + (all dead (type) dead) + } ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidProduct - (all a (type) (fun [MultiplicativeMonoid a] [Monoid [(lam a (type) a) a]])) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] + (termbind + (nonstrict) + (vardecl + fMultiplicativeMonoidBool + [MultiplicativeMonoid Bool] + ) [ - [ - { CConsMonoid [(lam a (type) a) a] } - (lam - eta - [(lam a (type) a) a] - (lam - eta - [(lam a (type) a) a] - [ - [ [ { p1MultiplicativeMonoid a } v ] eta ] - eta - ] - ) - ) - ] - [ { one a } v ] + [ { CConsMultiplicativeMonoid Bool } bad_name ] True ] ) - ) - ) - (termbind - (strict) - (vardecl bad_name (fun Bool (fun Bool Bool))) - (lam - ds - Bool - (lam - x - Bool - { - [ - [ - { [ Bool_match ds ] (all dead (type) Bool) } - (abs dead (type) x) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) - ) - ) - (termbind - (nonstrict) - (vardecl - fMultiplicativeMonoidBool [MultiplicativeMonoid Bool] - ) - [ [ { CConsMultiplicativeMonoid Bool } bad_name ] True ] - ) - (termbind - (strict) - (vardecl - checkPred - (fun (fun [[These (con integer)] (con integer)] Bool) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) - ) - (lam - f - (fun [[These (con integer)] (con integer)] Bool) - (lam - l - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (termbind + (strict) + (vardecl + checkPred + (fun (fun [[These (con integer)] (con integer)] Bool) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) + ) (lam - r - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - dMonoid [Monoid [(lam a (type) a) Bool]] - ) - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] - ) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - } + f + (fun [[These (con integer)] (con integer)] Bool) + (lam + l + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + r + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dMonoid [Monoid [(lam a (type) a) Bool]] + ) [ { fMonoidProduct Bool } fMultiplicativeMonoidBool ] - ] - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + ) + [ [ - { - [ + [ + { { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] } - ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool ] - [(lam a (type) a) Bool] - } + ] (lam ds - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - [ + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + [ + { [ - [ + { { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + Tuple2_match (con bytestring) } - dMonoid - ] - (lam - ds - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + [ [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - [[These (con integer)] (con integer)] + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] } - ds - ] - [(lam a (type) a) Bool] - } + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + dMonoid + ] (lam ds - (con bytestring) - (lam - a - [[These (con integer)] (con integer)] - [ f a ] - ) + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + [[These (con integer)] (con integer)] + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[These (con integer)] (con integer)] + [ f a ] + ) + ) + ] ) ] - ) - ] - a - ] - ) + a + ] + ) + ) + ] ) ] - ) - ] - [ [ unionVal l ] r ] - ] + [ [ unionVal l ] r ] + ] + ) + ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - checkBinRel - (fun (fun (con integer) (fun (con integer) Bool)) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) - ) - (lam - f - (fun (con integer) (fun (con integer) Bool)) - (lam - l - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (termbind + (strict) + (vardecl + checkBinRel + (fun (fun (con integer) (fun (con integer) Bool)) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) + ) (lam - r - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ + f + (fun (con integer) (fun (con integer) Bool)) + (lam + l + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + r + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - checkPred - (lam - k - [[These (con integer)] (con integer)] + [ [ - [ + checkPred + (lam + k + [[These (con integer)] (con integer)] [ - { + [ [ { - { These_match (con integer) } - (con integer) + [ + { + { + These_match (con integer) + } + (con integer) + } + k + ] + Bool } - k + (lam + b + (con integer) + [ [ f (con integer 0) ] b ] + ) ] - Bool - } + (lam + a + (con integer) + (lam b (con integer) [ [ f a ] b ] + ) + ) + ] (lam - b + a (con integer) - [ [ f (con integer 0) ] b ] + [ [ f a ] (con integer 0) ] ) ] - (lam - a - (con integer) - (lam b (con integer) [ [ f a ] b ]) - ) - ] - (lam - a - (con integer) - [ [ f a ] (con integer 0) ] ) ] - ) + l + ] + r ] - l - ] - r - ] + ) + ) ) ) - ) - ) - (termbind - (strict) - (vardecl - checkOwnOutputConstraint - (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun ScriptContext (fun [OutputConstraint o] Bool)))) - ) - (abs - o - (type) - (lam - dToData - [(lam a (type) (fun a (con data))) o] - (lam - ctx - ScriptContext + (termbind + (strict) + (vardecl + checkOwnOutputConstraint + (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun ScriptContext (fun [OutputConstraint o] Bool)))) + ) + (abs + o + (type) (lam - ds - [OutputConstraint o] - [ - { [ ScriptContext_match ctx ] Bool } + dToData + [(lam a (type) (fun a (con data))) o] + (lam + ctx + ScriptContext (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { - [ { OutputConstraint_match o } ds ] Bool - } + [OutputConstraint o] + [ + { [ ScriptContext_match ctx ] Bool } + (lam + ds + TxInfo (lam ds - o - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - hsh [Maybe (con bytestring)] - ) - [ - [ findDatumHash [ dToData ds ] ] - ds - ] - ) - { - [ - [ - { + ScriptPurpose + [ + { + [ { OutputConstraint_match o } ds ] + Bool + } + (lam + ds + o + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + hsh [Maybe (con bytestring)] + ) + [ [ - Bool_match - [ + findDatumHash + [ dToData ds ] + ] + ds + ] + ) + { + [ + [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxOut - } - [ - { - fMonoidSum Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxOut [ - { + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxOut + } [ - TxOut_match ds + { + fMonoidSum + Bool + } + fAdditiveMonoidBool ] - Bool - } + ] (lam ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + TxOut + [ + { + [ + TxOut_match + ds + ] + Bool + } (lam ds - [Maybe (con bytestring)] - { - [ - [ - { + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + { + [ [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) Bool) - } - (lam - svh - (con bytestring) - (abs - dead - (type) { [ - [ - { + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) Bool) + } + (lam + svh + (con bytestring) + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - checkBinRel - equalsInteger + [ + [ + checkBinRel + equalsInteger + ] + ds + ] + ds ] - ds ] - ds - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ - [ - { + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ [ { - Maybe_match - (con bytestring) + [ + { + Maybe_match + (con bytestring) + } + hsh + ] + (all dead (type) Bool) } - hsh + (lam + a + (con bytestring) + (abs + dead + (type) + [ + [ + equalsByteString + a + ] + svh + ] + ) + ) ] - (all dead (type) Bool) - } - (lam - a - (con bytestring) (abs dead (type) - [ - [ - equalsByteString - a - ] - svh - ] + False ) - ) - ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ] + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + False ) - ) - ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) ] - ) + [ + getContinuingOutputs + ctx + ] + ] ] + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (abs + dead + (type) + [ [ - getContinuingOutputs - ctx + { + (builtin trace) Bool + } + (con string "L1") ] + False ] - ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L1") - ] - False + ) ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Ordering (type)) + (datatypebind + (datatype + (tyvardecl Ordering (type)) - Ordering_match - (vardecl EQ Ordering) - (vardecl GT Ordering) - (vardecl LT Ordering) - ) - ) - (termbind - (strict) - (vardecl - fOrdInteger_ccompare - (fun (con integer) (fun (con integer) Ordering)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - { - [ - [ - { + Ordering_match + (vardecl EQ Ordering) + (vardecl GT Ordering) + (vardecl LT Ordering) + ) + ) + (termbind + (strict) + (vardecl + fOrdInteger_ccompare + (fun (con integer) (fun (con integer) Ordering)) + ) + (lam + x + (con integer) + (lam + y + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ + [ (builtin equalsInteger) x ] y + ] + ] + True + ] + False ] - True ] - False - ] + (all dead (type) Ordering) + } + (abs dead (type) EQ) ] - (all dead (type) Ordering) - } - (abs dead (type) EQ) - ] - (abs - dead - (type) - { - [ - [ - { + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin - lessThanEqualsInteger - ) - x + { + (builtin ifThenElse) Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + x + ] + y + ] ] - y + True ] + False ] - True ] - False - ] + (all dead (type) Ordering) + } + (abs dead (type) LT) ] - (all dead (type) Ordering) - } - (abs dead (type) LT) - ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } + (abs dead (type) GT) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - fOrdInteger_cmax - (fun (con integer) (fun (con integer) (con integer))) - ) - (lam - x - (con integer) - (lam - y - (con integer) - { - [ - [ - { + (termbind + (strict) + (vardecl + fOrdInteger_cmax + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam + y + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin lessThanEqualsInteger) x + { (builtin ifThenElse) Bool } + [ + [ + (builtin lessThanEqualsInteger + ) + x + ] + y + ] ] - y + True ] + False ] - True ] - False - ] + (all dead (type) (con integer)) + } + (abs dead (type) y) ] - (all dead (type) (con integer)) - } - (abs dead (type) y) - ] - (abs dead (type) x) - ] - (all dead (type) dead) - } + (abs dead (type) x) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - fOrdInteger_cmin - (fun (con integer) (fun (con integer) (con integer))) - ) - (lam - x - (con integer) - (lam - y - (con integer) - { - [ - [ - { + (termbind + (strict) + (vardecl + fOrdInteger_cmin + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam + y + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin lessThanEqualsInteger) x + { (builtin ifThenElse) Bool } + [ + [ + (builtin lessThanEqualsInteger + ) + x + ] + y + ] ] - y + True ] + False ] - True ] - False - ] + (all dead (type) (con integer)) + } + (abs dead (type) x) ] - (all dead (type) (con integer)) - } - (abs dead (type) x) - ] - (abs dead (type) y) - ] - (all dead (type) dead) - } + (abs dead (type) y) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - greaterThanEqInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + greaterThanEqInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanInteger) x ] y ] + ] + False + ] + True ] - False - ] - True - ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - greaterThanInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + greaterThanInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanEqualsInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanEqualsInteger) x ] y ] + ] + False + ] + True ] - False - ] - True - ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - lessThanInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + lessThanInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanInteger) x ] y ] + ] + True + ] + False ] - True - ] - False - ] + ) + ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Ord (fun (type) (type))) - (tyvardecl a (type)) - Ord_match - (vardecl - CConsOrd - (fun [(lam a (type) (fun a (fun a Bool))) a] (fun (fun a (fun a Ordering)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a a)) (fun (fun a (fun a a)) [Ord a])))))))) + (datatypebind + (datatype + (tyvardecl Ord (fun (type) (type))) + (tyvardecl a (type)) + Ord_match + (vardecl + CConsOrd + (fun [(lam a (type) (fun a (fun a Bool))) a] (fun (fun a (fun a Ordering)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a a)) (fun (fun a (fun a a)) [Ord a])))))))) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - lessThanEqInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + lessThanEqInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanEqualsInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanEqualsInteger) x ] y ] + ] + True + ] + False ] - True - ] - False - ] + ) + ) ) - ) - ) - (termbind - (nonstrict) - (vardecl fOrdPOSIXTime [Ord (con integer)]) - [ - [ + (termbind + (nonstrict) + (vardecl fOrdPOSIXTime [Ord (con integer)]) [ [ [ [ [ - [ { CConsOrd (con integer) } equalsInteger ] - fOrdInteger_ccompare + [ + [ + [ + { CConsOrd (con integer) } + equalsInteger + ] + fOrdInteger_ccompare + ] + lessThanInteger + ] + lessThanEqInteger ] - lessThanInteger + greaterThanInteger ] - lessThanEqInteger + greaterThanEqInteger ] - greaterThanInteger + fOrdInteger_cmax ] - greaterThanEqInteger + fOrdInteger_cmin ] - fOrdInteger_cmax - ] - fOrdInteger_cmin - ] - ) - (termbind - (strict) - (vardecl - compare - (all a (type) (fun [Ord a] (fun a (fun a Ordering)))) - ) - (abs - a - (type) - (lam - v - [Ord a] - [ - { [ { Ord_match a } v ] (fun a (fun a Ordering)) } + ) + (termbind + (strict) + (vardecl + compare + (all a (type) (fun [Ord a] (fun a (fun a Ordering)))) + ) + (abs + a + (type) (lam v - [(lam a (type) (fun a (fun a Bool))) a] - (lam - v - (fun a (fun a Ordering)) + [Ord a] + [ + { + [ { Ord_match a } v ] (fun a (fun a Ordering)) + } (lam v - (fun a (fun a Bool)) + [(lam a (type) (fun a (fun a Bool))) a] (lam v - (fun a (fun a Bool)) + (fun a (fun a Ordering)) (lam v (fun a (fun a Bool)) @@ -4597,102 +4743,231 @@ (fun a (fun a Bool)) (lam v - (fun a (fun a a)) - (lam v (fun a (fun a a)) v) + (fun a (fun a Bool)) + (lam + v + (fun a (fun a Bool)) + (lam + v + (fun a (fun a a)) + (lam v (fun a (fun a a)) v) + ) + ) ) ) ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - hull_ccompare - (all a (type) (fun [Ord a] (fun [Extended a] (fun [Extended a] Ordering)))) - ) - (abs - a - (type) - (lam - dOrd - [Ord a] - (lam - ds - [Extended a] + (termbind + (strict) + (vardecl + hull_ccompare + (all a (type) (fun [Ord a] (fun [Extended a] (fun [Extended a] Ordering)))) + ) + (abs + a + (type) (lam - ds - [Extended a] - (let - (nonrec) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam ds (all a (type) a) (error Ordering)) - ) - { - [ - [ + dOrd + [Ord a] + (lam + ds + [Extended a] + (lam + ds + [Extended a] + (let + (nonrec) + (termbind + (strict) + (vardecl + fail (fun (all a (type) a) Ordering) + ) + (lam ds (all a (type) a) (error Ordering)) + ) + { [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) + [ + [ { - [ - [ - [ - { - [ - { Extended_match a } ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { Extended_match a } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -4751,214 +5026,110 @@ ] ) ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ - [ - [ - { - compare - a - } - dOrd - ] - l - ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] ) ] - ) - ] - (abs - dead - (type) - [ - fail (abs - e + dead (type) - (error - e - ) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] ) ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - [ - fail + (all dead (type) dead) + } + ) + ) + ] (abs - e + dead (type) - (error - e - ) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] ) ] - ) - ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - LT - ) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ] + (abs + dead + (type) + LT + ) + ] + (all dead (type) dead) + } + ) + ) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -4973,121 +5144,227 @@ ) ] ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) ] - ) - ] - (abs - dead - (type) - { - [ - [ + (abs + dead + (type) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) [ fail (abs - e + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + EQ + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ] + (abs dead (type) GT) + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead (type) - (error - e - ) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] ) ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e + (abs + dead + (type) + GT ) - ) - ] + ] + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - EQ ) ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - (abs dead (type) GT) - ] - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -5173,183 +5450,80 @@ (error e ) - ) - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ - [ - [ - { - compare - a - } - dOrd - ] - l - ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) + ) + ] ) ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - [ - fail + (all dead (type) dead) + } + ) + ) + ] (abs - e + dead (type) - (error - e - ) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] ) ] - ) - ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ] + (abs + dead (type) LT + ) + ] + (all dead (type) dead) + } + ) + ) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e + ) + ) + ] + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -5362,41 +5536,43 @@ ) ] ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) ] - ) - ] - (abs - dead - (type) - { - [ - [ + (abs + dead + (type) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -5411,109 +5587,219 @@ ) ] ) + ] + (abs + dead + (type) + EQ ) ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (abs - dead (type) EQ - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ + { Extended_match a } ds ] - (all dead (type) dead) + (all dead (type) Ordering) } - ) - ) + (lam + default_arg0 + a + (abs dead (type) LT) + ) + ] + (abs dead (type) EQ) + ] + (abs dead (type) LT) ] (all dead (type) dead) } ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs dead (type) LT) - ) - ] - (abs dead (type) EQ) - ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -5632,150 +5918,47 @@ (all dead (type) dead) } ) + ] + (abs + dead (type) LT ) ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ - [ - [ - { - compare - a - } - dOrd - ] - l - ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ + (all dead (type) dead) + } + ) + ) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e + ) + ) + ] + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -5788,41 +5971,43 @@ ) ] ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) ] - ) - ] - (abs - dead - (type) - { - [ - [ + (abs + dead + (type) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -5837,67 +6022,176 @@ ) ] ) + ] + (abs + dead + (type) + EQ ) ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (abs - dead (type) EQ - ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - ] - (abs dead (type) GT) - ] - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ + ] + (abs dead (type) GT) + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { [ - { + [ [ { - Extended_match a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -6016,739 +6310,788 @@ (all dead (type) dead) } ) + ] + (abs dead (type) LT) + ] + (all dead (type) dead) + } + ) + ) + { + [ + [ + [ + { + [ + { + Extended_match a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e) + ) + ] + ) ) ] (abs dead (type) + [ + fail + (abs + e (type) (error e) + ) + ] + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e) + ) + ] + ) + ] + (abs dead (type) EQ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + fOrdUpperBound0_c + (all a (type) (fun [Ord a] (fun [UpperBound a] (fun [UpperBound a] Bool)))) + ) + (abs + a + (type) + (lam + dOrd + [Ord a] + (lam + x + [UpperBound a] + (lam + y + [UpperBound a] + [ + { [ { UpperBound_match a } x ] Bool } + (lam + v + [Extended a] + (lam + in + Bool + [ + { [ { UpperBound_match a } y ] Bool } + (lam + v + [Extended a] + (lam + in + Bool + { + [ + [ + [ + { + [ + Ordering_match + [ + [ + [ + { + hull_ccompare + a + } + dOrd + ] + v + ] + v + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match in + ] + (all dead (type) Bool) + } + (abs + dead (type) in + ) + ] + (abs + dead (type) True + ) + ] + (all dead (type) dead) + } + ) + ] + (abs dead (type) False) + ] + (abs dead (type) True) + ] + (all dead (type) dead) + } + ) + ) + ] + ) + ) + ] + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + contains + (all a (type) (fun [Ord a] (fun [Interval a] (fun [Interval a] Bool)))) + ) + (abs + a + (type) + (lam + dOrd + [Ord a] + (lam + ds + [Interval a] + (lam + ds + [Interval a] + [ + { [ { Interval_match a } ds ] Bool } + (lam + l + [LowerBound a] + (lam + h + [UpperBound a] + [ + { [ { Interval_match a } ds ] Bool } + (lam + l + [LowerBound a] + (lam + h + [UpperBound a] + [ + { + [ { LowerBound_match a } l ] + Bool + } + (lam + v + [Extended a] + (lam + in + Bool + [ + { + [ + { LowerBound_match a } + l + ] + Bool + } + (lam + v + [Extended a] + (lam + in + Bool { [ [ [ { [ - { - Extended_match - a - } - ds + Ordering_match + [ + [ + [ + { + hull_ccompare + a + } + dOrd + ] + v + ] + v + ] ] - (all dead (type) Ordering) + (all dead (type) Bool) } - (lam - l - a - (abs - dead - (type) - { + (abs + dead + (type) + { + [ [ - [ + { [ - { + Bool_match + in + ] + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ [ { - Extended_match - a + [ + Bool_match + in + ] + (all dead (type) Bool) } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ + (abs + dead + (type) [ [ - { - compare - a - } - dOrd + [ + { + fOrdUpperBound0_c + a + } + dOrd + ] + h ] - l + h ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail + ) + ] (abs - e + dead (type) - (error - e - ) + False ) ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (all dead (type) dead) + } ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + [ + [ + [ + { + fOrdUpperBound0_c + a + } + dOrd + ] + h + ] + h + ] + ) + ] + (all dead (type) dead) + } ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] + False ) ] (abs - dead (type) GT + dead + (type) + [ + [ + [ + { + fOrdUpperBound0_c + a + } + dOrd + ] + h + ] + h + ] ) ] (all dead (type) dead) } ) - ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ - [ - { - [ - { Extended_match a } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e (type) (error e) - ) - ] - ) ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (abs dead (type) EQ) - ] - (all dead (type) dead) - } ) - ] - (all dead (type) dead) - } + ) + ] ) ) ] - (all dead (type) dead) - } + ) ) ] - (all dead (type) dead) - } + ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fOrdUpperBound0_c - (all a (type) (fun [Ord a] (fun [UpperBound a] (fun [UpperBound a] Bool)))) - ) - (abs - a - (type) - (lam - dOrd - [Ord a] + (termbind + (strict) + (vardecl + equalsData (fun (con data) (fun (con data) Bool)) + ) (lam - x - [UpperBound a] + d + (con data) (lam - y - [UpperBound a] - [ - { [ { UpperBound_match a } x ] Bool } - (lam - v - [Extended a] - (lam - in - Bool - [ - { [ { UpperBound_match a } y ] Bool } - (lam - v - [Extended a] - (lam - in - Bool - { - [ - [ - [ - { - [ - Ordering_match - [ - [ - [ - { hull_ccompare a } - dOrd - ] - v - ] - v - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ - [ - { - [ Bool_match in ] - (all dead (type) Bool) - } - (abs dead (type) in) - ] - (abs dead (type) True) - ] - (all dead (type) dead) - } - ) - ] - (abs dead (type) False) - ] - (abs dead (type) True) - ] - (all dead (type) dead) - } - ) - ) - ] - ) - ) + d + (con data) + [ + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin equalsData) d ] d ] + ] + True + ] + False ] ) ) ) - ) - ) - (termbind - (strict) - (vardecl - contains - (all a (type) (fun [Ord a] (fun [Interval a] (fun [Interval a] Bool)))) - ) - (abs - a - (type) - (lam - dOrd - [Ord a] + (termbind + (strict) + (vardecl + findDatum + (fun (con bytestring) (fun TxInfo [Maybe (con data)])) + ) (lam - ds - [Interval a] + dsh + (con bytestring) (lam ds - [Interval a] + TxInfo [ - { [ { Interval_match a } ds ] Bool } + { [ TxInfo_match ds ] [Maybe (con data)] } (lam - l - [LowerBound a] + ds + [List TxInInfo] (lam - h - [UpperBound a] - [ - { [ { Interval_match a } ds ] Bool } + ds + [List TxOut] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - l - [LowerBound a] + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - h - [UpperBound a] - [ - { - [ { LowerBound_match a } l ] Bool - } + ds + [List DCert] + (lam + ds + [List [[Tuple2 StakingCredential] (con integer)]] (lam - v - [Extended a] + ds + [Interval (con integer)] (lam - in - Bool - [ - { - [ { LowerBound_match a } l ] - Bool - } + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] (lam - v - [Extended a] - (lam - in - Bool - { + ds + (con bytestring) + { + [ [ - [ + { [ { + Maybe_match + [[Tuple2 (con bytestring)] (con data)] + } + [ [ - Ordering_match [ - [ - [ - { - hull_ccompare - a - } - dOrd - ] - v - ] - v + { + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] + } + [[Tuple2 (con bytestring)] (con data)] + } + { + fMonoidFirst + [[Tuple2 (con bytestring)] (con data)] + } ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ + (lam + x + [[Tuple2 (con bytestring)] (con data)] [ { [ - Bool_match - in + { + { + Tuple2_match + (con bytestring) + } + (con data) + } + x ] - (all dead (type) Bool) + [Maybe [[Tuple2 (con bytestring)] (con data)]] } - (abs - dead - (type) - { - [ + (lam + dsh + (con bytestring) + (lam + ds + (con data) + { [ - { - [ - Bool_match - in - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ + [ + { [ + Bool_match [ - { - fOrdUpperBound0_c - a - } - dOrd + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + dsh + ] + dsh + ] + ] + True + ] + False ] - h ] - h - ] + (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) + } + (abs + dead + (type) + [ + { + Just + [[Tuple2 (con bytestring)] (con data)] + } + x + ] + ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 (con bytestring)] (con data)] + } ) ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (abs - dead - (type) - [ - [ - [ - { - fOrdUpperBound0_c - a - } - dOrd - ] - h - ] - h - ] - ) - ] - (all dead (type) dead) - } - ) + ) + ] + ds + ] ] + (all dead (type) [Maybe (con data)]) + } + (lam + a + [[Tuple2 (con bytestring)] (con data)] (abs - dead (type) False - ) - ] - (abs - dead - (type) - [ + dead + (type) [ + { + Just + (con data) + } [ { - fOrdUpperBound0_c - a + [ + { + { + Tuple2_match + (con bytestring) + } + (con data) + } + a + ] + (con data) } - dOrd + (lam + ds + (con bytestring) + (lam + b + (con data) + b + ) + ) ] - h ] - h - ] + ) ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + { Nothing (con data) } + ) + ] + (all dead (type) dead) + } ) - ] + ) ) ) - ] + ) ) ) - ] + ) ) ) ] ) ) ) - ) - ) - (termbind - (strict) - (vardecl equalsData (fun (con data) (fun (con data) Bool)) - ) - (lam - d - (con data) - (lam - d - (con data) - [ - [ - [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsData) d ] d ] - ] - True - ] - False - ] - ) - ) - ) - (termbind - (strict) - (vardecl - findDatum - (fun (con bytestring) (fun TxInfo [Maybe (con data)])) - ) - (lam - dsh - (con bytestring) - (lam - ds - TxInfo - [ - { [ TxInfo_match ds ] [Maybe (con data)] } + (termbind + (strict) + (vardecl + findTxInByTxOutRef + (fun TxOutRef (fun TxInfo [Maybe TxInInfo])) + ) + (lam + outRef + TxOutRef (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxInfo + [ + { [ TxInfo_match ds ] [Maybe TxInInfo] } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { + [ [ { - Maybe_match - [[Tuple2 (con bytestring)] (con data)] + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) TxInInfo] + } + TxInInfo + } + { + fMonoidFirst + TxInInfo } + ] + (lam + x + TxInInfo [ - [ + { [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] - } - [[Tuple2 (con bytestring)] (con data)] - } - { - fMonoidFirst - [[Tuple2 (con bytestring)] (con data)] - } + TxInInfo_match x ] + [Maybe TxInInfo] + } + (lam + ds + TxOutRef (lam - x - [[Tuple2 (con bytestring)] (con data)] - [ - { + ds + TxOut + { + [ [ - { - { - Tuple2_match - (con bytestring) - } - (con data) - } - x - ] - [Maybe [[Tuple2 (con bytestring)] (con data)]] - } - (lam - dsh - (con bytestring) - (lam - ds - (con data) { [ + Bool_match [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - dsh - ] - dsh - ] - ] - True - ] - False - ] - ] - (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) - } - (abs - dead - (type) - [ - { - Just - [[Tuple2 (con bytestring)] (con data)] - } - x - ] - ) + [ + fEqTxOutRef_c + ds + ] + outRef ] - (abs - dead - (type) - { - Nothing - [[Tuple2 (con bytestring)] (con data)] - } - ) ] - (all dead (type) dead) + (all dead (type) [Maybe TxInInfo]) + } + (abs + dead + (type) + [ + { + Just + TxInInfo + } + x + ] + ) + ] + (abs + dead + (type) + { + Nothing + TxInInfo } ) - ) - ] - ) - ] - ds - ] - ] - (all dead (type) [Maybe (con data)]) - } - (lam - a - [[Tuple2 (con bytestring)] (con data)] - (abs - dead - (type) - [ - { Just (con data) } - [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - (con data) - } - a - ] - (con data) - } - (lam - ds - (con bytestring) - (lam - b (con data) b - ) + ] + (all dead (type) dead) + } ) - ] + ) ] ) - ) + ] + ds ] - (abs - dead - (type) - { Nothing (con data) } - ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) @@ -6757,128 +7100,179 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - findTxInByTxOutRef - (fun TxOutRef (fun TxInfo [Maybe TxInInfo])) - ) - (lam - outRef - TxOutRef - (lam - ds - TxInfo - [ - { [ TxInfo_match ds ] [Maybe TxInInfo] } - (lam - ds - [List TxInInfo] + (termbind + (strict) + (vardecl + snd + (all a (type) (all b (type) (fun [[Tuple2 a] b] b))) + ) + (abs + a + (type) + (abs + b + (type) (lam ds - [List TxOut] + [[Tuple2 a] b] + [ + { [ { { Tuple2_match a } b } ds ] b } + (lam ds a (lam b b b)) + ] + ) + ) + ) + ) + (termbind + (strict) + (vardecl + txSignedBy (fun TxInfo (fun (con bytestring) Bool)) + ) + (lam + ds + TxInfo + (lam + k + (con bytestring) + [ + { [ TxInfo_match ds ] Bool } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) TxInInfo] - } - TxInInfo - } - { fMonoidFirst TxInInfo } - ] - (lam - x - TxInInfo + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ - { - [ TxInInfo_match x ] - [Maybe TxInInfo] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - { + [ + { + [ + { + Maybe_match + (con bytestring) + } [ [ - { - [ - Bool_match + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) (con bytestring)] + } + (con bytestring) + } + { + fMonoidFirst + (con bytestring) + } + ] + (lam + x + (con bytestring) + { [ [ - fEqTxOutRef_c - ds + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + k + ] + x + ] + ] + True + ] + False + ] + ] + (all dead (type) [Maybe (con bytestring)]) + } + (abs + dead + (type) + [ + { + Just + (con bytestring) + } + x + ] + ) ] - outRef + (abs + dead + (type) + { + Nothing + (con bytestring) + } + ) ] - ] - (all dead (type) [Maybe TxInInfo]) - } - (abs - dead - (type) - [ - { - Just - TxInInfo - } - x - ] + (all dead (type) dead) + } ) ] - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) + ds ] - (all dead (type) dead) - } + ] + (all dead (type) Bool) + } + (lam + ds + (con bytestring) + (abs + dead (type) True + ) ) - ) + ] + (abs dead (type) False) ] - ) - ] - ds - ] + (all dead (type) dead) + } + ) + ) ) ) ) @@ -6887,234 +7281,160 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - snd (all a (type) (all b (type) (fun [[Tuple2 a] b] b))) - ) - (abs - a - (type) - (abs - b - (type) + (termbind + (strict) + (vardecl + valueOf + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun (con bytestring) (fun (con bytestring) (con integer)))) + ) (lam ds - [[Tuple2 a] b] - [ - { [ { { Tuple2_match a } b } ds ] b } - (lam ds a (lam b b b)) - ] - ) - ) - ) - ) - (termbind - (strict) - (vardecl - txSignedBy (fun TxInfo (fun (con bytestring) Bool)) - ) - (lam - ds - TxInfo - (lam - k - (con bytestring) - [ - { [ TxInfo_match ds ] Bool } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - ds - [List TxInInfo] + cur + (con bytestring) (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + tn + (con bytestring) + (let + (nonrec) + (termbind + (strict) + (vardecl + j + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] (con integer)) + ) (lam - ds - [List DCert] - (lam - ds - [List [[Tuple2 StakingCredential] (con integer)]] - (lam - ds - [Interval (con integer)] + i + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun [List [[Tuple2 (con bytestring)] (con integer)]] (con integer)) + ) (lam ds - [List (con bytestring)] - (lam - ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List [[Tuple2 (con bytestring)] (con integer)]] + [ + [ + { + [ + { + Nil_match + [[Tuple2 (con bytestring)] (con integer)] + } + ds + ] + (con integer) + } + (con integer 0) + ] (lam ds - (con bytestring) - { + [[Tuple2 (con bytestring)] (con integer)] + (lam + xs + [List [[Tuple2 (con bytestring)] (con integer)]] [ - [ - { - [ + { + [ + { { - Maybe_match + Tuple2_match (con bytestring) } + (con integer) + } + ds + ] + (con integer) + } + (lam + c + (con bytestring) + (lam + i + (con integer) + { [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) (con bytestring)] - } - (con bytestring) - } - { - fMonoidFirst - (con bytestring) - } - ] - (lam - x - (con bytestring) - { + { + [ + Bool_match [ [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - k - ] - x - ] - ] - True - ] - False - ] - ] - (all dead (type) [Maybe (con bytestring)]) - } - (abs - dead - (type) + [ + { + (builtin + ifThenElse + ) + Bool + } [ - { - Just - (con bytestring) - } - x + [ + (builtin + equalsByteString + ) + c + ] + tn ] - ) + ] + True ] - (abs - dead - (type) - { - Nothing - (con bytestring) - } - ) + False ] - (all dead (type) dead) - } + ] + (all dead (type) (con integer)) + } + (abs dead (type) i ) ] - ds + (abs + dead + (type) + [ go xs ] + ) ] - ] - (all dead (type) Bool) - } - (lam - ds - (con bytestring) - (abs dead (type) True) + (all dead (type) dead) + } ) - ] - (abs dead (type) False) + ) ] - (all dead (type) dead) - } + ) ) - ) + ] ) ) + [ go i ] ) ) ) - ) - ) - ) - ] - ) - ) - ) - (termbind - (strict) - (vardecl - valueOf - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun (con bytestring) (fun (con bytestring) (con integer)))) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - cur - (con bytestring) - (lam - tn - (con bytestring) - (let - (nonrec) - (termbind - (strict) - (vardecl - j - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] (con integer)) - ) - (lam - i - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] (let (rec) (termbind (strict) (vardecl go - (fun [List [[Tuple2 (con bytestring)] (con integer)]] (con integer)) + (fun [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (con integer)) ) (lam ds - [List [[Tuple2 (con bytestring)] (con integer)]] + [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [ [ { [ { Nil_match - [[Tuple2 (con bytestring)] (con integer)] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } ds ] @@ -7124,10 +7444,10 @@ ] (lam ds - [[Tuple2 (con bytestring)] (con integer)] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam xs - [List [[Tuple2 (con bytestring)] (con integer)]] + [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [ { [ @@ -7136,7 +7456,7 @@ Tuple2_match (con bytestring) } - (con integer) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } ds ] @@ -7147,7 +7467,7 @@ (con bytestring) (lam i - (con integer) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] { [ [ @@ -7170,7 +7490,7 @@ ) c ] - tn + cur ] ] True @@ -7180,7 +7500,9 @@ ] (all dead (type) (con integer)) } - (abs dead (type) i) + (abs + dead (type) [ j i ] + ) ] (abs dead (type) [ go xs ] @@ -7196,352 +7518,258 @@ ] ) ) - [ go i ] + [ go ds ] ) ) ) - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (con integer)) - ) - (lam - ds - [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - [ - [ - { - [ - { - Nil_match - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ds - ] - (con integer) - } - (con integer 0) - ] + ) + ) + ) + (termbind + (strict) + (vardecl + foldr + (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) + ) + (abs + a + (type) + (abs + b + (type) + (lam + k + (fun a (fun b b)) + (lam + z + b + (let + (rec) + (termbind + (strict) + (vardecl go (fun [List a] b)) (lam ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - xs - [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [List a] + { [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - (con integer) - } + [ + { + [ { Nil_match a } ds ] + (all dead (type) b) + } + (abs dead (type) z) + ] (lam - c - (con bytestring) + y + a (lam - i - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - c - ] - cur - ] - ] - True - ] - False - ] - ] - (all dead (type) (con integer)) - } - (abs dead (type) [ j i ]) - ] - (abs dead (type) [ go xs ]) - ] - (all dead (type) dead) - } + ys + [List a] + (abs + dead + (type) + [ [ k y ] [ go ys ] ] + ) ) ) ] - ) + (all dead (type) dead) + } ) - ] + ) + go ) ) - [ go ds ] ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - foldr - (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - k - (fun a (fun b b)) - (lam - z - b - (let - (rec) - (termbind - (strict) - (vardecl go (fun [List a] b)) - (lam - ds - [List a] - { - [ - [ - { - [ { Nil_match a } ds ] - (all dead (type) b) - } - (abs dead (type) z) - ] - (lam - y - a - (lam - ys - [List a] - (abs - dead (type) [ [ k y ] [ go ys ] ] - ) - ) - ) - ] - (all dead (type) dead) - } - ) - ) - go - ) - ) + (termbind + (strict) + (vardecl + pubKeyOutputsAt + (fun (con bytestring) (fun TxInfo [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]])) ) - ) - ) - ) - (termbind - (strict) - (vardecl - pubKeyOutputsAt - (fun (con bytestring) (fun TxInfo [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]])) - ) - (lam - pk - (con bytestring) - (lam - p - TxInfo - [ - { - [ TxInfo_match p ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } + (lam + pk + (con bytestring) (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] + p + TxInfo + [ + { + [ TxInfo_match p ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { - { foldr TxOut } - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - (lam - e - TxOut - (lam - xs - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - [ - { - [ TxOut_match e ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } + [ + [ + { + { foldr TxOut } + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + (lam + e + TxOut (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + xs + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [ + { + [ + TxOut_match + e + ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } (lam ds - [Maybe (con bytestring)] - [ - { - [ - Address_match - ds - ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - Credential - (lam - ds - [Maybe StakingCredential] - [ + [Maybe (con bytestring)] + [ + { [ - { + Address_match + ds + ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + (lam + ds + Credential + (lam + ds + [Maybe StakingCredential] + [ [ - Credential_match - ds - ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - (lam - pk - (con bytestring) - { - [ + { [ - { + Credential_match + ds + ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + (lam + pk + (con bytestring) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsByteString - ) - pk + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + pk + ] + pk + ] ] - pk + True ] + False ] - True ] - False - ] + (all dead (type) [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) + } + (abs + dead + (type) + [ + [ + { + Cons + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ds + ] + xs + ] + ) ] - (all dead (type) [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) - } - (abs - dead - (type) - [ - [ - { - Cons - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ds - ] + (abs + dead + (type) xs - ] - ) - ] - (abs - dead - (type) - xs - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - ipv - (con bytestring) - xs + ) + ] + (all dead (type) dead) + } + ) + ] + (lam + ipv + (con bytestring) + xs + ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) + ] ) - ] - ) - ) + ) + ] + { + Nil + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ] + ds ] - { - Nil - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - ds - ] + ) + ) ) ) ) @@ -7550,160 +7778,160 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (nonstrict) - (vardecl - fMonoidValue_c - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - [ unionWith addInteger ] - ) - (termbind - (strict) - (vardecl - valuePaidTo - (fun TxInfo (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - ptx - TxInfo - (lam - pkh - (con bytestring) - [ - [ + (termbind + (nonstrict) + (vardecl + fMonoidValue_c + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + [ unionWith addInteger ] + ) + (termbind + (strict) + (vardecl + valuePaidTo + (fun TxInfo (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + (lam + ptx + TxInfo + (lam + pkh + (con bytestring) [ - { + [ + [ + { + { + foldr + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + fMonoidValue_c + ] { - foldr - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - fMonoidValue_c + ] + [ [ pubKeyOutputsAt pkh ] ptx ] ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - [ [ pubKeyOutputsAt pkh ] ptx ] - ] - ) - ) - ) - (termbind - (nonstrict) - (vardecl - fMonoidValue - [Monoid [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - ) - [ - [ - { - CConsMonoid - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - fMonoidValue_c - ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - ) - (termbind - (strict) - (vardecl - txOutValue - (fun TxOut [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) - ) - (lam - ds - TxOut - [ - { - [ TxOut_match ds ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam ds [Maybe (con bytestring)] ds) ) ) - ] - ) - ) - (termbind - (strict) - (vardecl - valueProduced - (fun TxInfo [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) - ) - (lam - x - TxInfo - [ - { - [ TxInfo_match x ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } + ) + (termbind + (nonstrict) + (vardecl + fMonoidValue + [Monoid [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + ) + [ + [ + { + CConsMonoid + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + fMonoidValue_c + ] + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ] + ) + (termbind + (strict) + (vardecl + txOutValue + (fun TxOut [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) + ) (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxOut + [ + { + [ TxOut_match ds ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Address (lam ds [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam ds [Maybe (con bytestring)] ds) + ) + ) + ] + ) + ) + (termbind + (strict) + (vardecl + valueProduced + (fun TxInfo [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) + ) + (lam + x + TxInfo + [ + { + [ TxInfo_match x ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [List TxInInfo] + (lam + ds + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { - { - fFoldableNil_cfoldMap - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - TxOut - } - fMonoidValue + [ + [ + { + { + fFoldableNil_cfoldMap + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + TxOut + } + fMonoidValue + ] + txOutValue + ] + ds ] - txOutValue - ] - ds - ] + ) + ) ) ) ) @@ -7712,34 +7940,34 @@ ) ) ) - ) + ] ) - ] - ) - ) - (termbind - (strict) - (vardecl - checkTxConstraint - (fun ScriptContext (fun TxConstraint Bool)) - ) - (lam - ds - ScriptContext - [ - { [ ScriptContext_match ds ] (fun TxConstraint Bool) } - (lam - ds - TxInfo + ) + (let + (rec) + (termbind + (strict) + (vardecl + checkTxConstraint + (fun ScriptContext (fun TxConstraint Bool)) + ) (lam - ds - ScriptPurpose - (lam - ds - TxConstraint - [ - [ - [ + ctx + ScriptContext + [ + { + [ ScriptContext_match ctx ] + (fun TxConstraint Bool) + } + (lam + ds + TxInfo + (lam + ds + ScriptPurpose + (lam + ds + TxConstraint [ [ [ @@ -7748,583 +7976,599 @@ [ [ [ - { + [ [ - TxConstraint_match ds - ] - Bool - } - (lam - pubKey - (con bytestring) - { [ [ { [ - Bool_match + TxConstraint_match + ds + ] + Bool + } + (lam + pubKey + (con bytestring) + { [ [ - txSignedBy - ds + { + [ + Bool_match + [ + [ + txSignedBy + ds + ] + pubKey + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - pubKey + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L4" + ) + ] + False + ] + ) ] - ] - (all dead (type) Bool) - } - (abs - dead (type) True + (all dead (type) dead) + } ) ] - (abs - dead - (type) - [ - [ - { - (builtin - trace + (lam + dvh + (con bytestring) + (lam + dv + (con data) + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + j Bool ) - Bool - } - (con - string "L4" - ) - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - dvh - (con bytestring) - (lam - dv - (con data) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - [ - [ - { - (builtin trace - ) - Bool - } - (con string "Lc" - ) - ] - False - ] - ) - { - [ - [ - { - [ - { - Maybe_match - (con data) - } [ [ - findDatum - dvh + { + (builtin + trace + ) + Bool + } + (con + string + "Lc" + ) ] - ds + False ] - ] - (all dead (type) Bool) - } - (lam - a - (con data) - (abs - dead - (type) - { - [ - [ - { + ) + { + [ + [ + { + [ + { + Maybe_match + (con data) + } [ - Bool_match + [ + findDatum + dvh + ] + ds + ] + ] + (all dead (type) Bool) + } + (lam + a + (con data) + (abs + dead + (type) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { [ + Bool_match [ - (builtin - equalsData - ) - a + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsData + ) + a + ] + dv + ] + ] + True + ] + False ] - dv ] - ] - True + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - False + (abs + dead + (type) + j + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - j ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + j + ) + ] + (all dead (type) dead) + } ) - ] - (abs dead (type) j ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - (lam - dv - (con data) - [ - { - [ TxInfo_match ds ] Bool - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] + ) + ] (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + dv + (con data) + [ + { + [ + TxInfo_match + ds + ] + Bool + } (lam ds - [List DCert] + [List TxInInfo] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [List TxOut] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List DCert] (lam ds - (con bytestring) - { - [ - [ - { - [ - Bool_match + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - (con data) - } + { [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + (con data) + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + [ + equalsData + dv + ] + ] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con data)] + } + (con data) + } + { + { + snd + (con bytestring) + } + (con data) + } + ] + ds + ] + ] ] - ] - [ - equalsData - dv - ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - [ + (abs + dead + (type) [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con data)] - } - (con data) - } - { + [ { - snd - (con bytestring) + (builtin + trace + ) + Bool } - (con data) - } + (con + string + "L2" + ) + ] + False ] - ds - ] - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace ) - Bool - } - (con - string - "L2" - ) - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ] - ) - ] - (lam - mps - (con bytestring) - (lam - ds - (con data) - (lam - tn - (con bytestring) - (lam - v - (con integer) - { - [ - [ - { - [ - Bool_match + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ] + ) + ] + (lam + mps + (con bytestring) + (lam + ds + (con data) + (lam + tn + (con bytestring) + (lam + v + (con integer) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { [ + Bool_match [ - (builtin - equalsInteger - ) [ [ + { + (builtin + ifThenElse + ) + Bool + } [ - valueOf [ - { + (builtin + equalsInteger + ) + [ [ - TxInfo_match - ds - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + valueOf + [ + { + [ + TxInfo_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - [List DCert] + [List TxInInfo] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [List TxOut] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List DCert] (lam ds - (con bytestring) - ds + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + ds + ) + ) + ) + ) ) ) ) ) ) ) - ) - ) - ) - ) + ] + ] + mps + ] + tn + ] ] + v ] - mps ] - tn + True ] + False ] - v ] - ] - True + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - False + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L9" + ) + ] + False + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ] + (lam + vlh + (con bytestring) + (lam + dv + (con data) + (lam + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + hsh + [Maybe (con bytestring)] + ) + [ + [ + findDatumHash + dv ] + ds ] - (all dead (type) Bool) - } - (abs - dead (type) True ) - ] - (abs - dead - (type) - [ + (termbind + (nonstrict) + (vardecl + addr + Credential + ) + [ + ScriptCredential + vlh + ] + ) + (termbind + (nonstrict) + (vardecl + addr Address + ) [ + [ + Address addr + ] { - (builtin - trace - ) - Bool + Nothing + StakingCredential } - (con - string "L9" - ) ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ) - ] - (lam - vlh - (con bytestring) - (lam - dv - (con data) - (lam - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - hsh - [Maybe (con bytestring)] - ) - [ - [ findDatumHash dv ] - ds - ] - ) - (termbind - (nonstrict) - (vardecl addr Credential - ) - [ ScriptCredential vlh ] - ) - (termbind - (nonstrict) - (vardecl addr Address) - [ - [ Address addr ] - { - Nothing - StakingCredential - } - ] - ) - [ - { - [ TxInfo_match ds ] - Bool - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ) + [ + { + [ + TxInfo_match + ds + ] + Bool + } (lam ds - [List DCert] + [List TxInInfo] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [List TxOut] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List DCert] (lam ds - (con bytestring) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxOut - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxOut + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { + [ + [ + { [ - { + Bool_match + [ [ - TxOut_match - ds - ] - Bool - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxOut + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] (lam ds - [Maybe (con bytestring)] - { - [ + TxOut + [ + { [ - { - [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) Bool) - } + TxOut_match + ds + ] + Bool + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - svh - (con bytestring) - (abs - dead - (type) - { + ds + [Maybe (con bytestring)] + { + [ [ - [ - { - [ - Bool_match - [ - [ - [ - checkBinRel - equalsInteger - ] - ds - ] - vl - ] - ] - (all dead (type) Bool) - } + { + [ + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) Bool) + } + (lam + svh + (con bytestring) (abs dead (type) @@ -8333,73 +8577,105 @@ [ { [ - { - Maybe_match - (con bytestring) - } - hsh + Bool_match + [ + [ + [ + checkBinRel + equalsInteger + ] + ds + ] + vl + ] ] (all dead (type) Bool) } - (lam - a - (con bytestring) - (abs - dead - (type) - { + (abs + dead + (type) + { + [ [ - [ - { - [ - Bool_match + { + [ + { + Maybe_match + (con bytestring) + } + hsh + ] + (all dead (type) Bool) + } + (lam + a + (con bytestring) + (abs + dead + (type) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + a + ] + svh + ] + ] + True + ] + False + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) [ [ - (builtin - equalsByteString - ) - a + fEqAddress_c + ds ] - svh + addr ] - ] - True + ) ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ - [ - fEqAddress_c - ds + (abs + dead + (type) + False + ) ] - addr - ] + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - False ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } ) ] (abs @@ -8411,84 +8687,234 @@ (all dead (type) dead) } ) - ] - (abs - dead - (type) - False ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - False ) - ] - (all dead (type) dead) - } + ) + ] ) - ) - ) + ] + ds + ] ] + (all dead (type) Bool) + } + (abs + dead + (type) + True ) ] - ds + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "Lb" + ) + ] + False + ] + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "Lb" - ) - ] - False - ] ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) ) ) ) - ) + ] ) ) ) + ) + ] + (lam + pk + (con bytestring) + (lam + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + checkBinRel + lessThanEqInteger + ] + vl + ] + [ + [ + valuePaidTo + ds + ] + pk + ] + ] + ] + (all dead (type) Bool) + } + (abs + dead (type) True + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string "La" + ) + ] + False + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (lam + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + checkBinRel + lessThanEqInteger + ] + vl + ] + [ + valueProduced + ds + ] + ] + ] + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (abs + dead + (type) + [ + [ + { + (builtin trace) + Bool + } + (con string "L6") + ] + False + ] + ) + ] + (all dead (type) dead) + } + ) + ] + (lam + xs + [List TxConstraint] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxConstraint + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + [ + checkTxConstraint + ctx + ] + ] + xs + ] + ] + (all dead (type) Bool) + } + (abs dead (type) True) ] - ) - ) + (abs + dead + (type) + [ + [ + { + (builtin trace) + Bool + } + (con string "Ld") + ] + False + ] + ) + ] + (all dead (type) dead) + } ) - ) - ] - (lam - pk - (con bytestring) + ] (lam vl [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] @@ -8507,8 +8933,111 @@ vl ] [ - [ valuePaidTo ds ] - pk + { + [ + TxInfo_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [List TxInInfo] + (lam + ds + [List TxOut] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [List DCert] + (lam + ds + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + TxInInfo + } + fMonoidValue + ] + (lam + x + TxInInfo + [ + { + [ + TxInInfo_match + x + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + ds + ) + ) + ) + ] + ) + ) + ] + ) + ] + ds + ] + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) ] ] ] @@ -8524,7 +9053,7 @@ { (builtin trace) Bool } - (con string "La") + (con string "L5") ] False ] @@ -8533,51 +9062,173 @@ (all dead (type) dead) } ) + ] + (lam + txOutRef + TxOutRef + (let + (nonrec) + (termbind + (nonstrict) + (vardecl j Bool) + [ + [ + { (builtin trace) Bool } + (con string "L7") + ] + False + ] + ) + { + [ + [ + { + [ + { + Maybe_match TxInInfo + } + [ + [ + findTxInByTxOutRef + txOutRef + ] + ds + ] + ] + (all dead (type) Bool) + } + (lam + a + TxInInfo + (abs + dead + (type) + [ + { + [ + TxInInfo_match a + ] + Bool + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + Bool + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + { + [ + [ + { + [ + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) Bool) + } + (lam + ds + (con bytestring) + (abs + dead + (type) + j + ) + ) + ] + (abs + dead + (type) + True + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ] + ) + ) + ] + ) + ) + ] + (abs dead (type) j) + ] + (all dead (type) dead) + } + ) ) ] (lam - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - { - [ + txOutRef + TxOutRef + (lam + ds + (con data) + { [ - { - [ - Bool_match + [ + { [ + { Maybe_match TxInInfo } [ [ - checkBinRel - lessThanEqInteger + findTxInByTxOutRef + txOutRef ] - vl + ds ] - [ valueProduced ds ] ] - ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (abs - dead - (type) - [ + (all dead (type) Bool) + } + (lam + ds + TxInInfo + (abs dead (type) True) + ) + ] + (abs + dead + (type) [ - { (builtin trace) Bool } - (con string "L6") + [ + { (builtin trace) Bool } + (con string "L8") + ] + False ] - False - ] - ) - ] - (all dead (type) dead) - } + ) + ] + (all dead (type) dead) + } + ) ) ] (lam - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + interval + [Interval (con integer)] { [ [ @@ -8587,15 +9238,18 @@ [ [ [ - checkBinRel - lessThanEqInteger + { + contains + (con integer) + } + fOrdPOSIXTime ] - vl + interval ] [ { [ TxInfo_match ds ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [Interval (con integer)] } (lam ds @@ -8627,64 +9281,7 @@ (lam ds (con bytestring) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - TxInInfo - } - fMonoidValue - ] - (lam - x - TxInInfo - [ - { - [ - TxInInfo_match - x - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { - [ - TxOut_match - ds - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [Maybe (con bytestring)] - ds - ) - ) - ) - ] - ) - ) - ] - ) - ] - ds - ] + ds ) ) ) @@ -8706,349 +9303,76 @@ dead (type) [ - [ - { (builtin trace) Bool } - (con string "L5") - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - txOutRef - TxOutRef - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - [ - [ - { (builtin trace) Bool } - (con string "L7") - ] - False - ] - ) - { - [ - [ - { - [ - { Maybe_match TxInInfo } - [ - [ - findTxInByTxOutRef - txOutRef - ] - ds - ] - ] - (all dead (type) Bool) - } - (lam - a - TxInInfo - (abs - dead - (type) - [ - { - [ TxInInfo_match a ] - Bool - } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { - [ TxOut_match ds ] - Bool - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [Maybe (con bytestring)] - { - [ - [ - { - [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) Bool) - } - (lam - ds - (con bytestring) - (abs - dead - (type) - j - ) - ) - ] - (abs - dead - (type) - True - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - ) - ) - ] - ) - ) - ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) - ) - ] - (lam - txOutRef - TxOutRef - (lam - ds - (con data) - { - [ - [ - { - [ - { Maybe_match TxInInfo } - [ - [ - findTxInByTxOutRef - txOutRef - ] - ds - ] - ] - (all dead (type) Bool) - } - (lam - ds - TxInInfo - (abs dead (type) True) - ) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L8") - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (lam - interval - [Interval (con integer)] - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { contains (con integer) } - fOrdPOSIXTime - ] - interval - ] - [ - { - [ TxInfo_match ds ] - [Interval (con integer)] - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [List DCert] - (lam - ds - [List [[Tuple2 StakingCredential] (con integer)]] - (lam - ds - [Interval (con integer)] - (lam - ds - [List (con bytestring)] - (lam - ds - [List [[Tuple2 (con bytestring)] (con data)]] - (lam - ds - (con bytestring) - ds - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) + [ + { (builtin trace) Bool } + (con string "L3") + ] + False ] - ] + ) ] - (all dead (type) Bool) + (all dead (type) dead) } - (abs dead (type) True) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L3") - ] - False - ] ) ] - (all dead (type) dead) - } + ) ) - ] - ) + ) + ] ) ) - ] - ) - ) - (termbind - (strict) - (vardecl - checkScriptContext - (all i (type) (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun [[TxConstraints i] o] (fun ScriptContext Bool))))) - ) - (abs - i - (type) - (abs - o - (type) - (lam - dToData - [(lam a (type) (fun a (con data))) o] - (lam - ds - [[TxConstraints i] o] - (lam - ptx - ScriptContext - [ - { - [ { { TxConstraints_match i } o } ds ] Bool - } + (let + (nonrec) + (termbind + (strict) + (vardecl + checkScriptContext + (all i (type) (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun [[TxConstraints i] o] (fun ScriptContext Bool))))) + ) + (abs + i + (type) + (abs + o + (type) (lam - ds - [List TxConstraint] + dToData + [(lam a (type) (fun a (con data))) o] (lam ds - [List [InputConstraint i]] + [[TxConstraints i] o] (lam - ds - [List [OutputConstraint o]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - [ - [ - { (builtin trace) Bool } - (con string "Ld") - ] - False - ] - ) + ptx + ScriptContext + [ { [ - [ - { - [ - Bool_match + { { TxConstraints_match i } o } ds + ] + Bool + } + (lam + ds + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl j Bool) [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxConstraint - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - [ - checkTxConstraint ptx - ] + { (builtin trace) Bool } + (con string "Ld") ] - ds + False ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) + ) { [ [ @@ -9063,7 +9387,7 @@ fFoldableNil_cfoldMap [(lam a (type) a) Bool] } - [InputConstraint i] + TxConstraint } [ { @@ -9074,10 +9398,7 @@ ] ] [ - { - checkOwnInputConstraint - i - } + checkTxConstraint ptx ] ] @@ -9103,7 +9424,7 @@ fFoldableNil_cfoldMap [(lam a (type) a) Bool] } - [OutputConstraint o] + [InputConstraint i] } [ { @@ -9114,13 +9435,10 @@ ] ] [ - [ - { - checkOwnOutputConstraint - o - } - dToData - ] + { + checkOwnInputConstraint + i + } ptx ] ] @@ -9132,7 +9450,60 @@ (abs dead (type) - True + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [OutputConstraint o] + } + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] + ] + [ + [ + { + checkOwnOutputConstraint + o + } + dToData + ] + ptx + ] + ] + ds + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + j + ) + ] + (all dead (type) dead) + } ) ] (abs dead (type) j @@ -9144,813 +9515,808 @@ ] (abs dead (type) j) ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ) + ) + ) + ] + ) + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + isZero + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool) + ) + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dMonoid [Monoid [(lam a (type) a) Bool]] + ) + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] + ) + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] + ] + (lam + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + [ + { + { + Tuple2_match (con bytestring) + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 (con bytestring)] (con integer)] + } + dMonoid + ] + (lam + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con integer) + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + (con integer) + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + (con + integer 0 + ) + ] + a + ] + ] + True + ] + False + ] + ) + ) + ] + ) + ] + a ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) + ) + ) + ] ) - ) - ) - ] + ] + ds + ] + ) ) ) - ) - ) - ) - ) - (termbind - (strict) - (vardecl - isZero - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl dMonoid [Monoid [(lam a (type) a) Bool]]) - [ - { fMonoidProduct Bool } fMultiplicativeMonoidBool - ] - ) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] - ] + (termbind + (strict) + (vardecl + ownHashes + (fun ScriptContext [[Tuple2 (con bytestring)] (con bytestring)]) + ) (lam ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - [ - { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - [(lam a (type) a) Bool] - } - (lam - ds - (con bytestring) + ScriptContext + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) [[Tuple2 (con bytestring)] (con bytestring)]) + ) (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + ds + (all a (type) a) [ + { + error + [[Tuple2 (con bytestring)] (con bytestring)] + } [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] (con integer)] - } - dMonoid - ] - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] + { [ - { + Unit_match + [ [ - { - { - Tuple2_match - (con bytestring) - } - (con integer) - } - ds + { (builtin trace) Unit } + (con string "Lg") ] - [(lam a (type) a) Bool] - } - (lam - ds - (con bytestring) - (lam - a - (con integer) - [ - [ - [ - { - (builtin ifThenElse) - Bool - } - [ - [ - (builtin - equalsInteger - ) - (con integer 0) - ] - a - ] - ] - True - ] - False - ] - ) - ) + Unit + ] ] - ) + (con unit) + } + (con unit ()) ] - a ] ) ) - ] - ) - ] - ds - ] - ) - ) - ) - (termbind - (strict) - (vardecl - ownHashes - (fun ScriptContext [[Tuple2 (con bytestring)] (con bytestring)]) - ) - (lam - ds - ScriptContext - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) [[Tuple2 (con bytestring)] (con bytestring)]) - ) - (lam - ds - (all a (type) a) - [ - { - error - [[Tuple2 (con bytestring)] (con bytestring)] - } - [ { [ - Unit_match [ - [ - { (builtin trace) Unit } - (con string "Lg") - ] - Unit - ] - ] - (con unit) - } - (con unit ()) - ] - ] - ) - ) - { - [ - [ - { - [ - { Maybe_match TxInInfo } [ findOwnInput ds ] - ] - (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { - [ TxInInfo_match ds ] - [[Tuple2 (con bytestring)] (con bytestring)] - } - (lam - ds - TxOutRef + { + [ + { Maybe_match TxInInfo } + [ findOwnInput ds ] + ] + (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) + } (lam ds - TxOut - [ - { - [ TxOut_match ds ] - [[Tuple2 (con bytestring)] (con bytestring)] - } - (lam - ds - Address + TxInInfo + (abs + dead + (type) + [ + { + [ TxInInfo_match ds ] + [[Tuple2 (con bytestring)] (con bytestring)] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + TxOutRef (lam ds - [Maybe (con bytestring)] + TxOut [ { - [ Address_match ds ] + [ TxOut_match ds ] [[Tuple2 (con bytestring)] (con bytestring)] } (lam ds - Credential + Address (lam ds - [Maybe StakingCredential] - [ + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] [ { [ - Credential_match - ds + Address_match ds ] [[Tuple2 (con bytestring)] (con bytestring)] } (lam - ipv - (con bytestring) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (lam - s - (con bytestring) - { - [ + ds + Credential + (lam + ds + [Maybe StakingCredential] [ - { - [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) - } + [ + { + [ + Credential_match + ds + ] + [[Tuple2 (con bytestring)] (con bytestring)] + } + (lam + ipv + (con bytestring) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] (lam - dh + s (con bytestring) - (abs - dead - (type) + { [ [ { - { - Tuple2 - (con bytestring) - } - (con bytestring) + [ + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) } - s + (lam + dh + (con bytestring) + (abs + dead + (type) + [ + [ + { + { + Tuple2 + (con bytestring) + } + (con bytestring) + } + s + ] + dh + ] + ) + ) ] - dh + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) ] - ) + (all dead (type) dead) + } ) ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (all dead (type) dead) - } - ) - ] + ) + ) + ] + ) ) ) ] ) ) - ) - ] + ] + ) ) + ] + (abs + dead + (type) + [ fail (abs e (type) (error e)) ] ) ] - ) + (all dead (type) dead) + } ) - ] - (abs dead (type) [ fail (abs e (type) (error e)) ] ) - ] - (all dead (type) dead) - } - ) - ) - ) - (termbind - (strict) - (vardecl ownHash (fun ScriptContext (con bytestring))) - (lam - p - ScriptContext - [ - { - [ - { - { Tuple2_match (con bytestring) } + ) + (termbind + (strict) + (vardecl + ownHash (fun ScriptContext (con bytestring)) + ) + (lam + p + ScriptContext + [ + { + [ + { + { Tuple2_match (con bytestring) } + (con bytestring) + } + [ ownHashes p ] + ] + (con bytestring) + } + (lam + a + (con bytestring) + (lam ds (con bytestring) a) + ) + ] + ) + ) + (termbind + (strict) + (vardecl + b + (fun (con bytestring) [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) + ) + (lam + ds (con bytestring) - } - [ ownHashes p ] - ] - (con bytestring) - } - (lam a (con bytestring) (lam ds (con bytestring) a)) - ] - ) - ) - (termbind - (strict) - (vardecl - b - (fun (con bytestring) [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) - ) - (lam - ds - (con bytestring) - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ) - ) - (termbind - (nonstrict) - (vardecl - threadTokenValueInner - (fun [Maybe ThreadToken] (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - m - [Maybe ThreadToken] - { - [ - [ - { - [ { Maybe_match ThreadToken } m ] - (all dead (type) (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - } + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ) + ) + (termbind + (nonstrict) + (vardecl + threadTokenValueInner + (fun [Maybe ThreadToken] (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) (lam - a - ThreadToken - (abs - dead - (type) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl currency (con bytestring)) - [ - { - [ ThreadToken_match a ] - (con bytestring) - } - (lam - ds - TxOutRef - (lam ds (con bytestring) ds) - ) - ] - ) - (lam - ds - (con bytestring) - [ - [ - { - Cons - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [ - [ - { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - currency - ] - [ + m + [Maybe ThreadToken] + { + [ + [ + { + [ { Maybe_match ThreadToken } m ] + (all dead (type) (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + } + (lam + a + ThreadToken + (abs + dead + (type) + (let + (nonrec) + (termbind + (nonstrict) + (vardecl currency (con bytestring) + ) [ { - Cons - [[Tuple2 (con bytestring)] (con integer)] + [ ThreadToken_match a ] + (con bytestring) } + (lam + ds + TxOutRef + (lam ds (con bytestring) ds) + ) + ] + ) + (lam + ds + (con bytestring) + [ [ + { + Cons + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } [ - { + [ { - Tuple2 (con bytestring) + { + Tuple2 + (con bytestring) + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } - (con integer) - } - ds + currency + ] + [ + [ + { + Cons + [[Tuple2 (con bytestring)] (con integer)] + } + [ + [ + { + { + Tuple2 + (con bytestring) + } + (con integer) + } + ds + ] + (con integer 1) + ] + ] + { + Nil + [[Tuple2 (con bytestring)] (con integer)] + } + ] ] - (con integer 1) ] + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } ] - { - Nil - [[Tuple2 (con bytestring)] (con integer)] - } - ] - ] - ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - ) - ) - ) - ) - ] - (abs dead (type) b) - ] - (all dead (type) dead) - } - ) - ) - (termbind - (strict) - (vardecl - wmkValidator - (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] (fun s (fun i (fun ScriptContext Bool)))))))))) - ) - (abs - s - (type) - (abs - i - (type) - (lam - w - [(lam a (type) (fun a (con data))) s] - (lam - ww - (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) - (lam - ww - (fun s Bool) - (lam - ww - (fun s (fun i (fun ScriptContext Bool))) + ) + ) + ) + ) + ] + (abs dead (type) b) + ] + (all dead (type) dead) + } + ) + ) + (termbind + (strict) + (vardecl + wmkValidator + (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] (fun s (fun i (fun ScriptContext Bool)))))))))) + ) + (abs + s + (type) + (abs + i + (type) (lam - ww - [Maybe ThreadToken] + w + [(lam a (type) (fun a (con data))) s] (lam - w - s + ww + (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (lam - w - i + ww + (fun s Bool) (lam - w - ScriptContext - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - ) - { - [ - [ - { - [ - { Maybe_match TxInInfo } - [ findOwnInput w ] - ] - (all dead (type) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) - } - (lam - a - TxInInfo - (abs - dead - (type) + ww + (fun s (fun i (fun ScriptContext Bool))) + (lam + ww + [Maybe ThreadToken] + (lam + w + s + (lam + w + i + (lam + w + ScriptContext + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ) + { [ - { - [ TxInInfo_match a ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - TxOutRef - (lam - ds - TxOut + [ + { [ { - [ - TxOut_match - ds - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Maybe_match + TxInInfo } - (lam - ds - Address + [ + findOwnInput w + ] + ] + (all dead (type) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) + } + (lam + a + TxInInfo + (abs + dead + (type) + [ + { + [ + TxInInfo_match + a + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + TxOutRef (lam ds - [Maybe (con bytestring)] - ds + TxOut + [ + { + [ + TxOut_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + ds + ) + ) + ) + ] ) ) - ) - ] + ] + ) ) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - { - error - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [ - { - [ - Unit_match + ] + (abs + dead + (type) [ + { + error + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } [ { - (builtin trace - ) - Unit + [ + Unit_match + [ + [ + { + (builtin + trace + ) + Unit + } + (con + string + "S0" + ) + ] + Unit + ] + ] + (con unit) } - (con string "S0" - ) + (con unit ()) ] - Unit ] - ] - (con unit) - } - (con unit ()) - ] - ] - ) - ] - (all dead (type) dead) - } - ) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ - [ - { - [ - { - Maybe_match - [[Tuple2 [[TxConstraints Void] Void]] [State s]] - } + ) + ] + (all dead (type) dead) + } + ) + (termbind + (nonstrict) + (vardecl j Bool) + { [ [ - ww - [ - [ { State s } w ] + { [ + { + Maybe_match + [[Tuple2 [[TxConstraints Void] Void]] [State s]] + } [ [ - unionWith - addInteger - ] - vl - ] - [ - [ - fAdditiveGroupValue_cscale - (con - integer -1 - ) - ] - [ - [ - threadTokenValueInner - ww - ] + ww [ - ownHash w + [ + { + State + s + } + w + ] + [ + [ + [ + unionWith + addInteger + ] + vl + ] + [ + [ + fAdditiveGroupValue_cscale + (con + integer + -1 + ) + ] + [ + [ + threadTokenValueInner + ww + ] + [ + ownHash + w + ] + ] + ] + ] ] ] + w ] ] - ] - ] - w - ] - ] - (all dead (type) Bool) - } - (lam - ds - [[Tuple2 [[TxConstraints Void] Void]] [State s]] - (abs - dead - (type) - [ - { - [ - { - { - Tuple2_match - [[TxConstraints Void] Void] - } - [State s] - } - ds - ] - Bool - } - (lam - newConstraints - [[TxConstraints Void] Void] - (lam - ds - [State s] - [ - { - [ - { - State_match - s - } - ds - ] - Bool - } - (lam - ds - s + (all dead (type) Bool) + } + (lam + ds + [[Tuple2 [[TxConstraints Void] Void]] [State s]] + (abs + dead + (type) + [ + { + [ + { + { + Tuple2_match + [[TxConstraints Void] Void] + } + [State s] + } + ds + ] + Bool + } (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - { + newConstraints + [[TxConstraints Void] Void] + (lam + ds + [State s] [ - [ - { - [ - Bool_match + { + [ + { + State_match + s + } + ds + ] + Bool + } + (lam + ds + s + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { [ - ww - ds - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - (let - (nonrec - ) - (termbind - (nonstrict - ) - (vardecl - j - Bool - ) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - { - checkScriptContext - Void - } - Void - } - fToDataVoid_ctoBuiltinData - ] - newConstraints - ] - w - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S4" - ) - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - { [ - [ - { + { + [ + Bool_match [ - Bool_match - [ - isZero - ds - ] + ww + ds ] - (all dead (type) Bool) - } - (abs - dead - (type) - j - ) - ] + ] + (all dead (type) Bool) + } (abs dead (type) - { - [ - [ - { + (let + (nonrec + ) + (termbind + (nonstrict + ) + (vardecl + j + Bool + ) + { + [ [ - Bool_match + { + [ + Bool_match + [ + [ + [ + { + { + checkScriptContext + Void + } + Void + } + fToDataVoid_ctoBuiltinData + ] + newConstraints + ] + w + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) [ [ { @@ -9961,400 +10327,471 @@ } (con string - "S3" + "S4" ) ] False ] - ] - (all dead (type) Bool) - } + ) + ] + (all dead (type) dead) + } + ) + { + [ + [ + { + [ + Bool_match + [ + isZero + ds + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + j + ) + ] (abs dead (type) - j + { + [ + [ + { + [ + Bool_match + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S3" + ) + ] + False + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + j + ) + ] + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } ) ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match + (abs + dead + (type) + { [ [ - [ - { - { - checkScriptContext - Void - } - s - } - w - ] - [ - { + { + [ + Bool_match [ - { - { - TxConstraints_match - Void - } - Void - } - newConstraints - ] - [[TxConstraints Void] s] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] - (lam - ds - [List [OutputConstraint Void]] + [ [ - [ + { + { + checkScriptContext + Void + } + s + } + w + ] + [ + { [ { { - TxConstraints + TxConstraints_match Void } - s + Void } - ds + newConstraints ] + [[TxConstraints Void] s] + } + (lam ds - ] - [ - { - build - [OutputConstraint s] - } - (abs - a - (type) + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] (lam - c - (fun [OutputConstraint s] (fun a a)) - (lam - n - a + ds + [List [OutputConstraint Void]] + [ [ [ - c - [ - [ - { - OutputConstraint - s - } - ds - ] - [ - [ - [ - unionWith - addInteger - ] - ds - ] + { + { + TxConstraints + Void + } + s + } + ds + ] + ds + ] + [ + { + build + [OutputConstraint s] + } + (abs + a + (type) + (lam + c + (fun [OutputConstraint s] (fun a a)) + (lam + n + a [ [ - threadTokenValueInner - ww - ] - [ - ownHash - w + c + [ + [ + { + OutputConstraint + s + } + ds + ] + [ + [ + [ + unionWith + addInteger + ] + ds + ] + [ + [ + threadTokenValueInner + ww + ] + [ + ownHash + w + ] + ] + ] + ] ] + n ] - ] - ] - ] - n + ) + ) + ) ] - ) + ] ) ) - ] + ) ] + ] + w + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace ) + Bool + } + (con + string + "S5" ) - ) + ] + False ] - ] - w + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S5" - ) - ] - False - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (all dead (type) dead) - } + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin trace ) + Bool + } + (con string "S6" ) ] - ) + False + ] ) ] - ) + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "S6") - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ - [ - { - [ - { - Maybe_match - ThreadToken - } - ww - ] - (all dead (type) Bool) - } - (lam - threadToken - ThreadToken - (abs - dead - (type) - { + (termbind + (nonstrict) + (vardecl j Bool) + { + [ [ - [ - { - [ - Bool_match + { + [ + { + Maybe_match + ThreadToken + } + ww + ] + (all dead (type) Bool) + } + (lam + threadToken + ThreadToken + (abs + dead + (type) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { [ + Bool_match [ - (builtin - equalsInteger - ) [ [ + { + (builtin + ifThenElse + ) + Bool + } [ - valueOf - vl - ] - [ - { + [ + (builtin + equalsInteger + ) [ - ThreadToken_match - threadToken + [ + [ + valueOf + vl + ] + [ + { + [ + ThreadToken_match + threadToken + ] + (con bytestring) + } + (lam + ds + TxOutRef + (lam + ds + (con bytestring) + ds + ) + ) + ] + ] + [ + ownHash + w + ] ] - (con bytestring) - } - (lam - ds - TxOutRef - (lam - ds - (con bytestring) - ds - ) + ] + (con + integer + 1 ) ] ] - [ - ownHash - w - ] + True ] + False ] - (con - integer - 1 - ) ] - ] - True + (all dead (type) Bool) + } + (abs + dead + (type) + j + ) ] - False - ] - ] - (all dead (type) Bool) - } - (abs dead (type) j - ) - ] - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match + (abs + dead + (type) + { [ [ { - (builtin - trace - ) - Bool + [ + Bool_match + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S2" + ) + ] + False + ] + ] + (all dead (type) Bool) } - (con - string - "S2" + (abs + dead + (type) + j ) ] - False + (abs + dead + (type) + False + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - j + (all dead (type) dead) + } ) ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (all dead (type) dead) - } - ) + (abs dead (type) j) + ] + (all dead (type) dead) + } ) - ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) - { - [ - [ - { - [ - Bool_match - [ [ [ ww w ] w ] w ] - ] - (all dead (type) Bool) - } - (abs dead (type) j) - ] - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { + [ + Bool_match + [ + [ [ ww w ] w ] w + ] + ] + (all dead (type) Bool) + } + (abs dead (type) j) + ] + (abs + dead + (type) + { [ [ { - (builtin trace - ) - Bool + [ + Bool_match + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S1" + ) + ] + False + ] + ] + (all dead (type) Bool) } - (con string "S1" + (abs + dead (type) j ) ] - False + (abs + dead + (type) + False + ) ] - ] - (all dead (type) Bool) - } - (abs dead (type) j) + (all dead (type) dead) + } + ) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) @@ -10363,112 +10800,116 @@ ) ) ) - ) - ) - ) - ) - (termbind - (strict) - (vardecl - mkValidator - (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun [[StateMachine s] i] (fun s (fun i (fun ScriptContext Bool))))))) - ) - (abs - s - (type) - (abs - i - (type) - (lam - w - [(lam a (type) (fun a (con data))) s] - (lam - w - [[StateMachine s] i] - (lam - w + (termbind + (strict) + (vardecl + mkValidator + (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun [[StateMachine s] i] (fun s (fun i (fun ScriptContext Bool))))))) + ) + (abs s - (lam - w + (type) + (abs i + (type) (lam w - ScriptContext - [ - { - [ { { StateMachine_match s } i } w ] - Bool - } + [(lam a (type) (fun a (con data))) s] + (lam + w + [[StateMachine s] i] (lam - ww - (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) + w + s (lam - ww - (fun s Bool) + w + i (lam - ww - (fun s (fun i (fun ScriptContext Bool))) - (lam - ww - [Maybe ThreadToken] - [ + w + ScriptContext + [ + { [ - [ - [ + { { StateMachine_match s } i } + w + ] + Bool + } + (lam + ww + (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) + (lam + ww + (fun s Bool) + (lam + ww + (fun s (fun i (fun ScriptContext Bool))) + (lam + ww + [Maybe ThreadToken] [ [ [ [ - { - { - wmkValidator s - } - i - } - w + [ + [ + [ + [ + { + { + wmkValidator + s + } + i + } + w + ] + ww + ] + ww + ] + ww + ] + ww ] - ww + w ] - ww + w ] - ww + w ] - ww - ] - w - ] - w - ] - w - ] - ) + ) + ) + ) + ) + ] ) ) ) - ] + ) ) ) ) ) + (termbind + (nonstrict) + (vardecl + mkValidator + (fun GameState (fun GameInput (fun ScriptContext Bool))) + ) + [ + [ + { { mkValidator GameState } GameInput } + fToDataGameState_ctoBuiltinData + ] + machine + ] + ) + mkValidator ) ) ) ) - (termbind - (nonstrict) - (vardecl - mkValidator - (fun GameState (fun GameInput (fun ScriptContext Bool))) - ) - [ - [ - { { mkValidator GameState } GameInput } - fToDataGameState_ctoBuiltinData - ] - machine - ] - ) - mkValidator ) ) ) diff --git a/plutus-use-cases/test/Spec/governance.pir b/plutus-use-cases/test/Spec/governance.pir index 2e311c51519..762de4157d3 100644 --- a/plutus-use-cases/test/Spec/governance.pir +++ b/plutus-use-cases/test/Spec/governance.pir @@ -634,421 +634,543 @@ ) ) ) - (datatypebind - (datatype - (tyvardecl TxConstraint (type)) + (let + (rec) + (datatypebind + (datatype + (tyvardecl TxConstraint (type)) - TxConstraint_match - (vardecl MustBeSignedBy (fun (con bytestring) TxConstraint)) - (vardecl - MustHashDatum (fun (con bytestring) (fun (con data) TxConstraint)) - ) - (vardecl MustIncludeDatum (fun (con data) TxConstraint)) - (vardecl - MustMintValue - (fun (con bytestring) (fun (con data) (fun (con bytestring) (fun (con integer) TxConstraint)))) - ) - (vardecl - MustPayToOtherScript - (fun (con bytestring) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint))) - ) - (vardecl - MustPayToPubKey - (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint)) - ) - (vardecl - MustProduceAtLeast - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) - ) - (vardecl - MustSpendAtLeast - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) - ) - (vardecl MustSpendPubKeyOutput (fun TxOutRef TxConstraint)) - (vardecl - MustSpendScriptOutput (fun TxOutRef (fun (con data) TxConstraint)) + TxConstraint_match + (vardecl MustBeSignedBy (fun (con bytestring) TxConstraint)) + (vardecl + MustHashDatum + (fun (con bytestring) (fun (con data) TxConstraint)) + ) + (vardecl MustIncludeDatum (fun (con data) TxConstraint)) + (vardecl + MustMintValue + (fun (con bytestring) (fun (con data) (fun (con bytestring) (fun (con integer) TxConstraint)))) + ) + (vardecl + MustPayToOtherScript + (fun (con bytestring) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint))) + ) + (vardecl + MustPayToPubKey + (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint)) + ) + (vardecl + MustProduceAtLeast + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) + ) + (vardecl MustSatisfyAnyOf (fun [List TxConstraint] TxConstraint)) + (vardecl + MustSpendAtLeast + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) + ) + (vardecl MustSpendPubKeyOutput (fun TxOutRef TxConstraint)) + (vardecl + MustSpendScriptOutput + (fun TxOutRef (fun (con data) TxConstraint)) + ) + (vardecl + MustValidateIn (fun [Interval (con integer)] TxConstraint) + ) ) - (vardecl MustValidateIn (fun [Interval (con integer)] TxConstraint)) ) - ) - (datatypebind - (datatype - (tyvardecl TxConstraints (fun (type) (fun (type) (type)))) - (tyvardecl i (type)) (tyvardecl o (type)) - TxConstraints_match - (vardecl - TxConstraints - (fun [List TxConstraint] (fun [List [InputConstraint i]] (fun [List [OutputConstraint o]] [[TxConstraints i] o]))) + (let + (nonrec) + (datatypebind + (datatype + (tyvardecl TxConstraints (fun (type) (fun (type) (type)))) + (tyvardecl i (type)) (tyvardecl o (type)) + TxConstraints_match + (vardecl + TxConstraints + (fun [List TxConstraint] (fun [List [InputConstraint i]] (fun [List [OutputConstraint o]] [[TxConstraints i] o]))) + ) + ) ) - ) - ) - (datatypebind (datatype (tyvardecl Void (type)) Void_match )) - (datatypebind - (datatype - (tyvardecl StateMachine (fun (type) (fun (type) (type)))) - (tyvardecl s (type)) (tyvardecl i (type)) - StateMachine_match - (vardecl - StateMachine - (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] [[StateMachine s] i])))) + (datatypebind (datatype (tyvardecl Void (type)) Void_match )) + (datatypebind + (datatype + (tyvardecl StateMachine (fun (type) (fun (type) (type)))) + (tyvardecl s (type)) (tyvardecl i (type)) + StateMachine_match + (vardecl + StateMachine + (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] [[StateMachine s] i])))) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - build - (all a (type) (fun (all b (type) (fun (fun a (fun b b)) (fun b b))) [List a])) - ) - (abs - a - (type) - (lam - g - (all b (type) (fun (fun a (fun b b)) (fun b b))) - [ [ { g [List a] } { Cons a } ] { Nil a } ] + (termbind + (strict) + (vardecl + build + (all a (type) (fun (all b (type) (fun (fun a (fun b b)) (fun b b))) [List a])) + ) + (abs + a + (type) + (lam + g + (all b (type) (fun (fun a (fun b b)) (fun b b))) + [ [ { g [List a] } { Cons a } ] { Nil a } ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - ownsVotingToken - (fun (con bytestring) (fun (con bytestring) [[TxConstraints Void] Void])) - ) - (lam - mph - (con bytestring) - (lam - tokenName - (con bytestring) - [ - [ + (termbind + (strict) + (vardecl + ownsVotingToken + (fun (con bytestring) (fun (con bytestring) [[TxConstraints Void] Void])) + ) + (lam + mph + (con bytestring) + (lam + tokenName + (con bytestring) [ - { { TxConstraints Void } Void } [ - { build TxConstraint } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + [ + { { TxConstraints Void } Void } + [ + { build TxConstraint } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ - MustSpendAtLeast [ + c [ - { - Cons - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } + MustSpendAtLeast [ [ { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + Cons + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - mph - ] - [ [ - { - Cons - [[Tuple2 (con bytestring)] (con integer)] - } + [ + { + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + mph + ] [ [ { - { Tuple2 (con bytestring) } - (con integer) + Cons + [[Tuple2 (con bytestring)] (con integer)] } - tokenName + [ + [ + { + { + Tuple2 (con bytestring) + } + (con integer) + } + tokenName + ] + (con integer 1) + ] ] - (con integer 1) + { + Nil + [[Tuple2 (con bytestring)] (con integer)] + } ] ] - { - Nil - [[Tuple2 (con bytestring)] (con integer)] - } ] + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } ] ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } ] + n ] - ] - n - ] - ) - ) - ) - ] - ] - { Nil [InputConstraint Void] } - ] - { Nil [OutputConstraint Void] } - ] - ) - ) - ) - (datatypebind - (datatype - (tyvardecl Monoid (fun (type) (type))) - (tyvardecl a (type)) - Monoid_match - (vardecl - CConsMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [Monoid a])) - ) - ) - ) - (termbind - (strict) - (vardecl - p1Monoid - (all a (type) (fun [Monoid a] [(lam a (type) (fun a (fun a a))) a])) - ) - (abs - a - (type) - (lam - v - [Monoid a] - [ - { - [ { Monoid_match a } v ] [(lam a (type) (fun a (fun a a))) a] - } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidTuple2 - (all a (type) (all b (type) (fun [Monoid a] (fun [Monoid b] (fun [[Tuple2 a] b] (fun [[Tuple2 a] b] [[Tuple2 a] b])))))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - dMonoid - [Monoid a] - (lam - dMonoid - [Monoid b] - (lam - eta - [[Tuple2 a] b] - (lam - eta - [[Tuple2 a] b] - [ - { [ { { Tuple2_match a } b } eta ] [[Tuple2 a] b] } - (lam - a - a - (lam - b - b - [ - { - [ { { Tuple2_match a } b } eta ] [[Tuple2 a] b] - } - (lam - a - a - (lam - b - b - [ - [ - { { Tuple2 a } b } - [ [ [ { p1Monoid a } dMonoid ] a ] a ] - ] - [ [ [ { p1Monoid b } dMonoid ] b ] b ] - ] - ) ) - ] + ) ) - ) + ] ] - ) - ) + { Nil [InputConstraint Void] } + ] + { Nil [OutputConstraint Void] } + ] ) ) ) - ) - ) - (termbind - (strict) - (vardecl mempty (all a (type) (fun [Monoid a] a))) - (abs - a - (type) - (lam - v - [Monoid a] - [ - { [ { Monoid_match a } v ] a } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) - ] + (datatypebind + (datatype + (tyvardecl Monoid (fun (type) (type))) + (tyvardecl a (type)) + Monoid_match + (vardecl + CConsMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [Monoid a])) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidTuple2_cmempty - (all a (type) (all b (type) (fun [Monoid a] (fun [Monoid b] [[Tuple2 a] b])))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - dMonoid - [Monoid a] + (termbind + (strict) + (vardecl + p1Monoid + (all a (type) (fun [Monoid a] [(lam a (type) (fun a (fun a a))) a])) + ) + (abs + a + (type) (lam - dMonoid - [Monoid b] + v + [Monoid a] [ - [ { { Tuple2 a } b } [ { mempty a } dMonoid ] ] - [ { mempty b } dMonoid ] + { + [ { Monoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } + (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) ] ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidTuple2 - (all a (type) (all b (type) (fun [Monoid a] (fun [Monoid b] [Monoid [[Tuple2 a] b]])))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - v - [Monoid a] - (lam - v - [Monoid b] - [ - [ - { CConsMonoid [[Tuple2 a] b] } - [ [ { { fMonoidTuple2 a } b } v ] v ] - ] - [ [ { { fMonoidTuple2_cmempty a } b } v ] v ] - ] - ) + (termbind + (strict) + (vardecl + fMonoidTuple2 + (all a (type) (all b (type) (fun [Monoid a] (fun [Monoid b] (fun [[Tuple2 a] b] (fun [[Tuple2 a] b] [[Tuple2 a] b])))))) ) - ) - ) - ) - (let - (rec) - (termbind - (strict) - (vardecl - foldr - (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) - ) - (abs - a - (type) (abs - b + a (type) - (lam - f - (fun a (fun b b)) + (abs + b + (type) (lam - acc - b + dMonoid + [Monoid a] (lam - l - [List a] - { - [ + dMonoid + [Monoid b] + (lam + eta + [[Tuple2 a] b] + (lam + eta + [[Tuple2 a] b] [ - { [ { Nil_match a } l ] (all dead (type) b) } - (abs dead (type) acc) - ] - (lam - x - a + { [ { { Tuple2_match a } b } eta ] [[Tuple2 a] b] } (lam - xs - [List a] - (abs - dead - (type) + a + a + (lam + b + b [ - [ f x ] [ [ [ { { foldr a } b } f ] acc ] xs ] + { + [ { { Tuple2_match a } b } eta ] + [[Tuple2 a] b] + } + (lam + a + a + (lam + b + b + [ + [ + { { Tuple2 a } b } + [ [ [ { p1Monoid a } dMonoid ] a ] a ] + ] + [ [ [ { p1Monoid b } dMonoid ] b ] b ] + ] + ) + ) ] ) ) - ) - ] - (all dead (type) dead) - } + ] + ) + ) + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl mempty (all a (type) (fun [Monoid a] a))) + (abs + a + (type) + (lam + v + [Monoid a] + [ + { [ { Monoid_match a } v ] a } + (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fMonoidTuple2_cmempty + (all a (type) (all b (type) (fun [Monoid a] (fun [Monoid b] [[Tuple2 a] b])))) + ) + (abs + a + (type) + (abs + b + (type) + (lam + dMonoid + [Monoid a] + (lam + dMonoid + [Monoid b] + [ + [ { { Tuple2 a } b } [ { mempty a } dMonoid ] ] + [ { mempty b } dMonoid ] + ] ) ) ) ) ) - ) - (let - (nonrec) (termbind (strict) (vardecl - fMonoidTxConstraints_c - (all i (type) (all o (type) (fun [[TxConstraints i] o] (fun [[TxConstraints i] o] [[TxConstraints i] o])))) + fMonoidTuple2 + (all a (type) (all b (type) (fun [Monoid a] (fun [Monoid b] [Monoid [[Tuple2 a] b]])))) ) (abs - i + a (type) (abs - o + b (type) (lam - l - [[TxConstraints i] o] + v + [Monoid a] (lam - r - [[TxConstraints i] o] + v + [Monoid b] [ [ + { CConsMonoid [[Tuple2 a] b] } + [ [ { { fMonoidTuple2 a } b } v ] v ] + ] + [ [ { { fMonoidTuple2_cmempty a } b } v ] v ] + ] + ) + ) + ) + ) + ) + (let + (rec) + (termbind + (strict) + (vardecl + foldr + (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) + ) + (abs + a + (type) + (abs + b + (type) + (lam + f + (fun a (fun b b)) + (lam + acc + b + (lam + l + [List a] + { + [ + [ + { [ { Nil_match a } l ] (all dead (type) b) } + (abs dead (type) acc) + ] + (lam + x + a + (lam + xs + [List a] + (abs + dead + (type) + [ + [ f x ] + [ [ [ { { foldr a } b } f ] acc ] xs ] + ] + ) + ) + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ) + ) + (let + (nonrec) + (termbind + (strict) + (vardecl + fMonoidTxConstraints_c + (all i (type) (all o (type) (fun [[TxConstraints i] o] (fun [[TxConstraints i] o] [[TxConstraints i] o])))) + ) + (abs + i + (type) + (abs + o + (type) + (lam + l + [[TxConstraints i] o] + (lam + r + [[TxConstraints i] o] [ - { { TxConstraints i } o } + [ + [ + { { TxConstraints i } o } + [ + { + [ { { TxConstraints_match i } o } l ] + [List TxConstraint] + } + (lam + ds + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] + [ + [ + [ + { + { foldr TxConstraint } + [List TxConstraint] + } + { Cons TxConstraint } + ] + [ + { + [ + { + { TxConstraints_match i } o + } + r + ] + [List TxConstraint] + } + (lam + ds + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] + ds + ) + ) + ) + ] + ] + ds + ] + ) + ) + ) + ] + ] + [ + { + [ { { TxConstraints_match i } o } l ] + [List [InputConstraint i]] + } + (lam + ds + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] + [ + [ + [ + { + { foldr [InputConstraint i] } + [List [InputConstraint i]] + } + { Cons [InputConstraint i] } + ] + [ + { + [ + { { TxConstraints_match i } o } + r + ] + [List [InputConstraint i]] + } + (lam + ds + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] + ds + ) + ) + ) + ] + ] + ds + ] + ) + ) + ) + ] + ] [ { [ { { TxConstraints_match i } o } l ] - [List TxConstraint] + [List [OutputConstraint o]] } (lam ds @@ -1063,17 +1185,17 @@ [ [ { - { foldr TxConstraint } - [List TxConstraint] + { foldr [OutputConstraint o] } + [List [OutputConstraint o]] } - { Cons TxConstraint } + { Cons [OutputConstraint o] } ] [ { [ { { TxConstraints_match i } o } r ] - [List TxConstraint] + [List [OutputConstraint o]] } (lam ds @@ -1097,851 +1219,878 @@ ) ] ] - [ - { - [ { { TxConstraints_match i } o } l ] - [List [InputConstraint i]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint i]] - (lam - ds - [List [OutputConstraint o]] - [ - [ - [ - { - { foldr [InputConstraint i] } - [List [InputConstraint i]] - } - { Cons [InputConstraint i] } - ] - [ - { - [ { { TxConstraints_match i } o } r ] - [List [InputConstraint i]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint i]] - (lam - ds [List [OutputConstraint o]] ds - ) - ) - ) - ] - ] - ds - ] - ) - ) - ) + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + fMonoidTxConstraints_cmempty + (all i (type) (all o (type) [[TxConstraints i] o])) + ) + (abs + i + (type) + (abs + o + (type) + [ + [ + [ { { TxConstraints i } o } { Nil TxConstraint } ] + { Nil [InputConstraint i] } + ] + { Nil [OutputConstraint o] } + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fMonoidTxConstraints + (all i (type) (all o (type) [Monoid [[TxConstraints i] o]])) + ) + (abs + i + (type) + (abs + o + (type) + [ + [ + { CConsMonoid [[TxConstraints i] o] } + { { fMonoidTxConstraints_c i } o } + ] + { { fMonoidTxConstraints_cmempty i } o } + ] + ) + ) + ) + (termbind + (strict) + (vardecl + addInteger + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam y (con integer) [ [ (builtin addInteger) x ] y ]) + ) + ) + (termbind + (strict) + (vardecl + equalsByteString + (fun (con bytestring) (fun (con bytestring) Bool)) + ) + (lam + x + (con bytestring) + (lam + y + (con bytestring) + [ + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin equalsByteString) x ] y ] ] + True ] + False + ] + ) + ) + ) + (datatypebind + (datatype + (tyvardecl These (fun (type) (fun (type) (type)))) + (tyvardecl a (type)) (tyvardecl b (type)) + These_match + (vardecl That (fun b [[These a] b])) + (vardecl These (fun a (fun b [[These a] b]))) + (vardecl This (fun a [[These a] b])) + ) + ) + (datatypebind + (datatype + (tyvardecl AdditiveMonoid (fun (type) (type))) + (tyvardecl a (type)) + AdditiveMonoid_match + (vardecl + CConsAdditiveMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [AdditiveMonoid a])) + ) + ) + ) + (termbind + (strict) + (vardecl bad_name (fun Bool (fun Bool Bool))) + (lam + ds + Bool + (lam + ds + Bool + { [ - { - [ { { TxConstraints_match i } o } l ] - [List [OutputConstraint o]] - } - (lam - ds - [List TxConstraint] + [ + { [ Bool_match ds ] (all dead (type) Bool) } + (abs dead (type) True) + ] + (abs dead (type) ds) + ] + (all dead (type) dead) + } + ) + ) + ) + (termbind + (nonstrict) + (vardecl fAdditiveMonoidBool [AdditiveMonoid Bool]) + [ [ { CConsAdditiveMonoid Bool } bad_name ] False ] + ) + (let + (rec) + (termbind + (strict) + (vardecl + fFoldableNil_cfoldMap + (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [List a] m))))) + ) + (abs + m + (type) + (abs + a + (type) + (lam + dMonoid + [Monoid m] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dSemigroup [(lam a (type) (fun a (fun a a))) m] + ) + [ { p1Monoid m } dMonoid ] + ) (lam ds - [List [InputConstraint i]] + (fun a m) (lam ds - [List [OutputConstraint o]] - [ + [List a] + { [ [ { - { foldr [OutputConstraint o] } - [List [OutputConstraint o]] + [ { Nil_match a } ds ] + (all dead (type) m) } - { Cons [OutputConstraint o] } + (abs dead (type) [ { mempty m } dMonoid ]) ] - [ - { - [ { { TxConstraints_match i } o } r ] - [List [OutputConstraint o]] - } + (lam + x + a (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint i]] - (lam ds [List [OutputConstraint o]] ds - ) + xs + [List a] + (abs + dead + (type) + [ + [ dSemigroup [ ds x ] ] + [ + [ + [ + { + { fFoldableNil_cfoldMap m } + a + } + dMonoid + ] + ds + ] + xs + ] + ] ) ) - ] + ) ] - ds - ] + (all dead (type) dead) + } ) ) ) - ] - ] + ) + ) ) ) - ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidTxConstraints_cmempty - (all i (type) (all o (type) [[TxConstraints i] o])) - ) - (abs - i - (type) - (abs - o - (type) - [ - [ - [ { { TxConstraints i } o } { Nil TxConstraint } ] - { Nil [InputConstraint i] } - ] - { Nil [OutputConstraint o] } - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidTxConstraints - (all i (type) (all o (type) [Monoid [[TxConstraints i] o]])) - ) - (abs - i - (type) - (abs - o - (type) - [ - [ - { CConsMonoid [[TxConstraints i] o] } - { { fMonoidTxConstraints_c i } o } - ] - { { fMonoidTxConstraints_cmempty i } o } - ] - ) - ) - ) - (termbind - (strict) - (vardecl - addInteger (fun (con integer) (fun (con integer) (con integer))) - ) - (lam - x - (con integer) - (lam y (con integer) [ [ (builtin addInteger) x ] y ]) - ) - ) - (termbind - (strict) - (vardecl - equalsByteString - (fun (con bytestring) (fun (con bytestring) Bool)) - ) - (lam - x - (con bytestring) - (lam - y - (con bytestring) - [ - [ - [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsByteString) x ] y ] - ] - True - ] - False - ] - ) - ) - ) - (datatypebind - (datatype - (tyvardecl These (fun (type) (fun (type) (type)))) - (tyvardecl a (type)) (tyvardecl b (type)) - These_match - (vardecl That (fun b [[These a] b])) - (vardecl These (fun a (fun b [[These a] b]))) - (vardecl This (fun a [[These a] b])) - ) - ) - (datatypebind - (datatype - (tyvardecl AdditiveMonoid (fun (type) (type))) - (tyvardecl a (type)) - AdditiveMonoid_match - (vardecl - CConsAdditiveMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [AdditiveMonoid a])) - ) - ) - ) - (termbind - (strict) - (vardecl bad_name (fun Bool (fun Bool Bool))) - (lam - ds - Bool - (lam - ds - Bool - { - [ - [ - { [ Bool_match ds ] (all dead (type) Bool) } - (abs dead (type) True) - ] - (abs dead (type) ds) - ] - (all dead (type) dead) - } - ) - ) - ) - (termbind - (nonstrict) - (vardecl fAdditiveMonoidBool [AdditiveMonoid Bool]) - [ [ { CConsAdditiveMonoid Bool } bad_name ] False ] - ) - (let - (rec) - (termbind - (strict) - (vardecl - fFoldableNil_cfoldMap - (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [List a] m))))) - ) - (abs - m - (type) - (abs - a - (type) - (lam - dMonoid - [Monoid m] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - dSemigroup [(lam a (type) (fun a (fun a a))) m] - ) - [ { p1Monoid m } dMonoid ] - ) - (lam - ds - (fun a m) + (let + (rec) + (termbind + (strict) + (vardecl + fFunctorNil_cfmap + (all a (type) (all b (type) (fun (fun a b) (fun [List a] [List b])))) + ) + (abs + a + (type) + (abs + b + (type) (lam - ds - [List a] - { - [ + f + (fun a b) + (lam + l + [List a] + { [ - { [ { Nil_match a } ds ] (all dead (type) m) } - (abs dead (type) [ { mempty m } dMonoid ]) - ] - (lam - x - a + [ + { + [ { Nil_match a } l ] + (all dead (type) [List b]) + } + (abs dead (type) { Nil b }) + ] (lam - xs - [List a] - (abs - dead - (type) - [ - [ dSemigroup [ ds x ] ] + x + a + (lam + xs + [List a] + (abs + dead + (type) [ + [ { Cons b } [ f x ] ] [ - [ - { { fFoldableNil_cfoldMap m } a } - dMonoid - ] - ds + [ { { fFunctorNil_cfmap a } b } f ] + xs ] - xs ] - ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) ) ) ) - ) - ) - ) - (let - (rec) - (termbind - (strict) - (vardecl - fFunctorNil_cfmap - (all a (type) (all b (type) (fun (fun a b) (fun [List a] [List b])))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - f - (fun a b) - (lam - l - [List a] - { + (let + (nonrec) + (termbind + (strict) + (vardecl + p1AdditiveMonoid + (all a (type) (fun [AdditiveMonoid a] [(lam a (type) (fun a (fun a a))) a])) + ) + (abs + a + (type) + (lam + v + [AdditiveMonoid a] [ - [ - { - [ { Nil_match a } l ] - (all dead (type) [List b]) - } - (abs dead (type) { Nil b }) - ] + { + [ { AdditiveMonoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } (lam - x - a - (lam - xs - [List a] - (abs - dead - (type) - [ - [ { Cons b } [ f x ] ] - [ [ { { fFunctorNil_cfmap a } b } f ] xs ] - ] - ) - ) + v + [(lam a (type) (fun a (fun a a))) a] + (lam v a v) ) ] - (all dead (type) dead) - } - ) - ) - ) - ) - ) - (let - (nonrec) - (termbind - (strict) - (vardecl - p1AdditiveMonoid - (all a (type) (fun [AdditiveMonoid a] [(lam a (type) (fun a (fun a a))) a])) - ) - (abs - a - (type) - (lam - v - [AdditiveMonoid a] - [ - { - [ { AdditiveMonoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } - (lam - v [(lam a (type) (fun a (fun a a))) a] (lam v a v) ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl zero (all a (type) (fun [AdditiveMonoid a] a))) - (abs - a - (type) - (lam - v - [AdditiveMonoid a] - [ - { [ { AdditiveMonoid_match a } v ] a } + (termbind + (strict) + (vardecl zero (all a (type) (fun [AdditiveMonoid a] a))) + (abs + a + (type) (lam - v [(lam a (type) (fun a (fun a a))) a] (lam v a v) - ) - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidSum - (all a (type) (fun [AdditiveMonoid a] [Monoid [(lam a (type) a) a]])) - ) - (abs - a - (type) - (lam - v - [AdditiveMonoid a] - [ - [ - { CConsMonoid [(lam a (type) a) a] } - (lam - eta - [(lam a (type) a) a] + v + [AdditiveMonoid a] + [ + { [ { AdditiveMonoid_match a } v ] a } (lam - eta - [(lam a (type) a) a] - [ [ [ { p1AdditiveMonoid a } v ] eta ] eta ] + v + [(lam a (type) (fun a (fun a a))) a] + (lam v a v) ) - ) - ] - [ { zero a } v ] - ] + ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - union - (all k (type) (all v (type) (all r (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] [[These v] r]])))))) - ) - (abs - k - (type) - (abs - v - (type) + (termbind + (strict) + (vardecl + fMonoidSum + (all a (type) (fun [AdditiveMonoid a] [Monoid [(lam a (type) a) a]])) + ) + (abs + a + (type) + (lam + v + [AdditiveMonoid a] + [ + [ + { CConsMonoid [(lam a (type) a) a] } + (lam + eta + [(lam a (type) a) a] + (lam + eta + [(lam a (type) a) a] + [ [ [ { p1AdditiveMonoid a } v ] eta ] eta ] + ) + ) + ] + [ { zero a } v ] + ] + ) + ) + ) + (termbind + (strict) + (vardecl + union + (all k (type) (all v (type) (all r (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] [[These v] r]])))))) + ) (abs - r + k (type) - (lam - dEq - [(lam a (type) (fun a (fun a Bool))) k] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] + (abs + v + (type) + (abs + r + (type) (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] - [ - [ - [ - { - { foldr [[Tuple2 k] [[These v] r]] } - [List [[Tuple2 k] [[These v] r]]] - } - { Cons [[Tuple2 k] [[These v] r]] } - ] + dEq + [(lam a (type) (fun a (fun a Bool))) k] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] [ [ - { - { fFunctorNil_cfmap [[Tuple2 k] r] } - [[Tuple2 k] [[These v] r]] - } - (lam - ds - [[Tuple2 k] r] + [ + { + { foldr [[Tuple2 k] [[These v] r]] } + [List [[Tuple2 k] [[These v] r]]] + } + { Cons [[Tuple2 k] [[These v] r]] } + ] + [ [ { - [ { { Tuple2_match k } r } ds ] + { + fFunctorNil_cfmap [[Tuple2 k] r] + } [[Tuple2 k] [[These v] r]] } (lam - c - k - (lam - a - r - [ + ds + [[Tuple2 k] r] + [ + { [ - { - { Tuple2 k } [[These v] r] - } - c + { { Tuple2_match k } r } ds ] - [ { { That v } r } a ] - ] - ) + [[Tuple2 k] [[These v] r]] + } + (lam + c + k + (lam + a + r + [ + [ + { + { Tuple2 k } + [[These v] r] + } + c + ] + [ { { That v } r } a ] + ] + ) + ) + ] ) ] - ) - ] - [ - [ [ - { - { foldr [[Tuple2 k] r] } - [List [[Tuple2 k] r]] - } - (lam - e - [[Tuple2 k] r] - (lam - xs - [List [[Tuple2 k] r]] - [ - { - [ - { { Tuple2_match k } r } e - ] - [List [[Tuple2 k] r]] - } + [ + [ + { + { foldr [[Tuple2 k] r] } + [List [[Tuple2 k] r]] + } + (lam + e + [[Tuple2 k] r] (lam - c - k - (lam - ds - r + xs + [List [[Tuple2 k] r]] + [ { [ - [ - { + { + { Tuple2_match k } r + } + e + ] + [List [[Tuple2 k] r]] + } + (lam + c + k + (lam + ds + r + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 k] v] - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - [[Tuple2 k] v] [ - { + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 k] v] + } [ { - { - Tuple2_match - k - } - v + fMonoidSum + Bool } - ds + fAdditiveMonoidBool ] - Bool - } + ] (lam - c - k - (lam - ds - v - [ + ds + [[Tuple2 k] v] + [ + { [ - dEq - c + { + { + Tuple2_match + k + } + v + } + ds ] + Bool + } + (lam c - ] - ) + k + (lam + ds + v + [ + [ + dEq + c + ] + c + ] + ) + ) + ] ) ] - ) + ds + ] ] - ds - ] - ] - (all dead (type) [List [[Tuple2 k] r]]) - } - (abs dead (type) xs) - ] - (abs - dead - (type) - [ - [ - { - Cons - [[Tuple2 k] r] + (all dead (type) [List [[Tuple2 k] r]]) } - e + (abs + dead (type) xs + ) ] - xs + (abs + dead + (type) + [ + [ + { + Cons + [[Tuple2 k] r] + } + e + ] + xs + ] + ) ] - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ) + ] ) - ] - ) - ) + ) + ] + { Nil [[Tuple2 k] r] } + ] + ds ] - { Nil [[Tuple2 k] r] } ] - ds ] - ] - ] - [ - [ - { - { fFunctorNil_cfmap [[Tuple2 k] v] } - [[Tuple2 k] [[These v] r]] - } - (lam - ds - [[Tuple2 k] v] + [ [ { - [ { { Tuple2_match k } v } ds ] + { fFunctorNil_cfmap [[Tuple2 k] v] } [[Tuple2 k] [[These v] r]] } (lam - c - k - (lam - i - v - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun [List [[Tuple2 k] r]] [[These v] r]) - ) - (lam - ds - [List [[Tuple2 k] r]] - { - [ - [ - { + ds + [[Tuple2 k] v] + [ + { + [ { { Tuple2_match k } v } ds ] + [[Tuple2 k] [[These v] r]] + } + (lam + c + k + (lam + i + v + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun [List [[Tuple2 k] r]] [[These v] r]) + ) + (lam + ds + [List [[Tuple2 k] r]] + { + [ [ { - Nil_match - [[Tuple2 k] r] - } - ds - ] - (all dead (type) [[These v] r]) - } - (abs - dead - (type) - [ - { { This v } r } i + [ + { + Nil_match + [[Tuple2 k] r] + } + ds + ] + (all dead (type) [[These v] r]) + } + (abs + dead + (type) + [ + { + { This v } r + } + i + ] + ) ] - ) - ] - (lam - ds - [[Tuple2 k] r] - (lam - xs - [List [[Tuple2 k] r]] - (abs - dead - (type) - [ - { + (lam + ds + [[Tuple2 k] r] + (lam + xs + [List [[Tuple2 k] r]] + (abs + dead + (type) [ - { - { - Tuple2_match - k - } - r - } - ds - ] - [[These v] r] - } - (lam - c - k - (lam - i - r { [ - [ + { { + Tuple2_match + k + } + r + } + ds + ] + [[These v] r] + } + (lam + c + k + (lam + i + r + { + [ [ - Bool_match - [ + { [ - dEq - c + Bool_match + [ + [ + dEq + c + ] + c + ] ] - c - ] + (all dead (type) [[These v] r]) + } + (abs + dead + (type) + [ + [ + { + { + These + v + } + r + } + i + ] + i + ] + ) ] - (all dead (type) [[These v] r]) - } - (abs - dead - (type) - [ + (abs + dead + (type) [ - { - { - These - v - } - r - } - i + go + xs ] - i - ] - ) - ] - (abs - dead - (type) - [ - go - xs + ) ] - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ) + ] ) - ] + ) ) - ) - ) + ] + (all dead (type) dead) + } + ) + ) + [ + [ + { + { Tuple2 k } + [[These v] r] + } + c ] - (all dead (type) dead) - } + [ go ds ] + ] ) ) - [ - [ - { - { Tuple2 k } [[These v] r] - } - c - ] - [ go ds ] - ] ) - ) + ] ) ] - ) + ds + ] ] - ds - ] - ] + ) + ) ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - unionVal - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]])) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + (termbind + (strict) + (vardecl + unionVal + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]])) + ) + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ [ { - [ - { - { Tuple2_match (con bytestring) } - [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ds - ] + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] } (lam - c - (con bytestring) - (lam - a - [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ + ds + [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [ + { [ { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + { Tuple2_match (con bytestring) } + [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - c + ds ] - [ + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } + (lam + c + (con bytestring) + (lam + a + [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ [ { + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + } + c + ] + [ + [ [ { - { - These_match - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + { + { + These_match + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + a + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] } - a + (lam + b + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con integer)] + } + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + (lam + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con integer) + } + ds + ] + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + (lam + c + (con bytestring) + (lam + a + (con integer) + [ + [ + { + { + Tuple2 + (con bytestring) + } + [[These (con integer)] (con integer)] + } + c + ] + [ + { + { + That + (con integer) + } + (con integer) + } + a + ] + ] + ) + ) + ] + ) + ] + b + ] + ) ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - } + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + (lam + b + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + [ + { + { + { + union + (con bytestring) + } + (con integer) + } + (con integer) + } + equalsByteString + ] + a + ] + b + ] + ) + ) + ] (lam - b + a [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] [ [ @@ -1989,7 +2138,7 @@ [ { { - That + This (con integer) } (con integer) @@ -2002,1500 +2151,1501 @@ ] ) ] - b + a ] ) ] - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - (lam - b - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - [ - { - { - { - union (con bytestring) - } - (con integer) - } - (con integer) - } - equalsByteString - ] - a - ] - b - ] - ) - ) ] - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con integer)] - } - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] - } - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] - [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - (con integer) - } - ds - ] - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] - } - (lam - c - (con bytestring) - (lam - a - (con integer) - [ - [ - { - { - Tuple2 - (con bytestring) - } - [[These (con integer)] (con integer)] - } - c - ] - [ - { - { - This (con integer) - } - (con integer) - } - a - ] - ] - ) - ) - ] - ) - ] - a - ] - ) - ] - ] - ) + ) + ) + ] ) ] - ) - ] - [ - [ [ - { - { - { union (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - equalsByteString + [ + [ + { + { + { union (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + equalsByteString + ] + ds + ] + ds ] - ds ] - ds - ] - ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - unionWith - (fun (fun (con integer) (fun (con integer) (con integer))) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]))) - ) - (lam - f - (fun (con integer) (fun (con integer) (con integer))) - (lam - ls - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (termbind + (strict) + (vardecl + unionWith + (fun (fun (con integer) (fun (con integer) (con integer))) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]))) + ) (lam - rs - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + f + (fun (con integer) (fun (con integer) (con integer))) + (lam + ls + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + rs + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ [ { - [ - { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - } - ds - ] + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } (lam - c - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - [ + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + [ + { [ { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + { Tuple2_match (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] } - c + ds ] - [ + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + c + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] [ - { + [ { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - ds - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + c + ] + [ [ { - [ - { - { - Tuple2_match - (con bytestring) - } - [[These (con integer)] (con integer)] - } - ds - ] + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } [[Tuple2 (con bytestring)] (con integer)] } (lam - c - (con bytestring) - (lam - a - [[These (con integer)] (con integer)] - [ + ds + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [ + { [ { { - Tuple2 + Tuple2_match (con bytestring) } - (con integer) + [[These (con integer)] (con integer)] } - c + ds ] - [ + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + c + (con bytestring) + (lam + a + [[These (con integer)] (con integer)] [ [ { + { + Tuple2 + (con bytestring) + } + (con integer) + } + c + ] + [ + [ [ { - { - These_match - (con integer) - } + [ + { + { + These_match + (con integer) + } + (con integer) + } + a + ] (con integer) } - a + (lam + b + (con integer) + [ + [ + f + (con + integer + 0 + ) + ] + b + ] + ) ] - (con integer) - } + (lam + a + (con integer) + (lam + b + (con integer) + [ [ f a ] b ] + ) + ) + ] (lam - b + a (con integer) [ - [ - f - (con integer 0 - ) - ] - b + [ f a ] + (con integer 0) ] ) ] - (lam - a - (con integer) - (lam - b - (con integer) - [ [ f a ] b ] - ) - ) ] - (lam - a - (con integer) - [ - [ f a ] - (con integer 0) - ] - ) - ] - ] - ) + ) + ) + ] ) ] - ) + a + ] ] - a - ] - ] - ) + ) + ) + ] ) ] - ) - ] - [ [ unionVal ls ] rs ] - ] + [ [ unionVal ls ] rs ] + ] + ) + ) ) ) - ) - ) - (termbind - (nonstrict) - (vardecl - fMonoidValue_c - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - [ unionWith addInteger ] - ) - (termbind - (nonstrict) - (vardecl - fMonoidValue - [Monoid [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - ) - [ - [ - { - CConsMonoid - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - fMonoidValue_c - ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - ) - (termbind - (nonstrict) - (vardecl - mkValidator - [Monoid [[Tuple2 [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[TxConstraints Void] Void]]] - ) - [ - [ - { + (termbind + (nonstrict) + (vardecl + fMonoidValue_c + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + [ unionWith addInteger ] + ) + (termbind + (nonstrict) + (vardecl + fMonoidValue + [Monoid [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + ) + [ + [ + { + CConsMonoid + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + fMonoidValue_c + ] { - fMonoidTuple2 - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - [[TxConstraints Void] Void] - } - fMonoidValue - ] - { { fMonoidTxConstraints Void } Void } - ] - ) - (let - (rec) - (termbind - (strict) - (vardecl - zip - (all a (type) (all b (type) (fun [List a] (fun [List b] [List [[Tuple2 a] b]])))) + ] ) - (abs - a - (type) - (abs - b - (type) - (lam - ds - [List a] - (lam - bs - [List b] + (termbind + (nonstrict) + (vardecl + mkValidator + [Monoid [[Tuple2 [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[TxConstraints Void] Void]]] + ) + [ + [ + { { - [ - [ - { - [ { Nil_match a } ds ] - (all dead (type) [List [[Tuple2 a] b]]) - } - (abs dead (type) { Nil [[Tuple2 a] b] }) - ] - (lam - ipv - a - (lam - ipv - [List a] - (abs - dead - (type) + fMonoidTuple2 + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [[TxConstraints Void] Void] + } + fMonoidValue + ] + { { fMonoidTxConstraints Void } Void } + ] + ) + (let + (rec) + (termbind + (strict) + (vardecl + zip + (all a (type) (all b (type) (fun [List a] (fun [List b] [List [[Tuple2 a] b]])))) + ) + (abs + a + (type) + (abs + b + (type) + (lam + ds + [List a] + (lam + bs + [List b] + { + [ + [ { - [ - [ - { - [ { Nil_match b } bs ] - (all dead (type) [List [[Tuple2 a] b]]) - } - (abs - dead - (type) - { Nil [[Tuple2 a] b] } - ) - ] - (lam - ipv - b - (lam - ipv - [List b] - (abs - dead - (type) - [ - [ - { Cons [[Tuple2 a] b] } + [ { Nil_match a } ds ] + (all dead (type) [List [[Tuple2 a] b]]) + } + (abs dead (type) { Nil [[Tuple2 a] b] }) + ] + (lam + ipv + a + (lam + ipv + [List a] + (abs + dead + (type) + { + [ + [ + { + [ { Nil_match b } bs ] + (all dead (type) [List [[Tuple2 a] b]]) + } + (abs + dead + (type) + { Nil [[Tuple2 a] b] } + ) + ] + (lam + ipv + b + (lam + ipv + [List b] + (abs + dead + (type) [ [ - { { Tuple2 a } b } ipv + { + Cons [[Tuple2 a] b] + } + [ + [ + { { Tuple2 a } b } + ipv + ] + ipv + ] + ] + [ + [ + { { zip a } b } ipv + ] + ipv ] - ipv ] - ] - [ - [ { { zip a } b } ipv ] - ipv - ] - ] + ) + ) ) - ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ) ) ) ) - ) - ) - (let - (nonrec) - (datatypebind - (datatype - (tyvardecl GovInput (type)) + (let + (nonrec) + (datatypebind + (datatype + (tyvardecl GovInput (type)) - GovInput_match - (vardecl - AddVote (fun (con bytestring) (fun Bool GovInput)) - ) - (vardecl FinishVoting GovInput) - (vardecl - MintTokens (fun [List (con bytestring)] GovInput) + GovInput_match + (vardecl + AddVote + (fun (con bytestring) (fun Bool GovInput)) + ) + (vardecl FinishVoting GovInput) + (vardecl + MintTokens + (fun [List (con bytestring)] GovInput) + ) + (vardecl ProposeChange (fun Proposal GovInput)) + ) ) - (vardecl ProposeChange (fun Proposal GovInput)) - ) - ) - (datatypebind - (datatype - (tyvardecl Params (type)) + (datatypebind + (datatype + (tyvardecl Params (type)) - Params_match - (vardecl - Params - (fun (con bytestring) (fun [List (con bytestring)] (fun (con integer) Params))) + Params_match + (vardecl + Params + (fun (con bytestring) (fun [List (con bytestring)] (fun (con integer) Params))) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - unionWith - (all k (type) (all a (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun (fun a (fun a a)) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] a] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] a] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] a])))))) - ) - (abs - k - (type) - (abs - a - (type) - (lam - dEq - [(lam a (type) (fun a (fun a Bool))) k] - (lam - merge - (fun a (fun a a)) + (termbind + (strict) + (vardecl + unionWith + (all k (type) (all a (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun (fun a (fun a a)) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] a] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] a] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] a])))))) + ) + (abs + k + (type) + (abs + a + (type) (lam - ls - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] a] + dEq + [(lam a (type) (fun a (fun a Bool))) k] (lam - rs - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] a] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 k] [[These a] a]] - } - [[Tuple2 k] a] - } - (lam - ds - [[Tuple2 k] [[These a] a]] + merge + (fun a (fun a a)) + (lam + ls + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] a] + (lam + rs + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] a] + [ [ { - [ - { - { Tuple2_match k } - [[These a] a] - } - ds - ] + { + fFunctorNil_cfmap + [[Tuple2 k] [[These a] a]] + } [[Tuple2 k] a] } (lam - c - k - (lam - a - [[These a] a] - [ - [ { { Tuple2 k } a } c ] + ds + [[Tuple2 k] [[These a] a]] + [ + { [ + { + { Tuple2_match k } + [[These a] a] + } + ds + ] + [[Tuple2 k] a] + } + (lam + c + k + (lam + a + [[These a] a] [ + [ { { Tuple2 k } a } c ] [ - { + [ [ { - { These_match a } + [ + { + { + These_match + a + } + a + } + a + ] a } - a + (lam b a b) ] - a - } - (lam b a b) + (lam + a + a + (lam + b + a + [ [ merge a ] b ] + ) + ) + ] + (lam a a a) ] - (lam - a - a - (lam - b a [ [ merge a ] b ] - ) - ) ] - (lam a a a) - ] - ] - ) + ) + ) + ] ) ] - ) - ] - [ - [ [ { { { union k } a } a } dEq ] ls ] - rs - ] - ] + [ + [ + [ { { { union k } a } a } dEq ] ls + ] + rs + ] + ] + ) + ) ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - insert - (all k (type) (all v (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun k (fun v (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v])))))) - ) - (abs - k - (type) - (abs - v - (type) - (lam - dEq - [(lam a (type) (fun a (fun a Bool))) k] - (lam - k - k + (termbind + (strict) + (vardecl + insert + (all k (type) (all v (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun k (fun v (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v])))))) + ) + (abs + k + (type) + (abs + v + (type) (lam - v - v + dEq + [(lam a (type) (fun a (fun a Bool))) k] (lam - m - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] - [ - [ - [ - [ { { unionWith k } v } dEq ] - (lam ds v (lam b v b)) - ] + k + k + (lam + v + v + (lam m - ] - [ - { build [[Tuple2 k] v] } - (abs - a - (type) - (lam - c - (fun [[Tuple2 k] v] (fun a a)) - (lam - n + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] + [ + [ + [ + [ { { unionWith k } v } dEq ] + (lam ds v (lam b v b)) + ] + m + ] + [ + { build [[Tuple2 k] v] } + (abs a - [ - [ - c - [ [ { { Tuple2 k } v } k ] v ] - ] - n - ] + (type) + (lam + c + (fun [[Tuple2 k] v] (fun a a)) + (lam + n + a + [ + [ + c + [ + [ { { Tuple2 k } v } k ] + v + ] + ] + n + ] + ) + ) ) - ) - ) - ] - ] + ] + ] + ) + ) ) ) ) ) ) - ) - ) - (termbind - (nonstrict) - (vardecl - fAdditiveMonoidInteger [AdditiveMonoid (con integer)] - ) - [ - [ { CConsAdditiveMonoid (con integer) } addInteger ] - (con integer 0) - ] - ) - (termbind - (nonstrict) - (vardecl - mkValidator [Monoid [(lam a (type) a) (con integer)]] - ) - [ { fMonoidSum (con integer) } fAdditiveMonoidInteger ] - ) - (datatypebind - (datatype - (tyvardecl Unit (type)) - - Unit_match - (vardecl Unit Unit) - ) - ) - (termbind - (strict) - (vardecl - fToDataUnit_ctoBuiltinData (fun Unit (con data)) - ) - (lam - ds - Unit - [ - { [ Unit_match ds ] (con data) } + (termbind + (nonstrict) + (vardecl + fAdditiveMonoidInteger + [AdditiveMonoid (con integer)] + ) [ - [ (builtin constrData) (con integer 0) ] - [ (builtin mkNilData) (con unit ()) ] + [ + { CConsAdditiveMonoid (con integer) } addInteger + ] + (con integer 0) ] - ] - ) - ) - (termbind - (strict) - (vardecl - mustMintValueWithRedeemer - (all i (type) (all o (type) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[TxConstraints i] o])))) - ) - (abs - i - (type) - (abs - o - (type) + ) + (termbind + (nonstrict) + (vardecl + mkValidator + [Monoid [(lam a (type) a) (con integer)]] + ) + [ + { fMonoidSum (con integer) } + fAdditiveMonoidInteger + ] + ) + (datatypebind + (datatype + (tyvardecl Unit (type)) + + Unit_match + (vardecl Unit Unit) + ) + ) + (termbind + (strict) + (vardecl + fToDataUnit_ctoBuiltinData (fun Unit (con data)) + ) (lam - red - (con data) - (let - (nonrec) - (termbind - (strict) - (vardecl - f - (fun [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[TxConstraints i] o]) - ) - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { + ds + Unit + [ + { [ Unit_match ds ] (con data) } + [ + [ (builtin constrData) (con integer 0) ] + [ (builtin mkNilData) (con unit ()) ] + ] + ] + ) + ) + (termbind + (strict) + (vardecl + mustMintValueWithRedeemer + (all i (type) (all o (type) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[TxConstraints i] o])))) + ) + (abs + i + (type) + (abs + o + (type) + (lam + red + (con data) + (let + (nonrec) + (termbind + (strict) + (vardecl + f + (fun [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[TxConstraints i] o]) + ) + (lam + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - [[TxConstraints i] o] - } - (lam - currencySymbol - (con bytestring) - (lam - mp - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ [ - [ + { { - { - fFoldableNil_cfoldMap - [[TxConstraints i] o] - } - [[Tuple2 (con bytestring)] (con integer)] + Tuple2_match (con bytestring) } - { { fMonoidTxConstraints i } o } - ] - (lam - p - [[Tuple2 (con bytestring)] (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + ds + ] + [[TxConstraints i] o] + } + (lam + currencySymbol + (con bytestring) + (lam + mp + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ [ [ + { + { + fFoldableNil_cfoldMap + [[TxConstraints i] o] + } + [[Tuple2 (con bytestring)] (con integer)] + } + { + { fMonoidTxConstraints i } + o + } + ] + (lam + p + [[Tuple2 (con bytestring)] (con integer)] [ - { { TxConstraints i } o } [ - { build TxConstraint } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + [ + { + { TxConstraints i } + o + } + [ + { + build TxConstraint + } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ [ + c [ [ - MustMintValue - currencySymbol - ] - red - ] - [ - { + [ + [ + MustMintValue + currencySymbol + ] + red + ] [ { - { - Tuple2_match - (con bytestring) - } - (con integer) + [ + { + { + Tuple2_match + (con bytestring) + } + (con integer) + } + p + ] + (con bytestring) } - p + (lam + x + (con bytestring) + (lam + ds + (con integer) + x + ) + ) ] - (con bytestring) - } - (lam - x - (con bytestring) - (lam - ds - (con integer) - x - ) - ) - ] - ] - [ - { + ] [ { - { - Tuple2_match - (con bytestring) - } + [ + { + { + Tuple2_match + (con bytestring) + } + (con integer) + } + p + ] (con integer) } - p + (lam + ds + (con bytestring) + (lam + y + (con integer) + y + ) + ) ] - (con integer) - } - (lam - ds - (con bytestring) - (lam - y - (con integer) - y - ) - ) + ] ] + n ] - ] - n - ] + ) + ) ) - ) - ) + ] + ] + { + Nil + [InputConstraint i] + } ] + { + Nil [OutputConstraint o] + } ] - { Nil [InputConstraint i] } - ] - { Nil [OutputConstraint o] } + ) ] - ) - ] - mp - ] - ) + mp + ] + ) + ) + ] ) - ] - ) - ) - (lam - x - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ + ) + (lam + x + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - { - { - fFoldableNil_cfoldMap - [[TxConstraints i] o] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - { { fMonoidTxConstraints i } o } + [ + [ + { + { + fFoldableNil_cfoldMap + [[TxConstraints i] o] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + { { fMonoidTxConstraints i } o } + ] + f + ] + x ] - f - ] - x - ] + ) + ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - mustMintValue - (all i (type) (all o (type) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[TxConstraints i] o]))) - ) - (abs - i - (type) - (abs - o - (type) - [ - { { mustMintValueWithRedeemer i } o } - [ fToDataUnit_ctoBuiltinData Unit ] - ] + (termbind + (strict) + (vardecl + mustMintValue + (all i (type) (all o (type) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[TxConstraints i] o]))) + ) + (abs + i + (type) + (abs + o + (type) + [ + { { mustMintValueWithRedeemer i } o } + [ fToDataUnit_ctoBuiltinData Unit ] + ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - transition - (fun Params (fun [State GovState] (fun GovInput [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]))) - ) - (lam - ds - Params - (lam - ds - [State GovState] + (termbind + (strict) + (vardecl + transition + (fun Params (fun [State GovState] (fun GovInput [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]))) + ) (lam - i - GovInput - [ - { - [ Params_match ds ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] - } + ds + Params + (lam + ds + [State GovState] (lam - ds - (con bytestring) - (lam - ds - [List (con bytestring)] + i + GovInput + [ + { + [ Params_match ds ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] + } (lam ds - (con integer) - [ - { - [ { State_match GovState } ds ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] - } + (con bytestring) + (lam + ds + [List (con bytestring)] (lam ds - GovState - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - [ GovState_match ds ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] - } + (con integer) + [ + { + [ { State_match GovState } ds ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] + } + (lam + ds + GovState (lam ds - (con bytestring) - (lam - ds - (con bytestring) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + [ GovState_match ds ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] + } (lam ds - [Maybe Voting] - { - [ - [ + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + [Maybe Voting] + { [ [ - { + [ [ - GovInput_match - i - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) - } - (lam - default_arg0 - (con bytestring) - (lam - default_arg1 - Bool - (abs - dead - (type) - { - [ - [ - { + { + [ + GovInput_match + i + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) + } + (lam + default_arg0 + (con bytestring) + (lam + default_arg1 + Bool + (abs + dead + (type) + { + [ [ { - Maybe_match - Voting + [ + { + Maybe_match + Voting + } + ds + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) } - ds - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) - } - (lam - ds - Voting - (abs - dead - (type) - [ - { + (lam + ds + Voting + (abs + dead + (type) [ - Voting_match - ds - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] - } - (lam - p - Proposal - (lam - oldMap - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] Bool] { [ - [ + Voting_match + ds + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] + } + (lam + p + Proposal + (lam + oldMap + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] Bool] + { [ [ - { + [ [ - GovInput_match - i - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) - } - (lam - tokenName - (con bytestring) - (lam - vote - Bool - (abs - dead - (type) - (let - (nonrec - ) - (termbind - (nonstrict - ) - (vardecl - l - [[TxConstraints Void] Void] - ) - [ - [ - ownsVotingToken - ds - ] - tokenName - ] - ) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - [ + { + [ + GovInput_match + i + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) + } + (lam + tokenName + (con bytestring) + (lam + vote + Bool + (abs + dead + (type) + (let + (nonrec + ) + (termbind + (nonstrict + ) + (vardecl + l + [[TxConstraints Void] Void] + ) + [ + [ + ownsVotingToken + ds + ] + tokenName + ] + ) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GovState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] } [ [ - [ + { { - { - TxConstraints - Void - } - Void + Tuple2 + [[TxConstraints Void] Void] } + [State GovState] + } + [ [ - { - [ + [ + { { - { - TxConstraints_match - Void - } + TxConstraints Void } - l - ] - [List TxConstraint] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] + Void + } + [ + { + [ + { + { + TxConstraints_match + Void + } + Void + } + l + ] + [List TxConstraint] + } (lam ds - [List [OutputConstraint Void]] - [ - [ - [ - { - { - foldr - TxConstraint - } - [List TxConstraint] - } - { - Cons - TxConstraint - } - ] + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + [ + [ + { + { + foldr + TxConstraint + } + [List TxConstraint] + } + { + Cons + TxConstraint + } + ] + [ + { + build + TxConstraint + } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ - MustValidateIn [ + c [ - { - Interval - (con integer) - } + MustValidateIn [ [ { - LowerBound - (con integer) - } - { - NegInf + Interval (con integer) } + [ + [ + { + LowerBound + (con integer) + } + { + NegInf + (con integer) + } + ] + True + ] ] - True - ] - ] - [ - [ - { - UpperBound - (con integer) - } [ - { - Finite - (con integer) - } [ { - [ - Proposal_match - p - ] + UpperBound (con integer) } - (lam - ds - (con bytestring) - (lam - ds - (con bytestring) - (lam - ds + [ + { + Finite + (con integer) + } + [ + { + [ + Proposal_match + p + ] (con integer) + } + (lam ds + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con integer) + ds + ) + ) ) - ) - ) + ] + ] ] + True ] ] - True ] ] + n ] - ] - n - ] + ) + ) ) - ) - ) + ] + ] + ds ] - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - [ - { + ] + ] [ { - { - TxConstraints_match - Void - } - Void + [ + { + { + TxConstraints_match + Void + } + Void + } + l + ] + [List [InputConstraint Void]] } - l - ] - [List [InputConstraint Void]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] (lam ds - [List [OutputConstraint Void]] - [ - [ + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] [ - { + [ + [ + { + { + foldr + [InputConstraint Void] + } + [List [InputConstraint Void]] + } + { + Cons + [InputConstraint Void] + } + ] { - foldr + Nil [InputConstraint Void] } - [List [InputConstraint Void]] - } - { - Cons - [InputConstraint Void] - } + ] + ds ] - { - Nil - [InputConstraint Void] - } - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - [ - { + ] + ] [ { - { - TxConstraints_match - Void - } - Void + [ + { + { + TxConstraints_match + Void + } + Void + } + l + ] + [List [OutputConstraint Void]] } - l - ] - [List [OutputConstraint Void]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] (lam ds - [List [OutputConstraint Void]] - [ - [ + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] [ - { + [ + [ + { + { + foldr + [OutputConstraint Void] + } + [List [OutputConstraint Void]] + } + { + Cons + [OutputConstraint Void] + } + ] { - foldr + Nil [OutputConstraint Void] } - [List [OutputConstraint Void]] - } - { - Cons - [OutputConstraint Void] - } + ] + ds ] - { - Nil - [OutputConstraint Void] - } - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - ] - [ - [ - { - State - GovState - } - [ - [ - [ - GovState - ds ] - ds ] + ] + [ [ { - Just - Voting + State + GovState } [ [ - Voting - p + [ + GovState + ds + ] + ds ] [ + { + Just + Voting + } [ + [ + Voting + p + ] [ [ - { - { - insert - (con bytestring) - } - Bool - } - equalsByteString + [ + [ + { + { + insert + (con bytestring) + } + Bool + } + equalsByteString + ] + tokenName + ] + vote ] - tokenName + oldMap ] - vote ] - oldMap ] ] ] + ds ] ] - ds ] - ] - ] + ) + ) ) ) - ) - ) - ] - (abs - dead - (type) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - [ + ] + (abs + dead + (type) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GovState] - } - { - { - fMonoidTxConstraints_cmempty - Void - } - Void + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] } - ] - [ [ - { - State - GovState - } + [ + { + { + Tuple2 + [[TxConstraints Void] Void] + } + [State GovState] + } + { + { + fMonoidTxConstraints_cmempty + Void + } + Void + } + ] [ [ - [ + { + State GovState - { + } + [ + [ [ - [ - { + GovState + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - lessThanInteger - ) + { + (builtin + ifThenElse + ) + Bool + } [ [ + (builtin + lessThanInteger + ) [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) (con integer)] - } - [[Tuple2 (con bytestring)] Bool] - } - mkValidator - ] - (lam - ds - [[Tuple2 (con bytestring)] Bool] [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - Bool + fFoldableNil_cfoldMap + [(lam a (type) a) (con integer)] } - ds - ] - [(lam a (type) a) (con integer)] - } + [[Tuple2 (con bytestring)] Bool] + } + mkValidator + ] (lam ds - (con bytestring) - (lam - a - Bool - [ + [[Tuple2 (con bytestring)] Bool] + [ + { [ { - [ - Bool_match - a - ] - [(lam a (type) a) (con integer)] + { + Tuple2_match + (con bytestring) + } + Bool } - (con - integer - 1 - ) + ds ] - (con - integer - 0 + [(lam a (type) a) (con integer)] + } + (lam + ds + (con bytestring) + (lam + a + Bool + [ + [ + { + [ + Bool_match + a + ] + [(lam a (type) a) (con integer)] + } + (con + integer + 1 + ) + ] + (con + integer + 0 + ) + ] ) - ] - ) + ) + ] ) ] - ) + oldMap + ] ] - oldMap + ds ] ] - ds + False ] + True ] - False - ] - True - ] - ] - (all dead (type) (con bytestring)) - } - (abs - dead - (type) - [ - { - [ - Proposal_match - p ] - (con bytestring) + (all dead (type) (con bytestring)) } - (lam - ds - (con bytestring) - (lam - ds - (con bytestring) + (abs + dead + (type) + [ + { + [ + Proposal_match + p + ] + (con bytestring) + } (lam ds - (con integer) - ds + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con integer) + ds + ) + ) ) - ) + ] ) ] - ) - ] - (abs - dead - (type) - ds - ) + (abs + dead + (type) + ds + ) + ] + (all dead (type) dead) + } ] - (all dead (type) dead) + ds + ] + { + Nothing + Voting } ] - ds ] - { - Nothing - Voting - } + ds ] ] - ds ] - ] + ) ] + (lam + default_arg0 + [List (con bytestring)] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } + ) + ) + ] + (lam + default_arg0 + Proposal + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } + ) ) ] + (all dead (type) dead) + } + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + [ + { + [ + GovInput_match + i + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) + } + (lam + default_arg0 + (con bytestring) (lam - default_arg0 - [List (con bytestring)] + default_arg1 + Bool (abs dead (type) @@ -3505,747 +3655,747 @@ } ) ) - ] - (lam - default_arg0 - Proposal - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) ) ] - (all dead (type) dead) - } - ) - ) - ] - ) - ) - ] - (abs - dead - (type) - { - [ - [ - [ - [ - { - [ - GovInput_match - i - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) - } + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } + ) + ] (lam default_arg0 - (con bytestring) - (lam - default_arg1 - Bool - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) + [List (con bytestring)] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } ) ) ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) - ] - (lam - default_arg0 - [List (con bytestring)] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) - ) - ] - (lam - proposal - Proposal - (abs - dead - (type) - [ - { + (lam + proposal + Proposal + (abs + dead + (type) [ - Proposal_match - proposal - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] - } - (lam - ds - (con bytestring) - (lam - ds - (con bytestring) + { + [ + Proposal_match + proposal + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] + } (lam ds - (con integer) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - [ + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con integer) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GovState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] } [ [ - ownsVotingToken - ds - ] - ds - ] - ] - [ - [ - { - State - GovState - } - [ + { + { + Tuple2 + [[TxConstraints Void] Void] + } + [State GovState] + } [ [ - GovState + ownsVotingToken ds ] ds ] + ] + [ [ { - Just - Voting + State + GovState } [ [ - Voting - proposal + [ + GovState + ds + ] + ds + ] + [ + { + Just + Voting + } + [ + [ + Voting + proposal + ] + { + Nil + [[Tuple2 (con bytestring)] Bool] + } + ] ] - { - Nil - [[Tuple2 (con bytestring)] Bool] - } ] ] + ds ] ] - ds ] - ] - ] + ) + ) ) - ) + ] ) - ] - ) - ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - ] - (abs - dead - (type) - { - [ - [ - { + ] + (abs + dead + (type) + { + [ [ { - Maybe_match - Voting + [ + { + Maybe_match + Voting + } + ds + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) } - ds - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) - } - (lam - ds - Voting - (abs - dead - (type) - [ - { + (lam + ds + Voting + (abs + dead + (type) [ - Voting_match - ds - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] - } - (lam - p - Proposal - (lam - oldMap - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] Bool] { [ - [ + Voting_match + ds + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] + } + (lam + p + Proposal + (lam + oldMap + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] Bool] + { [ [ - { + [ [ - GovInput_match - i - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) - } - (lam - tokenName - (con bytestring) - (lam - vote - Bool - (abs - dead - (type) - (let - (nonrec - ) - (termbind - (nonstrict - ) - (vardecl - l - [[TxConstraints Void] Void] - ) - [ - [ - ownsVotingToken - ds - ] - tokenName - ] - ) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - [ + { + [ + GovInput_match + i + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) + } + (lam + tokenName + (con bytestring) + (lam + vote + Bool + (abs + dead + (type) + (let + (nonrec + ) + (termbind + (nonstrict + ) + (vardecl + l + [[TxConstraints Void] Void] + ) + [ + [ + ownsVotingToken + ds + ] + tokenName + ] + ) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GovState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] } [ [ - [ + { { - { - TxConstraints - Void - } - Void + Tuple2 + [[TxConstraints Void] Void] } + [State GovState] + } + [ [ - { - [ + [ + { { - { - TxConstraints_match - Void - } + TxConstraints Void } - l - ] - [List TxConstraint] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] + Void + } + [ + { + [ + { + { + TxConstraints_match + Void + } + Void + } + l + ] + [List TxConstraint] + } (lam ds - [List [OutputConstraint Void]] - [ - [ - [ - { - { - foldr - TxConstraint - } - [List TxConstraint] - } - { - Cons - TxConstraint - } - ] + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + [ + [ + { + { + foldr + TxConstraint + } + [List TxConstraint] + } + { + Cons + TxConstraint + } + ] + [ + { + build + TxConstraint + } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ - MustValidateIn [ + c [ - { - Interval - (con integer) - } + MustValidateIn [ [ { - LowerBound - (con integer) - } - { - NegInf + Interval (con integer) } + [ + [ + { + LowerBound + (con integer) + } + { + NegInf + (con integer) + } + ] + True + ] ] - True - ] - ] - [ - [ - { - UpperBound - (con integer) - } [ - { - Finite - (con integer) - } [ { - [ - Proposal_match - p - ] + UpperBound (con integer) } - (lam - ds - (con bytestring) - (lam - ds - (con bytestring) - (lam - ds + [ + { + Finite + (con integer) + } + [ + { + [ + Proposal_match + p + ] (con integer) + } + (lam ds + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con integer) + ds + ) + ) ) - ) - ) + ] + ] ] + True ] ] - True ] ] + n ] - ] - n - ] + ) + ) ) - ) - ) + ] + ] + ds ] - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - [ - { + ] + ] [ { - { - TxConstraints_match - Void - } - Void + [ + { + { + TxConstraints_match + Void + } + Void + } + l + ] + [List [InputConstraint Void]] } - l - ] - [List [InputConstraint Void]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] (lam ds - [List [OutputConstraint Void]] - [ - [ + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] [ - { + [ + [ + { + { + foldr + [InputConstraint Void] + } + [List [InputConstraint Void]] + } + { + Cons + [InputConstraint Void] + } + ] { - foldr + Nil [InputConstraint Void] } - [List [InputConstraint Void]] - } - { - Cons - [InputConstraint Void] - } + ] + ds ] - { - Nil - [InputConstraint Void] - } - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - [ - { + ] + ] [ { - { - TxConstraints_match - Void - } - Void + [ + { + { + TxConstraints_match + Void + } + Void + } + l + ] + [List [OutputConstraint Void]] } - l - ] - [List [OutputConstraint Void]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] (lam ds - [List [OutputConstraint Void]] - [ - [ + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] [ - { + [ + [ + { + { + foldr + [OutputConstraint Void] + } + [List [OutputConstraint Void]] + } + { + Cons + [OutputConstraint Void] + } + ] { - foldr - [OutputConstraint Void] - } - [List [OutputConstraint Void]] - } - { - Cons - [OutputConstraint Void] - } + Nil + [OutputConstraint Void] + } + ] + ds ] - { - Nil - [OutputConstraint Void] - } - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - ] - [ - [ - { - State - GovState - } - [ - [ - [ - GovState - ds ] - ds ] + ] + [ [ { - Just - Voting + State + GovState } [ [ - Voting - p + [ + GovState + ds + ] + ds ] [ + { + Just + Voting + } [ + [ + Voting + p + ] [ [ - { - { - insert - (con bytestring) - } - Bool - } - equalsByteString + [ + [ + { + { + insert + (con bytestring) + } + Bool + } + equalsByteString + ] + tokenName + ] + vote ] - tokenName + oldMap ] - vote ] - oldMap ] ] ] + ds ] ] - ds ] - ] - ] + ) + ) ) ) - ) - ) - ] - (abs - dead - (type) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - [ + ] + (abs + dead + (type) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GovState] - } - { - { - fMonoidTxConstraints_cmempty - Void - } - Void + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] } - ] - [ [ - { - State - GovState - } + [ + { + { + Tuple2 + [[TxConstraints Void] Void] + } + [State GovState] + } + { + { + fMonoidTxConstraints_cmempty + Void + } + Void + } + ] [ [ - [ + { + State GovState - { + } + [ + [ [ - [ - { + GovState + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - lessThanInteger - ) + { + (builtin + ifThenElse + ) + Bool + } [ [ + (builtin + lessThanInteger + ) [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) (con integer)] - } - [[Tuple2 (con bytestring)] Bool] - } - mkValidator - ] - (lam - ds - [[Tuple2 (con bytestring)] Bool] [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - Bool + fFoldableNil_cfoldMap + [(lam a (type) a) (con integer)] } - ds - ] - [(lam a (type) a) (con integer)] - } + [[Tuple2 (con bytestring)] Bool] + } + mkValidator + ] (lam ds - (con bytestring) - (lam - a - Bool - [ + [[Tuple2 (con bytestring)] Bool] + [ + { [ { - [ - Bool_match - a - ] - [(lam a (type) a) (con integer)] + { + Tuple2_match + (con bytestring) + } + Bool } - (con - integer - 1 - ) + ds ] - (con - integer - 0 + [(lam a (type) a) (con integer)] + } + (lam + ds + (con bytestring) + (lam + a + Bool + [ + [ + { + [ + Bool_match + a + ] + [(lam a (type) a) (con integer)] + } + (con + integer + 1 + ) + ] + (con + integer + 0 + ) + ] ) - ] - ) + ) + ] ) ] - ) + oldMap + ] ] - oldMap + ds ] ] - ds + False ] + True ] - False - ] - True - ] - ] - (all dead (type) (con bytestring)) - } - (abs - dead - (type) - [ - { - [ - Proposal_match - p ] - (con bytestring) + (all dead (type) (con bytestring)) } - (lam - ds - (con bytestring) - (lam - ds - (con bytestring) + (abs + dead + (type) + [ + { + [ + Proposal_match + p + ] + (con bytestring) + } (lam ds - (con integer) - ds + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con integer) + ds + ) + ) ) - ) + ] ) ] - ) - ] - (abs - dead - (type) - ds - ) + (abs + dead + (type) + ds + ) + ] + (all dead (type) dead) + } ] - (all dead (type) dead) + ds + ] + { + Nothing + Voting } ] - ds ] - { - Nothing - Voting - } + ds ] ] - ds ] - ] + ) ] + (lam + default_arg0 + [List (con bytestring)] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } + ) + ) + ] + (lam + default_arg0 + Proposal + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } + ) ) ] + (all dead (type) dead) + } + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + [ + { + [ + GovInput_match + i + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) + } + (lam + default_arg0 + (con bytestring) (lam - default_arg0 - [List (con bytestring)] + default_arg1 + Bool (abs dead (type) @@ -4255,1071 +4405,1072 @@ } ) ) - ] - (lam - default_arg0 - Proposal - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) ) ] - (all dead (type) dead) - } - ) - ) - ] - ) - ) - ] - (abs - dead - (type) - { - [ - [ - [ - [ - { - [ - GovInput_match - i - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) - } + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } + ) + ] (lam default_arg0 - (con bytestring) - (lam - default_arg1 - Bool - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) + [List (con bytestring)] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } ) ) ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) - ] - (lam - default_arg0 - [List (con bytestring)] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) - ) - ] - (lam - proposal - Proposal - (abs - dead - (type) - [ - { + (lam + proposal + Proposal + (abs + dead + (type) [ - Proposal_match - proposal - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] - } - (lam - ds - (con bytestring) - (lam - ds - (con bytestring) + { + [ + Proposal_match + proposal + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] + } (lam ds - (con integer) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - [ + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con integer) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GovState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] } [ [ - ownsVotingToken - ds - ] - ds - ] - ] - [ - [ - { - State - GovState - } - [ + { + { + Tuple2 + [[TxConstraints Void] Void] + } + [State GovState] + } [ [ - GovState + ownsVotingToken ds ] ds ] + ] + [ [ { - Just - Voting + State + GovState } [ [ - Voting - proposal + [ + GovState + ds + ] + ds + ] + [ + { + Just + Voting + } + [ + [ + Voting + proposal + ] + { + Nil + [[Tuple2 (con bytestring)] Bool] + } + ] ] - { - Nil - [[Tuple2 (con bytestring)] Bool] - } ] ] + ds ] ] - ds ] - ] - ] + ) + ) ) - ) + ] ) - ] - ) - ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - tokenNames - [List (con bytestring)] - (abs - dead - (type) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - ds - [[Tuple2 [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[TxConstraints Void] Void]] - ) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [[Tuple2 [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[TxConstraints Void] Void]] - } - [[Tuple2 (con bytestring)] (con bytestring)] + ) + ] + (all dead (type) dead) } - mkValidator - ] - (lam + ) + ] + (all dead (type) dead) + } + ) + ] + (lam + tokenNames + [List (con bytestring)] + (abs + dead + (type) + (let + (nonrec) + (termbind + (nonstrict + ) + (vardecl ds - [[Tuple2 (con bytestring)] (con bytestring)] + [[Tuple2 [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[TxConstraints Void] Void]] + ) + [ [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - (con bytestring) + fFoldableNil_cfoldMap + [[Tuple2 [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[TxConstraints Void] Void]] } - ds - ] - [[Tuple2 [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[TxConstraints Void] Void]] - } + [[Tuple2 (con bytestring)] (con bytestring)] + } + mkValidator + ] (lam - pk - (con bytestring) - (lam - nm - (con bytestring) - (let - (nonrec - ) - (termbind - (nonstrict - ) - (vardecl - v - [[Tuple2 (con bytestring)] (con integer)] - ) - [ - [ - { - { - Tuple2 - (con bytestring) - } - (con integer) - } - nm - ] - (con - integer - 1 - ) - ] - ) - (termbind - (nonstrict - ) - (vardecl - v - [List [[Tuple2 (con bytestring)] (con integer)]] - ) - [ - [ - { - Cons - [[Tuple2 (con bytestring)] (con integer)] - } - v - ] + ds + [[Tuple2 (con bytestring)] (con bytestring)] + [ + { + [ + { { - Nil - [[Tuple2 (con bytestring)] (con integer)] + Tuple2_match + (con bytestring) } - ] - ) - (termbind - (nonstrict - ) - (vardecl - v - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - ) - [ - [ - { + (con bytestring) + } + ds + ] + [[Tuple2 [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[TxConstraints Void] Void]] + } + (lam + pk + (con bytestring) + (lam + nm + (con bytestring) + (let + (nonrec + ) + (termbind + (nonstrict + ) + (vardecl + v + [[Tuple2 (con bytestring)] (con integer)] + ) + [ + [ + { + { + Tuple2 + (con bytestring) + } + (con integer) + } + nm + ] + (con + integer + 1 + ) + ] + ) + (termbind + (nonstrict + ) + (vardecl + v + [List [[Tuple2 (con bytestring)] (con integer)]] + ) + [ + [ + { + Cons + [[Tuple2 (con bytestring)] (con integer)] + } + v + ] { - Tuple2 - (con bytestring) + Nil + [[Tuple2 (con bytestring)] (con integer)] } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - v - ] - ) - (termbind - (nonstrict - ) - (vardecl - v - [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - ) - [ - [ - { - Cons + ] + ) + (termbind + (nonstrict + ) + (vardecl + v [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - v - ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - ) - [ - [ - { - { - Tuple2 - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [[TxConstraints Void] Void] - } - v - ] - [ + ) + [ + [ + { + { + Tuple2 + (con bytestring) + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + ds + ] + v + ] + ) + (termbind + (nonstrict + ) + (vardecl + v + [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + ) + [ + [ + { + Cons + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + v + ] + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ] + ) [ [ { { - TxConstraints - Void + Tuple2 + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - Void + [[TxConstraints Void] Void] } + v + ] + [ [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + [ + { + { + TxConstraints + Void + } + Void + } + [ + { + build + TxConstraint + } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ [ - MustPayToPubKey - pk + c + [ + [ + MustPayToPubKey + pk + ] + v + ] ] - v + n ] - ] - n - ] + ) + ) ) - ) - ) + ] + ] + { + Nil + [InputConstraint Void] + } ] + { + Nil + [OutputConstraint Void] + } ] - { - Nil - [InputConstraint Void] - } ] - { - Nil - [OutputConstraint Void] - } - ] - ] + ) + ) ) - ) + ] ) ] - ) - ] - [ - [ - { - { - zip - (con bytestring) - } - (con bytestring) - } - ds - ] - tokenNames - ] - ] - ) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - [ - [ - { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GovState] - } - [ [ - { - { - fMonoidTxConstraints_c - Void - } - Void - } [ { - [ - { - { - Tuple2_match - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [[TxConstraints Void] Void] - } - ds - ] - [[TxConstraints Void] Void] + { + zip + (con bytestring) + } + (con bytestring) } - (lam - total - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - constraints - [[TxConstraints Void] Void] - constraints - ) - ) + ds ] + tokenNames ] + ] + ) + [ + { + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } + [ [ { { - mustMintValue - Void + Tuple2 + [[TxConstraints Void] Void] } - Void + [State GovState] } [ - { + [ + { + { + fMonoidTxConstraints_c + Void + } + Void + } [ { - { - Tuple2_match - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } + [ + { + { + Tuple2_match + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [[TxConstraints Void] Void] + } + ds + ] [[TxConstraints Void] Void] } - ds + (lam + total + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + constraints + [[TxConstraints Void] Void] + constraints + ) + ) ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ] + [ + { + { + mustMintValue + Void + } + Void + } + [ + { + [ + { + { + Tuple2_match + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [[TxConstraints Void] Void] + } + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + total + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + constraints + [[TxConstraints Void] Void] + total + ) + ) + ] + ] + ] + ] + [ + [ + { + State + GovState } - (lam - total - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - constraints - [[TxConstraints Void] Void] - total - ) - ) + ds ] + ds ] ] ] - [ - [ - { - State - GovState - } - ds - ] - ds - ] - ] - ] + ) + ) ) - ) - ) - ] - (lam - default_arg0 - Proposal - (abs - dead - (type) - { - [ - [ - { + ] + (lam + default_arg0 + Proposal + (abs + dead + (type) + { + [ [ { - Maybe_match - Voting + [ + { + Maybe_match + Voting + } + ds + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) } - ds - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) - } - (lam - ds - Voting - (abs - dead - (type) - [ - { + (lam + ds + Voting + (abs + dead + (type) [ - Voting_match - ds - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] - } - (lam - p - Proposal - (lam - oldMap - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] Bool] { [ - [ + Voting_match + ds + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] + } + (lam + p + Proposal + (lam + oldMap + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] Bool] + { [ [ - { + [ [ - GovInput_match - i - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) - } - (lam - tokenName - (con bytestring) - (lam - vote - Bool - (abs - dead - (type) - (let - (nonrec - ) - (termbind - (nonstrict - ) - (vardecl - l - [[TxConstraints Void] Void] - ) - [ - [ - ownsVotingToken - ds - ] - tokenName - ] - ) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - [ + { + [ + GovInput_match + i + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) + } + (lam + tokenName + (con bytestring) + (lam + vote + Bool + (abs + dead + (type) + (let + (nonrec + ) + (termbind + (nonstrict + ) + (vardecl + l + [[TxConstraints Void] Void] + ) + [ + [ + ownsVotingToken + ds + ] + tokenName + ] + ) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GovState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] } [ [ - [ + { { - { - TxConstraints - Void - } - Void + Tuple2 + [[TxConstraints Void] Void] } + [State GovState] + } + [ [ - { - [ + [ + { { - { - TxConstraints_match - Void - } + TxConstraints Void } - l - ] - [List TxConstraint] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] + Void + } + [ + { + [ + { + { + TxConstraints_match + Void + } + Void + } + l + ] + [List TxConstraint] + } (lam ds - [List [OutputConstraint Void]] - [ - [ - [ - { - { - foldr - TxConstraint - } - [List TxConstraint] - } - { - Cons - TxConstraint - } - ] + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + [ + [ + { + { + foldr + TxConstraint + } + [List TxConstraint] + } + { + Cons + TxConstraint + } + ] + [ + { + build + TxConstraint + } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ - MustValidateIn [ + c [ - { - Interval - (con integer) - } + MustValidateIn [ [ { - LowerBound - (con integer) - } - { - NegInf + Interval (con integer) } + [ + [ + { + LowerBound + (con integer) + } + { + NegInf + (con integer) + } + ] + True + ] ] - True - ] - ] - [ - [ - { - UpperBound - (con integer) - } [ - { - Finite - (con integer) - } [ { - [ - Proposal_match - p - ] + UpperBound (con integer) } - (lam - ds - (con bytestring) - (lam - ds - (con bytestring) - (lam - ds + [ + { + Finite + (con integer) + } + [ + { + [ + Proposal_match + p + ] (con integer) + } + (lam ds + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con integer) + ds + ) + ) ) - ) - ) + ] + ] ] + True ] ] - True ] ] + n ] - ] - n - ] + ) + ) ) - ) - ) + ] + ] + ds ] - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - [ - { + ] + ] [ { - { - TxConstraints_match - Void - } - Void + [ + { + { + TxConstraints_match + Void + } + Void + } + l + ] + [List [InputConstraint Void]] } - l - ] - [List [InputConstraint Void]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] (lam ds - [List [OutputConstraint Void]] - [ - [ + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] [ - { + [ + [ + { + { + foldr + [InputConstraint Void] + } + [List [InputConstraint Void]] + } + { + Cons + [InputConstraint Void] + } + ] { - foldr + Nil [InputConstraint Void] } - [List [InputConstraint Void]] - } - { - Cons - [InputConstraint Void] - } + ] + ds ] - { - Nil - [InputConstraint Void] - } - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - [ - { + ] + ] [ { - { - TxConstraints_match - Void - } - Void + [ + { + { + TxConstraints_match + Void + } + Void + } + l + ] + [List [OutputConstraint Void]] } - l - ] - [List [OutputConstraint Void]] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] (lam ds - [List [OutputConstraint Void]] - [ - [ + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] + (lam + ds + [List [OutputConstraint Void]] [ - { + [ + [ + { + { + foldr + [OutputConstraint Void] + } + [List [OutputConstraint Void]] + } + { + Cons + [OutputConstraint Void] + } + ] { - foldr + Nil [OutputConstraint Void] } - [List [OutputConstraint Void]] - } - { - Cons - [OutputConstraint Void] - } + ] + ds ] - { - Nil - [OutputConstraint Void] - } - ] - ds - ] + ) + ) ) - ) - ) - ] - ] - ] - [ - [ - { - State - GovState - } - [ - [ - [ - GovState - ds ] - ds ] + ] + [ [ { - Just - Voting + State + GovState } [ [ - Voting - p + [ + GovState + ds + ] + ds ] [ + { + Just + Voting + } [ + [ + Voting + p + ] [ [ - { - { - insert - (con bytestring) - } - Bool - } - equalsByteString + [ + [ + { + { + insert + (con bytestring) + } + Bool + } + equalsByteString + ] + tokenName + ] + vote ] - tokenName + oldMap ] - vote ] - oldMap ] ] ] + ds ] ] - ds ] - ] - ] + ) + ) ) ) - ) - ) - ] - (abs - dead - (type) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - [ + ] + (abs + dead + (type) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GovState] - } - { - { - fMonoidTxConstraints_cmempty - Void - } - Void + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] } - ] - [ [ - { - State - GovState - } + [ + { + { + Tuple2 + [[TxConstraints Void] Void] + } + [State GovState] + } + { + { + fMonoidTxConstraints_cmempty + Void + } + Void + } + ] [ [ - [ + { + State GovState - { + } + [ + [ [ - [ - { + GovState + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - lessThanInteger - ) + { + (builtin + ifThenElse + ) + Bool + } [ [ + (builtin + lessThanInteger + ) [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) (con integer)] - } - [[Tuple2 (con bytestring)] Bool] - } - mkValidator - ] - (lam - ds - [[Tuple2 (con bytestring)] Bool] [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - Bool + fFoldableNil_cfoldMap + [(lam a (type) a) (con integer)] } - ds - ] - [(lam a (type) a) (con integer)] - } + [[Tuple2 (con bytestring)] Bool] + } + mkValidator + ] (lam ds - (con bytestring) - (lam - a - Bool - [ + [[Tuple2 (con bytestring)] Bool] + [ + { [ { - [ - Bool_match - a - ] - [(lam a (type) a) (con integer)] + { + Tuple2_match + (con bytestring) + } + Bool } - (con - integer - 1 - ) + ds ] - (con - integer - 0 + [(lam a (type) a) (con integer)] + } + (lam + ds + (con bytestring) + (lam + a + Bool + [ + [ + { + [ + Bool_match + a + ] + [(lam a (type) a) (con integer)] + } + (con + integer + 1 + ) + ] + (con + integer + 0 + ) + ] ) - ] - ) + ) + ] ) ] - ) + oldMap + ] ] - oldMap + ds ] ] - ds + False ] + True ] - False - ] - True - ] - ] - (all dead (type) (con bytestring)) - } - (abs - dead - (type) - [ - { - [ - Proposal_match - p ] - (con bytestring) + (all dead (type) (con bytestring)) } - (lam - ds - (con bytestring) - (lam - ds - (con bytestring) + (abs + dead + (type) + [ + { + [ + Proposal_match + p + ] + (con bytestring) + } (lam ds - (con integer) - ds + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con integer) + ds + ) + ) ) - ) + ] ) ] - ) - ] - (abs - dead - (type) - ds - ) + (abs + dead + (type) + ds + ) + ] + (all dead (type) dead) + } ] - (all dead (type) dead) + ds + ] + { + Nothing + Voting } ] - ds ] - { - Nothing - Voting - } + ds ] ] - ds ] - ] + ) ] + (lam + default_arg0 + [List (con bytestring)] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } + ) + ) + ] + (lam + default_arg0 + Proposal + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } + ) ) ] + (all dead (type) dead) + } + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + [ + { + [ + GovInput_match + i + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) + } + (lam + default_arg0 + (con bytestring) (lam - default_arg0 - [List (con bytestring)] + default_arg1 + Bool (abs dead (type) @@ -5329,487 +5480,439 @@ } ) ) - ] - (lam - default_arg0 - Proposal - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) ) ] - (all dead (type) dead) - } - ) - ) - ] - ) - ) - ] - (abs - dead - (type) - { - [ - [ - [ - [ - { - [ - GovInput_match - i - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]]) - } + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } + ) + ] (lam default_arg0 - (con bytestring) - (lam - default_arg1 - Bool - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) + [List (con bytestring)] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] + } ) ) ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) - ] - (lam - default_arg0 - [List (con bytestring)] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - ) - ) - ] - (lam - proposal - Proposal - (abs - dead - (type) - [ - { + (lam + proposal + Proposal + (abs + dead + (type) [ - Proposal_match - proposal - ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] - } - (lam - ds - (con bytestring) - (lam - ds - (con bytestring) + { + [ + Proposal_match + proposal + ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State GovState]]] + } (lam ds - (con integer) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] - } - [ + (con bytestring) + (lam + ds + (con bytestring) + (lam + ds + (con integer) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State GovState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State GovState]] } [ [ - ownsVotingToken - ds - ] - ds - ] - ] - [ - [ - { - State - GovState - } - [ + { + { + Tuple2 + [[TxConstraints Void] Void] + } + [State GovState] + } [ [ - GovState + ownsVotingToken ds ] ds ] + ] + [ [ { - Just - Voting + State + GovState } [ [ - Voting - proposal + [ + GovState + ds + ] + ds + ] + [ + { + Just + Voting + } + [ + [ + Voting + proposal + ] + { + Nil + [[Tuple2 (con bytestring)] Bool] + } + ] ] - { - Nil - [[Tuple2 (con bytestring)] Bool] - } ] ] + ds ] ] - ds ] - ] - ] + ) + ) ) - ) + ] ) - ] - ) - ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (all dead (type) dead) - } + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) + ] ) - ] + ) ) ) - ) - ) - (termbind - (strict) - (vardecl - machine - (fun Params [[StateMachine GovState] GovInput]) - ) - (lam - params - Params - [ - [ + (termbind + (strict) + (vardecl + machine + (fun Params [[StateMachine GovState] GovInput]) + ) + (lam + params + Params [ [ - { { StateMachine GovState } GovInput } - [ transition params ] + [ + [ + { { StateMachine GovState } GovInput } + [ transition params ] + ] + (lam ds GovState False) + ] + { { mkStateMachine GovState } GovInput } ] - (lam ds GovState False) + { Nothing ThreadToken } ] - { { mkStateMachine GovState } GovInput } - ] - { Nothing ThreadToken } - ] - ) - ) - (termbind - (strict) - (vardecl absurd (all a (type) (fun Void a))) - (abs a (type) (lam a Void { [ Void_match a ] a })) - ) - (termbind - (strict) - (vardecl - fToDataVoid_ctoBuiltinData (fun Void (con data)) - ) - (lam v Void [ { absurd (con data) } v ]) - ) - (termbind - (strict) - (vardecl - fEqTxOutRef_c (fun TxOutRef (fun TxOutRef Bool)) - ) - (lam - l - TxOutRef - (lam - r - TxOutRef - { - [ - [ - { + ) + ) + (termbind + (strict) + (vardecl absurd (all a (type) (fun Void a))) + (abs a (type) (lam a Void { [ Void_match a ] a })) + ) + (termbind + (strict) + (vardecl + fToDataVoid_ctoBuiltinData (fun Void (con data)) + ) + (lam v Void [ { absurd (con data) } v ]) + ) + (termbind + (strict) + (vardecl + fEqTxOutRef_c (fun TxOutRef (fun TxOutRef Bool)) + ) + (lam + l + TxOutRef + (lam + r + TxOutRef + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin equalsByteString) + { (builtin ifThenElse) Bool } [ - { - [ TxOutRef_match l ] - (con bytestring) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) + [ + (builtin equalsByteString) + [ + { + [ TxOutRef_match l ] + (con bytestring) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds + ) + ) + ] + ] + [ + { + [ TxOutRef_match r ] + (con bytestring) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] ] ] - [ - { - [ TxOutRef_match r ] - (con bytestring) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) - ] + True ] + False ] - True ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ - [ + (all dead (type) Bool) + } + (abs + dead + (type) [ - { (builtin ifThenElse) Bool } [ [ - (builtin equalsInteger) + { (builtin ifThenElse) Bool } [ - { - [ TxOutRef_match l ] - (con integer) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) + [ + (builtin equalsInteger) + [ + { + [ TxOutRef_match l ] + (con integer) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] + ] + [ + { + [ TxOutRef_match r ] + (con integer) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] ] ] - [ - { - [ TxOutRef_match r ] - (con integer) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) - ] + True ] + False ] - True - ] - False + ) ] - ) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (abs dead (type) False) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - checkOwnInputConstraint - (all a (type) (fun ScriptContext (fun [InputConstraint a] Bool))) - ) - (abs - a - (type) - (lam - ds - ScriptContext - (lam - ds - [InputConstraint a] - [ - { [ ScriptContext_match ds ] Bool } + (termbind + (strict) + (vardecl + checkOwnInputConstraint + (all a (type) (fun ScriptContext (fun [InputConstraint a] Bool))) + ) + (abs + a + (type) + (lam + ds + ScriptContext (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { - [ { InputConstraint_match a } ds ] Bool - } + [InputConstraint a] + [ + { [ ScriptContext_match ds ] Bool } + (lam + ds + TxInfo (lam ds - a - (lam - ds - TxOutRef - [ - { [ TxInfo_match ds ] Bool } + ScriptPurpose + [ + { + [ { InputConstraint_match a } ds ] + Bool + } + (lam + ds + a (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxOutRef + [ + { [ TxInfo_match ds ] Bool } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ - [ - { + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxInInfo - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxInInfo [ - { + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxInInfo + } [ - TxInInfo_match - ds + { + fMonoidSum + Bool + } + fAdditiveMonoidBool ] - Bool - } + ] (lam ds - TxOutRef - (lam - ds - TxOut - [ + TxInInfo + [ + { [ - fEqTxOutRef_c + TxInInfo_match ds ] + Bool + } + (lam ds - ] - ) + TxOutRef + (lam + ds + TxOut + [ + [ + fEqTxOutRef_c + ds + ] + ds + ] + ) + ) + ] ) ] - ) + ds + ] ] - ds - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool + (all dead (type) Bool) } - (con - string - "L0" + (abs + dead + (type) + True ) ] - False + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L0" + ) + ] + False + ] + ) ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ) ) ) ) @@ -5818,275 +5921,277 @@ ) ) ) - ) + ] ) - ] - ) + ) + ] ) + ) + ] + ) + ) + ) + ) + (termbind + (strict) + (vardecl + fSemigroupFirst_c + (all a (type) (fun [(lam a (type) [Maybe a]) a] (fun [(lam a (type) [Maybe a]) a] [(lam a (type) [Maybe a]) a]))) + ) + (abs + a + (type) + (lam + ds + [(lam a (type) [Maybe a]) a] + (lam + b + [(lam a (type) [Maybe a]) a] + { + [ + [ + { + [ { Maybe_match a } ds ] + (all dead (type) [(lam a (type) [Maybe a]) a]) + } + (lam ipv a (abs dead (type) ds)) + ] + (abs dead (type) b) ] - ) + (all dead (type) dead) + } ) - ] + ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fSemigroupFirst_c - (all a (type) (fun [(lam a (type) [Maybe a]) a] (fun [(lam a (type) [Maybe a]) a] [(lam a (type) [Maybe a]) a]))) - ) - (abs - a - (type) - (lam - ds - [(lam a (type) [Maybe a]) a] - (lam - b - [(lam a (type) [Maybe a]) a] - { + (termbind + (strict) + (vardecl + fMonoidFirst + (all a (type) [Monoid [(lam a (type) [Maybe a]) a]]) + ) + (abs + a + (type) + [ [ - [ - { - [ { Maybe_match a } ds ] - (all dead (type) [(lam a (type) [Maybe a]) a]) - } - (lam ipv a (abs dead (type) ds)) - ] - (abs dead (type) b) + { CConsMonoid [(lam a (type) [Maybe a]) a] } + { fSemigroupFirst_c a } ] - (all dead (type) dead) - } + { Nothing a } + ] ) ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidFirst - (all a (type) [Monoid [(lam a (type) [Maybe a]) a]]) - ) - (abs - a - (type) - [ - [ - { CConsMonoid [(lam a (type) [Maybe a]) a] } - { fSemigroupFirst_c a } - ] - { Nothing a } - ] - ) - ) - (termbind - (strict) - (vardecl - findDatumHash - (fun (con data) (fun TxInfo [Maybe (con bytestring)])) - ) - (lam - ds - (con data) - (lam - ds - TxInfo - [ - { [ TxInfo_match ds ] [Maybe (con bytestring)] } + (termbind + (strict) + (vardecl + findDatumHash + (fun (con data) (fun TxInfo [Maybe (con bytestring)])) + ) + (lam + ds + (con data) (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxInfo + [ + { + [ TxInfo_match ds ] [Maybe (con bytestring)] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ - [ - { + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { + [ [ { - Maybe_match - [[Tuple2 (con bytestring)] (con data)] - } - [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] - } - [[Tuple2 (con bytestring)] (con data)] - } - { - fMonoidFirst - [[Tuple2 (con bytestring)] (con data)] - } - ] - (lam - x + { + Maybe_match [[Tuple2 (con bytestring)] (con data)] + } + [ [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - (con data) + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] } - x - ] - [Maybe [[Tuple2 (con bytestring)] (con data)]] - } + [[Tuple2 (con bytestring)] (con data)] + } + { + fMonoidFirst + [[Tuple2 (con bytestring)] (con data)] + } + ] (lam - ds - (con bytestring) - (lam - ds - (con data) + x + [[Tuple2 (con bytestring)] (con data)] + [ { [ - [ + { { + Tuple2_match + (con bytestring) + } + (con data) + } + x + ] + [Maybe [[Tuple2 (con bytestring)] (con data)]] + } + (lam + ds + (con bytestring) + (lam + ds + (con data) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsData - ) - ds + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsData + ) + ds + ] + ds + ] ] - ds + True ] + False ] - True ] - False - ] + (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) + } + (abs + dead + (type) + [ + { + Just + [[Tuple2 (con bytestring)] (con data)] + } + x + ] + ) ] - (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) - } - (abs - dead - (type) - [ + (abs + dead + (type) { - Just + Nothing [[Tuple2 (con bytestring)] (con data)] } - x - ] - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 (con bytestring)] (con data)] - } - ) - ] - (all dead (type) dead) + ) + ] + (all dead (type) dead) + } + ) + ) + ] + ) + ] + ds + ] + ] + (all dead (type) [Maybe (con bytestring)]) + } + (lam + a + [[Tuple2 (con bytestring)] (con data)] + (abs + dead + (type) + [ + { + Just + (con bytestring) + } + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con data) } + a + ] + (con bytestring) + } + (lam + a + (con bytestring) + (lam + ds + (con data) + a ) ) ] - ) - ] - ds - ] + ] + ) + ) ] - (all dead (type) [Maybe (con bytestring)]) - } - (lam - a - [[Tuple2 (con bytestring)] (con data)] (abs dead (type) - [ - { - Just - (con bytestring) - } - [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - (con data) - } - a - ] - (con bytestring) - } - (lam - a - (con bytestring) - (lam - ds - (con data) - a - ) - ) - ] - ] + { + Nothing + (con bytestring) + } ) - ) - ] - (abs - dead - (type) - { - Nothing - (con bytestring) - } - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ) ) ) ) @@ -6095,291 +6200,345 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - fEqCredential_c (fun Credential (fun Credential Bool)) - ) - (lam - ds - Credential - (lam - ds - Credential - [ - [ - { [ Credential_match ds ] Bool } - (lam - l - (con bytestring) - [ - [ - { [ Credential_match ds ] Bool } - (lam - r - (con bytestring) - [ [ equalsByteString l ] r ] - ) - ] - (lam ipv (con bytestring) False) - ] - ) - ] + (termbind + (strict) + (vardecl + fEqCredential_c + (fun Credential (fun Credential Bool)) + ) + (lam + ds + Credential (lam - a - (con bytestring) + ds + Credential [ [ { [ Credential_match ds ] Bool } - (lam ipv (con bytestring) False) + (lam + l + (con bytestring) + [ + [ + { [ Credential_match ds ] Bool } + (lam + r + (con bytestring) + [ [ equalsByteString l ] r ] + ) + ] + (lam ipv (con bytestring) False) + ] + ) ] (lam a (con bytestring) - [ [ equalsByteString a ] a ] + [ + [ + { [ Credential_match ds ] Bool } + (lam ipv (con bytestring) False) + ] + (lam + a + (con bytestring) + [ [ equalsByteString a ] a ] + ) + ] ) ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - equalsInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + equalsInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsInteger) x ] y ] - ] - True - ] - False - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fEqStakingCredential_c - (fun StakingCredential (fun StakingCredential Bool)) - ) - (lam - ds - StakingCredential - (lam - ds - StakingCredential - [ - [ - { [ StakingCredential_match ds ] Bool } - (lam - l - Credential [ [ - { [ StakingCredential_match ds ] Bool } - (lam - r Credential [ [ fEqCredential_c l ] r ] - ) + { (builtin ifThenElse) Bool } + [ [ (builtin equalsInteger) x ] y ] ] + True + ] + False + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fEqStakingCredential_c + (fun StakingCredential (fun StakingCredential Bool)) + ) + (lam + ds + StakingCredential + (lam + ds + StakingCredential + [ + [ + { [ StakingCredential_match ds ] Bool } (lam - ipv - (con integer) - (lam - ipv - (con integer) - (lam ipv (con integer) False) - ) + l + Credential + [ + [ + { + [ StakingCredential_match ds ] Bool + } + (lam + r + Credential + [ [ fEqCredential_c l ] r ] + ) + ] + (lam + ipv + (con integer) + (lam + ipv + (con integer) + (lam ipv (con integer) False) + ) + ) + ] ) ] - ) - ] - (lam - a - (con integer) - (lam - b - (con integer) (lam - c + a (con integer) - [ - [ - { [ StakingCredential_match ds ] Bool } - (lam ipv Credential False) - ] + (lam + b + (con integer) (lam - a + c (con integer) - (lam - b - (con integer) + [ + [ + { + [ StakingCredential_match ds ] + Bool + } + (lam ipv Credential False) + ] (lam - c + a (con integer) - { - [ - [ - { + (lam + b + (con integer) + (lam + c + (con integer) + { + [ [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { + [ + Bool_match + [ [ [ - (builtin - equalsInteger - ) - a + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + a + ] + a + ] ] - a + True ] + False ] - True ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ - [ - { + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsInteger - ) - b + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + b + ] + b + ] ] - b + True ] + False ] - True ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ - [ - equalsInteger c - ] - c + (all dead (type) Bool) + } + (abs + dead + (type) + [ + [ + equalsInteger + c + ] + c + ] + ) ] - ) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (abs + dead (type) False + ) + ] + (all dead (type) dead) + } + ) + ] + (abs dead (type) False) + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] + ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl fEqAddress_c (fun Address (fun Address Bool))) - (lam - ds - Address - (lam - ds - Address - [ - { [ Address_match ds ] Bool } + (termbind + (strict) + (vardecl + fEqAddress_c (fun Address (fun Address Bool)) + ) + (lam + ds + Address (lam - cred - Credential - (lam - stakingCred - [Maybe StakingCredential] - [ - { [ Address_match ds ] Bool } + ds + Address + [ + { [ Address_match ds ] Bool } + (lam + cred + Credential (lam - cred - Credential - (lam - stakingCred - [Maybe StakingCredential] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ - [ - { + stakingCred + [Maybe StakingCredential] + [ + { [ Address_match ds ] Bool } + (lam + cred + Credential + (lam + stakingCred + [Maybe StakingCredential] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl j Bool) + { + [ [ { - Maybe_match - StakingCredential + [ + { + Maybe_match + StakingCredential + } + stakingCred + ] + (all dead (type) Bool) } - stakingCred + (lam + a + StakingCredential + (abs + dead + (type) + { + [ + [ + { + [ + { + Maybe_match + StakingCredential + } + stakingCred + ] + (all dead (type) Bool) + } + (lam + a + StakingCredential + (abs + dead + (type) + [ + [ + fEqStakingCredential_c + a + ] + a + ] + ) + ) + ] + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } + ) + ) ] - (all dead (type) Bool) - } - (lam - a - StakingCredential (abs dead (type) @@ -6397,75 +6556,118 @@ (all dead (type) Bool) } (lam - a + ipv StakingCredential (abs dead (type) - [ - [ - fEqStakingCredential_c - a - ] - a - ] + False ) ) ] - (abs dead (type) False - ) + (abs dead (type) True) ] (all dead (type) dead) } ) - ) - ] - (abs - dead - (type) + ] + (all dead (type) dead) + } + ) + [ + [ { + [ Credential_match cred ] + Bool + } + (lam + l + (con bytestring) [ [ { [ - { - Maybe_match - StakingCredential - } - stakingCred + Credential_match + cred ] - (all dead (type) Bool) + Bool } (lam - ipv - StakingCredential - (abs dead (type) False - ) + r + (con bytestring) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + l + ] + r + ] + ] + True + ] + False + ] + ] + (all dead (type) Bool) + } + (abs + dead (type) j + ) + ] + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } ) ] - (abs dead (type) True) + (lam + ipv + (con bytestring) + False + ) ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - [ - [ - { [ Credential_match cred ] Bool } - (lam - l - (con bytestring) - [ + ) + ] + (lam + a + (con bytestring) [ - { - [ Credential_match cred ] - Bool - } + [ + { + [ + Credential_match cred + ] + Bool + } + (lam + ipv + (con bytestring) + False + ) + ] (lam - r + a (con bytestring) { [ @@ -6487,9 +6689,9 @@ (builtin equalsByteString ) - l + a ] - r + a ] ] True @@ -6508,273 +6710,213 @@ } ) ] - (lam - ipv (con bytestring) False - ) - ] - ) - ] - (lam - a - (con bytestring) - [ - [ - { - [ Credential_match cred ] - Bool - } - (lam - ipv (con bytestring) False - ) - ] - (lam - a - (con bytestring) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - a - ] - a - ] - ] - True - ] - False - ] - ] - (all dead (type) Bool) - } - (abs dead (type) j) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } ) ] ) - ] + ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl error (all a (type) (fun (con unit) a))) - (abs a (type) (lam thunk (con unit) (error a))) - ) - (termbind - (strict) - (vardecl - findOwnInput (fun ScriptContext [Maybe TxInInfo]) - ) - (lam - ds - ScriptContext - [ - { [ ScriptContext_match ds ] [Maybe TxInInfo] } + (termbind + (strict) + (vardecl error (all a (type) (fun (con unit) a))) + (abs a (type) (lam thunk (con unit) (error a))) + ) + (termbind + (strict) + (vardecl + findOwnInput (fun ScriptContext [Maybe TxInInfo]) + ) (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { [ TxInfo_match ds ] [Maybe TxInInfo] } + ScriptContext + [ + { [ ScriptContext_match ds ] [Maybe TxInInfo] } + (lam + ds + TxInfo (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + ScriptPurpose + [ + { [ TxInfo_match ds ] [Maybe TxInInfo] } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ - [ - { - [ - ScriptPurpose_match - ds - ] - (all dead (type) [Maybe TxInInfo]) - } - (lam - default_arg0 - DCert - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) - ) - ] - (lam - default_arg0 - (con bytestring) - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) - ) - ] - (lam - default_arg0 - StakingCredential - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) - ) - ] - (lam - txOutRef - TxOutRef - (abs - dead - (type) [ [ [ { + [ + ScriptPurpose_match + ds + ] + (all dead (type) [Maybe TxInInfo]) + } + (lam + default_arg0 + DCert + (abs + dead + (type) + { + Nothing + TxInInfo + } + ) + ) + ] + (lam + default_arg0 + (con bytestring) + (abs + dead + (type) { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) TxInInfo] + Nothing + TxInInfo } - TxInInfo - } + ) + ) + ] + (lam + default_arg0 + StakingCredential + (abs + dead + (type) { - fMonoidFirst + Nothing TxInInfo } - ] - (lam - x - TxInInfo + ) + ) + ] + (lam + txOutRef + TxOutRef + (abs + dead + (type) + [ [ - { - [ - TxInInfo_match - x - ] - [Maybe TxInInfo] - } + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) TxInInfo] + } + TxInInfo + } + { + fMonoidFirst + TxInInfo + } + ] (lam - ds - TxOutRef - (lam - ds - TxOut + x + TxInInfo + [ { [ - [ - { + TxInInfo_match + x + ] + [Maybe TxInInfo] + } + (lam + ds + TxOutRef + (lam + ds + TxOut + { + [ [ - Bool_match - [ + { [ - fEqTxOutRef_c - ds + Bool_match + [ + [ + fEqTxOutRef_c + ds + ] + txOutRef + ] ] - txOutRef - ] + (all dead (type) [Maybe TxInInfo]) + } + (abs + dead + (type) + [ + { + Just + TxInInfo + } + x + ] + ) ] - (all dead (type) [Maybe TxInInfo]) - } - (abs - dead - (type) - [ + (abs + dead + (type) { - Just + Nothing TxInInfo } - x - ] - ) - ] - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) - ] - (all dead (type) dead) - } - ) + ) + ] + (all dead (type) dead) + } + ) + ) + ] ) ] - ) - ] - ds - ] - ) - ) - ] - (all dead (type) dead) - } + ds + ] + ) + ) + ] + (all dead (type) dead) + } + ) + ) ) ) ) @@ -6783,191 +6925,199 @@ ) ) ) - ) + ] ) - ] - ) + ) + ] ) - ] - ) - ) - (termbind - (strict) - (vardecl - getContinuingOutputs (fun ScriptContext [List TxOut]) - ) - (lam - ctx - ScriptContext - { - [ - [ - { + ) + (termbind + (strict) + (vardecl + getContinuingOutputs + (fun ScriptContext [List TxOut]) + ) + (lam + ctx + ScriptContext + { + [ [ - { Maybe_match TxInInfo } - [ findOwnInput ctx ] - ] - (all dead (type) [List TxOut]) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { [ TxInInfo_match ds ] [List TxOut] } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { [ TxOut_match ds ] [List TxOut] } + { + [ + { Maybe_match TxInInfo } + [ findOwnInput ctx ] + ] + (all dead (type) [List TxOut]) + } + (lam + ds + TxInInfo + (abs + dead + (type) + [ + { [ TxInInfo_match ds ] [List TxOut] } + (lam + ds + TxOutRef (lam ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + TxOut + [ + { + [ TxOut_match ds ] + [List TxOut] + } (lam ds - [Maybe (con bytestring)] - [ - { - [ - ScriptContext_match ctx - ] - [List TxOut] - } + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { - [ TxInfo_match ds ] - [List TxOut] - } + [Maybe (con bytestring)] + [ + { + [ + ScriptContext_match + ctx + ] + [List TxOut] + } + (lam + ds + TxInfo (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + ScriptPurpose + [ + { + [ + TxInfo_match + ds + ] + [List TxOut] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { - { - foldr - TxOut - } - [List TxOut] - } - (lam - e - TxOut - (lam - xs - [List TxOut] - [ + [ + [ + { { - [ - TxOut_match - e - ] - [List TxOut] + foldr + TxOut } + [List TxOut] + } + (lam + e + TxOut (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + xs + [List TxOut] + [ + { + [ + TxOut_match + e + ] + [List TxOut] + } (lam - ds - [Maybe (con bytestring)] - { - [ - [ - { + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + { + [ [ - Bool_match - [ + { [ - fEqAddress_c - ds + Bool_match + [ + [ + fEqAddress_c + ds + ] + ds + ] ] - ds - ] + (all dead (type) [List TxOut]) + } + (abs + dead + (type) + [ + [ + { + Cons + TxOut + } + e + ] + xs + ] + ) ] - (all dead (type) [List TxOut]) - } - (abs - dead - (type) - [ - [ - { - Cons - TxOut - } - e - ] + (abs + dead + (type) xs - ] - ) - ] - (abs - dead - (type) - xs - ) - ] - (all dead (type) dead) - } + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] - ) - ) + ) + ] + { + Nil + TxOut + } + ] + ds ] - { - Nil - TxOut - } - ] - ds - ] + ) + ) ) ) ) @@ -6976,930 +7126,967 @@ ) ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) + ] ) - ] - ) + ) + ] ) - ] - ) - ) - ] - (abs - dead - (type) - [ - { error [List TxOut] } - [ - { + ) + ] + (abs + dead + (type) + [ + { error [List TxOut] } [ - Unit_match - [ + { [ - { (builtin trace) Unit } - (con string "Lf") + Unit_match + [ + [ + { (builtin trace) Unit } + (con string "Lf") + ] + Unit + ] ] - Unit - ] + (con unit) + } + (con unit ()) ] - (con unit) - } - (con unit ()) - ] + ] + ) ] + (all dead (type) dead) + } + ) + ) + (datatypebind + (datatype + (tyvardecl + MultiplicativeMonoid (fun (type) (type)) ) - ] - (all dead (type) dead) - } - ) - ) - (datatypebind - (datatype - (tyvardecl MultiplicativeMonoid (fun (type) (type))) - (tyvardecl a (type)) - MultiplicativeMonoid_match - (vardecl - CConsMultiplicativeMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [MultiplicativeMonoid a])) + (tyvardecl a (type)) + MultiplicativeMonoid_match + (vardecl + CConsMultiplicativeMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [MultiplicativeMonoid a])) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - p1MultiplicativeMonoid - (all a (type) (fun [MultiplicativeMonoid a] [(lam a (type) (fun a (fun a a))) a])) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - { - [ { MultiplicativeMonoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } + (termbind + (strict) + (vardecl + p1MultiplicativeMonoid + (all a (type) (fun [MultiplicativeMonoid a] [(lam a (type) (fun a (fun a a))) a])) + ) + (abs + a + (type) (lam v - [(lam a (type) (fun a (fun a a))) a] - (lam v a v) + [MultiplicativeMonoid a] + [ + { + [ { MultiplicativeMonoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } + (lam + v + [(lam a (type) (fun a (fun a a))) a] + (lam v a v) + ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - one (all a (type) (fun [MultiplicativeMonoid a] a)) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - { [ { MultiplicativeMonoid_match a } v ] a } + (termbind + (strict) + (vardecl + one + (all a (type) (fun [MultiplicativeMonoid a] a)) + ) + (abs + a + (type) (lam v - [(lam a (type) (fun a (fun a a))) a] - (lam v a v) - ) - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidProduct - (all a (type) (fun [MultiplicativeMonoid a] [Monoid [(lam a (type) a) a]])) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - [ - { CConsMonoid [(lam a (type) a) a] } - (lam - eta - [(lam a (type) a) a] + [MultiplicativeMonoid a] + [ + { [ { MultiplicativeMonoid_match a } v ] a } (lam - eta - [(lam a (type) a) a] - [ - [ [ { p1MultiplicativeMonoid a } v ] eta ] - eta - ] + v + [(lam a (type) (fun a (fun a a))) a] + (lam v a v) ) - ) - ] - [ { one a } v ] - ] - ) - ) - ) - (termbind - (strict) - (vardecl bad_name (fun Bool (fun Bool Bool))) - (lam - ds - Bool - (lam - x - Bool - { - [ - [ - { [ Bool_match ds ] (all dead (type) Bool) } - (abs dead (type) x) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + ) + ) ) - ) - ) - (termbind - (nonstrict) - (vardecl - fMultiplicativeMonoidBool [MultiplicativeMonoid Bool] - ) - [ [ { CConsMultiplicativeMonoid Bool } bad_name ] True ] - ) - (termbind - (strict) - (vardecl - checkPred - (fun (fun [[These (con integer)] (con integer)] Bool) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) - ) - (lam - f - (fun [[These (con integer)] (con integer)] Bool) - (lam - l - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - r - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - dMonoid [Monoid [(lam a (type) a) Bool]] - ) + (termbind + (strict) + (vardecl + fMonoidProduct + (all a (type) (fun [MultiplicativeMonoid a] [Monoid [(lam a (type) a) a]])) + ) + (abs + a + (type) + (lam + v + [MultiplicativeMonoid a] + [ [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool + { CConsMonoid [(lam a (type) a) a] } + (lam + eta + [(lam a (type) a) a] + (lam + eta + [(lam a (type) a) a] + [ + [ + [ { p1MultiplicativeMonoid a } v ] + eta + ] + eta + ] + ) + ) ] - ) - [ + [ { one a } v ] + ] + ) + ) + ) + (termbind + (strict) + (vardecl bad_name (fun Bool (fun Bool Bool))) + (lam + ds + Bool + (lam + x + Bool + { [ [ { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + [ Bool_match ds ] (all dead (type) Bool) } + (abs dead (type) x) + ] + (abs dead (type) False) + ] + (all dead (type) dead) + } + ) + ) + ) + (termbind + (nonstrict) + (vardecl + fMultiplicativeMonoidBool + [MultiplicativeMonoid Bool] + ) + [ + [ { CConsMultiplicativeMonoid Bool } bad_name ] + True + ] + ) + (termbind + (strict) + (vardecl + checkPred + (fun (fun [[These (con integer)] (con integer)] Bool) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) + ) + (lam + f + (fun [[These (con integer)] (con integer)] Bool) + (lam + l + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + r + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dMonoid [Monoid [(lam a (type) a) Bool]] + ) [ { fMonoidProduct Bool } fMultiplicativeMonoidBool ] - ] - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + ) + [ [ - { - [ + [ + { { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] } - ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool ] - [(lam a (type) a) Bool] - } + ] (lam ds - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - [ + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + [ + { [ - [ + { { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + Tuple2_match + (con bytestring) } - dMonoid - ] - (lam - ds - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + [ [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - [[These (con integer)] (con integer)] + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] } - ds - ] - [(lam a (type) a) Bool] - } + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + dMonoid + ] (lam ds - (con bytestring) - (lam - a - [[These (con integer)] (con integer)] - [ f a ] - ) + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + [[These (con integer)] (con integer)] + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[These (con integer)] (con integer)] + [ f a ] + ) + ) + ] ) ] - ) - ] - a - ] - ) + a + ] + ) + ) + ] ) ] - ) - ] - [ [ unionVal l ] r ] - ] + [ [ unionVal l ] r ] + ] + ) + ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - checkBinRel - (fun (fun (con integer) (fun (con integer) Bool)) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) - ) - (lam - f - (fun (con integer) (fun (con integer) Bool)) - (lam - l - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (termbind + (strict) + (vardecl + checkBinRel + (fun (fun (con integer) (fun (con integer) Bool)) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) + ) (lam - r - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ + f + (fun (con integer) (fun (con integer) Bool)) + (lam + l + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + r + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - checkPred - (lam - k - [[These (con integer)] (con integer)] + [ [ - [ + checkPred + (lam + k + [[These (con integer)] (con integer)] [ - { + [ [ { - { These_match (con integer) } - (con integer) + [ + { + { + These_match + (con integer) + } + (con integer) + } + k + ] + Bool } - k + (lam + b + (con integer) + [ [ f (con integer 0) ] b ] + ) ] - Bool - } + (lam + a + (con integer) + (lam + b (con integer) [ [ f a ] b ] + ) + ) + ] (lam - b + a (con integer) - [ [ f (con integer 0) ] b ] + [ [ f a ] (con integer 0) ] ) ] - (lam - a - (con integer) - (lam b (con integer) [ [ f a ] b ]) - ) - ] - (lam - a - (con integer) - [ [ f a ] (con integer 0) ] ) ] - ) + l + ] + r ] - l - ] - r - ] + ) + ) ) ) - ) - ) - (termbind - (strict) - (vardecl - checkOwnOutputConstraint - (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun ScriptContext (fun [OutputConstraint o] Bool)))) - ) - (abs - o - (type) - (lam - dToData - [(lam a (type) (fun a (con data))) o] - (lam - ctx - ScriptContext + (termbind + (strict) + (vardecl + checkOwnOutputConstraint + (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun ScriptContext (fun [OutputConstraint o] Bool)))) + ) + (abs + o + (type) (lam - ds - [OutputConstraint o] - [ - { [ ScriptContext_match ctx ] Bool } + dToData + [(lam a (type) (fun a (con data))) o] + (lam + ctx + ScriptContext (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { - [ { OutputConstraint_match o } ds ] - Bool - } + [OutputConstraint o] + [ + { [ ScriptContext_match ctx ] Bool } + (lam + ds + TxInfo (lam ds - o - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - hsh [Maybe (con bytestring)] - ) - [ - [ - findDatumHash [ dToData ds ] - ] - ds - ] - ) - { - [ - [ - { + ScriptPurpose + [ + { + [ + { OutputConstraint_match o } ds + ] + Bool + } + (lam + ds + o + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + hsh + [Maybe (con bytestring)] + ) + [ + [ + findDatumHash + [ dToData ds ] + ] + ds + ] + ) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxOut - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxOut [ - { + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxOut + } [ - TxOut_match - ds + { + fMonoidSum + Bool + } + fAdditiveMonoidBool ] - Bool - } + ] (lam ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + TxOut + [ + { + [ + TxOut_match + ds + ] + Bool + } (lam ds - [Maybe (con bytestring)] - { - [ - [ - { + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + { + [ [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) Bool) - } - (lam - svh - (con bytestring) - (abs - dead - (type) { [ - [ - { + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) Bool) + } + (lam + svh + (con bytestring) + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - checkBinRel - equalsInteger + [ + [ + checkBinRel + equalsInteger + ] + ds + ] + ds ] - ds ] - ds - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ - [ - { + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ [ { - Maybe_match - (con bytestring) + [ + { + Maybe_match + (con bytestring) + } + hsh + ] + (all dead (type) Bool) } - hsh + (lam + a + (con bytestring) + (abs + dead + (type) + [ + [ + equalsByteString + a + ] + svh + ] + ) + ) ] - (all dead (type) Bool) - } - (lam - a - (con bytestring) (abs dead (type) - [ - [ - equalsByteString - a - ] - svh - ] + False ) - ) - ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ] + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + False ) - ) - ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) ] - ) + [ + getContinuingOutputs + ctx + ] + ] ] + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (abs + dead + (type) + [ [ - getContinuingOutputs - ctx + { + (builtin trace) + Bool + } + (con string "L1") ] + False ] - ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L1") - ] - False + ) ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Ordering (type)) + (datatypebind + (datatype + (tyvardecl Ordering (type)) - Ordering_match - (vardecl EQ Ordering) - (vardecl GT Ordering) - (vardecl LT Ordering) - ) - ) - (termbind - (strict) - (vardecl - fOrdInteger_ccompare - (fun (con integer) (fun (con integer) Ordering)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - { - [ - [ - { + Ordering_match + (vardecl EQ Ordering) + (vardecl GT Ordering) + (vardecl LT Ordering) + ) + ) + (termbind + (strict) + (vardecl + fOrdInteger_ccompare + (fun (con integer) (fun (con integer) Ordering)) + ) + (lam + x + (con integer) + (lam + y + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ + [ (builtin equalsInteger) x ] + y + ] + ] + True + ] + False ] - True ] - False - ] + (all dead (type) Ordering) + } + (abs dead (type) EQ) ] - (all dead (type) Ordering) - } - (abs dead (type) EQ) - ] - (abs - dead - (type) - { - [ - [ - { + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin - lessThanEqualsInteger - ) - x + { + (builtin ifThenElse) + Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + x + ] + y + ] ] - y + True ] + False ] - True ] - False - ] + (all dead (type) Ordering) + } + (abs dead (type) LT) ] - (all dead (type) Ordering) - } - (abs dead (type) LT) - ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } + (abs dead (type) GT) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - fOrdInteger_cmax - (fun (con integer) (fun (con integer) (con integer))) - ) - (lam - x - (con integer) - (lam - y - (con integer) - { - [ - [ - { + (termbind + (strict) + (vardecl + fOrdInteger_cmax + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam + y + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin lessThanEqualsInteger) - x + { (builtin ifThenElse) Bool } + [ + [ + (builtin + lessThanEqualsInteger + ) + x + ] + y + ] ] - y + True ] + False ] - True ] - False - ] + (all dead (type) (con integer)) + } + (abs dead (type) y) ] - (all dead (type) (con integer)) - } - (abs dead (type) y) - ] - (abs dead (type) x) - ] - (all dead (type) dead) - } + (abs dead (type) x) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - fOrdInteger_cmin - (fun (con integer) (fun (con integer) (con integer))) - ) - (lam - x - (con integer) - (lam - y - (con integer) - { - [ - [ - { + (termbind + (strict) + (vardecl + fOrdInteger_cmin + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam + y + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin lessThanEqualsInteger) - x + { (builtin ifThenElse) Bool } + [ + [ + (builtin + lessThanEqualsInteger + ) + x + ] + y + ] ] - y + True ] + False ] - True ] - False - ] + (all dead (type) (con integer)) + } + (abs dead (type) x) ] - (all dead (type) (con integer)) - } - (abs dead (type) x) - ] - (abs dead (type) y) - ] - (all dead (type) dead) - } + (abs dead (type) y) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - greaterThanEqInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + greaterThanEqInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanInteger) x ] y ] + ] + False + ] + True ] - False - ] - True - ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - greaterThanInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + greaterThanInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanEqualsInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ + [ (builtin lessThanEqualsInteger) x ] y + ] + ] + False + ] + True ] - False - ] - True - ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - lessThanInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + lessThanInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanInteger) x ] y ] + ] + True + ] + False ] - True - ] - False - ] + ) + ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Ord (fun (type) (type))) - (tyvardecl a (type)) - Ord_match - (vardecl - CConsOrd - (fun [(lam a (type) (fun a (fun a Bool))) a] (fun (fun a (fun a Ordering)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a a)) (fun (fun a (fun a a)) [Ord a])))))))) + (datatypebind + (datatype + (tyvardecl Ord (fun (type) (type))) + (tyvardecl a (type)) + Ord_match + (vardecl + CConsOrd + (fun [(lam a (type) (fun a (fun a Bool))) a] (fun (fun a (fun a Ordering)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a a)) (fun (fun a (fun a a)) [Ord a])))))))) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - lessThanEqInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + lessThanEqInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanEqualsInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ + [ (builtin lessThanEqualsInteger) x ] y + ] + ] + True + ] + False ] - True - ] - False - ] + ) + ) ) - ) - ) - (termbind - (nonstrict) - (vardecl fOrdPOSIXTime [Ord (con integer)]) - [ - [ + (termbind + (nonstrict) + (vardecl fOrdPOSIXTime [Ord (con integer)]) [ [ [ [ [ [ - { CConsOrd (con integer) } equalsInteger + [ + [ + { CConsOrd (con integer) } + equalsInteger + ] + fOrdInteger_ccompare + ] + lessThanInteger ] - fOrdInteger_ccompare + lessThanEqInteger ] - lessThanInteger + greaterThanInteger ] - lessThanEqInteger + greaterThanEqInteger ] - greaterThanInteger + fOrdInteger_cmax ] - greaterThanEqInteger + fOrdInteger_cmin ] - fOrdInteger_cmax - ] - fOrdInteger_cmin - ] - ) - (termbind - (strict) - (vardecl - compare - (all a (type) (fun [Ord a] (fun a (fun a Ordering)))) - ) - (abs - a - (type) - (lam - v - [Ord a] - [ - { [ { Ord_match a } v ] (fun a (fun a Ordering)) } + ) + (termbind + (strict) + (vardecl + compare + (all a (type) (fun [Ord a] (fun a (fun a Ordering)))) + ) + (abs + a + (type) (lam v - [(lam a (type) (fun a (fun a Bool))) a] - (lam - v - (fun a (fun a Ordering)) + [Ord a] + [ + { + [ { Ord_match a } v ] + (fun a (fun a Ordering)) + } (lam v - (fun a (fun a Bool)) + [(lam a (type) (fun a (fun a Bool))) a] (lam v - (fun a (fun a Bool)) + (fun a (fun a Ordering)) (lam v (fun a (fun a Bool)) @@ -7908,88 +8095,364 @@ (fun a (fun a Bool)) (lam v - (fun a (fun a a)) - (lam v (fun a (fun a a)) v) + (fun a (fun a Bool)) + (lam + v + (fun a (fun a Bool)) + (lam + v + (fun a (fun a a)) + (lam v (fun a (fun a a)) v) + ) + ) ) ) ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - hull_ccompare - (all a (type) (fun [Ord a] (fun [Extended a] (fun [Extended a] Ordering)))) - ) - (abs - a - (type) - (lam - dOrd - [Ord a] - (lam - ds - [Extended a] + (termbind + (strict) + (vardecl + hull_ccompare + (all a (type) (fun [Ord a] (fun [Extended a] (fun [Extended a] Ordering)))) + ) + (abs + a + (type) (lam - ds - [Extended a] - (let - (nonrec) - (termbind - (strict) - (vardecl - fail (fun (all a (type) a) Ordering) - ) - (lam ds (all a (type) a) (error Ordering)) - ) - { - [ - [ + dOrd + [Ord a] + (lam + ds + [Extended a] + (lam + ds + [Extended a] + (let + (nonrec) + (termbind + (strict) + (vardecl + fail (fun (all a (type) a) Ordering) + ) + (lam + ds (all a (type) a) (error Ordering) + ) + ) + { [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) + [ + [ { - [ - [ + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { [ - { + [ [ - { Extended_match a } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) + { + [ + { + Extended_match a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ] + (abs + dead + (type) + LT + ) + ] + (all dead (type) dead) + } + ) + ) { [ [ @@ -8010,75 +8473,191 @@ (abs dead (type) - { - [ + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + EQ + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ] + (abs dead (type) GT) + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ [ [ - [ - { + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) [ [ - [ - { - compare - a - } - dOrd - ] - l + { + compare + a + } + dOrd ] - r + l ] - ) + r + ] ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] ) ] (abs @@ -8096,96 +8675,6 @@ ] ) ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ - [ - [ - { - compare - a - } - dOrd - ] - l - ] - r - ] - ) - ) - ] (abs dead (type) @@ -8199,210 +8688,39 @@ ) ) ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - LT - ) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e - ) - ) - ] - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail + ) + ] + (all dead (type) dead) + } + ) + ) + ] (abs - e + dead (type) - (error - e - ) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] ) ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e + (abs + dead + (type) + GT ) - ) - ] + ] + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - EQ ) ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - (abs dead (type) GT) - ] - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -8521,152 +8839,50 @@ (all dead (type) dead) } ) + ] + (abs + dead + (type) + LT ) ] - (abs - dead - (type) + (all dead (type) dead) + } + ) + ) + { + [ + [ + [ { [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ - [ - [ - { - compare - a - } - dOrd - ] - l - ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] + fail (abs - dead + e (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (error + e + ) ) ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead (type) LT - ) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -8679,41 +8895,43 @@ ) ] ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) ] - ) - ] - (abs - dead - (type) - { - [ - [ + (abs + dead + (type) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -8728,110 +8946,222 @@ ) ] ) + ] + (abs + dead + (type) + EQ ) ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e - ) - ) - ] - ) - ] - (abs - dead (type) EQ - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ + { Extended_match a } + ds ] - (all dead (type) dead) + (all dead (type) Ordering) } - ) - ) + (lam + default_arg0 + a + (abs dead (type) LT) + ) + ] + (abs dead (type) EQ) + ] + (abs dead (type) LT) ] (all dead (type) dead) } ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs dead (type) LT) - ) - ] - (abs dead (type) EQ) - ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ + [ + { + [ + { Extended_match a } ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -8950,65 +9280,235 @@ (all dead (type) dead) } ) + ] + (abs + dead + (type) + LT + ) + ] + (all dead (type) dead) + } + ) + ) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) ) ] (abs dead (type) - { + [ + fail + (abs + e + (type) + (error e) + ) + ] + ) + ] + (abs + dead + (type) + { + [ [ [ - [ - { + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) [ - { - Extended_match - a - } - ds + fail + (abs + e + (type) + (error + e + ) + ) ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + EQ + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ] + (abs dead (type) GT) + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) + [ + { [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) [ [ - { - compare - a - } - dOrd + [ + { + compare + a + } + dOrd + ] + l ] - l + r ] - r - ] + ) ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] ) ] (abs @@ -9016,210 +9516,47 @@ (type) [ fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error + (abs e + (type) + (error + e + ) ) - ) - ] - ) - ] - (all dead (type) dead) - } + ] + ) + ] + (all dead (type) dead) + } + ) ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + GT ) ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead (type) LT - ) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) + (all dead (type) dead) } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e - ) - ) - ] ) - ] - (abs - dead (type) EQ ) ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - (abs dead (type) GT) - ] - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -9314,780 +9651,826 @@ ) ) ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ] + (abs dead (type) LT) + ] + (all dead (type) dead) + } + ) + ) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e) + ) + ] + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + fail (abs - dead + e (type) - GT + (error e) ) ] - (all dead (type) dead) + ) + ] + (abs + dead (type) EQ + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + fOrdUpperBound0_c + (all a (type) (fun [Ord a] (fun [UpperBound a] (fun [UpperBound a] Bool)))) + ) + (abs + a + (type) + (lam + dOrd + [Ord a] + (lam + x + [UpperBound a] + (lam + y + [UpperBound a] + [ + { [ { UpperBound_match a } x ] Bool } + (lam + v + [Extended a] + (lam + in + Bool + [ + { + [ { UpperBound_match a } y ] Bool + } + (lam + v + [Extended a] + (lam + in + Bool + { + [ + [ + [ + { + [ + Ordering_match + [ + [ + [ + { + hull_ccompare + a + } + dOrd + ] + v + ] + v + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + in + ] + (all dead (type) Bool) } + (abs + dead (type) in + ) + ] + (abs + dead (type) True ) - ) + ] + (all dead (type) dead) + } + ) + ] + (abs dead (type) False) + ] + (abs dead (type) True) + ] + (all dead (type) dead) + } + ) + ) + ] + ) + ) + ] + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + contains + (all a (type) (fun [Ord a] (fun [Interval a] (fun [Interval a] Bool)))) + ) + (abs + a + (type) + (lam + dOrd + [Ord a] + (lam + ds + [Interval a] + (lam + ds + [Interval a] + [ + { [ { Interval_match a } ds ] Bool } + (lam + l + [LowerBound a] + (lam + h + [UpperBound a] + [ + { [ { Interval_match a } ds ] Bool } + (lam + l + [LowerBound a] + (lam + h + [UpperBound a] + [ + { + [ { LowerBound_match a } l ] + Bool + } + (lam + v + [Extended a] + (lam + in + Bool + [ + { + [ + { + LowerBound_match a + } + l ] - (abs - dead - (type) + Bool + } + (lam + v + [Extended a] + (lam + in + Bool { [ [ [ { [ - { - Extended_match - a - } - ds + Ordering_match + [ + [ + [ + { + hull_ccompare + a + } + dOrd + ] + v + ] + v + ] ] - (all dead (type) Ordering) + (all dead (type) Bool) } - (lam - l - a - (abs - dead - (type) - { + (abs + dead + (type) + { + [ [ - [ + { [ - { + Bool_match + in + ] + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ [ { - Extended_match - a + [ + Bool_match + in + ] + (all dead (type) Bool) } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ + (abs + dead + (type) [ [ - { - compare - a - } - dOrd + [ + { + fOrdUpperBound0_c + a + } + dOrd + ] + h ] - l + h ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail + ) + ] (abs - e + dead (type) - (error - e - ) + False ) ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (all dead (type) dead) + } ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + [ + [ + [ + { + fOrdUpperBound0_c + a + } + dOrd + ] + h + ] + h + ] + ) + ] + (all dead (type) dead) + } ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error e - ) - ) - ] + False ) ] (abs - dead (type) GT + dead + (type) + [ + [ + [ + { + fOrdUpperBound0_c + a + } + dOrd + ] + h + ] + h + ] ) ] (all dead (type) dead) } ) - ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ - [ - { - [ - { Extended_match a } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) ) ] - (abs - dead - (type) - [ - fail - (abs - e (type) (error e) - ) - ] - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (abs dead (type) EQ) - ] - (all dead (type) dead) - } ) - ] - (all dead (type) dead) - } + ) + ] ) ) ] - (all dead (type) dead) - } + ) ) ] - (all dead (type) dead) - } + ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fOrdUpperBound0_c - (all a (type) (fun [Ord a] (fun [UpperBound a] (fun [UpperBound a] Bool)))) - ) - (abs - a - (type) - (lam - dOrd - [Ord a] + (termbind + (strict) + (vardecl + equalsData (fun (con data) (fun (con data) Bool)) + ) (lam - x - [UpperBound a] + d + (con data) (lam - y - [UpperBound a] + d + (con data) [ - { [ { UpperBound_match a } x ] Bool } - (lam - v - [Extended a] - (lam - in - Bool - [ - { [ { UpperBound_match a } y ] Bool } - (lam - v - [Extended a] - (lam - in - Bool - { - [ - [ - [ - { - [ - Ordering_match - [ - [ - [ - { - hull_ccompare a - } - dOrd - ] - v - ] - v - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ - [ - { - [ Bool_match in ] - (all dead (type) Bool) - } - (abs dead (type) in) - ] - (abs dead (type) True) - ] - (all dead (type) dead) - } - ) - ] - (abs dead (type) False) - ] - (abs dead (type) True) - ] - (all dead (type) dead) - } - ) - ) - ] - ) - ) + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin equalsData) d ] d ] + ] + True + ] + False ] ) ) ) - ) - ) - (termbind - (strict) - (vardecl - contains - (all a (type) (fun [Ord a] (fun [Interval a] (fun [Interval a] Bool)))) - ) - (abs - a - (type) - (lam - dOrd - [Ord a] + (termbind + (strict) + (vardecl + findDatum + (fun (con bytestring) (fun TxInfo [Maybe (con data)])) + ) (lam - ds - [Interval a] + dsh + (con bytestring) (lam ds - [Interval a] + TxInfo [ - { [ { Interval_match a } ds ] Bool } + { [ TxInfo_match ds ] [Maybe (con data)] } (lam - l - [LowerBound a] + ds + [List TxInInfo] (lam - h - [UpperBound a] - [ - { [ { Interval_match a } ds ] Bool } + ds + [List TxOut] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - l - [LowerBound a] + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - h - [UpperBound a] - [ - { - [ { LowerBound_match a } l ] - Bool - } - (lam - v - [Extended a] - (lam - in - Bool - [ - { - [ - { LowerBound_match a } l - ] - Bool - } + ds + [List DCert] + (lam + ds + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] (lam - v - [Extended a] - (lam - in - Bool - { + ds + (con bytestring) + { + [ [ - [ + { [ { + Maybe_match + [[Tuple2 (con bytestring)] (con data)] + } + [ [ - Ordering_match [ - [ - [ - { - hull_ccompare - a - } - dOrd - ] - v - ] - v + { + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] + } + [[Tuple2 (con bytestring)] (con data)] + } + { + fMonoidFirst + [[Tuple2 (con bytestring)] (con data)] + } ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ + (lam + x + [[Tuple2 (con bytestring)] (con data)] [ { [ - Bool_match - in + { + { + Tuple2_match + (con bytestring) + } + (con data) + } + x ] - (all dead (type) Bool) + [Maybe [[Tuple2 (con bytestring)] (con data)]] } - (abs - dead - (type) - { - [ + (lam + dsh + (con bytestring) + (lam + ds + (con data) + { [ - { - [ - Bool_match - in - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ + [ + { [ + Bool_match [ - { - fOrdUpperBound0_c - a - } - dOrd + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + dsh + ] + dsh + ] + ] + True + ] + False ] - h ] - h - ] + (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) + } + (abs + dead + (type) + [ + { + Just + [[Tuple2 (con bytestring)] (con data)] + } + x + ] + ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 (con bytestring)] (con data)] + } ) ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (abs - dead - (type) - [ - [ - [ - { - fOrdUpperBound0_c - a - } - dOrd - ] - h - ] - h - ] - ) - ] - (all dead (type) dead) - } - ) + ) + ] + ds + ] ] + (all dead (type) [Maybe (con data)]) + } + (lam + a + [[Tuple2 (con bytestring)] (con data)] (abs dead (type) - False - ) - ] - (abs - dead - (type) - [ [ + { + Just + (con data) + } [ { - fOrdUpperBound0_c - a + [ + { + { + Tuple2_match + (con bytestring) + } + (con data) + } + a + ] + (con data) } - dOrd + (lam + ds + (con bytestring) + (lam + b + (con data) + b + ) + ) ] - h ] - h - ] + ) ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + { + Nothing (con data) + } + ) + ] + (all dead (type) dead) + } ) - ] + ) ) ) - ] + ) ) ) - ] + ) ) ) ] ) ) ) - ) - ) - (termbind - (strict) - (vardecl - equalsData (fun (con data) (fun (con data) Bool)) - ) - (lam - d - (con data) - (lam - d - (con data) - [ - [ - [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsData) d ] d ] - ] - True - ] - False - ] - ) - ) - ) - (termbind - (strict) - (vardecl - findDatum - (fun (con bytestring) (fun TxInfo [Maybe (con data)])) - ) - (lam - dsh - (con bytestring) - (lam - ds - TxInfo - [ - { [ TxInfo_match ds ] [Maybe (con data)] } + (termbind + (strict) + (vardecl + findTxInByTxOutRef + (fun TxOutRef (fun TxInfo [Maybe TxInInfo])) + ) + (lam + outRef + TxOutRef (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxInfo + [ + { [ TxInfo_match ds ] [Maybe TxInInfo] } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { + [ [ { - Maybe_match - [[Tuple2 (con bytestring)] (con data)] + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) TxInInfo] + } + TxInInfo + } + { + fMonoidFirst + TxInInfo } + ] + (lam + x + TxInInfo [ - [ + { [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] - } - [[Tuple2 (con bytestring)] (con data)] - } - { - fMonoidFirst - [[Tuple2 (con bytestring)] (con data)] - } + TxInInfo_match + x ] + [Maybe TxInInfo] + } + (lam + ds + TxOutRef (lam - x - [[Tuple2 (con bytestring)] (con data)] - [ - { + ds + TxOut + { + [ [ - { - { - Tuple2_match - (con bytestring) - } - (con data) - } - x - ] - [Maybe [[Tuple2 (con bytestring)] (con data)]] - } - (lam - dsh - (con bytestring) - (lam - ds - (con data) { [ + Bool_match [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - dsh - ] - dsh - ] - ] - True - ] - False - ] - ] - (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) - } - (abs - dead - (type) - [ - { - Just - [[Tuple2 (con bytestring)] (con data)] - } - x - ] - ) + [ + fEqTxOutRef_c + ds + ] + outRef ] - (abs - dead - (type) - { - Nothing - [[Tuple2 (con bytestring)] (con data)] - } - ) ] - (all dead (type) dead) + (all dead (type) [Maybe TxInInfo]) + } + (abs + dead + (type) + [ + { + Just + TxInInfo + } + x + ] + ) + ] + (abs + dead + (type) + { + Nothing + TxInInfo } ) - ) - ] - ) - ] - ds - ] - ] - (all dead (type) [Maybe (con data)]) - } - (lam - a - [[Tuple2 (con bytestring)] (con data)] - (abs - dead - (type) - [ - { - Just (con data) - } - [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - (con data) - } - a - ] - (con data) - } - (lam - ds - (con bytestring) - (lam - b - (con data) - b - ) + ] + (all dead (type) dead) + } ) - ] + ) ] ) - ) + ] + ds ] - (abs - dead - (type) - { Nothing (con data) } - ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) @@ -10096,130 +10479,181 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - findTxInByTxOutRef - (fun TxOutRef (fun TxInfo [Maybe TxInInfo])) - ) - (lam - outRef - TxOutRef - (lam - ds - TxInfo - [ - { [ TxInfo_match ds ] [Maybe TxInInfo] } - (lam - ds - [List TxInInfo] + (termbind + (strict) + (vardecl + snd + (all a (type) (all b (type) (fun [[Tuple2 a] b] b))) + ) + (abs + a + (type) + (abs + b + (type) (lam ds - [List TxOut] + [[Tuple2 a] b] + [ + { [ { { Tuple2_match a } b } ds ] b } + (lam ds a (lam b b b)) + ] + ) + ) + ) + ) + (termbind + (strict) + (vardecl + txSignedBy + (fun TxInfo (fun (con bytestring) Bool)) + ) + (lam + ds + TxInfo + (lam + k + (con bytestring) + [ + { [ TxInfo_match ds ] Bool } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) TxInInfo] - } - TxInInfo - } - { - fMonoidFirst TxInInfo - } - ] - (lam - x - TxInInfo + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ - { - [ TxInInfo_match x ] - [Maybe TxInInfo] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - { + [ + { + [ + { + Maybe_match + (con bytestring) + } [ [ - { - [ - Bool_match + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) (con bytestring)] + } + (con bytestring) + } + { + fMonoidFirst + (con bytestring) + } + ] + (lam + x + (con bytestring) + { [ [ - fEqTxOutRef_c - ds + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + k + ] + x + ] + ] + True + ] + False + ] + ] + (all dead (type) [Maybe (con bytestring)]) + } + (abs + dead + (type) + [ + { + Just + (con bytestring) + } + x + ] + ) ] - outRef + (abs + dead + (type) + { + Nothing + (con bytestring) + } + ) ] - ] - (all dead (type) [Maybe TxInInfo]) - } - (abs - dead - (type) - [ - { - Just - TxInInfo - } - x - ] + (all dead (type) dead) + } ) ] - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) + ds ] - (all dead (type) dead) - } + ] + (all dead (type) Bool) + } + (lam + ds + (con bytestring) + (abs + dead (type) True + ) ) + ] + (abs dead (type) False ) ] - ) - ] - ds - ] + (all dead (type) dead) + } + ) + ) ) ) ) @@ -10228,235 +10662,161 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - snd - (all a (type) (all b (type) (fun [[Tuple2 a] b] b))) - ) - (abs - a - (type) - (abs - b - (type) + (termbind + (strict) + (vardecl + valueOf + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun (con bytestring) (fun (con bytestring) (con integer)))) + ) (lam ds - [[Tuple2 a] b] - [ - { [ { { Tuple2_match a } b } ds ] b } - (lam ds a (lam b b b)) - ] - ) - ) - ) - ) - (termbind - (strict) - (vardecl - txSignedBy (fun TxInfo (fun (con bytestring) Bool)) - ) - (lam - ds - TxInfo - (lam - k - (con bytestring) - [ - { [ TxInfo_match ds ] Bool } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - ds - [List TxInInfo] + cur + (con bytestring) (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + tn + (con bytestring) + (let + (nonrec) + (termbind + (strict) + (vardecl + j + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] (con integer)) + ) (lam - ds - [List DCert] - (lam - ds - [List [[Tuple2 StakingCredential] (con integer)]] - (lam - ds - [Interval (con integer)] + i + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun [List [[Tuple2 (con bytestring)] (con integer)]] (con integer)) + ) (lam ds - [List (con bytestring)] - (lam - ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List [[Tuple2 (con bytestring)] (con integer)]] + [ + [ + { + [ + { + Nil_match + [[Tuple2 (con bytestring)] (con integer)] + } + ds + ] + (con integer) + } + (con integer 0) + ] (lam ds - (con bytestring) - { + [[Tuple2 (con bytestring)] (con integer)] + (lam + xs + [List [[Tuple2 (con bytestring)] (con integer)]] [ - [ - { - [ + { + [ + { { - Maybe_match + Tuple2_match (con bytestring) } + (con integer) + } + ds + ] + (con integer) + } + (lam + c + (con bytestring) + (lam + i + (con integer) + { [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) (con bytestring)] - } - (con bytestring) - } - { - fMonoidFirst - (con bytestring) - } - ] - (lam - x - (con bytestring) - { + { + [ + Bool_match [ [ - { + [ + { + (builtin + ifThenElse + ) + Bool + } [ - Bool_match [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - k - ] - x - ] - ] - True - ] - False + (builtin + equalsByteString + ) + c ] + tn ] - (all dead (type) [Maybe (con bytestring)]) - } - (abs - dead - (type) - [ - { - Just - (con bytestring) - } - x - ] - ) + ] + True ] - (abs - dead - (type) - { - Nothing - (con bytestring) - } - ) + False ] - (all dead (type) dead) - } + ] + (all dead (type) (con integer)) + } + (abs + dead (type) i ) ] - ds + (abs + dead + (type) + [ go xs ] + ) ] - ] - (all dead (type) Bool) - } - (lam - ds - (con bytestring) - (abs dead (type) True) + (all dead (type) dead) + } ) - ] - (abs dead (type) False) + ) ] - (all dead (type) dead) - } + ) ) - ) + ] ) ) + [ go i ] ) ) ) - ) - ) - ) - ] - ) - ) - ) - (termbind - (strict) - (vardecl - valueOf - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun (con bytestring) (fun (con bytestring) (con integer)))) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - cur - (con bytestring) - (lam - tn - (con bytestring) - (let - (nonrec) - (termbind - (strict) - (vardecl - j - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] (con integer)) - ) - (lam - i - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] (let (rec) (termbind (strict) (vardecl go - (fun [List [[Tuple2 (con bytestring)] (con integer)]] (con integer)) + (fun [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (con integer)) ) (lam ds - [List [[Tuple2 (con bytestring)] (con integer)]] + [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [ [ { [ { Nil_match - [[Tuple2 (con bytestring)] (con integer)] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } ds ] @@ -10466,10 +10826,10 @@ ] (lam ds - [[Tuple2 (con bytestring)] (con integer)] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam xs - [List [[Tuple2 (con bytestring)] (con integer)]] + [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [ { [ @@ -10478,7 +10838,7 @@ Tuple2_match (con bytestring) } - (con integer) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } ds ] @@ -10489,7 +10849,7 @@ (con bytestring) (lam i - (con integer) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] { [ [ @@ -10512,7 +10872,7 @@ ) c ] - tn + cur ] ] True @@ -10522,7 +10882,11 @@ ] (all dead (type) (con integer)) } - (abs dead (type) i) + (abs + dead + (type) + [ j i ] + ) ] (abs dead @@ -10540,358 +10904,258 @@ ] ) ) - [ go i ] + [ go ds ] ) ) ) - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (con integer)) - ) - (lam - ds - [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - [ - [ - { - [ - { - Nil_match - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ds - ] - (con integer) - } - (con integer 0) - ] + ) + ) + ) + (termbind + (strict) + (vardecl + foldr + (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) + ) + (abs + a + (type) + (abs + b + (type) + (lam + k + (fun a (fun b b)) + (lam + z + b + (let + (rec) + (termbind + (strict) + (vardecl go (fun [List a] b)) (lam ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - xs - [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [List a] + { [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - (con integer) - } + [ + { + [ { Nil_match a } ds ] + (all dead (type) b) + } + (abs dead (type) z) + ] (lam - c - (con bytestring) + y + a (lam - i - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - c - ] - cur - ] - ] - True - ] - False - ] - ] - (all dead (type) (con integer)) - } - (abs dead (type) [ j i ] - ) - ] - (abs dead (type) [ go xs ] - ) - ] - (all dead (type) dead) - } + ys + [List a] + (abs + dead + (type) + [ [ k y ] [ go ys ] ] + ) ) ) ] - ) + (all dead (type) dead) + } ) - ] + ) + go ) ) - [ go ds ] ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - foldr - (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - k - (fun a (fun b b)) - (lam - z - b - (let - (rec) - (termbind - (strict) - (vardecl go (fun [List a] b)) - (lam - ds - [List a] - { - [ - [ - { - [ { Nil_match a } ds ] - (all dead (type) b) - } - (abs dead (type) z) - ] - (lam - y - a - (lam - ys - [List a] - (abs - dead - (type) - [ [ k y ] [ go ys ] ] - ) - ) - ) - ] - (all dead (type) dead) - } - ) - ) - go - ) - ) + (termbind + (strict) + (vardecl + pubKeyOutputsAt + (fun (con bytestring) (fun TxInfo [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]])) ) - ) - ) - ) - (termbind - (strict) - (vardecl - pubKeyOutputsAt - (fun (con bytestring) (fun TxInfo [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]])) - ) - (lam - pk - (con bytestring) - (lam - p - TxInfo - [ - { - [ TxInfo_match p ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } + (lam + pk + (con bytestring) (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] + p + TxInfo + [ + { + [ TxInfo_match p ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { - { foldr TxOut } - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - (lam - e - TxOut - (lam - xs - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - [ - { - [ - TxOut_match e - ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } + [ + [ + { + { foldr TxOut } + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + (lam + e + TxOut (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + xs + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [ + { + [ + TxOut_match + e + ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } (lam ds - [Maybe (con bytestring)] - [ - { - [ - Address_match - ds - ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - Credential - (lam - ds - [Maybe StakingCredential] - [ + [Maybe (con bytestring)] + [ + { [ - { + Address_match + ds + ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + (lam + ds + Credential + (lam + ds + [Maybe StakingCredential] + [ [ - Credential_match - ds - ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - (lam - pk - (con bytestring) - { - [ + { [ - { + Credential_match + ds + ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + (lam + pk + (con bytestring) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsByteString - ) - pk + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + pk + ] + pk + ] ] - pk + True ] + False ] - True ] - False - ] + (all dead (type) [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) + } + (abs + dead + (type) + [ + [ + { + Cons + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ds + ] + xs + ] + ) ] - (all dead (type) [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) - } - (abs - dead - (type) - [ - [ - { - Cons - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ds - ] + (abs + dead + (type) xs - ] - ) - ] - (abs - dead - (type) - xs - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - ipv - (con bytestring) - xs + ) + ] + (all dead (type) dead) + } + ) + ] + (lam + ipv + (con bytestring) + xs + ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) + ] ) - ] - ) - ) + ) + ] + { + Nil + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ] + ds ] - { - Nil - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - ds - ] + ) + ) ) ) ) @@ -10900,132 +11164,132 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - valuePaidTo - (fun TxInfo (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - ptx - TxInfo - (lam - pkh - (con bytestring) - [ - [ + (termbind + (strict) + (vardecl + valuePaidTo + (fun TxInfo (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + (lam + ptx + TxInfo + (lam + pkh + (con bytestring) [ - { + [ + [ + { + { + foldr + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + fMonoidValue_c + ] { - foldr - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - fMonoidValue_c + ] + [ [ pubKeyOutputsAt pkh ] ptx ] ] + ) + ) + ) + (termbind + (strict) + (vardecl + txOutValue + (fun TxOut [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) + ) + (lam + ds + TxOut + [ { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ TxOut_match ds ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam ds [Maybe (con bytestring)] ds) + ) + ) ] - [ [ pubKeyOutputsAt pkh ] ptx ] - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - txOutValue - (fun TxOut [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) - ) - (lam - ds - TxOut - [ - { - [ TxOut_match ds ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam ds [Maybe (con bytestring)] ds) - ) + (termbind + (strict) + (vardecl + valueProduced + (fun TxInfo [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) ) - ] - ) - ) - (termbind - (strict) - (vardecl - valueProduced - (fun TxInfo [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) - ) - (lam - x - TxInfo - [ - { - [ TxInfo_match x ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] + x + TxInfo + [ + { + [ TxInfo_match x ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { - { - fFoldableNil_cfoldMap - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - TxOut - } - fMonoidValue + [ + [ + { + { + fFoldableNil_cfoldMap + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + TxOut + } + fMonoidValue + ] + txOutValue + ] + ds ] - txOutValue - ] - ds - ] + ) + ) ) ) ) @@ -11034,36 +11298,34 @@ ) ) ) - ) + ] ) - ] - ) - ) - (termbind - (strict) - (vardecl - checkTxConstraint - (fun ScriptContext (fun TxConstraint Bool)) - ) - (lam - ds - ScriptContext - [ - { - [ ScriptContext_match ds ] (fun TxConstraint Bool) - } - (lam - ds - TxInfo + ) + (let + (rec) + (termbind + (strict) + (vardecl + checkTxConstraint + (fun ScriptContext (fun TxConstraint Bool)) + ) (lam - ds - ScriptPurpose - (lam - ds - TxConstraint - [ - [ - [ + ctx + ScriptContext + [ + { + [ ScriptContext_match ctx ] + (fun TxConstraint Bool) + } + (lam + ds + TxInfo + (lam + ds + ScriptPurpose + (lam + ds + TxConstraint [ [ [ @@ -11072,597 +11334,601 @@ [ [ [ - { + [ [ - TxConstraint_match - ds - ] - Bool - } - (lam - pubKey - (con bytestring) - { [ [ { [ - Bool_match + TxConstraint_match + ds + ] + Bool + } + (lam + pubKey + (con bytestring) + { [ [ - txSignedBy - ds + { + [ + Bool_match + [ + [ + txSignedBy + ds + ] + pubKey + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - pubKey + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L4" + ) + ] + False + ] + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) ] - (abs - dead - (type) - [ - [ - { - (builtin - trace + (lam + dvh + (con bytestring) + (lam + dv + (con data) + (let + (nonrec) + (termbind + (nonstrict + ) + (vardecl + j Bool ) - Bool - } - (con - string - "L4" - ) - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - dvh - (con bytestring) - (lam - dv - (con data) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string "Lc" - ) - ] - False - ] - ) - { - [ - [ - { - [ - { - Maybe_match - (con data) - } [ [ - findDatum - dvh + { + (builtin + trace + ) + Bool + } + (con + string + "Lc" + ) ] - ds + False ] - ] - (all dead (type) Bool) - } - (lam - a - (con data) - (abs - dead - (type) - { + ) + { + [ [ - [ - { + { + [ + { + Maybe_match + (con data) + } [ - Bool_match + [ + findDatum + dvh + ] + ds + ] + ] + (all dead (type) Bool) + } + (lam + a + (con data) + (abs + dead + (type) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { [ + Bool_match [ - (builtin - equalsData - ) - a + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsData + ) + a + ] + dv + ] + ] + True + ] + False ] - dv ] - ] - True + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - False + (abs + dead + (type) + j + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - j - ) - ] - (all dead (type) dead) - } - ) + ) + ] + (abs + dead + (type) + j + ) + ] + (all dead (type) dead) + } ) - ] - (abs - dead (type) j ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - (lam - dv - (con data) - [ - { - [ TxInfo_match ds ] - Bool - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] + ) + ] (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + dv + (con data) + [ + { + [ + TxInfo_match + ds + ] + Bool + } (lam ds - [List DCert] + [List TxInInfo] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [List TxOut] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List DCert] (lam ds - (con bytestring) - { - [ - [ - { - [ - Bool_match + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - (con data) - } + { [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + (con data) + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + [ + equalsData + dv + ] + ] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con data)] + } + (con data) + } + { + { + snd + (con bytestring) + } + (con data) + } + ] + ds + ] + ] ] - ] - [ - equalsData - dv - ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - [ + (abs + dead + (type) [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con data)] - } - (con data) - } - { + [ { - snd - (con bytestring) + (builtin + trace + ) + Bool } - (con data) - } + (con + string + "L2" + ) + ] + False ] - ds - ] + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L2" - ) - ] - False - ] ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) ) ) ) - ) + ] ) - ) - ) - ] - ) - ] - (lam - mps - (con bytestring) - (lam - ds - (con data) - (lam - tn - (con bytestring) - (lam - v - (con integer) - { - [ - [ - { - [ - Bool_match + ] + (lam + mps + (con bytestring) + (lam + ds + (con data) + (lam + tn + (con bytestring) + (lam + v + (con integer) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { [ + Bool_match [ - (builtin - equalsInteger - ) [ [ + { + (builtin + ifThenElse + ) + Bool + } [ - valueOf [ - { + (builtin + equalsInteger + ) + [ [ - TxInfo_match - ds - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + valueOf + [ + { + [ + TxInfo_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - [List DCert] + [List TxInInfo] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [List TxOut] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List DCert] (lam ds - (con bytestring) - ds + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + ds + ) + ) + ) + ) ) ) ) ) ) ) - ) - ) - ) - ) + ] + ] + mps + ] + tn + ] ] + v ] - mps ] - tn + True ] + False ] - v ] - ] - True + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - False + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L9" + ) + ] + False + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ] + (lam + vlh + (con bytestring) + (lam + dv + (con data) + (lam + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + hsh + [Maybe (con bytestring)] + ) + [ + [ + findDatumHash + dv ] + ds ] - (all dead (type) Bool) - } - (abs - dead - (type) - True ) - ] - (abs - dead - (type) - [ + (termbind + (nonstrict) + (vardecl + addr + Credential + ) + [ + ScriptCredential + vlh + ] + ) + (termbind + (nonstrict) + (vardecl + addr Address + ) [ + [ + Address + addr + ] { - (builtin - trace - ) - Bool + Nothing + StakingCredential } - (con - string - "L9" - ) ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ) - ] - (lam - vlh - (con bytestring) - (lam - dv - (con data) - (lam - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - hsh - [Maybe (con bytestring)] - ) - [ - [ findDatumHash dv ] - ds - ] - ) - (termbind - (nonstrict) - (vardecl - addr Credential - ) - [ - ScriptCredential vlh - ] - ) - (termbind - (nonstrict) - (vardecl addr Address) - [ - [ Address addr ] - { - Nothing - StakingCredential - } - ] - ) - [ - { - [ TxInfo_match ds ] - Bool - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ) + [ + { + [ + TxInfo_match + ds + ] + Bool + } (lam ds - [List DCert] + [List TxInInfo] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [List TxOut] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List DCert] (lam ds - (con bytestring) - { - [ - [ - { - [ - Bool_match + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxOut - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxOut + { [ - { + Bool_match + [ [ - TxOut_match - ds - ] - Bool - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxOut + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] (lam ds - [Maybe (con bytestring)] - { - [ + TxOut + [ + { [ - { - [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) Bool) - } + TxOut_match + ds + ] + Bool + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - svh - (con bytestring) - (abs - dead - (type) - { + ds + [Maybe (con bytestring)] + { + [ [ - [ - { - [ - Bool_match - [ - [ - [ - checkBinRel - equalsInteger - ] - ds - ] - vl - ] - ] - (all dead (type) Bool) - } + { + [ + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) Bool) + } + (lam + svh + (con bytestring) (abs dead (type) @@ -11671,73 +11937,105 @@ [ { [ - { - Maybe_match - (con bytestring) - } - hsh + Bool_match + [ + [ + [ + checkBinRel + equalsInteger + ] + ds + ] + vl + ] ] (all dead (type) Bool) } - (lam - a - (con bytestring) - (abs - dead - (type) - { + (abs + dead + (type) + { + [ [ - [ - { - [ - Bool_match + { + [ + { + Maybe_match + (con bytestring) + } + hsh + ] + (all dead (type) Bool) + } + (lam + a + (con bytestring) + (abs + dead + (type) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { [ + Bool_match [ - (builtin - equalsByteString - ) - a + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + a + ] + svh + ] + ] + True + ] + False ] - svh ] - ] - True + (all dead (type) Bool) + } + (abs + dead + (type) + [ + [ + fEqAddress_c + ds + ] + addr + ] + ) ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ - [ - fEqAddress_c - ds + (abs + dead + (type) + False + ) ] - addr - ] + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - False ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } ) ] (abs @@ -11749,84 +12047,241 @@ (all dead (type) dead) } ) - ] - (abs - dead - (type) - False ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - False ) - ] - (all dead (type) dead) - } + ) + ] ) - ) - ) + ] + ds + ] ] + (all dead (type) Bool) + } + (abs + dead + (type) + True ) ] - ds + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "Lb" + ) + ] + False + ] + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "Lb" - ) - ] - False - ] ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) ) ) ) + ] + ) + ) + ) + ) + ] + (lam + pk + (con bytestring) + (lam + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + checkBinRel + lessThanEqInteger + ] + vl + ] + [ + [ + valuePaidTo + ds + ] + pk + ] + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "La" + ) + ] + False + ] ) + ] + (all dead (type) dead) + } + ) + ) + ] + (lam + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + checkBinRel + lessThanEqInteger + ] + vl + ] + [ + valueProduced + ds + ] + ] + ] + (all dead (type) Bool) + } + (abs + dead (type) True ) + ] + (abs + dead + (type) + [ + [ + { + (builtin trace + ) + Bool + } + (con string "L6" + ) + ] + False + ] ) ] - ) - ) + (all dead (type) dead) + } + ) + ] + (lam + xs + [List TxConstraint] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxConstraint + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + [ + checkTxConstraint + ctx + ] + ] + xs + ] + ] + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (abs + dead + (type) + [ + [ + { + (builtin trace) + Bool + } + (con string "Ld") + ] + False + ] + ) + ] + (all dead (type) dead) + } ) - ) - ] - (lam - pk - (con bytestring) + ] (lam vl [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] @@ -11845,10 +12300,111 @@ vl ] [ - [ - valuePaidTo ds - ] - pk + { + [ + TxInfo_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [List TxInInfo] + (lam + ds + [List TxOut] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [List DCert] + (lam + ds + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + TxInInfo + } + fMonoidValue + ] + (lam + x + TxInInfo + [ + { + [ + TxInInfo_match + x + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + ds + ) + ) + ) + ] + ) + ) + ] + ) + ] + ds + ] + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) ] ] ] @@ -11865,7 +12421,7 @@ (builtin trace) Bool } - (con string "La") + (con string "L5") ] False ] @@ -11874,51 +12430,179 @@ (all dead (type) dead) } ) + ] + (lam + txOutRef + TxOutRef + (let + (nonrec) + (termbind + (nonstrict) + (vardecl j Bool) + [ + [ + { (builtin trace) Bool } + (con string "L7") + ] + False + ] + ) + { + [ + [ + { + [ + { + Maybe_match + TxInInfo + } + [ + [ + findTxInByTxOutRef + txOutRef + ] + ds + ] + ] + (all dead (type) Bool) + } + (lam + a + TxInInfo + (abs + dead + (type) + [ + { + [ + TxInInfo_match + a + ] + Bool + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + Bool + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + { + [ + [ + { + [ + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) Bool) + } + (lam + ds + (con bytestring) + (abs + dead + (type) + j + ) + ) + ] + (abs + dead + (type) + True + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ] + ) + ) + ] + ) + ) + ] + (abs dead (type) j) + ] + (all dead (type) dead) + } + ) ) ] (lam - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - { - [ + txOutRef + TxOutRef + (lam + ds + (con data) + { [ - { - [ - Bool_match + [ + { [ + { + Maybe_match TxInInfo + } [ [ - checkBinRel - lessThanEqInteger + findTxInByTxOutRef + txOutRef ] - vl + ds ] - [ valueProduced ds ] ] - ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (abs - dead - (type) - [ + (all dead (type) Bool) + } + (lam + ds + TxInInfo + (abs dead (type) True) + ) + ] + (abs + dead + (type) [ - { (builtin trace) Bool } - (con string "L6") + [ + { + (builtin trace) Bool + } + (con string "L8") + ] + False ] - False - ] - ) - ] - (all dead (type) dead) - } + ) + ] + (all dead (type) dead) + } + ) ) ] (lam - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + interval + [Interval (con integer)] { [ [ @@ -11928,15 +12612,18 @@ [ [ [ - checkBinRel - lessThanEqInteger + { + contains + (con integer) + } + fOrdPOSIXTime ] - vl + interval ] [ { [ TxInfo_match ds ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [Interval (con integer)] } (lam ds @@ -11968,64 +12655,7 @@ (lam ds (con bytestring) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - TxInInfo - } - fMonoidValue - ] - (lam - x - TxInInfo - [ - { - [ - TxInInfo_match - x - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { - [ - TxOut_match - ds - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [Maybe (con bytestring)] - ds - ) - ) - ) - ] - ) - ) - ] - ) - ] - ds - ] + ds ) ) ) @@ -12049,351 +12679,77 @@ [ [ { (builtin trace) Bool } - (con string "L5") + (con string "L3") ] False ] - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - txOutRef - TxOutRef - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - [ - [ - { (builtin trace) Bool } - (con string "L7") - ] - False - ] - ) - { - [ - [ - { - [ - { Maybe_match TxInInfo } - [ - [ - findTxInByTxOutRef - txOutRef - ] - ds - ] - ] - (all dead (type) Bool) - } - (lam - a - TxInInfo - (abs - dead - (type) - [ - { - [ TxInInfo_match a ] - Bool - } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { - [ - TxOut_match ds - ] - Bool - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [Maybe (con bytestring)] - { - [ - [ - { - [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) Bool) - } - (lam - ds - (con bytestring) - (abs - dead - (type) - j - ) - ) - ] - (abs - dead - (type) - True - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - ) - ) - ] - ) - ) - ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) - ) - ] - (lam - txOutRef - TxOutRef - (lam - ds - (con data) - { - [ - [ - { - [ - { Maybe_match TxInInfo } - [ - [ - findTxInByTxOutRef - txOutRef - ] - ds - ] - ] - (all dead (type) Bool) - } - (lam - ds - TxInInfo - (abs dead (type) True) - ) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L8") - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (lam - interval - [Interval (con integer)] - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { contains (con integer) } - fOrdPOSIXTime - ] - interval - ] - [ - { - [ TxInfo_match ds ] - [Interval (con integer)] - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [List DCert] - (lam - ds - [List [[Tuple2 StakingCredential] (con integer)]] - (lam - ds - [Interval (con integer)] - (lam - ds - [List (con bytestring)] - (lam - ds - [List [[Tuple2 (con bytestring)] (con data)]] - (lam - ds - (con bytestring) - ds - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ] - ] + ) ] - (all dead (type) Bool) + (all dead (type) dead) } - (abs dead (type) True) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L3") - ] - False - ] ) ] - (all dead (type) dead) - } + ) ) - ] - ) + ) + ] ) ) - ] - ) - ) - (termbind - (strict) - (vardecl - checkScriptContext - (all i (type) (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun [[TxConstraints i] o] (fun ScriptContext Bool))))) - ) - (abs - i - (type) - (abs - o - (type) - (lam - dToData - [(lam a (type) (fun a (con data))) o] - (lam - ds - [[TxConstraints i] o] - (lam - ptx - ScriptContext - [ - { - [ { { TxConstraints_match i } o } ds ] - Bool - } + (let + (nonrec) + (termbind + (strict) + (vardecl + checkScriptContext + (all i (type) (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun [[TxConstraints i] o] (fun ScriptContext Bool))))) + ) + (abs + i + (type) + (abs + o + (type) (lam - ds - [List TxConstraint] + dToData + [(lam a (type) (fun a (con data))) o] (lam ds - [List [InputConstraint i]] + [[TxConstraints i] o] (lam - ds - [List [OutputConstraint o]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - [ - [ - { (builtin trace) Bool } - (con string "Ld") - ] - False - ] - ) + ptx + ScriptContext + [ { [ - [ - { - [ - Bool_match + { { TxConstraints_match i } o } + ds + ] + Bool + } + (lam + ds + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl j Bool) [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxConstraint - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - [ - checkTxConstraint - ptx - ] + { + (builtin trace) Bool + } + (con string "Ld") ] - ds + False ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) + ) { [ [ @@ -12408,7 +12764,7 @@ fFoldableNil_cfoldMap [(lam a (type) a) Bool] } - [InputConstraint i] + TxConstraint } [ { @@ -12419,10 +12775,7 @@ ] ] [ - { - checkOwnInputConstraint - i - } + checkTxConstraint ptx ] ] @@ -12448,7 +12801,7 @@ fFoldableNil_cfoldMap [(lam a (type) a) Bool] } - [OutputConstraint o] + [InputConstraint i] } [ { @@ -12459,13 +12812,10 @@ ] ] [ - [ - { - checkOwnOutputConstraint - o - } - dToData - ] + { + checkOwnInputConstraint + i + } ptx ] ] @@ -12477,7 +12827,60 @@ (abs dead (type) - True + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [OutputConstraint o] + } + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] + ] + [ + [ + { + checkOwnOutputConstraint + o + } + dToData + ] + ptx + ] + ] + ds + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + j + ) + ] + (all dead (type) dead) + } ) ] (abs @@ -12493,945 +12896,935 @@ (all dead (type) dead) } ) - ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) - ) - ) - ) - ] - ) - ) - ) - ) - ) - ) - (termbind - (strict) - (vardecl - fAdditiveGroupValue_cscale - (fun (con integer) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - i - (con integer) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - [ - { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - c - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - c - ] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con integer)] - } - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] - [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - (con integer) - } - ds - ] - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - c - (con bytestring) - (lam - a - (con integer) - [ - [ - { - { - Tuple2 - (con bytestring) - } - (con integer) - } - c - ] - [ - [ - (builtin - multiplyInteger - ) - i - ] - a - ] - ] - ) - ) - ] + ) ) - ] - a + ) ] - ] + ) ) ) - ] + ) + ) + ) + (termbind + (strict) + (vardecl + fAdditiveGroupValue_cscale + (fun (con integer) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) ) - ] - ds - ] - ) - ) - ) - (termbind - (strict) - (vardecl - isZero - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl dMonoid [Monoid [(lam a (type) a) Bool]]) - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] - ) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] - ] (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { + i + (con integer) + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ [ { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - ds - ] - [(lam a (type) a) Bool] - } - (lam - ds - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ + (lam + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - [ - { + { + [ { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] + { + Tuple2_match + (con bytestring) + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } - [[Tuple2 (con bytestring)] (con integer)] - } - dMonoid - ] + ds + ] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam - ds - [[Tuple2 (con bytestring)] (con integer)] - [ - { + c + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ [ { { - Tuple2_match - (con bytestring) + Tuple2 (con bytestring) } - (con integer) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } - ds + c ] - [(lam a (type) a) Bool] - } - (lam - ds - (con bytestring) - (lam - a - (con integer) + [ [ - [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con integer)] + } + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + ds + [[Tuple2 (con bytestring)] (con integer)] [ { - (builtin ifThenElse) - Bool - } - [ [ - (builtin - equalsInteger - ) - (con integer 0) + { + { + Tuple2_match + (con bytestring) + } + (con integer) + } + ds ] - a - ] + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + c + (con bytestring) + (lam + a + (con integer) + [ + [ + { + { + Tuple2 + (con bytestring) + } + (con integer) + } + c + ] + [ + [ + (builtin + multiplyInteger + ) + i + ] + a + ] + ] + ) + ) ] - True - ] - False + ) ] - ) - ) - ] + a + ] + ] + ) ) ] - a - ] - ) - ) - ] + ) + ] + ds + ] + ) ) - ] - ds - ] - ) - ) - ) - (termbind - (strict) - (vardecl - ownHashes - (fun ScriptContext [[Tuple2 (con bytestring)] (con bytestring)]) - ) - (lam - ds - ScriptContext - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) [[Tuple2 (con bytestring)] (con bytestring)]) ) - (lam - ds - (all a (type) a) - [ - { - error - [[Tuple2 (con bytestring)] (con bytestring)] - } - [ - { + (termbind + (strict) + (vardecl + isZero + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool) + ) + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dMonoid [Monoid [(lam a (type) a) Bool]] + ) + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] + ) + [ [ - Unit_match [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } [ - { (builtin trace) Unit } - (con string "Lg") + { fMonoidProduct Bool } + fMultiplicativeMonoidBool ] - Unit ] - ] - (con unit) - } - (con unit ()) - ] - ] - ) - ) - { - [ - [ - { - [ - { Maybe_match TxInInfo } - [ findOwnInput ds ] - ] - (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { - [ TxInInfo_match ds ] - [[Tuple2 (con bytestring)] (con bytestring)] - } (lam ds - TxOutRef - (lam - ds - TxOut - [ - { - [ TxOut_match ds ] - [[Tuple2 (con bytestring)] (con bytestring)] - } - (lam + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [Maybe (con bytestring)] + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ [ { - [ Address_match ds ] - [[Tuple2 (con bytestring)] (con bytestring)] + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 (con bytestring)] (con integer)] } - (lam - ds - Credential - (lam - ds - [Maybe StakingCredential] + dMonoid + ] + (lam + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { [ - [ + { { - [ - Credential_match - ds - ] - [[Tuple2 (con bytestring)] (con bytestring)] - } - (lam - ipv + Tuple2_match (con bytestring) + } + (con integer) + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + (con integer) + [ + [ [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (lam - s - (con bytestring) - { - [ - [ - { - [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) - } - (lam - dh - (con bytestring) - (abs - dead - (type) - [ - [ - { - { - Tuple2 - (con bytestring) - } - (con bytestring) - } - s - ] - dh - ] - ) + { + (builtin + ifThenElse ) - ] - (abs - dead - (type) + Bool + } + [ [ - fail - (abs - e - (type) - (error e - ) + (builtin + equalsInteger + ) + (con + integer + 0 ) ] - ) + a + ] ] - (all dead (type) dead) - } - ) - ] + True + ] + False + ] + ) ) - ) - ] - ) - ) + ] + ) + ] + a + ] ) - ] - ) + ) + ] ) ] - ) + ds + ] ) - ] - (abs - dead (type) [ fail (abs e (type) (error e)) ] ) - ] - (all dead (type) dead) - } - ) - ) - ) - (termbind - (strict) - (vardecl ownHash (fun ScriptContext (con bytestring))) - (lam - p - ScriptContext - [ - { - [ - { - { Tuple2_match (con bytestring) } - (con bytestring) - } - [ ownHashes p ] - ] - (con bytestring) - } - (lam a (con bytestring) (lam ds (con bytestring) a)) - ] - ) - ) - (termbind - (strict) - (vardecl - b - (fun (con bytestring) [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) - ) - (lam - ds - (con bytestring) - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ) - ) - (termbind - (nonstrict) - (vardecl - threadTokenValueInner - (fun [Maybe ThreadToken] (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - m - [Maybe ThreadToken] - { - [ - [ - { - [ { Maybe_match ThreadToken } m ] - (all dead (type) (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - } + ) + (termbind + (strict) + (vardecl + ownHashes + (fun ScriptContext [[Tuple2 (con bytestring)] (con bytestring)]) + ) (lam - a - ThreadToken - (abs - dead - (type) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl currency (con bytestring)) - [ - { - [ ThreadToken_match a ] - (con bytestring) - } - (lam - ds - TxOutRef - (lam ds (con bytestring) ds) - ) - ] + ds + ScriptContext + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) [[Tuple2 (con bytestring)] (con bytestring)]) ) (lam ds - (con bytestring) + (all a (type) a) [ + { + error + [[Tuple2 (con bytestring)] (con bytestring)] + } [ { - Cons - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + Unit_match + [ + [ + { (builtin trace) Unit } + (con string "Lg") + ] + Unit + ] + ] + (con unit) } + (con unit ()) + ] + ] + ) + ) + { + [ + [ + { [ + { Maybe_match TxInInfo } + [ findOwnInput ds ] + ] + (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) + } + (lam + ds + TxInInfo + (abs + dead + (type) [ { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ TxInInfo_match ds ] + [[Tuple2 (con bytestring)] (con bytestring)] } - currency - ] - [ - [ - { - Cons - [[Tuple2 (con bytestring)] (con integer)] - } - [ + (lam + ds + TxOutRef + (lam + ds + TxOut [ { - { - Tuple2 - (con bytestring) - } - (con integer) + [ TxOut_match ds ] + [[Tuple2 (con bytestring)] (con bytestring)] } - ds + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + [ + { + [ + Address_match + ds + ] + [[Tuple2 (con bytestring)] (con bytestring)] + } + (lam + ds + Credential + (lam + ds + [Maybe StakingCredential] + [ + [ + { + [ + Credential_match + ds + ] + [[Tuple2 (con bytestring)] (con bytestring)] + } + (lam + ipv + (con bytestring) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (lam + s + (con bytestring) + { + [ + [ + { + [ + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) + } + (lam + dh + (con bytestring) + (abs + dead + (type) + [ + [ + { + { + Tuple2 + (con bytestring) + } + (con bytestring) + } + s + ] + dh + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ] + ) + ) + ] + ) + ) + ) ] - (con integer 1) - ] - ] - { - Nil - [[Tuple2 (con bytestring)] (con integer)] - } + ) + ) ] - ] - ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } + ) + ) ] - ) - ) + (abs + dead + (type) + [ fail (abs e (type) (error e)) ] + ) + ] + (all dead (type) dead) + } ) ) - ] - (abs dead (type) b) - ] - (all dead (type) dead) - } - ) - ) - (termbind - (strict) - (vardecl - wmkValidator - (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] (fun s (fun i (fun ScriptContext Bool)))))))))) - ) - (abs - s - (type) - (abs - i - (type) - (lam - w - [(lam a (type) (fun a (con data))) s] - (lam - ww - (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) + ) + (termbind + (strict) + (vardecl + ownHash (fun ScriptContext (con bytestring)) + ) (lam - ww - (fun s Bool) - (lam - ww - (fun s (fun i (fun ScriptContext Bool))) + p + ScriptContext + [ + { + [ + { + { Tuple2_match (con bytestring) } + (con bytestring) + } + [ ownHashes p ] + ] + (con bytestring) + } (lam - ww - [Maybe ThreadToken] - (lam - w - s + a + (con bytestring) + (lam ds (con bytestring) a) + ) + ] + ) + ) + (termbind + (strict) + (vardecl + b + (fun (con bytestring) [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) + ) + (lam + ds + (con bytestring) + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ) + ) + (termbind + (nonstrict) + (vardecl + threadTokenValueInner + (fun [Maybe ThreadToken] (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + (lam + m + [Maybe ThreadToken] + { + [ + [ + { + [ { Maybe_match ThreadToken } m ] + (all dead (type) (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + } (lam - w - i - (lam - w - ScriptContext + a + ThreadToken + (abs + dead + (type) (let (nonrec) (termbind (nonstrict) (vardecl - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + currency (con bytestring) ) - { + [ + { + [ ThreadToken_match a ] + (con bytestring) + } + (lam + ds + TxOutRef + (lam ds (con bytestring) ds) + ) + ] + ) + (lam + ds + (con bytestring) + [ [ + { + Cons + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } [ - { + [ + { + { + Tuple2 + (con bytestring) + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + currency + ] + [ [ { - Maybe_match TxInInfo + Cons + [[Tuple2 (con bytestring)] (con integer)] } - [ findOwnInput w ] - ] - (all dead (type) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) - } - (lam - a - TxInInfo - (abs - dead - (type) [ - { - [ - TxInInfo_match a - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam + [ + { + { + Tuple2 + (con bytestring) + } + (con integer) + } ds - TxOutRef - (lam - ds - TxOut + ] + (con integer 1) + ] + ] + { + Nil + [[Tuple2 (con bytestring)] (con integer)] + } + ] + ] + ] + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ] + ) + ) + ) + ) + ] + (abs dead (type) b) + ] + (all dead (type) dead) + } + ) + ) + (termbind + (strict) + (vardecl + wmkValidator + (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] (fun s (fun i (fun ScriptContext Bool)))))))))) + ) + (abs + s + (type) + (abs + i + (type) + (lam + w + [(lam a (type) (fun a (con data))) s] + (lam + ww + (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) + (lam + ww + (fun s Bool) + (lam + ww + (fun s (fun i (fun ScriptContext Bool))) + (lam + ww + [Maybe ThreadToken] + (lam + w + s + (lam + w + i + (lam + w + ScriptContext + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ) + { + [ + [ + { [ { - [ - TxOut_match - ds - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Maybe_match + TxInInfo } - (lam - ds - Address + [ + findOwnInput + w + ] + ] + (all dead (type) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) + } + (lam + a + TxInInfo + (abs + dead + (type) + [ + { + [ + TxInInfo_match + a + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + TxOutRef (lam ds - [Maybe (con bytestring)] - ds + TxOut + [ + { + [ + TxOut_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + ds + ) + ) + ) + ] ) ) - ) - ] + ] + ) ) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - { - error - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [ - { - [ - Unit_match - [ - [ - { - (builtin - trace - ) - Unit - } - (con - string "S0" - ) - ] - Unit - ] ] - (con unit) - } - (con unit ()) - ] - ] - ) - ] - (all dead (type) dead) - } - ) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ - [ - { - [ - { - Maybe_match - [[Tuple2 [[TxConstraints Void] Void]] [State s]] - } - [ - [ - ww + (abs + dead + (type) [ + { + error + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } [ - { State s } w - ] - [ - [ - [ - unionWith - addInteger - ] - vl - ] - [ - [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) - ] + { [ + Unit_match [ - threadTokenValueInner - ww - ] - [ - ownHash - w + [ + { + (builtin + trace + ) + Unit + } + (con + string + "S0" + ) + ] + Unit ] ] - ] + (con unit) + } + (con unit ()) ] ] - ] - w + ) ] - ] - (all dead (type) Bool) - } - (lam - ds - [[Tuple2 [[TxConstraints Void] Void]] [State s]] - (abs - dead - (type) + (all dead (type) dead) + } + ) + (termbind + (nonstrict) + (vardecl j Bool) + { [ - { - [ - { - { - Tuple2_match - [[TxConstraints Void] Void] - } - [State s] - } - ds - ] - Bool - } - (lam - newConstraints - [[TxConstraints Void] Void] - (lam - ds - [State s] + [ + { [ { - [ - { - State_match - s - } - ds - ] - Bool + Maybe_match + [[Tuple2 [[TxConstraints Void] Void]] [State s]] } - (lam - ds - s - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - { + [ + [ + ww + [ + [ + { + State + s + } + w + ] [ [ - { - [ - Bool_match - [ - ww - ds - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - (let - (nonrec - ) - (termbind - (nonstrict - ) - (vardecl - j - Bool - ) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - { - checkScriptContext - Void - } - Void - } - fToDataVoid_ctoBuiltinData - ] - newConstraints - ] - w - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S4" - ) - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - { + [ + unionWith + addInteger + ] + vl + ] + [ + [ + fAdditiveGroupValue_cscale + (con + integer + -1 + ) + ] + [ + [ + threadTokenValueInner + ww + ] + [ + ownHash + w + ] + ] + ] + ] + ] + ] + w + ] + ] + (all dead (type) Bool) + } + (lam + ds + [[Tuple2 [[TxConstraints Void] Void]] [State s]] + (abs + dead + (type) + [ + { + [ + { + { + Tuple2_match + [[TxConstraints Void] Void] + } + [State s] + } + ds + ] + Bool + } + (lam + newConstraints + [[TxConstraints Void] Void] + (lam + ds + [State s] + [ + { + [ + { + State_match + s + } + ds + ] + Bool + } + (lam + ds + s + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ [ - [ - { + { + [ + Bool_match [ - Bool_match - [ - isZero - ds - ] + ww + ds ] - (all dead (type) Bool) - } - (abs - dead - (type) - j - ) - ] + ] + (all dead (type) Bool) + } (abs dead (type) - { - [ - [ - { + (let + (nonrec + ) + (termbind + (nonstrict + ) + (vardecl + j + Bool + ) + { + [ [ - Bool_match + { + [ + Bool_match + [ + [ + [ + { + { + checkScriptContext + Void + } + Void + } + fToDataVoid_ctoBuiltinData + ] + newConstraints + ] + w + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) [ [ { @@ -13442,405 +13835,476 @@ } (con string - "S3" + "S4" ) ] False ] - ] - (all dead (type) Bool) - } + ) + ] + (all dead (type) dead) + } + ) + { + [ + [ + { + [ + Bool_match + [ + isZero + ds + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + j + ) + ] (abs dead (type) - j + { + [ + [ + { + [ + Bool_match + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S3" + ) + ] + False + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + j + ) + ] + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } ) ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match + (abs + dead + (type) + { [ [ - [ - { - { - checkScriptContext - Void - } - s - } - w - ] - [ - { + { + [ + Bool_match [ - { - { - TxConstraints_match - Void - } - Void - } - newConstraints - ] - [[TxConstraints Void] s] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] - (lam - ds - [List [OutputConstraint Void]] + [ [ - [ + { + { + checkScriptContext + Void + } + s + } + w + ] + [ + { [ { { - TxConstraints + TxConstraints_match Void } - s + Void } - ds + newConstraints ] + [[TxConstraints Void] s] + } + (lam ds - ] - [ - { - build - [OutputConstraint s] - } - (abs - a - (type) + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] (lam - c - (fun [OutputConstraint s] (fun a a)) - (lam - n - a + ds + [List [OutputConstraint Void]] + [ [ [ - c - [ - [ - { - OutputConstraint - s - } - ds - ] - [ - [ - [ - unionWith - addInteger - ] - ds - ] + { + { + TxConstraints + Void + } + s + } + ds + ] + ds + ] + [ + { + build + [OutputConstraint s] + } + (abs + a + (type) + (lam + c + (fun [OutputConstraint s] (fun a a)) + (lam + n + a [ [ - threadTokenValueInner - ww - ] - [ - ownHash - w + c + [ + [ + { + OutputConstraint + s + } + ds + ] + [ + [ + [ + unionWith + addInteger + ] + ds + ] + [ + [ + threadTokenValueInner + ww + ] + [ + ownHash + w + ] + ] + ] + ] ] + n ] - ] - ] - ] - n + ) + ) + ) ] - ) + ] ) ) - ] + ) ] + ] + w + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace ) + Bool + } + (con + string + "S5" ) - ) + ] + False ] - ] - w + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S5" - ) - ] - False - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (all dead (type) dead) - } + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace ) + Bool + } + (con + string "S6" ) ] - ) + False + ] ) ] - ) + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - [ - [ - { - (builtin trace) Bool - } - (con string "S6") - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ - [ - { - [ - { - Maybe_match - ThreadToken - } - ww - ] - (all dead (type) Bool) - } - (lam - threadToken - ThreadToken - (abs - dead - (type) - { + (termbind + (nonstrict) + (vardecl j Bool) + { + [ [ - [ - { - [ - Bool_match + { + [ + { + Maybe_match + ThreadToken + } + ww + ] + (all dead (type) Bool) + } + (lam + threadToken + ThreadToken + (abs + dead + (type) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { [ + Bool_match [ - (builtin - equalsInteger - ) [ [ + { + (builtin + ifThenElse + ) + Bool + } [ - valueOf - vl - ] - [ - { + [ + (builtin + equalsInteger + ) [ - ThreadToken_match - threadToken + [ + [ + valueOf + vl + ] + [ + { + [ + ThreadToken_match + threadToken + ] + (con bytestring) + } + (lam + ds + TxOutRef + (lam + ds + (con bytestring) + ds + ) + ) + ] + ] + [ + ownHash + w + ] ] - (con bytestring) - } - (lam - ds - TxOutRef - (lam - ds - (con bytestring) - ds - ) + ] + (con + integer + 1 ) ] ] - [ - ownHash - w - ] + True ] + False ] - (con - integer - 1 - ) ] - ] - True - ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead (type) j - ) - ] - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match + (all dead (type) Bool) + } + (abs + dead + (type) + j + ) + ] + (abs + dead + (type) + { [ [ { - (builtin - trace - ) - Bool + [ + Bool_match + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S2" + ) + ] + False + ] + ] + (all dead (type) Bool) } - (con - string - "S2" + (abs + dead + (type) + j ) ] - False + (abs + dead + (type) + False + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - j + (all dead (type) dead) + } ) ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (all dead (type) dead) - } - ) + (abs dead (type) j) + ] + (all dead (type) dead) + } ) - ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) - { - [ - [ - { - [ - Bool_match - [ [ [ ww w ] w ] w ] - ] - (all dead (type) Bool) - } - (abs dead (type) j) - ] - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { + [ + Bool_match + [ + [ [ ww w ] w ] + w + ] + ] + (all dead (type) Bool) + } + (abs dead (type) j) + ] + (abs + dead + (type) + { [ [ { - (builtin - trace - ) - Bool + [ + Bool_match + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S1" + ) + ] + False + ] + ] + (all dead (type) Bool) } - (con - string "S1" + (abs + dead + (type) + j ) ] - False + (abs + dead + (type) + False + ) ] - ] - (all dead (type) Bool) - } - (abs dead (type) j) + (all dead (type) dead) + } + ) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) @@ -13849,117 +14313,122 @@ ) ) ) - ) - ) - ) - ) - (termbind - (strict) - (vardecl - mkValidator - (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun [[StateMachine s] i] (fun s (fun i (fun ScriptContext Bool))))))) - ) - (abs - s - (type) - (abs - i - (type) - (lam - w - [(lam a (type) (fun a (con data))) s] - (lam - w - [[StateMachine s] i] - (lam - w + (termbind + (strict) + (vardecl + mkValidator + (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun [[StateMachine s] i] (fun s (fun i (fun ScriptContext Bool))))))) + ) + (abs s - (lam - w + (type) + (abs i + (type) (lam w - ScriptContext - [ - { - [ { { StateMachine_match s } i } w ] - Bool - } + [(lam a (type) (fun a (con data))) s] + (lam + w + [[StateMachine s] i] (lam - ww - (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) + w + s (lam - ww - (fun s Bool) + w + i (lam - ww - (fun s (fun i (fun ScriptContext Bool))) - (lam - ww - [Maybe ThreadToken] - [ + w + ScriptContext + [ + { [ - [ - [ + { + { StateMachine_match s } i + } + w + ] + Bool + } + (lam + ww + (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) + (lam + ww + (fun s Bool) + (lam + ww + (fun s (fun i (fun ScriptContext Bool))) + (lam + ww + [Maybe ThreadToken] [ [ [ [ - { - { - wmkValidator - s - } - i - } - w + [ + [ + [ + [ + { + { + wmkValidator + s + } + i + } + w + ] + ww + ] + ww + ] + ww + ] + ww ] - ww + w ] - ww + w ] - ww + w ] - ww - ] - w - ] - w - ] - w - ] - ) + ) + ) + ) + ) + ] ) ) ) - ] + ) ) ) ) ) + (termbind + (strict) + (vardecl + mkValidator + (fun Params (fun GovState (fun GovInput (fun ScriptContext Bool)))) + ) + (lam + params + Params + [ + [ + { { mkValidator GovState } GovInput } + fToDataGovState_ctoBuiltinData + ] + [ machine params ] + ] + ) + ) + mkValidator ) ) ) ) - (termbind - (strict) - (vardecl - mkValidator - (fun Params (fun GovState (fun GovInput (fun ScriptContext Bool)))) - ) - (lam - params - Params - [ - [ - { { mkValidator GovState } GovInput } - fToDataGovState_ctoBuiltinData - ] - [ machine params ] - ] - ) - ) - mkValidator ) ) ) diff --git a/plutus-use-cases/test/Spec/multisigStateMachine.pir b/plutus-use-cases/test/Spec/multisigStateMachine.pir index c439bad9e3f..58d88725ef1 100644 --- a/plutus-use-cases/test/Spec/multisigStateMachine.pir +++ b/plutus-use-cases/test/Spec/multisigStateMachine.pir @@ -602,356 +602,71 @@ ) ) ) - (datatypebind - (datatype - (tyvardecl TxConstraint (type)) - - TxConstraint_match - (vardecl MustBeSignedBy (fun (con bytestring) TxConstraint)) - (vardecl - MustHashDatum (fun (con bytestring) (fun (con data) TxConstraint)) - ) - (vardecl MustIncludeDatum (fun (con data) TxConstraint)) - (vardecl - MustMintValue - (fun (con bytestring) (fun (con data) (fun (con bytestring) (fun (con integer) TxConstraint)))) - ) - (vardecl - MustPayToOtherScript - (fun (con bytestring) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint))) - ) - (vardecl - MustPayToPubKey - (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint)) - ) - (vardecl - MustProduceAtLeast - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) - ) - (vardecl - MustSpendAtLeast - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) - ) - (vardecl MustSpendPubKeyOutput (fun TxOutRef TxConstraint)) - (vardecl - MustSpendScriptOutput (fun TxOutRef (fun (con data) TxConstraint)) - ) - (vardecl MustValidateIn (fun [Interval (con integer)] TxConstraint)) - ) - ) - (datatypebind - (datatype - (tyvardecl TxConstraints (fun (type) (fun (type) (type)))) - (tyvardecl i (type)) (tyvardecl o (type)) - TxConstraints_match - (vardecl - TxConstraints - (fun [List TxConstraint] (fun [List [InputConstraint i]] (fun [List [OutputConstraint o]] [[TxConstraints i] o]))) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl StateMachine (fun (type) (fun (type) (type)))) - (tyvardecl s (type)) (tyvardecl i (type)) - StateMachine_match - (vardecl - StateMachine - (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] [[StateMachine s] i])))) - ) - ) - ) (let (rec) - (termbind - (strict) - (vardecl - fFunctorNil_cfmap - (all a (type) (all b (type) (fun (fun a b) (fun [List a] [List b])))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - f - (fun a b) - (lam - l - [List a] - { - [ - [ - { [ { Nil_match a } l ] (all dead (type) [List b]) } - (abs dead (type) { Nil b }) - ] - (lam - x - a - (lam - xs - [List a] - (abs - dead - (type) - [ - [ { Cons b } [ f x ] ] - [ [ { { fFunctorNil_cfmap a } b } f ] xs ] - ] - ) - ) - ) - ] - (all dead (type) dead) - } - ) - ) + (datatypebind + (datatype + (tyvardecl TxConstraint (type)) + + TxConstraint_match + (vardecl MustBeSignedBy (fun (con bytestring) TxConstraint)) + (vardecl + MustHashDatum + (fun (con bytestring) (fun (con data) TxConstraint)) ) - ) - ) - (let - (nonrec) - (termbind - (strict) + (vardecl MustIncludeDatum (fun (con data) TxConstraint)) (vardecl - fAdditiveGroupValue_cscale - (fun (con integer) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + MustMintValue + (fun (con bytestring) (fun (con data) (fun (con bytestring) (fun (con integer) TxConstraint)))) ) - (lam - i - (con integer) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - [ - { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - c - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - c - ] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con integer)] - } - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] - [ - { - [ - { - { Tuple2_match (con bytestring) } - (con integer) - } - ds - ] - [[Tuple2 (con bytestring)] (con integer)] - } - (lam - c - (con bytestring) - (lam - a - (con integer) - [ - [ - { - { Tuple2 (con bytestring) } - (con integer) - } - c - ] - [ - [ (builtin multiplyInteger) i ] - a - ] - ] - ) - ) - ] - ) - ] - a - ] - ] - ) - ) - ] - ) - ] - ds - ] - ) + (vardecl + MustPayToOtherScript + (fun (con bytestring) (fun (con data) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint))) ) - ) - (termbind - (strict) (vardecl - addInteger (fun (con integer) (fun (con integer) (con integer))) + MustPayToPubKey + (fun (con bytestring) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint)) ) - (lam - x - (con integer) - (lam y (con integer) [ [ (builtin addInteger) x ] y ]) + (vardecl + MustProduceAtLeast + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) ) - ) - (termbind - (strict) + (vardecl MustSatisfyAnyOf (fun [List TxConstraint] TxConstraint)) (vardecl - equalsByteString - (fun (con bytestring) (fun (con bytestring) Bool)) + MustSpendAtLeast + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] TxConstraint) ) - (lam - x - (con bytestring) - (lam - y - (con bytestring) - [ - [ - [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsByteString) x ] y ] - ] - True - ] - False - ] - ) + (vardecl MustSpendPubKeyOutput (fun TxOutRef TxConstraint)) + (vardecl + MustSpendScriptOutput + (fun TxOutRef (fun (con data) TxConstraint)) ) - ) - (datatypebind - (datatype - (tyvardecl These (fun (type) (fun (type) (type)))) - (tyvardecl a (type)) (tyvardecl b (type)) - These_match - (vardecl That (fun b [[These a] b])) - (vardecl These (fun a (fun b [[These a] b]))) - (vardecl This (fun a [[These a] b])) + (vardecl + MustValidateIn (fun [Interval (con integer)] TxConstraint) ) ) + ) + (let + (nonrec) (datatypebind (datatype - (tyvardecl AdditiveMonoid (fun (type) (type))) - (tyvardecl a (type)) - AdditiveMonoid_match + (tyvardecl TxConstraints (fun (type) (fun (type) (type)))) + (tyvardecl i (type)) (tyvardecl o (type)) + TxConstraints_match (vardecl - CConsAdditiveMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [AdditiveMonoid a])) - ) - ) - ) - (termbind - (strict) - (vardecl bad_name (fun Bool (fun Bool Bool))) - (lam - ds - Bool - (lam - ds - Bool - { - [ - [ - { [ Bool_match ds ] (all dead (type) Bool) } - (abs dead (type) True) - ] - (abs dead (type) ds) - ] - (all dead (type) dead) - } + TxConstraints + (fun [List TxConstraint] (fun [List [InputConstraint i]] (fun [List [OutputConstraint o]] [[TxConstraints i] o]))) ) ) ) - (termbind - (nonstrict) - (vardecl fAdditiveMonoidBool [AdditiveMonoid Bool]) - [ [ { CConsAdditiveMonoid Bool } bad_name ] False ] - ) (datatypebind (datatype - (tyvardecl Monoid (fun (type) (type))) - (tyvardecl a (type)) - Monoid_match + (tyvardecl StateMachine (fun (type) (fun (type) (type)))) + (tyvardecl s (type)) (tyvardecl i (type)) + StateMachine_match (vardecl - CConsMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [Monoid a])) - ) - ) - ) - (termbind - (strict) - (vardecl - p1Monoid - (all a (type) (fun [Monoid a] [(lam a (type) (fun a (fun a a))) a])) - ) - (abs - a - (type) - (lam - v - [Monoid a] - [ - { - [ { Monoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) - ] - ) - ) - ) - (termbind - (strict) - (vardecl mempty (all a (type) (fun [Monoid a] a))) - (abs - a - (type) - (lam - v - [Monoid a] - [ - { [ { Monoid_match a } v ] a } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) - ] + StateMachine + (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] [[StateMachine s] i])))) ) ) ) @@ -960,69 +675,48 @@ (termbind (strict) (vardecl - fFoldableNil_cfoldMap - (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [List a] m))))) + fFunctorNil_cfmap + (all a (type) (all b (type) (fun (fun a b) (fun [List a] [List b])))) ) (abs - m + a (type) (abs - a + b (type) (lam - dMonoid - [Monoid m] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - dSemigroup [(lam a (type) (fun a (fun a a))) m] - ) - [ { p1Monoid m } dMonoid ] - ) - (lam - ds - (fun a m) - (lam - ds - [List a] - { - [ - [ - { [ { Nil_match a } ds ] (all dead (type) m) } - (abs dead (type) [ { mempty m } dMonoid ]) - ] - (lam - x - a - (lam - xs - [List a] - (abs - dead - (type) - [ - [ dSemigroup [ ds x ] ] - [ - [ - [ - { { fFoldableNil_cfoldMap m } a } - dMonoid - ] - ds - ] - xs - ] - ] - ) - ) + f + (fun a b) + (lam + l + [List a] + { + [ + [ + { + [ { Nil_match a } l ] (all dead (type) [List b]) + } + (abs dead (type) { Nil b }) + ] + (lam + x + a + (lam + xs + [List a] + (abs + dead + (type) + [ + [ { Cons b } [ f x ] ] + [ [ { { fFunctorNil_cfmap a } b } f ] xs ] + ] ) - ] - (all dead (type) dead) - } - ) - ) + ) + ) + ] + (all dead (type) dead) + } ) ) ) @@ -1033,36 +727,233 @@ (termbind (strict) (vardecl - p1AdditiveMonoid - (all a (type) (fun [AdditiveMonoid a] [(lam a (type) (fun a (fun a a))) a])) + fAdditiveGroupValue_cscale + (fun (con integer) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) ) - (abs - a - (type) + (lam + i + (con integer) (lam - v - [AdditiveMonoid a] + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ - { - [ { AdditiveMonoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } - (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + [ + { + { Tuple2_match (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + ds + ] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + c + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + { + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + c + ] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con integer)] + } + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con integer) + } + ds + ] + [[Tuple2 (con bytestring)] (con integer)] + } + (lam + c + (con bytestring) + (lam + a + (con integer) + [ + [ + { + { + Tuple2 (con bytestring) + } + (con integer) + } + c + ] + [ + [ + (builtin multiplyInteger) + i + ] + a + ] + ] + ) + ) + ] + ) + ] + a + ] + ] + ) + ) + ] + ) + ] + ds + ] + ) + ) + ) + (termbind + (strict) + (vardecl + addInteger + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam y (con integer) [ [ (builtin addInteger) x ] y ]) + ) + ) + (termbind + (strict) + (vardecl + equalsByteString + (fun (con bytestring) (fun (con bytestring) Bool)) + ) + (lam + x + (con bytestring) + (lam + y + (con bytestring) + [ + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin equalsByteString) x ] y ] + ] + True + ] + False ] ) ) ) + (datatypebind + (datatype + (tyvardecl These (fun (type) (fun (type) (type)))) + (tyvardecl a (type)) (tyvardecl b (type)) + These_match + (vardecl That (fun b [[These a] b])) + (vardecl These (fun a (fun b [[These a] b]))) + (vardecl This (fun a [[These a] b])) + ) + ) + (datatypebind + (datatype + (tyvardecl AdditiveMonoid (fun (type) (type))) + (tyvardecl a (type)) + AdditiveMonoid_match + (vardecl + CConsAdditiveMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [AdditiveMonoid a])) + ) + ) + ) + (termbind + (strict) + (vardecl bad_name (fun Bool (fun Bool Bool))) + (lam + ds + Bool + (lam + ds + Bool + { + [ + [ + { [ Bool_match ds ] (all dead (type) Bool) } + (abs dead (type) True) + ] + (abs dead (type) ds) + ] + (all dead (type) dead) + } + ) + ) + ) + (termbind + (nonstrict) + (vardecl fAdditiveMonoidBool [AdditiveMonoid Bool]) + [ [ { CConsAdditiveMonoid Bool } bad_name ] False ] + ) + (datatypebind + (datatype + (tyvardecl Monoid (fun (type) (type))) + (tyvardecl a (type)) + Monoid_match + (vardecl + CConsMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [Monoid a])) + ) + ) + ) (termbind (strict) - (vardecl zero (all a (type) (fun [AdditiveMonoid a] a))) + (vardecl + p1Monoid + (all a (type) (fun [Monoid a] [(lam a (type) (fun a (fun a a))) a])) + ) (abs a (type) (lam v - [AdditiveMonoid a] + [Monoid a] [ - { [ { AdditiveMonoid_match a } v ] a } + { + [ { Monoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) ] ) @@ -1070,30 +961,16 @@ ) (termbind (strict) - (vardecl - fMonoidSum - (all a (type) (fun [AdditiveMonoid a] [Monoid [(lam a (type) a) a]])) - ) + (vardecl mempty (all a (type) (fun [Monoid a] a))) (abs a (type) (lam v - [AdditiveMonoid a] + [Monoid a] [ - [ - { CConsMonoid [(lam a (type) a) a] } - (lam - eta - [(lam a (type) a) a] - (lam - eta - [(lam a (type) a) a] - [ [ [ { p1AdditiveMonoid a } v ] eta ] eta ] - ) - ) - ] - [ { zero a } v ] + { [ { Monoid_match a } v ] a } + (lam v [(lam a (type) (fun a (fun a a))) a] (lam v a v)) ] ) ) @@ -1103,51 +980,74 @@ (termbind (strict) (vardecl - foldr - (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) + fFoldableNil_cfoldMap + (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [List a] m))))) ) (abs - a + m (type) (abs - b + a (type) (lam - f - (fun a (fun b b)) - (lam - acc - b + dMonoid + [Monoid m] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dSemigroup [(lam a (type) (fun a (fun a a))) m] + ) + [ { p1Monoid m } dMonoid ] + ) (lam - l - [List a] - { - [ + ds + (fun a m) + (lam + ds + [List a] + { [ - { - [ { Nil_match a } l ] (all dead (type) b) - } - (abs dead (type) acc) - ] - (lam - x - a + [ + { + [ { Nil_match a } ds ] + (all dead (type) m) + } + (abs dead (type) [ { mempty m } dMonoid ]) + ] (lam - xs - [List a] - (abs - dead - (type) - [ - [ f x ] - [ [ [ { { foldr a } b } f ] acc ] xs ] - ] + x + a + (lam + xs + [List a] + (abs + dead + (type) + [ + [ dSemigroup [ ds x ] ] + [ + [ + [ + { + { fFoldableNil_cfoldMap m } + a + } + dMonoid + ] + ds + ] + xs + ] + ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) ) ) @@ -1159,426 +1059,674 @@ (termbind (strict) (vardecl - union - (all k (type) (all v (type) (all r (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] [[These v] r]])))))) + p1AdditiveMonoid + (all a (type) (fun [AdditiveMonoid a] [(lam a (type) (fun a (fun a a))) a])) ) (abs - k + a (type) - (abs + (lam v - (type) - (abs - r - (type) + [AdditiveMonoid a] + [ + { + [ { AdditiveMonoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] + } (lam - dEq - [(lam a (type) (fun a (fun a Bool))) k] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] - [ - [ - [ - { - { foldr [[Tuple2 k] [[These v] r]] } - [List [[Tuple2 k] [[These v] r]]] - } - { Cons [[Tuple2 k] [[These v] r]] } - ] - [ - [ - { - { fFunctorNil_cfmap [[Tuple2 k] r] } - [[Tuple2 k] [[These v] r]] - } - (lam - ds - [[Tuple2 k] r] - [ - { - [ { { Tuple2_match k } r } ds ] - [[Tuple2 k] [[These v] r]] - } - (lam - c - k - (lam - a - r - [ - [ - { - { Tuple2 k } - [[These v] r] - } - c - ] - [ { { That v } r } a ] - ] - ) - ) + v [(lam a (type) (fun a (fun a a))) a] (lam v a v) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl zero (all a (type) (fun [AdditiveMonoid a] a))) + (abs + a + (type) + (lam + v + [AdditiveMonoid a] + [ + { [ { AdditiveMonoid_match a } v ] a } + (lam + v [(lam a (type) (fun a (fun a a))) a] (lam v a v) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fMonoidSum + (all a (type) (fun [AdditiveMonoid a] [Monoid [(lam a (type) a) a]])) + ) + (abs + a + (type) + (lam + v + [AdditiveMonoid a] + [ + [ + { CConsMonoid [(lam a (type) a) a] } + (lam + eta + [(lam a (type) a) a] + (lam + eta + [(lam a (type) a) a] + [ [ [ { p1AdditiveMonoid a } v ] eta ] eta ] + ) + ) + ] + [ { zero a } v ] + ] + ) + ) + ) + (let + (rec) + (termbind + (strict) + (vardecl + foldr + (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) + ) + (abs + a + (type) + (abs + b + (type) + (lam + f + (fun a (fun b b)) + (lam + acc + b + (lam + l + [List a] + { + [ + [ + { + [ { Nil_match a } l ] + (all dead (type) b) + } + (abs dead (type) acc) + ] + (lam + x + a + (lam + xs + [List a] + (abs + dead + (type) + [ + [ f x ] + [ + [ [ { { foldr a } b } f ] acc ] + xs + ] ] ) - ] + ) + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ) + ) + (let + (nonrec) + (termbind + (strict) + (vardecl + union + (all k (type) (all v (type) (all r (type) (fun [(lam a (type) (fun a (fun a Bool))) k] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] [[These v] r]])))))) + ) + (abs + k + (type) + (abs + v + (type) + (abs + r + (type) + (lam + dEq + [(lam a (type) (fun a (fun a Bool))) k] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] v] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) k] r] + [ [ + [ + { + { + foldr [[Tuple2 k] [[These v] r]] + } + [List [[Tuple2 k] [[These v] r]]] + } + { Cons [[Tuple2 k] [[These v] r]] } + ] [ [ { - { foldr [[Tuple2 k] r] } - [List [[Tuple2 k] r]] + { + fFunctorNil_cfmap + [[Tuple2 k] r] + } + [[Tuple2 k] [[These v] r]] } (lam - e + ds [[Tuple2 k] r] - (lam - xs - [List [[Tuple2 k] r]] - [ - { + [ + { + [ + { { Tuple2_match k } r } + ds + ] + [[Tuple2 k] [[These v] r]] + } + (lam + c + k + (lam + a + r [ - { { Tuple2_match k } r } - e + [ + { + { Tuple2 k } + [[These v] r] + } + c + ] + [ { { That v } r } a ] ] - [List [[Tuple2 k] r]] - } + ) + ) + ] + ) + ] + [ + [ + [ + { + { foldr [[Tuple2 k] r] } + [List [[Tuple2 k] r]] + } + (lam + e + [[Tuple2 k] r] (lam - c - k - (lam - ds - r + xs + [List [[Tuple2 k] r]] + [ { [ - [ - { + { + { Tuple2_match k } + r + } + e + ] + [List [[Tuple2 k] r]] + } + (lam + c + k + (lam + ds + r + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 k] v] - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - [[Tuple2 k] v] [ - { + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 k] v] + } [ { - { - Tuple2_match - k - } - v + fMonoidSum + Bool } - ds + fAdditiveMonoidBool ] - Bool - } + ] (lam - c - k - (lam - ds - v - [ + ds + [[Tuple2 k] v] + [ + { [ - dEq - c + { + { + Tuple2_match + k + } + v + } + ds ] + Bool + } + (lam c - ] - ) + k + (lam + ds + v + [ + [ + dEq + c + ] + c + ] + ) + ) + ] ) ] - ) + ds + ] ] - ds - ] - ] - (all dead (type) [List [[Tuple2 k] r]]) - } - (abs - dead (type) xs - ) - ] - (abs - dead - (type) - [ - [ - { - Cons - [[Tuple2 k] r] + (all dead (type) [List [[Tuple2 k] r]]) } - e + (abs + dead + (type) + xs + ) ] - xs + (abs + dead + (type) + [ + [ + { + Cons + [[Tuple2 k] r] + } + e + ] + xs + ] + ) ] - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ) + ] ) - ] - ) - ) + ) + ] + { Nil [[Tuple2 k] r] } + ] + ds ] - { Nil [[Tuple2 k] r] } ] - ds ] - ] - ] - [ - [ - { - { fFunctorNil_cfmap [[Tuple2 k] v] } - [[Tuple2 k] [[These v] r]] - } - (lam - ds - [[Tuple2 k] v] + [ [ { - [ { { Tuple2_match k } v } ds ] + { + fFunctorNil_cfmap [[Tuple2 k] v] + } [[Tuple2 k] [[These v] r]] } (lam - c - k - (lam - i - v - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun [List [[Tuple2 k] r]] [[These v] r]) - ) - (lam - ds - [List [[Tuple2 k] r]] - { - [ - [ - { + ds + [[Tuple2 k] v] + [ + { + [ + { { Tuple2_match k } v } ds + ] + [[Tuple2 k] [[These v] r]] + } + (lam + c + k + (lam + i + v + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun [List [[Tuple2 k] r]] [[These v] r]) + ) + (lam + ds + [List [[Tuple2 k] r]] + { + [ [ { - Nil_match - [[Tuple2 k] r] + [ + { + Nil_match + [[Tuple2 k] r] + } + ds + ] + (all dead (type) [[These v] r]) } - ds - ] - (all dead (type) [[These v] r]) - } - (abs - dead - (type) - [ - { { This v } r } - i + (abs + dead + (type) + [ + { + { This v } + r + } + i + ] + ) ] - ) - ] - (lam - ds - [[Tuple2 k] r] - (lam - xs - [List [[Tuple2 k] r]] - (abs - dead - (type) - [ - { + (lam + ds + [[Tuple2 k] r] + (lam + xs + [List [[Tuple2 k] r]] + (abs + dead + (type) [ - { - { - Tuple2_match - k - } - r - } - ds - ] - [[These v] r] - } - (lam - c - k - (lam - i - r { [ - [ + { { + Tuple2_match + k + } + r + } + ds + ] + [[These v] r] + } + (lam + c + k + (lam + i + r + { + [ [ - Bool_match - [ + { [ - dEq - c + Bool_match + [ + [ + dEq + c + ] + c + ] ] - c - ] + (all dead (type) [[These v] r]) + } + (abs + dead + (type) + [ + [ + { + { + These + v + } + r + } + i + ] + i + ] + ) ] - (all dead (type) [[These v] r]) - } - (abs - dead - (type) - [ + (abs + dead + (type) [ - { - { - These - v - } - r - } - i + go + xs ] - i - ] - ) - ] - (abs - dead - (type) - [ - go - xs + ) ] - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ) + ] ) - ] + ) ) - ) - ) + ] + (all dead (type) dead) + } + ) + ) + [ + [ + { + { Tuple2 k } + [[These v] r] + } + c ] - (all dead (type) dead) - } + [ go ds ] + ] ) ) - [ - [ - { - { Tuple2 k } - [[These v] r] - } - c - ] - [ go ds ] - ] ) - ) + ] ) ] - ) + ds + ] ] - ds - ] - ] + ) + ) ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - unionVal - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]])) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - } - (lam - ds - [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + (termbind + (strict) + (vardecl + unionVal + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]])) + ) + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ [ { - [ - { - { Tuple2_match (con bytestring) } - [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ds - ] + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] } (lam - c - (con bytestring) - (lam - a - [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ + ds + [[Tuple2 (con bytestring)] [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [ + { [ { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + { Tuple2_match (con bytestring) } + [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - c + ds ] - [ + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } + (lam + c + (con bytestring) + (lam + a + [[These [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [ [ { + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + } + c + ] + [ + [ [ { - { - These_match - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + { + { + These_match + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + a + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] } - a + (lam + b + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con integer)] + } + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + (lam + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con integer) + } + ds + ] + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + (lam + c + (con bytestring) + (lam + a + (con integer) + [ + [ + { + { + Tuple2 + (con bytestring) + } + [[These (con integer)] (con integer)] + } + c + ] + [ + { + { + That + (con integer) + } + (con integer) + } + a + ] + ] + ) + ) + ] + ) + ] + b + ] + ) ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - } + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + (lam + b + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ + [ + { + { + { + union + (con bytestring) + } + (con integer) + } + (con integer) + } + equalsByteString + ] + a + ] + b + ] + ) + ) + ] (lam - b + a [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] [ [ @@ -1626,7 +1774,7 @@ [ { { - That + This (con integer) } (con integer) @@ -1639,1784 +1787,1734 @@ ] ) ] - b + a ] ) ] - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - (lam - b - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - [ - { - { - { - union - (con bytestring) - } - (con integer) - } - (con integer) - } - equalsByteString - ] - a - ] - b - ] - ) - ) ] + ) + ) + ] + ) + ] + [ + [ + [ + { + { + { union (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + equalsByteString + ] + ds + ] + ds + ] + ] + ) + ) + ) + (termbind + (strict) + (vardecl + unionWith + (fun (fun (con integer) (fun (con integer) (con integer))) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]))) + ) + (lam + f + (fun (con integer) (fun (con integer) (con integer))) + (lam + ls + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + rs + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + [ + { + [ + { + { Tuple2_match (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + } + ds + ] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + c + (con bytestring) (lam a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] [ [ { + { Tuple2 (con bytestring) } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } + c + ] + [ + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } [[Tuple2 (con bytestring)] (con integer)] } - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] - } - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] - [ - { - [ - { + (lam + ds + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [ + { + [ { - Tuple2_match - (con bytestring) + { + Tuple2_match + (con bytestring) + } + [[These (con integer)] (con integer)] } - (con integer) - } - ds - ] - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] - } - (lam - c - (con bytestring) + ds + ] + [[Tuple2 (con bytestring)] (con integer)] + } (lam - a - (con integer) - [ + c + (con bytestring) + (lam + a + [[These (con integer)] (con integer)] [ - { + [ { - Tuple2 - (con bytestring) - } - [[These (con integer)] (con integer)] - } - c - ] - [ - { - { - This + { + Tuple2 + (con bytestring) + } (con integer) } - (con integer) - } - a + c + ] + [ + [ + [ + { + [ + { + { + These_match + (con integer) + } + (con integer) + } + a + ] + (con integer) + } + (lam + b + (con integer) + [ + [ + f + (con + integer + 0 + ) + ] + b + ] + ) + ] + (lam + a + (con integer) + (lam + b + (con integer) + [ + [ f a ] b + ] + ) + ) + ] + (lam + a + (con integer) + [ + [ f a ] + (con integer 0 + ) + ] + ) + ] ] - ] + ) ) - ) - ] - ) + ] + ) + ] + a ] - a ] ) - ] + ) ] ) - ) + ] + [ [ unionVal ls ] rs ] ] ) - ] - [ + ) + ) + ) + (termbind + (strict) + (vardecl + fAdditiveGroupValue + (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + (lam + ds + [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + (lam + ds + [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [ + [ [ unionWith addInteger ] ds ] [ - { - { - { union (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - equalsByteString + [ + fAdditiveGroupValue_cscale (con integer -1) + ] + ds ] - ds ] - ds - ] - ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - unionWith - (fun (fun (con integer) (fun (con integer) (con integer))) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]))) - ) - (lam - f - (fun (con integer) (fun (con integer) (con integer))) - (lam - ls - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - rs - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ + (termbind + (strict) + (vardecl + fMonoidTxConstraints_cmempty + (all i (type) (all o (type) [[TxConstraints i] o])) + ) + (abs + i + (type) + (abs + o + (type) + [ + [ + [ + { { TxConstraints i } o } + { Nil TxConstraint } + ] + { Nil [InputConstraint i] } + ] + { Nil [OutputConstraint o] } + ] + ) + ) + ) + (datatypebind + (datatype + (tyvardecl Input (type)) + + Input_match + (vardecl AddSignature (fun (con bytestring) Input)) + (vardecl Cancel Input) + (vardecl Pay Input) + (vardecl ProposePayment (fun Payment Input)) + ) + ) + (datatypebind + (datatype + (tyvardecl MultiplicativeMonoid (fun (type) (type))) + (tyvardecl a (type)) + MultiplicativeMonoid_match + (vardecl + CConsMultiplicativeMonoid + (fun [(lam a (type) (fun a (fun a a))) a] (fun a [MultiplicativeMonoid a])) + ) + ) + ) + (termbind + (strict) + (vardecl + p1MultiplicativeMonoid + (all a (type) (fun [MultiplicativeMonoid a] [(lam a (type) (fun a (fun a a))) a])) + ) + (abs + a + (type) + (lam + v + [MultiplicativeMonoid a] [ { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ { MultiplicativeMonoid_match a } v ] + [(lam a (type) (fun a (fun a a))) a] } (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] + v + [(lam a (type) (fun a (fun a a))) a] + (lam v a v) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl + one (all a (type) (fun [MultiplicativeMonoid a] a)) + ) + (abs + a + (type) + (lam + v + [MultiplicativeMonoid a] + [ + { [ { MultiplicativeMonoid_match a } v ] a } + (lam + v + [(lam a (type) (fun a (fun a a))) a] + (lam v a v) + ) + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fMonoidProduct + (all a (type) (fun [MultiplicativeMonoid a] [Monoid [(lam a (type) a) a]])) + ) + (abs + a + (type) + (lam + v + [MultiplicativeMonoid a] + [ + [ + { CConsMonoid [(lam a (type) a) a] } + (lam + eta + [(lam a (type) a) a] + (lam + eta + [(lam a (type) a) a] + [ + [ + [ { p1MultiplicativeMonoid a } v ] eta + ] + eta + ] + ) + ) + ] + [ { one a } v ] + ] + ) + ) + ) + (termbind + (strict) + (vardecl bad_name (fun Bool (fun Bool Bool))) + (lam + ds + Bool + (lam + x + Bool + { + [ [ - { + { [ Bool_match ds ] (all dead (type) Bool) } + (abs dead (type) x) + ] + (abs dead (type) False) + ] + (all dead (type) dead) + } + ) + ) + ) + (termbind + (nonstrict) + (vardecl + fMultiplicativeMonoidBool + [MultiplicativeMonoid Bool] + ) + [ + [ { CConsMultiplicativeMonoid Bool } bad_name ] True + ] + ) + (termbind + (strict) + (vardecl + checkPred + (fun (fun [[These (con integer)] (con integer)] Bool) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) + ) + (lam + f + (fun [[These (con integer)] (con integer)] Bool) + (lam + l + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + r + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dMonoid [Monoid [(lam a (type) a) Bool]] + ) + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] + ) + [ + [ [ { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] } - ds + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] ] - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - c - (con bytestring) (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + ds + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] [ - [ - { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - c - ] - [ + { [ { { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + Tuple2_match (con bytestring) } - [[Tuple2 (con bytestring)] (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] } - (lam - ds - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] + [ [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - [[These (con integer)] (con integer)] + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] } - ds - ] - [[Tuple2 (con bytestring)] (con integer)] - } + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + } + dMonoid + ] (lam - c - (con bytestring) - (lam - a - [[These (con integer)] (con integer)] - [ + ds + [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] + [ + { [ { { - Tuple2 + Tuple2_match (con bytestring) } - (con integer) + [[These (con integer)] (con integer)] } - c - ] - [ - [ - [ - { - [ - { - { - These_match - (con integer) - } - (con integer) - } - a - ] - (con integer) - } - (lam - b - (con integer) - [ - [ - f - (con - integer 0 - ) - ] - b - ] - ) - ] - (lam - a - (con integer) - (lam - b - (con integer) - [ [ f a ] b ] - ) - ) - ] - (lam - a - (con integer) - [ - [ f a ] - (con integer 0) - ] - ) + ds ] - ] - ) + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[These (con integer)] (con integer)] + [ f a ] + ) + ) + ] ) ] + a + ] + ) + ) + ] + ) + ] + [ [ unionVal l ] r ] + ] + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + checkBinRel + (fun (fun (con integer) (fun (con integer) Bool)) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) + ) + (lam + f + (fun (con integer) (fun (con integer) Bool)) + (lam + l + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + r + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + [ + [ + checkPred + (lam + k + [[These (con integer)] (con integer)] + [ + [ + [ + { + [ + { + { + These_match (con integer) + } + (con integer) + } + k + ] + Bool + } + (lam + b + (con integer) + [ [ f (con integer 0) ] b ] ) ] - a + (lam + a + (con integer) + (lam b (con integer) [ [ f a ] b ] + ) + ) ] + (lam + a + (con integer) + [ [ f a ] (con integer 0) ] + ) ] ) - ) + ] + l ] - ) - ] - [ [ unionVal ls ] rs ] - ] + r + ] + ) + ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fAdditiveGroupValue - (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (fun [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - ds - [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - (lam - ds - [(lam a (type) a) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - [ - [ [ unionWith addInteger ] ds ] - [ - [ fAdditiveGroupValue_cscale (con integer -1) ] ds - ] - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidTxConstraints_cmempty - (all i (type) (all o (type) [[TxConstraints i] o])) - ) - (abs - i - (type) - (abs - o - (type) - [ - [ - [ { { TxConstraints i } o } { Nil TxConstraint } ] - { Nil [InputConstraint i] } - ] - { Nil [OutputConstraint o] } - ] - ) - ) - ) - (datatypebind - (datatype - (tyvardecl Input (type)) + (datatypebind + (datatype + (tyvardecl Params (type)) - Input_match - (vardecl AddSignature (fun (con bytestring) Input)) - (vardecl Cancel Input) - (vardecl Pay Input) - (vardecl ProposePayment (fun Payment Input)) - ) - ) - (datatypebind - (datatype - (tyvardecl MultiplicativeMonoid (fun (type) (type))) - (tyvardecl a (type)) - MultiplicativeMonoid_match - (vardecl - CConsMultiplicativeMonoid - (fun [(lam a (type) (fun a (fun a a))) a] (fun a [MultiplicativeMonoid a])) - ) - ) - ) - (termbind - (strict) - (vardecl - p1MultiplicativeMonoid - (all a (type) (fun [MultiplicativeMonoid a] [(lam a (type) (fun a (fun a a))) a])) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - { - [ { MultiplicativeMonoid_match a } v ] - [(lam a (type) (fun a (fun a a))) a] - } - (lam - v [(lam a (type) (fun a (fun a a))) a] (lam v a v) + Params_match + (vardecl + Params + (fun [List (con bytestring)] (fun (con integer) Params)) ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - one (all a (type) (fun [MultiplicativeMonoid a] a)) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - { [ { MultiplicativeMonoid_match a } v ] a } + (termbind + (strict) + (vardecl + isSignatory (fun (con bytestring) (fun Params Bool)) + ) + (lam + pkh + (con bytestring) (lam - v [(lam a (type) (fun a (fun a a))) a] (lam v a v) + ds + Params + [ + { [ Params_match ds ] Bool } + (lam + sigs + [List (con bytestring)] + (lam + ds + (con integer) + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + (con bytestring) + } + [ + { fMonoidSum Bool } + fAdditiveMonoidBool + ] + ] + (lam + pkh + (con bytestring) + [ [ equalsByteString pkh ] pkh ] + ) + ] + sigs + ] + ) + ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidProduct - (all a (type) (fun [MultiplicativeMonoid a] [Monoid [(lam a (type) a) a]])) - ) - (abs - a - (type) - (lam - v - [MultiplicativeMonoid a] - [ - [ - { CConsMonoid [(lam a (type) a) a] } - (lam - eta - [(lam a (type) a) a] - (lam - eta - [(lam a (type) a) a] - [ - [ [ { p1MultiplicativeMonoid a } v ] eta ] - eta - ] - ) - ) - ] - [ { one a } v ] - ] - ) - ) - ) - (termbind - (strict) - (vardecl bad_name (fun Bool (fun Bool Bool))) - (lam - ds - Bool - (lam - x - Bool - { - [ - [ - { [ Bool_match ds ] (all dead (type) Bool) } - (abs dead (type) x) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) - ) - ) - (termbind - (nonstrict) - (vardecl - fMultiplicativeMonoidBool [MultiplicativeMonoid Bool] - ) - [ [ { CConsMultiplicativeMonoid Bool } bad_name ] True ] - ) - (termbind - (strict) - (vardecl - checkPred - (fun (fun [[These (con integer)] (con integer)] Bool) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) - ) - (lam - f - (fun [[These (con integer)] (con integer)] Bool) - (lam - l - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (termbind + (strict) + (vardecl + lessThanEqInteger + (fun (con integer) (fun (con integer) Bool)) + ) (lam - r - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - dMonoid [Monoid [(lam a (type) a) Bool]] - ) - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] - ) + x + (con integer) + (lam + y + (con integer) [ [ [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - } - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanEqualsInteger) x ] y ] ] - (lam - ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]]] - [ - { - [ - { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - } - ds - ] - [(lam a (type) a) Bool] - } - (lam - ds - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[These (con integer)] (con integer)]] - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] - } - dMonoid - ] - (lam - ds - [[Tuple2 (con bytestring)] [[These (con integer)] (con integer)]] - [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - [[These (con integer)] (con integer)] - } - ds - ] - [(lam a (type) a) Bool] - } - (lam - ds - (con bytestring) - (lam - a - [[These (con integer)] (con integer)] - [ f a ] - ) - ) - ] - ) - ] - a - ] - ) - ) - ] - ) + True ] - [ [ unionVal l ] r ] + False ] ) ) ) - ) - ) - (termbind - (strict) - (vardecl - checkBinRel - (fun (fun (con integer) (fun (con integer) Bool)) (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool))) - ) - (lam - f - (fun (con integer) (fun (con integer) Bool)) - (lam - l - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - r - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - [ + (termbind + (strict) + (vardecl + build + (all a (type) (fun (all b (type) (fun (fun a (fun b b)) (fun b b))) [List a])) + ) + (abs + a + (type) + (lam + g + (all b (type) (fun (fun a (fun b b)) (fun b b))) + [ [ { g [List a] } { Cons a } ] { Nil a } ] + ) + ) + ) + (termbind + (strict) + (vardecl + mustBeSignedBy + (all i (type) (all o (type) (fun (con bytestring) [[TxConstraints i] o]))) + ) + (abs + i + (type) + (abs + o + (type) + (lam + x + (con bytestring) [ - checkPred - (lam - k - [[These (con integer)] (con integer)] + [ [ + { { TxConstraints i } o } [ - [ - { - [ - { - { These_match (con integer) } - (con integer) - } - k - ] - Bool - } + { build TxConstraint } + (abs + a + (type) (lam - b - (con integer) - [ [ f (con integer 0) ] b ] + c + (fun TxConstraint (fun a a)) + (lam + n + a + [ [ c [ MustBeSignedBy x ] ] n ] + ) ) - ] - (lam - a - (con integer) - (lam b (con integer) [ [ f a ] b ]) ) ] - (lam - a - (con integer) - [ [ f a ] (con integer 0) ] - ) ] - ) + { Nil [InputConstraint i] } + ] + { Nil [OutputConstraint o] } ] - l - ] - r - ] + ) + ) ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Params (type)) - - Params_match - (vardecl - Params - (fun [List (con bytestring)] (fun (con integer) Params)) - ) - ) - ) - (termbind - (strict) - (vardecl - isSignatory (fun (con bytestring) (fun Params Bool)) - ) - (lam - pkh - (con bytestring) - (lam - ds - Params - [ - { [ Params_match ds ] Bool } + (termbind + (strict) + (vardecl + fMonoidDual + (all a (type) (fun [Monoid a] [Monoid [(lam a (type) a) a]])) + ) + (abs + a + (type) (lam - sigs - [List (con bytestring)] - (lam - ds - (con integer) + v + [Monoid a] + [ [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - (con bytestring) - } - [ - { fMonoidSum Bool } fAdditiveMonoidBool - ] - ] + { CConsMonoid [(lam a (type) a) a] } + (lam + eta + [(lam a (type) a) a] (lam - pkh - (con bytestring) - [ [ equalsByteString pkh ] pkh ] + eta + [(lam a (type) a) a] + [ [ [ { p1Monoid a } v ] eta ] eta ] ) - ] - sigs + ) ] + [ { mempty a } v ] + ] + ) + ) + ) + (termbind + (strict) + (vardecl + bad_name + (all b (type) (all c (type) (all a (type) (fun (fun b c) (fun (fun a b) (fun a c)))))) + ) + (abs + b + (type) + (abs + c + (type) + (abs + a + (type) + (lam + f + (fun b c) + (lam g (fun a b) (lam x a [ f [ g x ] ])) + ) ) ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - lessThanEqInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ - [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanEqualsInteger) x ] y ] - ] - True - ] - False - ] - ) - ) - ) - (termbind - (strict) - (vardecl - build - (all a (type) (fun (all b (type) (fun (fun a (fun b b)) (fun b b))) [List a])) - ) - (abs - a - (type) - (lam - g - (all b (type) (fun (fun a (fun b b)) (fun b b))) - [ [ { g [List a] } { Cons a } ] { Nil a } ] - ) - ) - ) - (termbind - (strict) - (vardecl - mustBeSignedBy - (all i (type) (all o (type) (fun (con bytestring) [[TxConstraints i] o]))) - ) - (abs - i - (type) - (abs - o - (type) - (lam - x - (con bytestring) - [ - [ - [ - { { TxConstraints i } o } - [ - { build TxConstraint } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n a [ [ c [ MustBeSignedBy x ] ] n ] - ) - ) - ) - ] - ] - { Nil [InputConstraint i] } - ] - { Nil [OutputConstraint o] } - ] + (termbind + (strict) + (vardecl + fSemigroupEndo_c + (all a (type) (fun [(lam a (type) (fun a a)) a] (fun [(lam a (type) (fun a a)) a] [(lam a (type) (fun a a)) a]))) ) - ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidDual - (all a (type) (fun [Monoid a] [Monoid [(lam a (type) a) a]])) - ) - (abs - a - (type) - (lam - v - [Monoid a] - [ - [ - { CConsMonoid [(lam a (type) a) a] } - (lam - eta - [(lam a (type) a) a] - (lam - eta - [(lam a (type) a) a] - [ [ [ { p1Monoid a } v ] eta ] eta ] - ) - ) - ] - [ { mempty a } v ] - ] - ) - ) - ) - (termbind - (strict) - (vardecl - bad_name - (all b (type) (all c (type) (all a (type) (fun (fun b c) (fun (fun a b) (fun a c)))))) - ) - (abs - b - (type) - (abs - c - (type) (abs a (type) (lam - f - (fun b c) - (lam g (fun a b) (lam x a [ f [ g x ] ])) + ds + [(lam a (type) (fun a a)) a] + (lam + ds + [(lam a (type) (fun a a)) a] + [ [ { { { bad_name a } a } a } ds ] ds ] + ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fSemigroupEndo_c - (all a (type) (fun [(lam a (type) (fun a a)) a] (fun [(lam a (type) (fun a a)) a] [(lam a (type) (fun a a)) a]))) - ) - (abs - a - (type) - (lam - ds - [(lam a (type) (fun a a)) a] - (lam - ds - [(lam a (type) (fun a a)) a] - [ [ { { { bad_name a } a } a } ds ] ds ] + (termbind + (strict) + (vardecl id (all a (type) (fun a a))) + (abs a (type) (lam x a x)) + ) + (termbind + (strict) + (vardecl + fMonoidEndo + (all a (type) [Monoid [(lam a (type) (fun a a)) a]]) + ) + (abs + a + (type) + [ + [ + { CConsMonoid [(lam a (type) (fun a a)) a] } + { fSemigroupEndo_c a } + ] + { id a } + ] ) ) - ) - ) - (termbind - (strict) - (vardecl id (all a (type) (fun a a))) - (abs a (type) (lam x a x)) - ) - (termbind - (strict) - (vardecl - fMonoidEndo - (all a (type) [Monoid [(lam a (type) (fun a a)) a]]) - ) - (abs - a - (type) - [ - [ - { CConsMonoid [(lam a (type) (fun a a)) a] } - { fSemigroupEndo_c a } - ] - { id a } - ] - ) - ) - (termbind - (strict) - (vardecl - length - (all t (fun (type) (type)) (all a (type) (fun [(lam t (fun (type) (type)) (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [t a] m)))))) t] (fun [t a] (con integer))))) - ) - (abs - t - (fun (type) (type)) - (abs - a - (type) - (lam - dFoldable - [(lam t (fun (type) (type)) (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [t a] m)))))) t] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - dMonoid - [Monoid [(lam a (type) a) [(lam a (type) (fun a a)) (con integer)]]] - ) - [ - { - fMonoidDual - [(lam a (type) (fun a a)) (con integer)] - } - { fMonoidEndo (con integer) } - ] - ) + (termbind + (strict) + (vardecl + length + (all t (fun (type) (type)) (all a (type) (fun [(lam t (fun (type) (type)) (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [t a] m)))))) t] (fun [t a] (con integer))))) + ) + (abs + t + (fun (type) (type)) + (abs + a + (type) (lam - t - [t a] - [ - [ + dFoldable + [(lam t (fun (type) (type)) (all m (type) (all a (type) (fun [Monoid m] (fun (fun a m) (fun [t a] m)))))) t] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dMonoid + [Monoid [(lam a (type) a) [(lam a (type) (fun a a)) (con integer)]]] + ) + [ + { + fMonoidDual + [(lam a (type) (fun a a)) (con integer)] + } + { fMonoidEndo (con integer) } + ] + ) + (lam + t + [t a] [ [ - { - { - dFoldable - [(lam a (type) a) [(lam a (type) (fun a a)) (con integer)]] - } - a - } - dMonoid - ] - (lam - x - a - (lam - y - (con integer) + [ [ - [ (builtin addInteger) y ] - (con integer 1) + { + { + dFoldable + [(lam a (type) a) [(lam a (type) (fun a a)) (con integer)]] + } + a + } + dMonoid ] - ) - ) + (lam + x + a + (lam + y + (con integer) + [ + [ (builtin addInteger) y ] + (con integer 1) + ] + ) + ) + ] + t + ] + (con integer 0) ] - t - ] - (con integer 0) - ] + ) + ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - proposalAccepted - (fun Params (fun [List (con bytestring)] Bool)) - ) - (lam - ds - Params - (lam - pks - [List (con bytestring)] - [ - { [ Params_match ds ] Bool } + (termbind + (strict) + (vardecl + proposalAccepted + (fun Params (fun [List (con bytestring)] Bool)) + ) + (lam + ds + Params (lam - signatories + pks [List (con bytestring)] - (lam - numReq - (con integer) - [ - [ + [ + { [ Params_match ds ] Bool } + (lam + signatories + [List (con bytestring)] + (lam + numReq + (con integer) [ - { (builtin ifThenElse) Bool } [ [ - (builtin lessThanInteger) + { (builtin ifThenElse) Bool } [ [ - { - { length List } (con bytestring) - } - fFoldableNil_cfoldMap - ] - [ + (builtin lessThanInteger) [ [ { - { foldr (con bytestring) } - [List (con bytestring)] - } - (lam - e + { length List } (con bytestring) - (lam - xs - [List (con bytestring)] + } + fFoldableNil_cfoldMap + ] + [ + [ + [ { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - (con bytestring) - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - pk - (con bytestring) + { + foldr (con bytestring) + } + [List (con bytestring)] + } + (lam + e + (con bytestring) + (lam + xs + [List (con bytestring)] + { + [ + [ + { + [ + Bool_match + [ [ [ - equalsByteString - pk + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + (con bytestring) + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] ] - e + (lam + pk + (con bytestring) + [ + [ + equalsByteString + pk + ] + e + ] + ) ] - ) + pks + ] ] - pks - ] - ] - (all dead (type) [List (con bytestring)]) - } - (abs - dead - (type) - [ - [ - { - Cons - (con bytestring) - } - e - ] - xs + (all dead (type) [List (con bytestring)]) + } + (abs + dead + (type) + [ + [ + { + Cons + (con bytestring) + } + e + ] + xs + ] + ) ] - ) - ] - (abs dead (type) xs) - ] - (all dead (type) dead) - } - ) - ) + (abs + dead (type) xs + ) + ] + (all dead (type) dead) + } + ) + ) + ] + { Nil (con bytestring) } + ] + signatories ] - { Nil (con bytestring) } ] - signatories ] + numReq ] ] - numReq + False ] + True ] - False - ] - True - ] - ) + ) + ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - transition - (fun Params (fun [State MSState] (fun Input [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]))) - ) - (lam - params - Params - (lam - ds - [State MSState] + (termbind + (strict) + (vardecl + transition + (fun Params (fun [State MSState] (fun Input [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]))) + ) (lam - i - Input - [ - { - [ { State_match MSState } ds ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]] - } + params + Params + (lam + ds + [State MSState] (lam - ds - MSState - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + i + Input + [ { - [ - [ - { - [ MSState_match ds ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) - } - (lam - pmt - Payment - (lam - pks - [List (con bytestring)] - (abs - dead - (type) - { - [ - [ + [ { State_match MSState } ds ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]] + } + (lam + ds + MSState + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ + [ + { + [ MSState_match ds ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) + } + (lam + pmt + Payment + (lam + pks + [List (con bytestring)] + (abs + dead + (type) + { [ [ - { - [ Input_match i ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) - } - (lam - pk - (con bytestring) - (abs - dead - (type) + [ + [ { - [ - [ - { + [ Input_match i ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) + } + (lam + pk + (con bytestring) + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ - isSignatory - pk + Bool_match + [ + [ + isSignatory + pk + ] + params + ] ] - params - ] - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) - } - (abs - dead - (type) - { - [ - [ - { + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) + } + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - (con bytestring) - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - pk - (con bytestring) [ [ - equalsByteString - pk + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + (con bytestring) + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] ] - pk + (lam + pk + (con bytestring) + [ + [ + equalsByteString + pk + ] + pk + ] + ) ] - ) + pks + ] ] - pks - ] - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) - } - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] - } - ) - ] - (abs - dead - (type) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] - } - [ + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) + } + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] + } + ) + ] + (abs + dead + (type) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State MSState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] } [ - { + [ { - mustBeSignedBy - Void + { + Tuple2 + [[TxConstraints Void] Void] + } + [State MSState] } - Void - } - pk - ] - ] - [ - [ - { - State - MSState - } - [ [ - CollectingSignatures - pmt + { + { + mustBeSignedBy + Void + } + Void + } + pk ] + ] + [ [ + { + State + MSState + } [ - { - Cons - (con bytestring) - } - pk + [ + CollectingSignatures + pmt + ] + [ + [ + { + Cons + (con bytestring) + } + pk + ] + pks + ] ] - pks ] + ds ] ] - ds ] - ] + ) ] - ) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] - } - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] - } - [ + (all dead (type) dead) + } + ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State MSState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] } [ [ - [ + { { - { - TxConstraints - Void - } - Void + Tuple2 + [[TxConstraints Void] Void] } + [State MSState] + } + [ [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + [ + { + { + TxConstraints + Void + } + Void + } + [ + { + build + TxConstraint + } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ - MustValidateIn [ + c [ - { - Interval - (con integer) - } + MustValidateIn [ [ { - LowerBound + Interval (con integer) } [ - { - Finite - (con integer) - } [ { - [ - Payment_match - pmt - ] + LowerBound (con integer) } - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - (con bytestring) - (lam - ds + [ + { + Finite + (con integer) + } + [ + { + [ + Payment_match + pmt + ] (con integer) + } + (lam ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + (con bytestring) + (lam + ds + (con integer) + ds + ) + ) ) - ) - ) + ] + ] ] + True ] ] - True - ] - ] - [ - [ - { - UpperBound - (con integer) - } - { - PosInf - (con integer) - } + [ + [ + { + UpperBound + (con integer) + } + { + PosInf + (con integer) + } + ] + True + ] ] - True ] ] + n ] - ] - n - ] + ) + ) ) - ) - ) + ] + ] + { + Nil + [InputConstraint Void] + } ] + { + Nil + [OutputConstraint Void] + } ] - { - Nil - [InputConstraint Void] - } ] - { - Nil - [OutputConstraint Void] - } + [ + [ + { + State + MSState + } + Holding + ] + ds + ] ] ] + ) + ] + (abs + dead + (type) + { [ [ { - State MSState + [ + Bool_match + [ + [ + proposalAccepted + params + ] + pks + ] + ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) } - Holding - ] - ds - ] - ] - ] - ) - ] - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match - [ - [ - proposalAccepted - params - ] - pks - ] - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) - } - (abs - dead - (type) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - paymentAmount - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - ) - [ - { + (abs + dead + (type) + (let + (nonrec) + (termbind + (nonstrict + ) + (vardecl + paymentAmount + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ) [ - Payment_match - pmt - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - (con bytestring) + { + [ + Payment_match + pmt + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - (con integer) - ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + (con bytestring) + (lam + ds + (con integer) + ds + ) + ) ) - ) + ] ) - ] - ) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] - } - [ [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State MSState] + Just + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] } [ [ - [ + { { - { - TxConstraints - Void - } - Void + Tuple2 + [[TxConstraints Void] Void] } + [State MSState] + } + [ [ [ - [ - { - { - foldr - TxConstraint - } - [List TxConstraint] - } + { { - Cons - TxConstraint + TxConstraints + Void } - ] + Void + } [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + [ + [ + { + { + foldr + TxConstraint + } + [List TxConstraint] + } + { + Cons + TxConstraint + } + ] + [ + { + build + TxConstraint + } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ [ - MustPayToPubKey + c [ - { + [ + MustPayToPubKey [ - Payment_match - pmt - ] - (con bytestring) - } - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - (con bytestring) + { + [ + Payment_match + pmt + ] + (con bytestring) + } (lam ds - (con integer) - ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + (con bytestring) + (lam + ds + (con integer) + ds + ) + ) ) - ) - ) + ] + ] + paymentAmount ] ] - paymentAmount + n ] - ] - n - ] + ) + ) ) - ) - ) - ] - ] - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n + ] + ] + [ + { + build + TxConstraint + } + (abs a - [ - [ - c + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a [ - MustValidateIn [ + c [ - { - Interval - (con integer) - } + MustValidateIn [ [ { - LowerBound - (con integer) - } - { - NegInf + Interval (con integer) } + [ + [ + { + LowerBound + (con integer) + } + { + NegInf + (con integer) + } + ] + True + ] ] - True - ] - ] - [ - [ - { - UpperBound - (con integer) - } [ - { - Finite - (con integer) - } [ + { + UpperBound + (con integer) + } [ - (builtin - subtractInteger - ) + { + Finite + (con integer) + } [ - { + [ + (builtin + subtractInteger + ) [ - Payment_match - pmt - ] - (con integer) - } - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - (con bytestring) - (lam - ds + { + [ + Payment_match + pmt + ] (con integer) + } + (lam ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + (con bytestring) + (lam + ds + (con integer) + ds + ) + ) ) - ) + ] + ] + (con + integer + 1 ) ] ] - (con - integer - 1 - ) ] + True ] ] - True ] ] + n ] - ] - n - ] + ) + ) ) - ) - ) + ] + ] ] - ] - ] - [ - [ [ - { + [ + [ + { + { + foldr + [InputConstraint Void] + } + [List [InputConstraint Void]] + } + { + Cons + [InputConstraint Void] + } + ] { - foldr + Nil [InputConstraint Void] } - [List [InputConstraint Void]] - } + ] { - Cons + Nil [InputConstraint Void] } ] - { - Nil - [InputConstraint Void] - } ] - { - Nil - [InputConstraint Void] - } - ] - ] - [ - [ [ - { + [ + [ + { + { + foldr + [OutputConstraint Void] + } + [List [OutputConstraint Void]] + } + { + Cons + [OutputConstraint Void] + } + ] { - foldr + Nil [OutputConstraint Void] } - [List [OutputConstraint Void]] - } + ] { - Cons + Nil [OutputConstraint Void] } ] - { - Nil - [OutputConstraint Void] - } ] - { - Nil - [OutputConstraint Void] - } ] - ] - ] - [ - [ - { - State - MSState - } - Holding - ] - [ [ - fAdditiveGroupValue - ds + [ + { + State + MSState + } + Holding + ] + [ + [ + fAdditiveGroupValue + ds + ] + paymentAmount + ] ] - paymentAmount ] ] - ] - ] + ) + ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] + } ) - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] - } - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - ipv - Payment - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] - } - ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ] + (lam + ipv + Payment + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] + } + ) + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - ] - (abs - dead - (type) - { - [ - [ + ] + (abs + dead + (type) + { [ [ - { - [ Input_match i ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) - } - (lam - default_arg0 - (con bytestring) + [ + [ + { + [ Input_match i ] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) + } + (lam + default_arg0 + (con bytestring) + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] + } + ) + ) + ] (abs dead (type) @@ -3425,427 +3523,427 @@ [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] } ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] + } ) ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] - } - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] - } - ) - ] - (lam - pmt - Payment - (abs - dead - (type) - [ - { - [ Payment_match pmt ] - [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]] - } - (lam - amt - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - (con bytestring) + (lam + pmt + Payment + (abs + dead + (type) + [ + { + [ Payment_match pmt ] + [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]] + } (lam - ds - (con integer) - { - [ - [ - { + amt + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + (con bytestring) + (lam + ds + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - checkBinRel - lessThanEqInteger + [ + [ + checkBinRel + lessThanEqInteger + ] + amt + ] + ds ] - amt ] - ds - ] - ] - (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) - } - (abs - dead - (type) - [ - { - Just - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] + (all dead (type) [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State MSState]]]) } - [ + (abs + dead + (type) [ { - { - Tuple2 - [[TxConstraints Void] Void] - } - [State MSState] - } - { - { - fMonoidTxConstraints_cmempty - Void - } - Void + Just + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] } - ] - [ [ - { - State - MSState - } [ - [ - CollectingSignatures - pmt - ] { - Nil - (con bytestring) + { + Tuple2 + [[TxConstraints Void] Void] + } + [State MSState] + } + { + { + fMonoidTxConstraints_cmempty + Void + } + Void } ] - ] - ds - ] - ] + [ + [ + { + State + MSState + } + [ + [ + CollectingSignatures + pmt + ] + { + Nil + (con bytestring) + } + ] + ] + ds + ] + ] + ] + ) ] - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] - } - ) - ] - (all dead (type) dead) - } + (abs + dead + (type) + { + Nothing + [[Tuple2 [[TxConstraints Void] Void]] [State MSState]] + } + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] - ) - ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] ) - ] + ) ) ) - ) - ) - (termbind - (strict) - (vardecl - machine (fun Params [[StateMachine MSState] Input]) - ) - (lam - params - Params - [ - [ + (termbind + (strict) + (vardecl + machine (fun Params [[StateMachine MSState] Input]) + ) + (lam + params + Params [ [ - { { StateMachine MSState } Input } - [ transition params ] + [ + [ + { { StateMachine MSState } Input } + [ transition params ] + ] + (lam ds MSState False) + ] + { { mkStateMachine MSState } Input } ] - (lam ds MSState False) + { Nothing ThreadToken } ] - { { mkStateMachine MSState } Input } - ] - { Nothing ThreadToken } - ] - ) - ) - (termbind - (strict) - (vardecl absurd (all a (type) (fun Void a))) - (abs a (type) (lam a Void { [ Void_match a ] a })) - ) - (termbind - (strict) - (vardecl fToDataVoid_ctoBuiltinData (fun Void (con data))) - (lam v Void [ { absurd (con data) } v ]) - ) - (termbind - (strict) - (vardecl fEqTxOutRef_c (fun TxOutRef (fun TxOutRef Bool))) - (lam - l - TxOutRef - (lam - r - TxOutRef - { - [ - [ - { + ) + ) + (termbind + (strict) + (vardecl absurd (all a (type) (fun Void a))) + (abs a (type) (lam a Void { [ Void_match a ] a })) + ) + (termbind + (strict) + (vardecl + fToDataVoid_ctoBuiltinData (fun Void (con data)) + ) + (lam v Void [ { absurd (con data) } v ]) + ) + (termbind + (strict) + (vardecl + fEqTxOutRef_c (fun TxOutRef (fun TxOutRef Bool)) + ) + (lam + l + TxOutRef + (lam + r + TxOutRef + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin equalsByteString) + { (builtin ifThenElse) Bool } [ - { - [ TxOutRef_match l ] - (con bytestring) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) + [ + (builtin equalsByteString) + [ + { + [ TxOutRef_match l ] + (con bytestring) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] + ] + [ + { + [ TxOutRef_match r ] + (con bytestring) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] ] ] - [ - { - [ TxOutRef_match r ] - (con bytestring) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) - ] + True ] + False ] - True ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ - [ + (all dead (type) Bool) + } + (abs + dead + (type) [ - { (builtin ifThenElse) Bool } [ [ - (builtin equalsInteger) + { (builtin ifThenElse) Bool } [ - { - [ TxOutRef_match l ] - (con integer) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) + [ + (builtin equalsInteger) + [ + { + [ TxOutRef_match l ] + (con integer) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] + ] + [ + { + [ TxOutRef_match r ] + (con integer) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] ] ] - [ - { - [ TxOutRef_match r ] (con integer) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) - ] + True ] + False ] - True - ] - False + ) ] - ) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (abs dead (type) False) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - checkOwnInputConstraint - (all a (type) (fun ScriptContext (fun [InputConstraint a] Bool))) - ) - (abs - a - (type) - (lam - ds - ScriptContext - (lam - ds - [InputConstraint a] - [ - { [ ScriptContext_match ds ] Bool } + (termbind + (strict) + (vardecl + checkOwnInputConstraint + (all a (type) (fun ScriptContext (fun [InputConstraint a] Bool))) + ) + (abs + a + (type) + (lam + ds + ScriptContext (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { [ { InputConstraint_match a } ds ] Bool } + [InputConstraint a] + [ + { [ ScriptContext_match ds ] Bool } + (lam + ds + TxInfo (lam ds - a - (lam - ds - TxOutRef - [ - { [ TxInfo_match ds ] Bool } + ScriptPurpose + [ + { + [ { InputConstraint_match a } ds ] + Bool + } + (lam + ds + a (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxOutRef + [ + { [ TxInfo_match ds ] Bool } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ - [ - { + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxInInfo - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxInInfo [ - { + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxInInfo + } [ - TxInInfo_match - ds + { + fMonoidSum + Bool + } + fAdditiveMonoidBool ] - Bool - } + ] (lam ds - TxOutRef - (lam - ds - TxOut - [ + TxInInfo + [ + { [ - fEqTxOutRef_c + TxInInfo_match ds ] + Bool + } + (lam ds - ] - ) + TxOutRef + (lam + ds + TxOut + [ + [ + fEqTxOutRef_c + ds + ] + ds + ] + ) + ) + ] ) ] - ) + ds + ] ] - ds - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool + (all dead (type) Bool) } - (con - string - "L0" + (abs + dead + (type) + True ) ] - False + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L0" + ) + ] + False + ] + ) ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ) ) ) ) @@ -3854,274 +3952,275 @@ ) ) ) - ) + ] ) - ] - ) + ) + ] ) + ) + ] + ) + ) + ) + ) + (termbind + (strict) + (vardecl + fSemigroupFirst_c + (all a (type) (fun [(lam a (type) [Maybe a]) a] (fun [(lam a (type) [Maybe a]) a] [(lam a (type) [Maybe a]) a]))) + ) + (abs + a + (type) + (lam + ds + [(lam a (type) [Maybe a]) a] + (lam + b + [(lam a (type) [Maybe a]) a] + { + [ + [ + { + [ { Maybe_match a } ds ] + (all dead (type) [(lam a (type) [Maybe a]) a]) + } + (lam ipv a (abs dead (type) ds)) + ] + (abs dead (type) b) ] - ) + (all dead (type) dead) + } ) - ] + ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fSemigroupFirst_c - (all a (type) (fun [(lam a (type) [Maybe a]) a] (fun [(lam a (type) [Maybe a]) a] [(lam a (type) [Maybe a]) a]))) - ) - (abs - a - (type) - (lam - ds - [(lam a (type) [Maybe a]) a] - (lam - b - [(lam a (type) [Maybe a]) a] - { + (termbind + (strict) + (vardecl + fMonoidFirst + (all a (type) [Monoid [(lam a (type) [Maybe a]) a]]) + ) + (abs + a + (type) + [ [ - [ - { - [ { Maybe_match a } ds ] - (all dead (type) [(lam a (type) [Maybe a]) a]) - } - (lam ipv a (abs dead (type) ds)) - ] - (abs dead (type) b) + { CConsMonoid [(lam a (type) [Maybe a]) a] } + { fSemigroupFirst_c a } ] - (all dead (type) dead) - } + { Nothing a } + ] ) ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidFirst - (all a (type) [Monoid [(lam a (type) [Maybe a]) a]]) - ) - (abs - a - (type) - [ - [ - { CConsMonoid [(lam a (type) [Maybe a]) a] } - { fSemigroupFirst_c a } - ] - { Nothing a } - ] - ) - ) - (termbind - (strict) - (vardecl - findDatumHash - (fun (con data) (fun TxInfo [Maybe (con bytestring)])) - ) - (lam - ds - (con data) - (lam - ds - TxInfo - [ - { [ TxInfo_match ds ] [Maybe (con bytestring)] } + (termbind + (strict) + (vardecl + findDatumHash + (fun (con data) (fun TxInfo [Maybe (con bytestring)])) + ) + (lam + ds + (con data) (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxInfo + [ + { [ TxInfo_match ds ] [Maybe (con bytestring)] } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ - [ - { + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { + [ [ { - Maybe_match - [[Tuple2 (con bytestring)] (con data)] - } - [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] - } - [[Tuple2 (con bytestring)] (con data)] - } - { - fMonoidFirst - [[Tuple2 (con bytestring)] (con data)] - } - ] - (lam - x + { + Maybe_match [[Tuple2 (con bytestring)] (con data)] + } + [ [ - { - [ + [ + { { - { - Tuple2_match - (con bytestring) - } - (con data) + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] } - x - ] - [Maybe [[Tuple2 (con bytestring)] (con data)]] - } + [[Tuple2 (con bytestring)] (con data)] + } + { + fMonoidFirst + [[Tuple2 (con bytestring)] (con data)] + } + ] (lam - ds - (con bytestring) - (lam - ds - (con data) + x + [[Tuple2 (con bytestring)] (con data)] + [ { [ - [ + { { + Tuple2_match + (con bytestring) + } + (con data) + } + x + ] + [Maybe [[Tuple2 (con bytestring)] (con data)]] + } + (lam + ds + (con bytestring) + (lam + ds + (con data) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsData - ) - ds + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsData + ) + ds + ] + ds + ] ] - ds + True ] + False ] - True ] - False - ] + (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) + } + (abs + dead + (type) + [ + { + Just + [[Tuple2 (con bytestring)] (con data)] + } + x + ] + ) ] - (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) - } - (abs - dead - (type) - [ + (abs + dead + (type) { - Just + Nothing [[Tuple2 (con bytestring)] (con data)] } - x - ] - ) - ] - (abs - dead - (type) - { - Nothing - [[Tuple2 (con bytestring)] (con data)] - } - ) - ] - (all dead (type) dead) + ) + ] + (all dead (type) dead) + } + ) + ) + ] + ) + ] + ds + ] + ] + (all dead (type) [Maybe (con bytestring)]) + } + (lam + a + [[Tuple2 (con bytestring)] (con data)] + (abs + dead + (type) + [ + { + Just + (con bytestring) + } + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con data) } + a + ] + (con bytestring) + } + (lam + a + (con bytestring) + (lam + ds + (con data) + a ) ) ] - ) - ] - ds - ] + ] + ) + ) ] - (all dead (type) [Maybe (con bytestring)]) - } - (lam - a - [[Tuple2 (con bytestring)] (con data)] (abs dead (type) - [ - { - Just - (con bytestring) - } - [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - (con data) - } - a - ] - (con bytestring) - } - (lam - a - (con bytestring) - (lam - ds - (con data) - a - ) - ) - ] - ] + { + Nothing + (con bytestring) + } ) - ) - ] - (abs - dead - (type) - { - Nothing (con bytestring) - } - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ) ) ) ) @@ -4130,287 +4229,338 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - fEqCredential_c (fun Credential (fun Credential Bool)) - ) - (lam - ds - Credential - (lam - ds - Credential - [ - [ - { [ Credential_match ds ] Bool } - (lam - l - (con bytestring) - [ - [ - { [ Credential_match ds ] Bool } - (lam - r - (con bytestring) - [ [ equalsByteString l ] r ] - ) - ] - (lam ipv (con bytestring) False) - ] - ) - ] + (termbind + (strict) + (vardecl + fEqCredential_c + (fun Credential (fun Credential Bool)) + ) + (lam + ds + Credential (lam - a - (con bytestring) + ds + Credential [ [ { [ Credential_match ds ] Bool } - (lam ipv (con bytestring) False) + (lam + l + (con bytestring) + [ + [ + { [ Credential_match ds ] Bool } + (lam + r + (con bytestring) + [ [ equalsByteString l ] r ] + ) + ] + (lam ipv (con bytestring) False) + ] + ) ] (lam a (con bytestring) - [ [ equalsByteString a ] a ] - ) + [ + [ + { [ Credential_match ds ] Bool } + (lam ipv (con bytestring) False) + ] + (lam + a + (con bytestring) + [ [ equalsByteString a ] a ] + ) + ] + ) ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - equalsInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + equalsInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsInteger) x ] y ] - ] - True - ] - False - ] - ) - ) - ) - (termbind - (strict) - (vardecl - fEqStakingCredential_c - (fun StakingCredential (fun StakingCredential Bool)) - ) - (lam - ds - StakingCredential - (lam - ds - StakingCredential - [ - [ - { [ StakingCredential_match ds ] Bool } - (lam - l - Credential [ [ - { [ StakingCredential_match ds ] Bool } - (lam - r Credential [ [ fEqCredential_c l ] r ] - ) + { (builtin ifThenElse) Bool } + [ [ (builtin equalsInteger) x ] y ] ] + True + ] + False + ] + ) + ) + ) + (termbind + (strict) + (vardecl + fEqStakingCredential_c + (fun StakingCredential (fun StakingCredential Bool)) + ) + (lam + ds + StakingCredential + (lam + ds + StakingCredential + [ + [ + { [ StakingCredential_match ds ] Bool } (lam - ipv - (con integer) - (lam - ipv - (con integer) - (lam ipv (con integer) False) - ) + l + Credential + [ + [ + { [ StakingCredential_match ds ] Bool } + (lam + r + Credential + [ [ fEqCredential_c l ] r ] + ) + ] + (lam + ipv + (con integer) + (lam + ipv + (con integer) + (lam ipv (con integer) False) + ) + ) + ] ) ] - ) - ] - (lam - a - (con integer) - (lam - b - (con integer) (lam - c + a (con integer) - [ - [ - { [ StakingCredential_match ds ] Bool } - (lam ipv Credential False) - ] + (lam + b + (con integer) (lam - a + c (con integer) - (lam - b - (con integer) + [ + [ + { + [ StakingCredential_match ds ] Bool + } + (lam ipv Credential False) + ] (lam - c + a (con integer) - { - [ - [ - { + (lam + b + (con integer) + (lam + c + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin ifThenElse) - Bool - } [ [ - (builtin - equalsInteger - ) - a + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + a + ] + a + ] ] - a + True ] + False ] - True ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ - [ - { + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsInteger - ) - b + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + b + ] + b + ] ] - b + True ] + False ] - True ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ - [ equalsInteger c ] - c + (all dead (type) Bool) + } + (abs + dead + (type) + [ + [ + equalsInteger + c + ] + c + ] + ) ] - ) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (abs dead (type) False + ) + ] + (all dead (type) dead) + } + ) + ] + (abs dead (type) False) + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] + ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl fEqAddress_c (fun Address (fun Address Bool))) - (lam - ds - Address - (lam - ds - Address - [ - { [ Address_match ds ] Bool } + (termbind + (strict) + (vardecl fEqAddress_c (fun Address (fun Address Bool)) + ) + (lam + ds + Address (lam - cred - Credential - (lam - stakingCred - [Maybe StakingCredential] - [ - { [ Address_match ds ] Bool } + ds + Address + [ + { [ Address_match ds ] Bool } + (lam + cred + Credential (lam - cred - Credential - (lam - stakingCred - [Maybe StakingCredential] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ - [ - { - [ - { - Maybe_match - StakingCredential + stakingCred + [Maybe StakingCredential] + [ + { [ Address_match ds ] Bool } + (lam + cred + Credential + (lam + stakingCred + [Maybe StakingCredential] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl j Bool) + { + [ + [ + { + [ + { + Maybe_match + StakingCredential + } + stakingCred + ] + (all dead (type) Bool) } - stakingCred + (lam + a + StakingCredential + (abs + dead + (type) + { + [ + [ + { + [ + { + Maybe_match + StakingCredential + } + stakingCred + ] + (all dead (type) Bool) + } + (lam + a + StakingCredential + (abs + dead + (type) + [ + [ + fEqStakingCredential_c + a + ] + a + ] + ) + ) + ] + (abs + dead (type) False + ) + ] + (all dead (type) dead) + } + ) + ) ] - (all dead (type) Bool) - } - (lam - a - StakingCredential (abs dead (type) @@ -4428,73 +4578,105 @@ (all dead (type) Bool) } (lam - a + ipv StakingCredential (abs - dead - (type) - [ - [ - fEqStakingCredential_c - a - ] - a - ] + dead (type) False ) ) ] - (abs dead (type) False) + (abs dead (type) True) ] (all dead (type) dead) } ) - ) - ] - (abs - dead - (type) + ] + (all dead (type) dead) + } + ) + [ + [ { + [ Credential_match cred ] Bool + } + (lam + l + (con bytestring) [ [ { [ - { - Maybe_match - StakingCredential - } - stakingCred + Credential_match cred ] - (all dead (type) Bool) + Bool } (lam - ipv - StakingCredential - (abs dead (type) False) + r + (con bytestring) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + l + ] + r + ] + ] + True + ] + False + ] + ] + (all dead (type) Bool) + } + (abs dead (type) j + ) + ] + (abs + dead (type) False + ) + ] + (all dead (type) dead) + } ) ] - (abs dead (type) True) + (lam + ipv (con bytestring) False + ) ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - [ - [ - { [ Credential_match cred ] Bool } - (lam - l - (con bytestring) - [ + ) + ] + (lam + a + (con bytestring) [ - { - [ Credential_match cred ] - Bool - } + [ + { + [ Credential_match cred ] + Bool + } + (lam + ipv (con bytestring) False + ) + ] (lam - r + a (con bytestring) { [ @@ -4516,9 +4698,9 @@ (builtin equalsByteString ) - l + a ] - r + a ] ] True @@ -4536,142 +4718,112 @@ } ) ] - (lam ipv (con bytestring) False) - ] - ) - ] - (lam - a - (con bytestring) - [ - [ - { - [ Credential_match cred ] Bool - } - (lam ipv (con bytestring) False) - ] - (lam - a - (con bytestring) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - a - ] - a - ] - ] - True - ] - False - ] - ] - (all dead (type) Bool) - } - (abs dead (type) j) - ] - (abs dead (type) False) - ] - (all dead (type) dead) - } ) ] ) - ] + ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl error (all a (type) (fun (con unit) a))) - (abs a (type) (lam thunk (con unit) (error a))) - ) - (termbind - (strict) - (vardecl findOwnInput (fun ScriptContext [Maybe TxInInfo]) - ) - (lam - ds - ScriptContext - [ - { [ ScriptContext_match ds ] [Maybe TxInInfo] } + (termbind + (strict) + (vardecl error (all a (type) (fun (con unit) a))) + (abs a (type) (lam thunk (con unit) (error a))) + ) + (termbind + (strict) + (vardecl + findOwnInput (fun ScriptContext [Maybe TxInInfo]) + ) (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { [ TxInfo_match ds ] [Maybe TxInInfo] } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] + ScriptContext + [ + { [ ScriptContext_match ds ] [Maybe TxInInfo] } + (lam + ds + TxInfo + (lam + ds + ScriptPurpose + [ + { [ TxInfo_match ds ] [Maybe TxInInfo] } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - { - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ [ - { + [ [ - ScriptPurpose_match - ds + { + [ + ScriptPurpose_match + ds + ] + (all dead (type) [Maybe TxInInfo]) + } + (lam + default_arg0 + DCert + (abs + dead + (type) + { + Nothing + TxInInfo + } + ) + ) ] - (all dead (type) [Maybe TxInInfo]) - } + (lam + default_arg0 + (con bytestring) + (abs + dead + (type) + { + Nothing + TxInInfo + } + ) + ) + ] (lam default_arg0 - DCert + StakingCredential (abs dead (type) @@ -4683,119 +4835,96 @@ ) ] (lam - default_arg0 - (con bytestring) + txOutRef + TxOutRef (abs dead (type) - { - Nothing - TxInInfo - } - ) - ) - ] - (lam - default_arg0 - StakingCredential - (abs - dead - (type) - { - Nothing TxInInfo - } - ) - ) - ] - (lam - txOutRef - TxOutRef - (abs - dead - (type) - [ - [ [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) TxInInfo] - } - TxInInfo - } - { - fMonoidFirst - TxInInfo - } - ] - (lam - x - TxInInfo [ - { - [ - TxInInfo_match - x - ] - [Maybe TxInInfo] - } + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) TxInInfo] + } + TxInInfo + } + { + fMonoidFirst + TxInInfo + } + ] (lam - ds - TxOutRef - (lam - ds - TxOut + x + TxInInfo + [ { [ - [ - { + TxInInfo_match + x + ] + [Maybe TxInInfo] + } + (lam + ds + TxOutRef + (lam + ds + TxOut + { + [ [ - Bool_match - [ + { [ - fEqTxOutRef_c - ds + Bool_match + [ + [ + fEqTxOutRef_c + ds + ] + txOutRef + ] ] - txOutRef - ] + (all dead (type) [Maybe TxInInfo]) + } + (abs + dead + (type) + [ + { + Just + TxInInfo + } + x + ] + ) ] - (all dead (type) [Maybe TxInInfo]) - } - (abs - dead - (type) - [ + (abs + dead + (type) { - Just + Nothing TxInInfo } - x - ] - ) - ] - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) - ] - (all dead (type) dead) - } - ) + ) + ] + (all dead (type) dead) + } + ) + ) + ] ) ] - ) - ] - ds - ] - ) - ) - ] - (all dead (type) dead) - } + ds + ] + ) + ) + ] + (all dead (type) dead) + } + ) + ) ) ) ) @@ -4804,193 +4933,205 @@ ) ) ) - ) + ] ) - ] - ) + ) + ] ) - ] - ) - ) - (datatypebind - (datatype - (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit) - ) - ) - (termbind - (strict) - (vardecl - getContinuingOutputs (fun ScriptContext [List TxOut]) - ) - (lam - ctx - ScriptContext - { - [ - [ - { + ) + (datatypebind + (datatype + (tyvardecl Unit (type)) + + Unit_match + (vardecl Unit Unit) + ) + ) + (termbind + (strict) + (vardecl + getContinuingOutputs + (fun ScriptContext [List TxOut]) + ) + (lam + ctx + ScriptContext + { + [ [ - { Maybe_match TxInInfo } [ findOwnInput ctx ] - ] - (all dead (type) [List TxOut]) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { [ TxInInfo_match ds ] [List TxOut] } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { [ TxOut_match ds ] [List TxOut] } + { + [ + { Maybe_match TxInInfo } + [ findOwnInput ctx ] + ] + (all dead (type) [List TxOut]) + } + (lam + ds + TxInInfo + (abs + dead + (type) + [ + { [ TxInInfo_match ds ] [List TxOut] } + (lam + ds + TxOutRef (lam ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + TxOut + [ + { + [ TxOut_match ds ] [List TxOut] + } (lam ds - [Maybe (con bytestring)] - [ - { - [ ScriptContext_match ctx ] - [List TxOut] - } + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { - [ TxInfo_match ds ] - [List TxOut] - } + [Maybe (con bytestring)] + [ + { + [ + ScriptContext_match + ctx + ] + [List TxOut] + } + (lam + ds + TxInfo (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + ScriptPurpose + [ + { + [ + TxInfo_match ds + ] + [List TxOut] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { - { - foldr - TxOut - } - [List TxOut] - } - (lam - e - TxOut - (lam - xs - [List TxOut] - [ + [ + [ + { { - [ - TxOut_match - e - ] - [List TxOut] + foldr + TxOut } + [List TxOut] + } + (lam + e + TxOut (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + xs + [List TxOut] + [ + { + [ + TxOut_match + e + ] + [List TxOut] + } (lam ds - [Maybe (con bytestring)] - { - [ - [ - { + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + { + [ [ - Bool_match - [ + { [ - fEqAddress_c - ds + Bool_match + [ + [ + fEqAddress_c + ds + ] + ds + ] ] - ds - ] + (all dead (type) [List TxOut]) + } + (abs + dead + (type) + [ + [ + { + Cons + TxOut + } + e + ] + xs + ] + ) ] - (all dead (type) [List TxOut]) - } - (abs - dead - (type) - [ - [ - { - Cons - TxOut - } - e - ] + (abs + dead + (type) xs - ] - ) - ] - (abs - dead - (type) - xs - ) - ] - (all dead (type) dead) - } + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] - ) - ) + ) + ] + { + Nil + TxOut + } + ] + ds ] - { - Nil - TxOut - } - ] - ds - ] + ) + ) ) ) ) @@ -4999,595 +5140,608 @@ ) ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) + ] ) - ] - ) + ) + ] ) - ] - ) - ) - ] - (abs - dead - (type) - [ - { error [List TxOut] } - [ - { + ) + ] + (abs + dead + (type) + [ + { error [List TxOut] } [ - Unit_match - [ + { [ - { (builtin trace) Unit } - (con string "Lf") + Unit_match + [ + [ + { (builtin trace) Unit } + (con string "Lf") + ] + Unit + ] ] - Unit - ] + (con unit) + } + (con unit ()) ] - (con unit) - } - (con unit ()) - ] + ] + ) ] - ) - ] - (all dead (type) dead) - } - ) - ) - (termbind - (strict) - (vardecl - checkOwnOutputConstraint - (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun ScriptContext (fun [OutputConstraint o] Bool)))) - ) - (abs - o - (type) - (lam - dToData - [(lam a (type) (fun a (con data))) o] - (lam - ctx - ScriptContext + (all dead (type) dead) + } + ) + ) + (termbind + (strict) + (vardecl + checkOwnOutputConstraint + (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun ScriptContext (fun [OutputConstraint o] Bool)))) + ) + (abs + o + (type) (lam - ds - [OutputConstraint o] - [ - { [ ScriptContext_match ctx ] Bool } + dToData + [(lam a (type) (fun a (con data))) o] + (lam + ctx + ScriptContext (lam ds - TxInfo - (lam - ds - ScriptPurpose - [ - { - [ { OutputConstraint_match o } ds ] Bool - } + [OutputConstraint o] + [ + { [ ScriptContext_match ctx ] Bool } + (lam + ds + TxInfo (lam ds - o - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - hsh [Maybe (con bytestring)] - ) - [ - [ findDatumHash [ dToData ds ] ] - ds - ] - ) - { - [ - [ - { + ScriptPurpose + [ + { + [ { OutputConstraint_match o } ds ] + Bool + } + (lam + ds + o + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + hsh [Maybe (con bytestring)] + ) + [ [ - Bool_match - [ + findDatumHash + [ dToData ds ] + ] + ds + ] + ) + { + [ + [ + { [ + Bool_match [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxOut - } - [ - { - fMonoidSum Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxOut [ - { + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxOut + } [ - TxOut_match ds + { + fMonoidSum + Bool + } + fAdditiveMonoidBool ] - Bool - } + ] (lam ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + TxOut + [ + { + [ + TxOut_match + ds + ] + Bool + } (lam ds - [Maybe (con bytestring)] - { - [ - [ - { + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + { + [ [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) Bool) - } - (lam - svh - (con bytestring) - (abs - dead - (type) { [ - [ - { + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) Bool) + } + (lam + svh + (con bytestring) + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - checkBinRel - equalsInteger + [ + [ + checkBinRel + equalsInteger + ] + ds + ] + ds ] - ds ] - ds - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ - [ - { + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ [ { - Maybe_match - (con bytestring) + [ + { + Maybe_match + (con bytestring) + } + hsh + ] + (all dead (type) Bool) } - hsh + (lam + a + (con bytestring) + (abs + dead + (type) + [ + [ + equalsByteString + a + ] + svh + ] + ) + ) ] - (all dead (type) Bool) - } - (lam - a - (con bytestring) (abs dead (type) - [ - [ - equalsByteString - a - ] - svh - ] + False ) - ) - ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ] + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + False ) - ) - ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) + ) ) - ) + ] ) ] - ) + [ + getContinuingOutputs + ctx + ] + ] ] + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (abs + dead + (type) + [ [ - getContinuingOutputs - ctx + { + (builtin trace) Bool + } + (con string "L1") ] + False ] - ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L1") - ] - False + ) ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ) ) - ) + ] ) - ] - ) + ) + ] ) - ] + ) ) ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Ordering (type)) + (datatypebind + (datatype + (tyvardecl Ordering (type)) - Ordering_match - (vardecl EQ Ordering) - (vardecl GT Ordering) - (vardecl LT Ordering) - ) - ) - (termbind - (strict) - (vardecl - fOrdInteger_ccompare - (fun (con integer) (fun (con integer) Ordering)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - { - [ - [ - { + Ordering_match + (vardecl EQ Ordering) + (vardecl GT Ordering) + (vardecl LT Ordering) + ) + ) + (termbind + (strict) + (vardecl + fOrdInteger_ccompare + (fun (con integer) (fun (con integer) Ordering)) + ) + (lam + x + (con integer) + (lam + y + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ + [ (builtin equalsInteger) x ] y + ] + ] + True + ] + False ] - True ] - False - ] + (all dead (type) Ordering) + } + (abs dead (type) EQ) ] - (all dead (type) Ordering) - } - (abs dead (type) EQ) - ] - (abs - dead - (type) - { - [ - [ - { + (abs + dead + (type) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin - lessThanEqualsInteger - ) - x + { + (builtin ifThenElse) Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + x + ] + y + ] ] - y + True ] + False ] - True ] - False - ] + (all dead (type) Ordering) + } + (abs dead (type) LT) ] - (all dead (type) Ordering) - } - (abs dead (type) LT) - ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } + (abs dead (type) GT) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - fOrdInteger_cmax - (fun (con integer) (fun (con integer) (con integer))) - ) - (lam - x - (con integer) - (lam - y - (con integer) - { - [ - [ - { + (termbind + (strict) + (vardecl + fOrdInteger_cmax + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam + y + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin lessThanEqualsInteger) x + { (builtin ifThenElse) Bool } + [ + [ + (builtin lessThanEqualsInteger + ) + x + ] + y + ] ] - y + True ] + False ] - True ] - False - ] + (all dead (type) (con integer)) + } + (abs dead (type) y) ] - (all dead (type) (con integer)) - } - (abs dead (type) y) - ] - (abs dead (type) x) - ] - (all dead (type) dead) - } + (abs dead (type) x) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - fOrdInteger_cmin - (fun (con integer) (fun (con integer) (con integer))) - ) - (lam - x - (con integer) - (lam - y - (con integer) - { - [ - [ - { + (termbind + (strict) + (vardecl + fOrdInteger_cmin + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam + y + (con integer) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { (builtin ifThenElse) Bool } [ [ - (builtin lessThanEqualsInteger) x + { (builtin ifThenElse) Bool } + [ + [ + (builtin lessThanEqualsInteger + ) + x + ] + y + ] ] - y + True ] + False ] - True ] - False - ] + (all dead (type) (con integer)) + } + (abs dead (type) x) ] - (all dead (type) (con integer)) - } - (abs dead (type) x) - ] - (abs dead (type) y) - ] - (all dead (type) dead) - } + (abs dead (type) y) + ] + (all dead (type) dead) + } + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - greaterThanEqInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + greaterThanEqInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanInteger) x ] y ] + ] + False + ] + True ] - False - ] - True - ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - greaterThanInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + greaterThanInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanEqualsInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanEqualsInteger) x ] y ] + ] + False + ] + True ] - False - ] - True - ] + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - lessThanInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) - (lam - y - (con integer) - [ - [ + (termbind + (strict) + (vardecl + lessThanInteger + (fun (con integer) (fun (con integer) Bool)) + ) + (lam + x + (con integer) + (lam + y + (con integer) [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanInteger) x ] y ] + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanInteger) x ] y ] + ] + True + ] + False ] - True - ] - False - ] + ) + ) ) - ) - ) - (datatypebind - (datatype - (tyvardecl Ord (fun (type) (type))) - (tyvardecl a (type)) - Ord_match - (vardecl - CConsOrd - (fun [(lam a (type) (fun a (fun a Bool))) a] (fun (fun a (fun a Ordering)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a a)) (fun (fun a (fun a a)) [Ord a])))))))) + (datatypebind + (datatype + (tyvardecl Ord (fun (type) (type))) + (tyvardecl a (type)) + Ord_match + (vardecl + CConsOrd + (fun [(lam a (type) (fun a (fun a Bool))) a] (fun (fun a (fun a Ordering)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a Bool)) (fun (fun a (fun a a)) (fun (fun a (fun a a)) [Ord a])))))))) + ) + ) ) - ) - ) - (termbind - (nonstrict) - (vardecl fOrdPOSIXTime [Ord (con integer)]) - [ - [ + (termbind + (nonstrict) + (vardecl fOrdPOSIXTime [Ord (con integer)]) [ [ [ [ [ - [ { CConsOrd (con integer) } equalsInteger ] - fOrdInteger_ccompare + [ + [ + [ + { CConsOrd (con integer) } + equalsInteger + ] + fOrdInteger_ccompare + ] + lessThanInteger + ] + lessThanEqInteger ] - lessThanInteger + greaterThanInteger ] - lessThanEqInteger + greaterThanEqInteger ] - greaterThanInteger + fOrdInteger_cmax ] - greaterThanEqInteger + fOrdInteger_cmin ] - fOrdInteger_cmax - ] - fOrdInteger_cmin - ] - ) - (termbind - (strict) - (vardecl - compare - (all a (type) (fun [Ord a] (fun a (fun a Ordering)))) - ) - (abs - a - (type) - (lam - v - [Ord a] - [ - { [ { Ord_match a } v ] (fun a (fun a Ordering)) } + ) + (termbind + (strict) + (vardecl + compare + (all a (type) (fun [Ord a] (fun a (fun a Ordering)))) + ) + (abs + a + (type) (lam v - [(lam a (type) (fun a (fun a Bool))) a] - (lam - v - (fun a (fun a Ordering)) + [Ord a] + [ + { + [ { Ord_match a } v ] (fun a (fun a Ordering)) + } (lam v - (fun a (fun a Bool)) + [(lam a (type) (fun a (fun a Bool))) a] (lam v - (fun a (fun a Bool)) + (fun a (fun a Ordering)) (lam v (fun a (fun a Bool)) @@ -5596,102 +5750,231 @@ (fun a (fun a Bool)) (lam v - (fun a (fun a a)) - (lam v (fun a (fun a a)) v) + (fun a (fun a Bool)) + (lam + v + (fun a (fun a Bool)) + (lam + v + (fun a (fun a a)) + (lam v (fun a (fun a a)) v) + ) + ) ) ) ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - hull_ccompare - (all a (type) (fun [Ord a] (fun [Extended a] (fun [Extended a] Ordering)))) - ) - (abs - a - (type) - (lam - dOrd - [Ord a] - (lam - ds - [Extended a] + (termbind + (strict) + (vardecl + hull_ccompare + (all a (type) (fun [Ord a] (fun [Extended a] (fun [Extended a] Ordering)))) + ) + (abs + a + (type) (lam - ds - [Extended a] - (let - (nonrec) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam ds (all a (type) a) (error Ordering)) - ) - { - [ - [ + dOrd + [Ord a] + (lam + ds + [Extended a] + (lam + ds + [Extended a] + (let + (nonrec) + (termbind + (strict) + (vardecl + fail (fun (all a (type) a) Ordering) + ) + (lam ds (all a (type) a) (error Ordering)) + ) + { [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) + [ + [ { - [ - [ + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { [ - { + [ [ - { Extended_match a } ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ + { + [ + { Extended_match a } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -5810,154 +6093,50 @@ (all dead (type) dead) } ) + ] + (abs + dead + (type) + LT ) ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ - [ - [ - { - compare - a - } - dOrd - ] - l - ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - LT - ) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ + (all dead (type) dead) + } + ) + ) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -5972,41 +6151,43 @@ ) ] ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) ] - ) - ] - (abs - dead - (type) - { - [ - [ + (abs + dead + (type) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -6021,72 +6202,176 @@ ) ] ) + ] + (abs + dead + (type) + EQ ) ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ] + (abs dead (type) GT) + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - EQ - ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - (abs dead (type) GT) - ] - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -6205,150 +6490,47 @@ (all dead (type) dead) } ) + ] + (abs + dead (type) LT ) ] - (abs - dead - (type) + (all dead (type) dead) + } + ) + ) + { + [ + [ + [ { [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ - [ - [ - { - compare - a - } - dOrd - ] - l - ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] + fail (abs - dead + e (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (error e + ) ) ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } - ) - ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -6361,41 +6543,43 @@ ) ] ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) ] - ) - ] - (abs - dead - (type) - { - [ - [ + (abs + dead + (type) + { [ - { + [ [ { - Extended_match - a + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) } - ds + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ) ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -6410,137 +6594,247 @@ ) ] ) + ] + (abs + dead + (type) + EQ ) ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (abs - dead (type) EQ - ) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ + { Extended_match a } ds ] - (all dead (type) dead) + (all dead (type) Ordering) } - ) - ) + (lam + default_arg0 + a + (abs dead (type) LT) + ) + ] + (abs dead (type) EQ) + ] + (abs dead (type) LT) ] (all dead (type) dead) } ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs dead (type) LT) - ) - ] - (abs dead (type) EQ) - ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { [ - { + [ [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) { [ - [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { [ - { + [ [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) { [ - [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { [ - { + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { [ { Extended_match @@ -6631,272 +6925,60 @@ (all dead (type) dead) } ) + ] + (abs + dead (type) LT ) ] - (abs - dead - (type) + (all dead (type) dead) + } + ) + ) + { + [ + [ + [ { [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ - [ - [ - { - compare - a - } - dOrd - ] - l - ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] + fail (abs - dead + e (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (error e + ) ) ] - (abs - dead - (type) - GT - ) - ] - (all dead (type) dead) - } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e) + ) + ] ) ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (abs - dead (type) EQ - ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - (abs dead (type) GT) - ] - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) Ordering) - ) - (lam - ds - (all a (type) a) - { - [ - [ - [ - { - [ - { - Extended_match a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a (abs dead (type) @@ -6915,79 +6997,21 @@ (all dead (type) Ordering) } (lam - l + default_arg0 a (abs dead (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) - [ - [ - [ - { - compare - a - } - dOrd - ] - l - ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + [ + fail + (abs + e + (type) + (error + e ) - ] - (all dead (type) dead) - } + ) + ] ) ) ] @@ -7009,745 +7033,1072 @@ (abs dead (type) - GT + EQ ) ] (all dead (type) dead) } ) - ) - ] - (abs - dead - (type) - { + ] + (all dead (type) dead) + } + ) + ) + ) + ] + (abs dead (type) GT) + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) Ordering) + ) + (lam + ds + (all a (type) a) + { + [ + [ [ - [ + { [ { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - l + Extended_match a - (abs - dead - (type) - { + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { + [ + [ [ - [ + { [ { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - r + Extended_match a - (abs - dead - (type) + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ [ [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) [ - { - compare - a - } - dOrd + fail + (abs + e + (type) + (error + e + ) + ) ] - l + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds ] + (all dead (type) Ordering) + } + (lam r + a + (abs + dead + (type) + [ + [ + [ + { + compare + a + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) ] ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] ) ] - (abs - dead - (type) + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (abs + dead + (type) + GT + ) + ] + (all dead (type) dead) + } + ) + ] + (abs dead (type) LT) + ] + (all dead (type) dead) + } + ) + ) + { + [ + [ + [ + { + [ + { + Extended_match a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e (type) (error e) + ) + ] + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + a + } + ds + ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error e) + ) + ] + ) + ] + (abs dead (type) EQ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + fOrdUpperBound0_c + (all a (type) (fun [Ord a] (fun [UpperBound a] (fun [UpperBound a] Bool)))) + ) + (abs + a + (type) + (lam + dOrd + [Ord a] + (lam + x + [UpperBound a] + (lam + y + [UpperBound a] + [ + { [ { UpperBound_match a } x ] Bool } + (lam + v + [Extended a] + (lam + in + Bool + [ + { [ { UpperBound_match a } y ] Bool } + (lam + v + [Extended a] + (lam + in + Bool + { + [ + [ + [ + { + [ + Ordering_match + [ + [ + [ + { + hull_ccompare + a + } + dOrd + ] + v + ] + v + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match in + ] + (all dead (type) Bool) + } + (abs + dead (type) in + ) + ] + (abs + dead (type) True + ) + ] + (all dead (type) dead) + } + ) + ] + (abs dead (type) False) + ] + (abs dead (type) True) + ] + (all dead (type) dead) + } + ) + ) + ] + ) + ) + ] + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + contains + (all a (type) (fun [Ord a] (fun [Interval a] (fun [Interval a] Bool)))) + ) + (abs + a + (type) + (lam + dOrd + [Ord a] + (lam + ds + [Interval a] + (lam + ds + [Interval a] + [ + { [ { Interval_match a } ds ] Bool } + (lam + l + [LowerBound a] + (lam + h + [UpperBound a] + [ + { [ { Interval_match a } ds ] Bool } + (lam + l + [LowerBound a] + (lam + h + [UpperBound a] + [ + { + [ { LowerBound_match a } l ] + Bool + } + (lam + v + [Extended a] + (lam + in + Bool + [ + { + [ + { LowerBound_match a } + l + ] + Bool + } + (lam + v + [Extended a] + (lam + in + Bool + { + [ + [ + [ + { + [ + Ordering_match + [ + [ + [ + { + hull_ccompare + a + } + dOrd + ] + v + ] + v + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + in + ] + (all dead (type) Bool) + } + (abs + dead + (type) + { [ - fail + [ + { + [ + Bool_match + in + ] + (all dead (type) Bool) + } + (abs + dead + (type) + [ + [ + [ + { + fOrdUpperBound0_c + a + } + dOrd + ] + h + ] + h + ] + ) + ] (abs - e + dead (type) - (error - e - ) + False ) ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (all dead (type) dead) + } ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + [ + [ + [ + { + fOrdUpperBound0_c + a + } + dOrd + ] + h + ] + h + ] + ) + ] + (all dead (type) dead) + } ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] + False ) ] (abs - dead (type) GT + dead + (type) + [ + [ + [ + { + fOrdUpperBound0_c + a + } + dOrd + ] + h + ] + h + ] ) ] (all dead (type) dead) } ) - ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ) - { - [ - [ - [ - { - [ - { Extended_match a } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e (type) (error e) - ) - ] - ) ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - a - } - ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (abs dead (type) EQ) - ] - (all dead (type) dead) - } ) - ] - (all dead (type) dead) - } + ) + ] ) ) ] - (all dead (type) dead) - } + ) ) ] - (all dead (type) dead) - } + ) ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - fOrdUpperBound0_c - (all a (type) (fun [Ord a] (fun [UpperBound a] (fun [UpperBound a] Bool)))) - ) - (abs - a - (type) - (lam - dOrd - [Ord a] + (termbind + (strict) + (vardecl + equalsData (fun (con data) (fun (con data) Bool)) + ) (lam - x - [UpperBound a] + d + (con data) (lam - y - [UpperBound a] + d + (con data) [ - { [ { UpperBound_match a } x ] Bool } - (lam - v - [Extended a] - (lam - in - Bool - [ - { [ { UpperBound_match a } y ] Bool } - (lam - v - [Extended a] - (lam - in - Bool - { - [ - [ - [ - { - [ - Ordering_match - [ - [ - [ - { hull_ccompare a } - dOrd - ] - v - ] - v - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ - [ - { - [ Bool_match in ] - (all dead (type) Bool) - } - (abs dead (type) in) - ] - (abs dead (type) True) - ] - (all dead (type) dead) - } - ) - ] - (abs dead (type) False) - ] - (abs dead (type) True) - ] - (all dead (type) dead) - } - ) - ) - ] - ) - ) + [ + [ + { (builtin ifThenElse) Bool } + [ [ (builtin equalsData) d ] d ] + ] + True + ] + False ] ) ) ) - ) - ) - (termbind - (strict) - (vardecl - contains - (all a (type) (fun [Ord a] (fun [Interval a] (fun [Interval a] Bool)))) - ) - (abs - a - (type) - (lam - dOrd - [Ord a] + (termbind + (strict) + (vardecl + findDatum + (fun (con bytestring) (fun TxInfo [Maybe (con data)])) + ) (lam - ds - [Interval a] + dsh + (con bytestring) (lam ds - [Interval a] + TxInfo [ - { [ { Interval_match a } ds ] Bool } + { [ TxInfo_match ds ] [Maybe (con data)] } (lam - l - [LowerBound a] + ds + [List TxInInfo] (lam - h - [UpperBound a] - [ - { [ { Interval_match a } ds ] Bool } + ds + [List TxOut] + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - l - [LowerBound a] - (lam - h - [UpperBound a] - [ - { - [ { LowerBound_match a } l ] Bool - } + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [List DCert] + (lam + ds + [List [[Tuple2 StakingCredential] (con integer)]] (lam - v - [Extended a] + ds + [Interval (con integer)] (lam - in - Bool - [ - { - [ { LowerBound_match a } l ] - Bool - } + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] (lam - v - [Extended a] - (lam - in - Bool - { + ds + (con bytestring) + { + [ [ - [ + { [ { + Maybe_match + [[Tuple2 (con bytestring)] (con data)] + } + [ [ - Ordering_match [ - [ - [ - { - hull_ccompare - a - } - dOrd - ] - v - ] - v + { + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] + } + [[Tuple2 (con bytestring)] (con data)] + } + { + fMonoidFirst + [[Tuple2 (con bytestring)] (con data)] + } ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ + (lam + x + [[Tuple2 (con bytestring)] (con data)] [ { [ - Bool_match - in + { + { + Tuple2_match + (con bytestring) + } + (con data) + } + x ] - (all dead (type) Bool) + [Maybe [[Tuple2 (con bytestring)] (con data)]] } - (abs - dead - (type) - { - [ + (lam + dsh + (con bytestring) + (lam + ds + (con data) + { [ - { - [ - Bool_match - in - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ + [ + { [ + Bool_match [ - { - fOrdUpperBound0_c - a - } - dOrd + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + dsh + ] + dsh + ] + ] + True + ] + False ] - h ] - h - ] + (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) + } + (abs + dead + (type) + [ + { + Just + [[Tuple2 (con bytestring)] (con data)] + } + x + ] + ) + ] + (abs + dead + (type) + { + Nothing + [[Tuple2 (con bytestring)] (con data)] + } ) ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (abs - dead - (type) - [ - [ - [ - { - fOrdUpperBound0_c - a - } - dOrd - ] - h - ] - h - ] - ) - ] - (all dead (type) dead) - } - ) + ) + ] + ds + ] ] + (all dead (type) [Maybe (con data)]) + } + (lam + a + [[Tuple2 (con bytestring)] (con data)] (abs - dead (type) False - ) - ] - (abs - dead - (type) - [ + dead + (type) [ + { + Just + (con data) + } [ { - fOrdUpperBound0_c - a + [ + { + { + Tuple2_match + (con bytestring) + } + (con data) + } + a + ] + (con data) } - dOrd + (lam + ds + (con bytestring) + (lam + b + (con data) + b + ) + ) ] - h ] - h - ] + ) ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + { Nothing (con data) } + ) + ] + (all dead (type) dead) + } ) - ] + ) ) ) - ] + ) ) ) - ] + ) ) ) ] ) ) ) - ) - ) - (termbind - (strict) - (vardecl equalsData (fun (con data) (fun (con data) Bool)) - ) - (lam - d - (con data) - (lam - d - (con data) - [ - [ - [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsData) d ] d ] - ] - True - ] - False - ] - ) - ) - ) - (termbind - (strict) - (vardecl - findDatum - (fun (con bytestring) (fun TxInfo [Maybe (con data)])) - ) - (lam - dsh - (con bytestring) - (lam - ds - TxInfo - [ - { [ TxInfo_match ds ] [Maybe (con data)] } + (termbind + (strict) + (vardecl + findTxInByTxOutRef + (fun TxOutRef (fun TxInfo [Maybe TxInInfo])) + ) + (lam + outRef + TxOutRef (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxInfo + [ + { [ TxInfo_match ds ] [Maybe TxInInfo] } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam - ds - (con bytestring) - { - [ + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { + [ [ { - Maybe_match - [[Tuple2 (con bytestring)] (con data)] + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) TxInInfo] + } + TxInInfo + } + { + fMonoidFirst + TxInInfo } + ] + (lam + x + TxInInfo [ - [ + { [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) [[Tuple2 (con bytestring)] (con data)]] - } - [[Tuple2 (con bytestring)] (con data)] - } - { - fMonoidFirst - [[Tuple2 (con bytestring)] (con data)] - } + TxInInfo_match x ] + [Maybe TxInInfo] + } + (lam + ds + TxOutRef (lam - x - [[Tuple2 (con bytestring)] (con data)] - [ - { + ds + TxOut + { + [ [ - { - { - Tuple2_match - (con bytestring) - } - (con data) - } - x - ] - [Maybe [[Tuple2 (con bytestring)] (con data)]] - } - (lam - dsh - (con bytestring) - (lam - ds - (con data) { [ + Bool_match [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - dsh - ] - dsh - ] - ] - True - ] - False - ] - ] - (all dead (type) [Maybe [[Tuple2 (con bytestring)] (con data)]]) - } - (abs - dead - (type) - [ - { - Just - [[Tuple2 (con bytestring)] (con data)] - } - x - ] - ) + [ + fEqTxOutRef_c + ds + ] + outRef ] - (abs - dead - (type) - { - Nothing - [[Tuple2 (con bytestring)] (con data)] - } - ) ] - (all dead (type) dead) + (all dead (type) [Maybe TxInInfo]) + } + (abs + dead + (type) + [ + { + Just + TxInInfo + } + x + ] + ) + ] + (abs + dead + (type) + { + Nothing + TxInInfo } ) - ) - ] - ) - ] - ds - ] - ] - (all dead (type) [Maybe (con data)]) - } - (lam - a - [[Tuple2 (con bytestring)] (con data)] - (abs - dead - (type) - [ - { Just (con data) } - [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - (con data) - } - a - ] - (con data) - } - (lam - ds - (con bytestring) - (lam - b (con data) b - ) + ] + (all dead (type) dead) + } ) - ] + ) ] ) - ) + ] + ds ] - (abs - dead - (type) - { Nothing (con data) } - ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) @@ -7756,128 +8107,179 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - findTxInByTxOutRef - (fun TxOutRef (fun TxInfo [Maybe TxInInfo])) - ) - (lam - outRef - TxOutRef - (lam - ds - TxInfo - [ - { [ TxInfo_match ds ] [Maybe TxInInfo] } - (lam - ds - [List TxInInfo] + (termbind + (strict) + (vardecl + snd + (all a (type) (all b (type) (fun [[Tuple2 a] b] b))) + ) + (abs + a + (type) + (abs + b + (type) (lam ds - [List TxOut] + [[Tuple2 a] b] + [ + { [ { { Tuple2_match a } b } ds ] b } + (lam ds a (lam b b b)) + ] + ) + ) + ) + ) + (termbind + (strict) + (vardecl + txSignedBy (fun TxInfo (fun (con bytestring) Bool)) + ) + (lam + ds + TxInfo + (lam + k + (con bytestring) + [ + { [ TxInfo_match ds ] Bool } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) TxInInfo] - } - TxInInfo - } - { fMonoidFirst TxInInfo } - ] - (lam - x - TxInInfo + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ - { - [ TxInInfo_match x ] - [Maybe TxInInfo] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - { + [ + { + [ + { + Maybe_match + (con bytestring) + } [ [ - { - [ - Bool_match + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) [Maybe a]) (con bytestring)] + } + (con bytestring) + } + { + fMonoidFirst + (con bytestring) + } + ] + (lam + x + (con bytestring) + { [ [ - fEqTxOutRef_c - ds + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + k + ] + x + ] + ] + True + ] + False + ] + ] + (all dead (type) [Maybe (con bytestring)]) + } + (abs + dead + (type) + [ + { + Just + (con bytestring) + } + x + ] + ) ] - outRef + (abs + dead + (type) + { + Nothing + (con bytestring) + } + ) ] - ] - (all dead (type) [Maybe TxInInfo]) - } - (abs - dead - (type) - [ - { - Just - TxInInfo - } - x - ] + (all dead (type) dead) + } ) ] - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) + ds ] - (all dead (type) dead) - } + ] + (all dead (type) Bool) + } + (lam + ds + (con bytestring) + (abs + dead (type) True + ) ) - ) + ] + (abs dead (type) False) ] - ) - ] - ds - ] + (all dead (type) dead) + } + ) + ) ) ) ) @@ -7886,234 +8288,160 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (strict) - (vardecl - snd (all a (type) (all b (type) (fun [[Tuple2 a] b] b))) - ) - (abs - a - (type) - (abs - b - (type) + (termbind + (strict) + (vardecl + valueOf + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun (con bytestring) (fun (con bytestring) (con integer)))) + ) (lam ds - [[Tuple2 a] b] - [ - { [ { { Tuple2_match a } b } ds ] b } - (lam ds a (lam b b b)) - ] - ) - ) - ) - ) - (termbind - (strict) - (vardecl - txSignedBy (fun TxInfo (fun (con bytestring) Bool)) - ) - (lam - ds - TxInfo - (lam - k - (con bytestring) - [ - { [ TxInfo_match ds ] Bool } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - ds - [List TxInInfo] + cur + (con bytestring) (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + tn + (con bytestring) + (let + (nonrec) + (termbind + (strict) + (vardecl + j + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] (con integer)) + ) (lam - ds - [List DCert] - (lam - ds - [List [[Tuple2 StakingCredential] (con integer)]] - (lam - ds - [Interval (con integer)] + i + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun [List [[Tuple2 (con bytestring)] (con integer)]] (con integer)) + ) (lam ds - [List (con bytestring)] - (lam - ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List [[Tuple2 (con bytestring)] (con integer)]] + [ + [ + { + [ + { + Nil_match + [[Tuple2 (con bytestring)] (con integer)] + } + ds + ] + (con integer) + } + (con integer 0) + ] (lam ds - (con bytestring) - { + [[Tuple2 (con bytestring)] (con integer)] + (lam + xs + [List [[Tuple2 (con bytestring)] (con integer)]] [ - [ - { - [ + { + [ + { { - Maybe_match + Tuple2_match (con bytestring) } + (con integer) + } + ds + ] + (con integer) + } + (lam + c + (con bytestring) + (lam + i + (con integer) + { [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) [Maybe a]) (con bytestring)] - } - (con bytestring) - } - { - fMonoidFirst - (con bytestring) - } - ] - (lam - x - (con bytestring) - { + { + [ + Bool_match [ [ - { + [ + { + (builtin + ifThenElse + ) + Bool + } [ - Bool_match [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - k - ] - x - ] - ] - True - ] - False + (builtin + equalsByteString + ) + c ] + tn ] - (all dead (type) [Maybe (con bytestring)]) - } - (abs - dead - (type) - [ - { - Just - (con bytestring) - } - x - ] - ) - ] - (abs - dead - (type) - { - Nothing - (con bytestring) - } - ) + ] + True + ] + False ] - (all dead (type) dead) - } + ] + (all dead (type) (con integer)) + } + (abs dead (type) i ) ] - ds + (abs + dead + (type) + [ go xs ] + ) ] - ] - (all dead (type) Bool) - } - (lam - ds - (con bytestring) - (abs dead (type) True) + (all dead (type) dead) + } ) - ] - (abs dead (type) False) + ) ] - (all dead (type) dead) - } + ) ) - ) + ] ) ) + [ go i ] ) ) ) - ) - ) - ) - ] - ) - ) - ) - (termbind - (strict) - (vardecl - valueOf - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun (con bytestring) (fun (con bytestring) (con integer)))) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - cur - (con bytestring) - (lam - tn - (con bytestring) - (let - (nonrec) - (termbind - (strict) - (vardecl - j - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] (con integer)) - ) - (lam - i - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] (let (rec) (termbind (strict) (vardecl go - (fun [List [[Tuple2 (con bytestring)] (con integer)]] (con integer)) + (fun [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (con integer)) ) (lam ds - [List [[Tuple2 (con bytestring)] (con integer)]] + [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [ [ { [ { Nil_match - [[Tuple2 (con bytestring)] (con integer)] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } ds ] @@ -8123,10 +8451,10 @@ ] (lam ds - [[Tuple2 (con bytestring)] (con integer)] + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam xs - [List [[Tuple2 (con bytestring)] (con integer)]] + [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] [ { [ @@ -8135,7 +8463,7 @@ Tuple2_match (con bytestring) } - (con integer) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } ds ] @@ -8146,7 +8474,7 @@ (con bytestring) (lam i - (con integer) + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] { [ [ @@ -8169,7 +8497,7 @@ ) c ] - tn + cur ] ] True @@ -8179,7 +8507,9 @@ ] (all dead (type) (con integer)) } - (abs dead (type) i) + (abs + dead (type) [ j i ] + ) ] (abs dead (type) [ go xs ] @@ -8195,352 +8525,258 @@ ] ) ) - [ go i ] + [ go ds ] ) ) ) - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] (con integer)) - ) - (lam - ds - [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - [ - [ - { - [ - { - Nil_match - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ds - ] - (con integer) - } - (con integer 0) - ] + ) + ) + ) + (termbind + (strict) + (vardecl + foldr + (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) + ) + (abs + a + (type) + (abs + b + (type) + (lam + k + (fun a (fun b b)) + (lam + z + b + (let + (rec) + (termbind + (strict) + (vardecl go (fun [List a] b)) (lam ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - xs - [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [List a] + { [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - (con integer) - } + [ + { + [ { Nil_match a } ds ] + (all dead (type) b) + } + (abs dead (type) z) + ] (lam - c - (con bytestring) + y + a (lam - i - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - c - ] - cur - ] - ] - True - ] - False - ] - ] - (all dead (type) (con integer)) - } - (abs dead (type) [ j i ]) - ] - (abs dead (type) [ go xs ]) - ] - (all dead (type) dead) - } + ys + [List a] + (abs + dead + (type) + [ [ k y ] [ go ys ] ] + ) ) ) ] - ) + (all dead (type) dead) + } ) - ] + ) + go ) ) - [ go ds ] ) ) ) ) - ) - ) - (termbind - (strict) - (vardecl - foldr - (all a (type) (all b (type) (fun (fun a (fun b b)) (fun b (fun [List a] b))))) - ) - (abs - a - (type) - (abs - b - (type) - (lam - k - (fun a (fun b b)) - (lam - z - b - (let - (rec) - (termbind - (strict) - (vardecl go (fun [List a] b)) - (lam - ds - [List a] - { - [ - [ - { - [ { Nil_match a } ds ] - (all dead (type) b) - } - (abs dead (type) z) - ] - (lam - y - a - (lam - ys - [List a] - (abs - dead (type) [ [ k y ] [ go ys ] ] - ) - ) - ) - ] - (all dead (type) dead) - } - ) - ) - go - ) - ) + (termbind + (strict) + (vardecl + pubKeyOutputsAt + (fun (con bytestring) (fun TxInfo [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]])) ) - ) - ) - ) - (termbind - (strict) - (vardecl - pubKeyOutputsAt - (fun (con bytestring) (fun TxInfo [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]])) - ) - (lam - pk - (con bytestring) - (lam - p - TxInfo - [ - { - [ TxInfo_match p ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } + (lam + pk + (con bytestring) (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] + p + TxInfo + [ + { + [ TxInfo_match p ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { - { foldr TxOut } - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - (lam - e - TxOut - (lam - xs - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - [ - { - [ TxOut_match e ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + [ + { + { foldr TxOut } + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + (lam + e + TxOut + (lam + xs + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + [ + { + [ + TxOut_match + e + ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } (lam ds - [Maybe (con bytestring)] - [ - { - [ - Address_match - ds - ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - Credential - (lam - ds - [Maybe StakingCredential] - [ + [Maybe (con bytestring)] + [ + { [ - { + Address_match + ds + ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + (lam + ds + Credential + (lam + ds + [Maybe StakingCredential] + [ [ - Credential_match - ds - ] - [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - } - (lam - pk - (con bytestring) - { - [ + { [ - { + Credential_match + ds + ] + [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + } + (lam + pk + (con bytestring) + { + [ [ - Bool_match - [ + { [ + Bool_match [ - { - (builtin - ifThenElse - ) - Bool - } [ [ - (builtin - equalsByteString - ) - pk + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + pk + ] + pk + ] ] - pk + True ] + False ] - True ] - False - ] + (all dead (type) [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) + } + (abs + dead + (type) + [ + [ + { + Cons + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ds + ] + xs + ] + ) ] - (all dead (type) [List [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) - } - (abs - dead - (type) - [ - [ - { - Cons - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ds - ] + (abs + dead + (type) xs - ] - ) - ] - (abs - dead - (type) - xs - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - ipv - (con bytestring) - xs + ) + ] + (all dead (type) dead) + } + ) + ] + (lam + ipv + (con bytestring) + xs + ) + ] ) - ] - ) + ) + ] ) - ] + ) ) - ) + ] ) - ] - ) - ) + ) + ] + { + Nil + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ] + ds ] - { - Nil - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - ds - ] + ) + ) ) ) ) @@ -8549,160 +8785,160 @@ ) ) ) - ) + ] ) - ] + ) ) - ) - ) - (termbind - (nonstrict) - (vardecl - fMonoidValue_c - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - [ unionWith addInteger ] - ) - (termbind - (strict) - (vardecl - valuePaidTo - (fun TxInfo (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - ptx - TxInfo - (lam - pkh - (con bytestring) - [ - [ + (termbind + (nonstrict) + (vardecl + fMonoidValue_c + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + [ unionWith addInteger ] + ) + (termbind + (strict) + (vardecl + valuePaidTo + (fun TxInfo (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + (lam + ptx + TxInfo + (lam + pkh + (con bytestring) [ - { + [ + [ + { + { + foldr + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + fMonoidValue_c + ] { - foldr - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - fMonoidValue_c + ] + [ [ pubKeyOutputsAt pkh ] ptx ] ] + ) + ) + ) + (termbind + (nonstrict) + (vardecl + fMonoidValue + [Monoid [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] + ) + [ + [ { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + CConsMonoid + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } + fMonoidValue_c ] - [ [ pubKeyOutputsAt pkh ] ptx ] - ] - ) - ) - ) - (termbind - (nonstrict) - (vardecl - fMonoidValue - [Monoid [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]] - ) - [ - [ - { - CConsMonoid - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - fMonoidValue_c - ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ] - ) - (termbind - (strict) - (vardecl - txOutValue - (fun TxOut [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) - ) - (lam - ds - TxOut - [ - { - [ TxOut_match ds ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam ds [Maybe (con bytestring)] ds) - ) - ) - ] - ) - ) - (termbind - (strict) - (vardecl - valueProduced - (fun TxInfo [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) - ) - (lam - x - TxInfo - [ - { - [ TxInfo_match x ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ] + ) + (termbind + (strict) + (vardecl + txOutValue + (fun TxOut [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) + ) (lam ds - [List TxInInfo] - (lam - ds - [List TxOut] + TxOut + [ + { + [ TxOut_match ds ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Address (lam ds [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam ds [Maybe (con bytestring)] ds) + ) + ) + ] + ) + ) + (termbind + (strict) + (vardecl + valueProduced + (fun TxInfo [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) + ) + (lam + x + TxInfo + [ + { + [ TxInfo_match x ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + [List TxInInfo] + (lam + ds + [List TxOut] (lam ds - [List DCert] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [List DCert] (lam ds - [List (con bytestring)] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [Interval (con integer)] (lam ds - (con bytestring) - [ - [ + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) [ - { - { - fFoldableNil_cfoldMap - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - TxOut - } - fMonoidValue + [ + [ + { + { + fFoldableNil_cfoldMap + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + TxOut + } + fMonoidValue + ] + txOutValue + ] + ds ] - txOutValue - ] - ds - ] + ) + ) ) ) ) @@ -8711,34 +8947,34 @@ ) ) ) - ) + ] ) - ] - ) - ) - (termbind - (strict) - (vardecl - checkTxConstraint - (fun ScriptContext (fun TxConstraint Bool)) - ) - (lam - ds - ScriptContext - [ - { [ ScriptContext_match ds ] (fun TxConstraint Bool) } - (lam - ds - TxInfo + ) + (let + (rec) + (termbind + (strict) + (vardecl + checkTxConstraint + (fun ScriptContext (fun TxConstraint Bool)) + ) (lam - ds - ScriptPurpose - (lam - ds - TxConstraint - [ - [ - [ + ctx + ScriptContext + [ + { + [ ScriptContext_match ctx ] + (fun TxConstraint Bool) + } + (lam + ds + TxInfo + (lam + ds + ScriptPurpose + (lam + ds + TxConstraint [ [ [ @@ -8747,583 +8983,599 @@ [ [ [ - { + [ [ - TxConstraint_match ds - ] - Bool - } - (lam - pubKey - (con bytestring) - { [ [ { [ - Bool_match + TxConstraint_match + ds + ] + Bool + } + (lam + pubKey + (con bytestring) + { [ [ - txSignedBy - ds + { + [ + Bool_match + [ + [ + txSignedBy + ds + ] + pubKey + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - pubKey + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L4" + ) + ] + False + ] + ) ] - ] - (all dead (type) Bool) - } - (abs - dead (type) True + (all dead (type) dead) + } ) ] - (abs - dead - (type) - [ - [ - { - (builtin - trace + (lam + dvh + (con bytestring) + (lam + dv + (con data) + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + j Bool ) - Bool - } - (con - string "L4" - ) - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - dvh - (con bytestring) - (lam - dv - (con data) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - [ - [ - { - (builtin trace - ) - Bool - } - (con string "Lc" - ) - ] - False - ] - ) - { - [ - [ - { - [ - { - Maybe_match - (con data) - } [ [ - findDatum - dvh + { + (builtin + trace + ) + Bool + } + (con + string + "Lc" + ) ] - ds + False ] - ] - (all dead (type) Bool) - } - (lam - a - (con data) - (abs - dead - (type) - { + ) + { + [ [ - [ - { + { + [ + { + Maybe_match + (con data) + } [ - Bool_match [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } + findDatum + dvh + ] + ds + ] + ] + (all dead (type) Bool) + } + (lam + a + (con data) + (abs + dead + (type) + { + [ + [ + { [ + Bool_match [ - (builtin - equalsData - ) - a + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsData + ) + a + ] + dv + ] + ] + True + ] + False ] - dv ] - ] - True + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - False + (abs + dead + (type) + j + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - j ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + j + ) + ] + (all dead (type) dead) + } ) - ] - (abs dead (type) j ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - (lam - dv - (con data) - [ - { - [ TxInfo_match ds ] Bool - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] + ) + ] (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + dv + (con data) + [ + { + [ + TxInfo_match + ds + ] + Bool + } (lam ds - [List DCert] + [List TxInInfo] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [List TxOut] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List DCert] (lam ds - (con bytestring) - { - [ - [ - { - [ - Bool_match + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - (con data) - } + { [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + (con data) + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + [ + equalsData + dv + ] + ] + [ + [ + { + { + fFunctorNil_cfmap + [[Tuple2 (con bytestring)] (con data)] + } + (con data) + } + { + { + snd + (con bytestring) + } + (con data) + } + ] + ds + ] + ] ] - ] - [ - equalsData - dv - ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - [ + (abs + dead + (type) [ - { - { - fFunctorNil_cfmap - [[Tuple2 (con bytestring)] (con data)] - } - (con data) - } - { + [ { - snd - (con bytestring) + (builtin + trace + ) + Bool } - (con data) - } + (con + string + "L2" + ) + ] + False ] - ds - ] + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L2" - ) - ] - False - ] ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) ) ) ) - ) + ] ) - ) - ) - ] - ) - ] - (lam - mps - (con bytestring) - (lam - ds - (con data) - (lam - tn - (con bytestring) - (lam - v - (con integer) - { - [ - [ - { - [ - Bool_match + ] + (lam + mps + (con bytestring) + (lam + ds + (con data) + (lam + tn + (con bytestring) + (lam + v + (con integer) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { [ + Bool_match [ - (builtin - equalsInteger - ) [ [ + { + (builtin + ifThenElse + ) + Bool + } [ - valueOf [ - { + (builtin + equalsInteger + ) + [ [ - TxInfo_match - ds - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + valueOf + [ + { + [ + TxInfo_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - [List DCert] + [List TxInInfo] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [List TxOut] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List DCert] (lam ds - (con bytestring) - ds + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + ds + ) + ) + ) + ) ) ) ) ) ) ) - ) - ) - ) - ) + ] + ] + mps + ] + tn + ] ] + v ] - mps ] - tn + True ] + False ] - v ] - ] - True + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) ] - False + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L9" + ) + ] + False + ] + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ] + (lam + vlh + (con bytestring) + (lam + dv + (con data) + (lam + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + hsh + [Maybe (con bytestring)] + ) + [ + [ + findDatumHash + dv ] + ds ] - (all dead (type) Bool) - } - (abs - dead (type) True ) - ] - (abs - dead - (type) - [ + (termbind + (nonstrict) + (vardecl + addr + Credential + ) + [ + ScriptCredential + vlh + ] + ) + (termbind + (nonstrict) + (vardecl + addr Address + ) [ + [ + Address addr + ] { - (builtin - trace - ) - Bool + Nothing + StakingCredential } - (con - string "L9" - ) ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ) - ] - (lam - vlh - (con bytestring) - (lam - dv - (con data) - (lam - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - hsh - [Maybe (con bytestring)] - ) - [ - [ findDatumHash dv ] - ds - ] - ) - (termbind - (nonstrict) - (vardecl addr Credential - ) - [ ScriptCredential vlh ] - ) - (termbind - (nonstrict) - (vardecl addr Address) - [ - [ Address addr ] - { - Nothing - StakingCredential - } - ] - ) - [ - { - [ TxInfo_match ds ] - Bool - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ) + [ + { + [ + TxInfo_match + ds + ] + Bool + } (lam ds - [List DCert] + [List TxInInfo] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [List TxOut] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List DCert] (lam ds - (con bytestring) - { - [ - [ - { - [ - Bool_match + [List [[Tuple2 StakingCredential] (con integer)]] + (lam + ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + { [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxOut - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxOut + { [ - { + Bool_match + [ [ - TxOut_match - ds - ] - Bool - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxOut + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] (lam ds - [Maybe (con bytestring)] - { - [ + TxOut + [ + { [ - { - [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) Bool) - } + TxOut_match + ds + ] + Bool + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam - svh - (con bytestring) - (abs - dead - (type) - { + ds + [Maybe (con bytestring)] + { + [ [ - [ - { - [ - Bool_match - [ - [ - [ - checkBinRel - equalsInteger - ] - ds - ] - vl - ] - ] - (all dead (type) Bool) - } + { + [ + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) Bool) + } + (lam + svh + (con bytestring) (abs dead (type) @@ -9332,73 +9584,105 @@ [ { [ - { - Maybe_match - (con bytestring) - } - hsh + Bool_match + [ + [ + [ + checkBinRel + equalsInteger + ] + ds + ] + vl + ] ] (all dead (type) Bool) } - (lam - a - (con bytestring) - (abs - dead - (type) - { + (abs + dead + (type) + { + [ [ - [ - { - [ - Bool_match + { + [ + { + Maybe_match + (con bytestring) + } + hsh + ] + (all dead (type) Bool) + } + (lam + a + (con bytestring) + (abs + dead + (type) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + a + ] + svh + ] + ] + True + ] + False + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) [ [ - (builtin - equalsByteString - ) - a + fEqAddress_c + ds ] - svh + addr ] - ] - True + ) ] - False - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ - [ - fEqAddress_c - ds + (abs + dead + (type) + False + ) ] - addr - ] + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - False ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } ) ] (abs @@ -9410,84 +9694,234 @@ (all dead (type) dead) } ) - ] - (abs - dead - (type) - False ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - False ) - ] - (all dead (type) dead) - } + ) + ] ) - ) - ) + ] + ds + ] ] + (all dead (type) Bool) + } + (abs + dead + (type) + True ) ] - ds + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "Lb" + ) + ] + False + ] + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "Lb" - ) - ] - False - ] ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) ) ) ) - ) + ] ) ) ) - ] + ) + ] + (lam + pk + (con bytestring) + (lam + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + checkBinRel + lessThanEqInteger + ] + vl + ] + [ + [ + valuePaidTo + ds + ] + pk + ] + ] + ] + (all dead (type) Bool) + } + (abs + dead (type) True + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string "La" + ) + ] + False + ] + ) + ] + (all dead (type) dead) + } + ) ) + ] + (lam + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + checkBinRel + lessThanEqInteger + ] + vl + ] + [ + valueProduced + ds + ] + ] + ] + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (abs + dead + (type) + [ + [ + { + (builtin trace) + Bool + } + (con string "L6") + ] + False + ] + ) + ] + (all dead (type) dead) + } ) + ] + (lam + xs + [List TxConstraint] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + TxConstraint + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + [ + checkTxConstraint + ctx + ] + ] + xs + ] + ] + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (abs + dead + (type) + [ + [ + { + (builtin trace) + Bool + } + (con string "Ld") + ] + False + ] + ) + ] + (all dead (type) dead) + } ) - ) - ] - (lam - pk - (con bytestring) + ] (lam vl [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] @@ -9506,184 +9940,104 @@ vl ] [ - [ valuePaidTo ds ] - pk - ] - ] - ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (abs - dead - (type) - [ - [ - { - (builtin trace) Bool - } - (con string "La") - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ] - (lam - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - { - [ - [ - { - [ - Bool_match - [ - [ - [ - checkBinRel - lessThanEqInteger - ] - vl - ] - [ valueProduced ds ] - ] - ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L6") - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - { - [ - [ - { - [ - Bool_match - [ - [ - [ - checkBinRel - lessThanEqInteger - ] - vl - ] - [ - { - [ TxInfo_match ds ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ + TxInfo_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [List DCert] + [List TxOut] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [List DCert] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - (con bytestring) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - TxInInfo - } - fMonoidValue - ] + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] (lam - x - TxInInfo + ds + (con bytestring) [ - { + [ [ - TxInInfo_match - x + { + { + fFoldableNil_cfoldMap + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + TxInInfo + } + fMonoidValue ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - TxOutRef (lam - ds - TxOut + x + TxInInfo [ { [ - TxOut_match - ds + TxInInfo_match + x ] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] } (lam ds - Address + TxOutRef (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [Maybe (con bytestring)] - ds - ) + TxOut + [ + { + [ + TxOut_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + ds + ) + ) + ) + ] ) ) ] ) - ) + ] + ds ] ) - ] - ds - ] + ) + ) ) ) ) @@ -9691,241 +10045,253 @@ ) ) ) - ) - ) - ) - ] + ] + ] + ] + (all dead (type) Bool) + } + (abs dead (type) True) ] + (abs + dead + (type) + [ + [ + { + (builtin trace) Bool + } + (con string "L5") + ] + False + ] + ) ] - (all dead (type) Bool) + (all dead (type) dead) } - (abs dead (type) True) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L5") - ] - False - ] ) ] - (all dead (type) dead) - } - ) - ] - (lam - txOutRef - TxOutRef - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - [ - [ - { (builtin trace) Bool } - (con string "L7") - ] - False - ] - ) - { - [ - [ - { + (lam + txOutRef + TxOutRef + (let + (nonrec) + (termbind + (nonstrict) + (vardecl j Bool) [ - { Maybe_match TxInInfo } [ - [ - findTxInByTxOutRef - txOutRef - ] - ds + { (builtin trace) Bool } + (con string "L7") ] + False ] - (all dead (type) Bool) - } - (lam - a - TxInInfo - (abs - dead - (type) + ) + { + [ [ { - [ TxInInfo_match a ] - Bool + [ + { + Maybe_match TxInInfo + } + [ + [ + findTxInByTxOutRef + txOutRef + ] + ds + ] + ] + (all dead (type) Bool) } (lam - ds - TxOutRef - (lam - ds - TxOut + a + TxInInfo + (abs + dead + (type) [ { - [ TxOut_match ds ] + [ + TxInInfo_match a + ] Bool } (lam ds - Address + TxOutRef (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [Maybe (con bytestring)] + TxOut + [ { [ - [ + TxOut_match + ds + ] + Bool + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] { [ - { - Maybe_match - (con bytestring) - } - ds + [ + { + [ + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) Bool) + } + (lam + ds + (con bytestring) + (abs + dead + (type) + j + ) + ) + ] + (abs + dead + (type) + True + ) ] - (all dead (type) Bool) + (all dead (type) dead) } - (lam - ds - (con bytestring) - (abs - dead - (type) - j - ) - ) - ] - (abs - dead - (type) - True ) - ] - (all dead (type) dead) - } - ) + ) + ) + ] ) ) ] ) ) ] - ) - ) - ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) - ) - ] - (lam - txOutRef - TxOutRef - (lam - ds - (con data) - { - [ - [ + (abs dead (type) j) + ] + (all dead (type) dead) + } + ) + ) + ] + (lam + txOutRef + TxOutRef + (lam + ds + (con data) { [ - { Maybe_match TxInInfo } [ + { + [ + { Maybe_match TxInInfo } + [ + [ + findTxInByTxOutRef + txOutRef + ] + ds + ] + ] + (all dead (type) Bool) + } + (lam + ds + TxInInfo + (abs dead (type) True) + ) + ] + (abs + dead + (type) [ - findTxInByTxOutRef - txOutRef + [ + { (builtin trace) Bool } + (con string "L8") + ] + False ] - ds - ] + ) ] - (all dead (type) Bool) + (all dead (type) dead) } - (lam - ds - TxInInfo - (abs dead (type) True) - ) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L8") - ] - False - ] ) - ] - (all dead (type) dead) - } - ) - ) - ] - (lam - interval - [Interval (con integer)] - { - [ - [ + ) + ] + (lam + interval + [Interval (con integer)] { [ - Bool_match [ - [ + { [ - { contains (con integer) } - fOrdPOSIXTime - ] - interval - ] - [ - { - [ TxInfo_match ds ] - [Interval (con integer)] - } - (lam - ds - [List TxInInfo] - (lam - ds - [List TxOut] - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + Bool_match + [ + [ + [ + { + contains + (con integer) + } + fOrdPOSIXTime + ] + interval + ] + [ + { + [ TxInfo_match ds ] + [Interval (con integer)] + } (lam ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [List TxInInfo] (lam ds - [List DCert] + [List TxOut] (lam ds - [List [[Tuple2 StakingCredential] (con integer)]] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [Interval (con integer)] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] (lam ds - [List (con bytestring)] + [List DCert] (lam ds - [List [[Tuple2 (con bytestring)] (con data)]] + [List [[Tuple2 StakingCredential] (con integer)]] (lam ds - (con bytestring) - ds + [Interval (con integer)] + (lam + ds + [List (con bytestring)] + (lam + ds + [List [[Tuple2 (con bytestring)] (con data)]] + (lam + ds + (con bytestring) + ds + ) + ) + ) ) ) ) @@ -9933,121 +10299,87 @@ ) ) ) - ) - ) - ) - ] + ] + ] + ] + (all dead (type) Bool) + } + (abs dead (type) True) ] + (abs + dead + (type) + [ + [ + { (builtin trace) Bool } + (con string "L3") + ] + False + ] + ) ] - (all dead (type) Bool) + (all dead (type) dead) } - (abs dead (type) True) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "L3") - ] - False - ] ) ] - (all dead (type) dead) - } + ) ) - ] - ) + ) + ] ) ) - ] - ) - ) - (termbind - (strict) - (vardecl - checkScriptContext - (all i (type) (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun [[TxConstraints i] o] (fun ScriptContext Bool))))) - ) - (abs - i - (type) - (abs - o - (type) - (lam - dToData - [(lam a (type) (fun a (con data))) o] - (lam - ds - [[TxConstraints i] o] - (lam - ptx - ScriptContext - [ - { - [ { { TxConstraints_match i } o } ds ] Bool - } + (let + (nonrec) + (termbind + (strict) + (vardecl + checkScriptContext + (all i (type) (all o (type) (fun [(lam a (type) (fun a (con data))) o] (fun [[TxConstraints i] o] (fun ScriptContext Bool))))) + ) + (abs + i + (type) + (abs + o + (type) (lam - ds - [List TxConstraint] + dToData + [(lam a (type) (fun a (con data))) o] (lam ds - [List [InputConstraint i]] + [[TxConstraints i] o] (lam - ds - [List [OutputConstraint o]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - [ - [ - { (builtin trace) Bool } - (con string "Ld") - ] - False - ] - ) + ptx + ScriptContext + [ { [ - [ - { - [ - Bool_match + { { TxConstraints_match i } o } ds + ] + Bool + } + (lam + ds + [List TxConstraint] + (lam + ds + [List [InputConstraint i]] + (lam + ds + [List [OutputConstraint o]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl j Bool) [ [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - TxConstraint - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - [ - checkTxConstraint ptx - ] + { (builtin trace) Bool } + (con string "Ld") ] - ds + False ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) + ) { [ [ @@ -10062,7 +10394,7 @@ fFoldableNil_cfoldMap [(lam a (type) a) Bool] } - [InputConstraint i] + TxConstraint } [ { @@ -10073,10 +10405,7 @@ ] ] [ - { - checkOwnInputConstraint - i - } + checkTxConstraint ptx ] ] @@ -10102,7 +10431,7 @@ fFoldableNil_cfoldMap [(lam a (type) a) Bool] } - [OutputConstraint o] + [InputConstraint i] } [ { @@ -10113,13 +10442,10 @@ ] ] [ - [ - { - checkOwnOutputConstraint - o - } - dToData - ] + { + checkOwnInputConstraint + i + } ptx ] ] @@ -10131,7 +10457,60 @@ (abs dead (type) - True + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [OutputConstraint o] + } + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] + ] + [ + [ + { + checkOwnOutputConstraint + o + } + dToData + ] + ptx + ] + ] + ds + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + j + ) + ] + (all dead (type) dead) + } ) ] (abs dead (type) j @@ -10146,810 +10525,805 @@ (all dead (type) dead) } ) - ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) + ) + ) + ) + ] ) ) ) - ] + ) ) ) - ) - ) - ) - ) - (termbind - (strict) - (vardecl - isZero - (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool) - ) - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl dMonoid [Monoid [(lam a (type) a) Bool]]) - [ - { fMonoidProduct Bool } fMultiplicativeMonoidBool - ] - ) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] - ] + (termbind + (strict) + (vardecl + isZero + (fun [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] Bool) + ) (lam ds - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - [ - { - [ - { - { Tuple2_match (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - ds - ] - [(lam a (type) a) Bool] - } - (lam - ds - (con bytestring) - (lam - a - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [(lam a (type) a) Bool] - } - [[Tuple2 (con bytestring)] (con integer)] - } - dMonoid - ] - (lam - ds - [[Tuple2 (con bytestring)] (con integer)] - [ - { - [ - { - { - Tuple2_match - (con bytestring) - } - (con integer) - } - ds - ] - [(lam a (type) a) Bool] - } - (lam - ds - (con bytestring) - (lam - a - (con integer) - [ - [ - [ - { - (builtin ifThenElse) - Bool - } - [ - [ - (builtin - equalsInteger - ) - (con integer 0) - ] - a - ] - ] - True - ] - False - ] - ) - ) - ] - ) - ] - a - ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + dMonoid [Monoid [(lam a (type) a) Bool]] ) - ) - ] - ) - ] - ds - ] - ) - ) - ) - (termbind - (strict) - (vardecl - ownHashes - (fun ScriptContext [[Tuple2 (con bytestring)] (con bytestring)]) - ) - (lam - ds - ScriptContext - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun (all a (type) a) [[Tuple2 (con bytestring)] (con bytestring)]) - ) - (lam - ds - (all a (type) a) - [ - { - error - [[Tuple2 (con bytestring)] (con bytestring)] - } - [ - { [ - Unit_match - [ - [ - { (builtin trace) Unit } - (con string "Lg") - ] - Unit - ] - ] - (con unit) - } - (con unit ()) - ] - ] - ) - ) - { - [ - [ - { + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] + ) [ - { Maybe_match TxInInfo } [ findOwnInput ds ] - ] - (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) - } - (lam - ds - TxInInfo - (abs - dead - (type) [ - { - [ TxInInfo_match ds ] - [[Tuple2 (con bytestring)] (con bytestring)] - } + [ + { + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] + ] (lam ds - TxOutRef - (lam - ds - TxOut - [ - { - [ TxOut_match ds ] - [[Tuple2 (con bytestring)] (con bytestring)] - } - (lam + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + [ + { + [ + { + { + Tuple2_match (con bytestring) + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + } ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - (lam - ds - [Maybe (con bytestring)] + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] + [ + [ [ { - [ Address_match ds ] - [[Tuple2 (con bytestring)] (con bytestring)] + { + fFoldableNil_cfoldMap + [(lam a (type) a) Bool] + } + [[Tuple2 (con bytestring)] (con integer)] } - (lam - ds - Credential - (lam - ds - [Maybe StakingCredential] + dMonoid + ] + (lam + ds + [[Tuple2 (con bytestring)] (con integer)] + [ + { [ - [ + { { - [ - Credential_match - ds - ] - [[Tuple2 (con bytestring)] (con bytestring)] - } - (lam - ipv + Tuple2_match (con bytestring) + } + (con integer) + } + ds + ] + [(lam a (type) a) Bool] + } + (lam + ds + (con bytestring) + (lam + a + (con integer) + [ + [ [ - fail - (abs - e - (type) - (error e) - ) - ] - ) - ] - (lam - s - (con bytestring) - { - [ - [ - { - [ - { - Maybe_match - (con bytestring) - } - ds - ] - (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) - } - (lam - dh - (con bytestring) - (abs - dead - (type) - [ - [ - { - { - Tuple2 - (con bytestring) - } - (con bytestring) - } - s - ] - dh - ] - ) + { + (builtin + ifThenElse ) - ] - (abs - dead - (type) + Bool + } + [ [ - fail - (abs - e - (type) - (error e) + (builtin + equalsInteger + ) + (con + integer 0 ) ] - ) + a + ] ] - (all dead (type) dead) - } - ) - ] + True + ] + False + ] + ) ) - ) - ] - ) - ) + ] + ) + ] + a + ] ) - ] - ) + ) + ] ) ] - ) + ds + ] ) - ] - (abs dead (type) [ fail (abs e (type) (error e)) ] ) - ] - (all dead (type) dead) - } - ) - ) - ) - (termbind - (strict) - (vardecl ownHash (fun ScriptContext (con bytestring))) - (lam - p - ScriptContext - [ - { - [ - { - { Tuple2_match (con bytestring) } - (con bytestring) - } - [ ownHashes p ] - ] - (con bytestring) - } - (lam a (con bytestring) (lam ds (con bytestring) a)) - ] - ) - ) - (termbind - (strict) - (vardecl - b - (fun (con bytestring) [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) - ) - (lam - ds - (con bytestring) - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - ) - ) - (termbind - (nonstrict) - (vardecl - threadTokenValueInner - (fun [Maybe ThreadToken] (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - ) - (lam - m - [Maybe ThreadToken] - { - [ - [ - { - [ { Maybe_match ThreadToken } m ] - (all dead (type) (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) - } + ) + (termbind + (strict) + (vardecl + ownHashes + (fun ScriptContext [[Tuple2 (con bytestring)] (con bytestring)]) + ) (lam - a - ThreadToken - (abs - dead - (type) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl currency (con bytestring)) - [ - { - [ ThreadToken_match a ] - (con bytestring) - } - (lam - ds - TxOutRef - (lam ds (con bytestring) ds) - ) - ] + ds + ScriptContext + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun (all a (type) a) [[Tuple2 (con bytestring)] (con bytestring)]) ) (lam ds - (con bytestring) + (all a (type) a) [ + { + error + [[Tuple2 (con bytestring)] (con bytestring)] + } [ { - Cons - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - [ - [ - { - { Tuple2 (con bytestring) } - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] - } - currency - ] [ + Unit_match [ - { - Cons - [[Tuple2 (con bytestring)] (con integer)] - } [ - [ - { - { - Tuple2 (con bytestring) - } - (con integer) - } - ds - ] - (con integer 1) + { (builtin trace) Unit } + (con string "Lg") ] + Unit ] - { - Nil - [[Tuple2 (con bytestring)] (con integer)] - } ] - ] + (con unit) + } + (con unit ()) ] - { - Nil - [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } ] ) ) - ) - ) - ] - (abs dead (type) b) - ] - (all dead (type) dead) - } - ) - ) - (termbind - (strict) - (vardecl - wmkValidator - (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] (fun s (fun i (fun ScriptContext Bool)))))))))) - ) - (abs - s - (type) - (abs - i - (type) - (lam - w - [(lam a (type) (fun a (con data))) s] - (lam - ww - (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) - (lam - ww - (fun s Bool) - (lam - ww - (fun s (fun i (fun ScriptContext Bool))) - (lam - ww - [Maybe ThreadToken] - (lam - w - s - (lam - w - i + { + [ + [ + { + [ + { Maybe_match TxInInfo } + [ findOwnInput ds ] + ] + (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) + } (lam - w - ScriptContext - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - vl - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - ) + ds + TxInInfo + (abs + dead + (type) + [ { - [ + [ TxInInfo_match ds ] + [[Tuple2 (con bytestring)] (con bytestring)] + } + (lam + ds + TxOutRef + (lam + ds + TxOut [ { - [ - { Maybe_match TxInInfo } - [ findOwnInput w ] - ] - (all dead (type) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) + [ TxOut_match ds ] + [[Tuple2 (con bytestring)] (con bytestring)] } (lam - a - TxInInfo - (abs - dead - (type) - [ - { - [ TxInInfo_match a ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - TxOutRef + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + [ + { + [ + Address_match ds + ] + [[Tuple2 (con bytestring)] (con bytestring)] + } (lam ds - TxOut - [ - { + Credential + (lam + ds + [Maybe StakingCredential] + [ [ - TxOut_match - ds - ] - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - } - (lam - ds - Address - (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + [ + Credential_match + ds + ] + [[Tuple2 (con bytestring)] (con bytestring)] + } (lam - ds - [Maybe (con bytestring)] - ds + ipv + (con bytestring) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] ) + ] + (lam + s + (con bytestring) + { + [ + [ + { + [ + { + Maybe_match + (con bytestring) + } + ds + ] + (all dead (type) [[Tuple2 (con bytestring)] (con bytestring)]) + } + (lam + dh + (con bytestring) + (abs + dead + (type) + [ + [ + { + { + Tuple2 + (con bytestring) + } + (con bytestring) + } + s + ] + dh + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (abs + e + (type) + (error + e + ) + ) + ] + ) + ] + (all dead (type) dead) + } ) - ) - ] + ] + ) ) - ) - ] + ] + ) ) ) ] - (abs - dead - (type) + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ fail (abs e (type) (error e)) ] + ) + ] + (all dead (type) dead) + } + ) + ) + ) + (termbind + (strict) + (vardecl + ownHash (fun ScriptContext (con bytestring)) + ) + (lam + p + ScriptContext + [ + { + [ + { + { Tuple2_match (con bytestring) } + (con bytestring) + } + [ ownHashes p ] + ] + (con bytestring) + } + (lam + a + (con bytestring) + (lam ds (con bytestring) a) + ) + ] + ) + ) + (termbind + (strict) + (vardecl + b + (fun (con bytestring) [List [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]]) + ) + (lam + ds + (con bytestring) + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ) + ) + (termbind + (nonstrict) + (vardecl + threadTokenValueInner + (fun [Maybe ThreadToken] (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + ) + (lam + m + [Maybe ThreadToken] + { + [ + [ + { + [ { Maybe_match ThreadToken } m ] + (all dead (type) (fun (con bytestring) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]])) + } + (lam + a + ThreadToken + (abs + dead + (type) + (let + (nonrec) + (termbind + (nonstrict) + (vardecl currency (con bytestring) + ) + [ + { + [ ThreadToken_match a ] + (con bytestring) + } + (lam + ds + TxOutRef + (lam ds (con bytestring) ds) + ) + ] + ) + (lam + ds + (con bytestring) + [ + [ + { + Cons + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [ [ { - error - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { + Tuple2 + (con bytestring) + } + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)] } + currency + ] + [ [ { + Cons + [[Tuple2 (con bytestring)] (con integer)] + } + [ [ - Unit_match - [ - [ - { - (builtin trace - ) - Unit - } - (con string "S0" - ) - ] - Unit - ] + { + { + Tuple2 + (con bytestring) + } + (con integer) + } + ds ] - (con unit) - } - (con unit ()) + (con integer 1) + ] ] + { + Nil + [[Tuple2 (con bytestring)] (con integer)] + } ] - ) + ] ] - (all dead (type) dead) - } + { + Nil + [[Tuple2 (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + ] ) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ - [ - { - [ - { - Maybe_match - [[Tuple2 [[TxConstraints Void] Void]] [State s]] - } + ) + ) + ) + ] + (abs dead (type) b) + ] + (all dead (type) dead) + } + ) + ) + (termbind + (strict) + (vardecl + wmkValidator + (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) (fun (fun s Bool) (fun (fun s (fun i (fun ScriptContext Bool))) (fun [Maybe ThreadToken] (fun s (fun i (fun ScriptContext Bool)))))))))) + ) + (abs + s + (type) + (abs + i + (type) + (lam + w + [(lam a (type) (fun a (con data))) s] + (lam + ww + (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) + (lam + ww + (fun s Bool) + (lam + ww + (fun s (fun i (fun ScriptContext Bool))) + (lam + ww + [Maybe ThreadToken] + (lam + w + s + (lam + w + i + (lam + w + ScriptContext + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + vl + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + ) + { [ [ - ww - [ - [ { State s } w ] + { [ + { + Maybe_match + TxInInfo + } [ - [ - unionWith - addInteger - ] - vl + findOwnInput w ] + ] + (all dead (type) [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]]) + } + (lam + a + TxInInfo + (abs + dead + (type) [ - [ - fAdditiveGroupValue_cscale - (con - integer -1 - ) - ] - [ - [ - threadTokenValueInner - ww - ] + { [ - ownHash w + TxInInfo_match + a ] - ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + (lam + ds + Address + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + (lam + ds + [Maybe (con bytestring)] + ds + ) + ) + ) + ] + ) + ) ] - ] - ] + ) + ) ] - w - ] - ] - (all dead (type) Bool) - } - (lam - ds - [[Tuple2 [[TxConstraints Void] Void]] [State s]] - (abs - dead - (type) - [ - { + (abs + dead + (type) [ { + error + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + } + [ { - Tuple2_match - [[TxConstraints Void] Void] + [ + Unit_match + [ + [ + { + (builtin + trace + ) + Unit + } + (con + string + "S0" + ) + ] + Unit + ] + ] + (con unit) } - [State s] - } - ds + (con unit ()) + ] ] - Bool - } - (lam - newConstraints - [[TxConstraints Void] Void] - (lam - ds - [State s] + ) + ] + (all dead (type) dead) + } + ) + (termbind + (nonstrict) + (vardecl j Bool) + { + [ + [ + { [ { + Maybe_match + [[Tuple2 [[TxConstraints Void] Void]] [State s]] + } + [ [ - { - State_match - s - } - ds + ww + [ + [ + { + State + s + } + w + ] + [ + [ + [ + unionWith + addInteger + ] + vl + ] + [ + [ + fAdditiveGroupValue_cscale + (con + integer + -1 + ) + ] + [ + [ + threadTokenValueInner + ww + ] + [ + ownHash + w + ] + ] + ] + ] + ] ] - Bool - } - (lam - ds - s + w + ] + ] + (all dead (type) Bool) + } + (lam + ds + [[Tuple2 [[TxConstraints Void] Void]] [State s]] + (abs + dead + (type) + [ + { + [ + { + { + Tuple2_match + [[TxConstraints Void] Void] + } + [State s] + } + ds + ] + Bool + } (lam - ds - [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] - { + newConstraints + [[TxConstraints Void] Void] + (lam + ds + [State s] [ - [ - { - [ - Bool_match + { + [ + { + State_match + s + } + ds + ] + Bool + } + (lam + ds + s + (lam + ds + [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] [[(lam k (type) (lam v (type) [List [[Tuple2 k] v]])) (con bytestring)] (con integer)]] + { [ - ww - ds - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - (let - (nonrec - ) - (termbind - (nonstrict - ) - (vardecl - j - Bool - ) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - { - checkScriptContext - Void - } - Void - } - fToDataVoid_ctoBuiltinData - ] - newConstraints - ] - w - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S4" - ) - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - { [ - [ - { + { + [ + Bool_match [ - Bool_match - [ - isZero - ds - ] + ww + ds ] - (all dead (type) Bool) - } - (abs - dead - (type) - j - ) - ] + ] + (all dead (type) Bool) + } (abs dead (type) - { - [ - [ - { + (let + (nonrec + ) + (termbind + (nonstrict + ) + (vardecl + j + Bool + ) + { + [ [ - Bool_match + { + [ + Bool_match + [ + [ + [ + { + { + checkScriptContext + Void + } + Void + } + fToDataVoid_ctoBuiltinData + ] + newConstraints + ] + w + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) [ [ { @@ -10960,400 +11334,471 @@ } (con string - "S3" + "S4" ) ] False ] - ] - (all dead (type) Bool) - } + ) + ] + (all dead (type) dead) + } + ) + { + [ + [ + { + [ + Bool_match + [ + isZero + ds + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + j + ) + ] (abs dead (type) - j + { + [ + [ + { + [ + Bool_match + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S3" + ) + ] + False + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + j + ) + ] + (abs + dead + (type) + False + ) + ] + (all dead (type) dead) + } ) ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (all dead (type) dead) - } - ) - ) - ] - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match + (abs + dead + (type) + { [ [ - [ - { - { - checkScriptContext - Void - } - s - } - w - ] - [ - { + { + [ + Bool_match [ - { - { - TxConstraints_match - Void - } - Void - } - newConstraints - ] - [[TxConstraints Void] s] - } - (lam - ds - [List TxConstraint] - (lam - ds - [List [InputConstraint Void]] - (lam - ds - [List [OutputConstraint Void]] + [ [ - [ + { + { + checkScriptContext + Void + } + s + } + w + ] + [ + { [ { { - TxConstraints + TxConstraints_match Void } - s + Void } - ds + newConstraints ] + [[TxConstraints Void] s] + } + (lam ds - ] - [ - { - build - [OutputConstraint s] - } - (abs - a - (type) + [List TxConstraint] + (lam + ds + [List [InputConstraint Void]] (lam - c - (fun [OutputConstraint s] (fun a a)) - (lam - n - a + ds + [List [OutputConstraint Void]] + [ + [ + [ + { + { + TxConstraints + Void + } + s + } + ds + ] + ds + ] [ - [ - c - [ - [ - { - OutputConstraint - s - } - ds - ] - [ - [ - [ - unionWith - addInteger - ] - ds - ] + { + build + [OutputConstraint s] + } + (abs + a + (type) + (lam + c + (fun [OutputConstraint s] (fun a a)) + (lam + n + a [ [ - threadTokenValueInner - ww - ] - [ - ownHash - w + c + [ + [ + { + OutputConstraint + s + } + ds + ] + [ + [ + [ + unionWith + addInteger + ] + ds + ] + [ + [ + threadTokenValueInner + ww + ] + [ + ownHash + w + ] + ] + ] + ] ] + n ] - ] - ] - ] - n + ) + ) + ) ] - ) + ] ) ) - ] + ) ] + ] + w + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace ) + Bool + } + (con + string + "S5" ) - ) + ] + False ] - ] - w + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - True + (all dead (type) dead) + } ) ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S5" - ) - ] - False - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (all dead (type) dead) - } + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin trace ) + Bool + } + (con string "S6" ) ] - ) + False + ] ) ] - ) + (all dead (type) dead) + } ) - ] - (abs - dead - (type) - [ - [ - { (builtin trace) Bool } - (con string "S6") - ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ - [ - { - [ - { - Maybe_match - ThreadToken - } - ww - ] - (all dead (type) Bool) - } - (lam - threadToken - ThreadToken - (abs - dead - (type) - { + (termbind + (nonstrict) + (vardecl j Bool) + { + [ [ - [ - { - [ - Bool_match + { + [ + { + Maybe_match + ThreadToken + } + ww + ] + (all dead (type) Bool) + } + (lam + threadToken + ThreadToken + (abs + dead + (type) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { [ + Bool_match [ - (builtin - equalsInteger - ) [ [ + { + (builtin + ifThenElse + ) + Bool + } [ - valueOf - vl - ] - [ - { + [ + (builtin + equalsInteger + ) [ - ThreadToken_match - threadToken + [ + [ + valueOf + vl + ] + [ + { + [ + ThreadToken_match + threadToken + ] + (con bytestring) + } + (lam + ds + TxOutRef + (lam + ds + (con bytestring) + ds + ) + ) + ] + ] + [ + ownHash + w + ] ] - (con bytestring) - } - (lam - ds - TxOutRef - (lam - ds - (con bytestring) - ds - ) + ] + (con + integer + 1 ) - ] - ] - [ - ownHash - w - ] - ] - ] - (con - integer - 1 - ) - ] - ] - True - ] - False - ] - ] - (all dead (type) Bool) - } - (abs dead (type) j - ) - ] - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match + ] + ] + True + ] + False + ] + ] + (all dead (type) Bool) + } + (abs + dead + (type) + j + ) + ] + (abs + dead + (type) + { [ [ { - (builtin - trace - ) - Bool + [ + Bool_match + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S2" + ) + ] + False + ] + ] + (all dead (type) Bool) } - (con - string - "S2" + (abs + dead + (type) + j ) ] - False + (abs + dead + (type) + False + ) ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - j + (all dead (type) dead) + } ) ] - (abs - dead - (type) - False - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ] - (all dead (type) dead) - } - ) + (abs dead (type) j) + ] + (all dead (type) dead) + } ) - ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) - { - [ - [ - { - [ - Bool_match - [ [ [ ww w ] w ] w ] - ] - (all dead (type) Bool) - } - (abs dead (type) j) - ] - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { + [ + Bool_match + [ + [ [ ww w ] w ] w + ] + ] + (all dead (type) Bool) + } + (abs dead (type) j) + ] + (abs + dead + (type) + { [ [ { - (builtin trace - ) - Bool + [ + Bool_match + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S1" + ) + ] + False + ] + ] + (all dead (type) Bool) } - (con string "S1" + (abs + dead (type) j ) ] - False + (abs + dead + (type) + False + ) ] - ] - (all dead (type) Bool) - } - (abs dead (type) j) + (all dead (type) dead) + } + ) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ] - (all dead (type) dead) - } + ) + ) ) ) ) @@ -11362,116 +11807,120 @@ ) ) ) - ) - ) - ) - ) - (termbind - (strict) - (vardecl - mkValidator - (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun [[StateMachine s] i] (fun s (fun i (fun ScriptContext Bool))))))) - ) - (abs - s - (type) - (abs - i - (type) - (lam - w - [(lam a (type) (fun a (con data))) s] - (lam - w - [[StateMachine s] i] - (lam - w + (termbind + (strict) + (vardecl + mkValidator + (all s (type) (all i (type) (fun [(lam a (type) (fun a (con data))) s] (fun [[StateMachine s] i] (fun s (fun i (fun ScriptContext Bool))))))) + ) + (abs s - (lam - w + (type) + (abs i + (type) (lam w - ScriptContext - [ - { - [ { { StateMachine_match s } i } w ] - Bool - } + [(lam a (type) (fun a (con data))) s] + (lam + w + [[StateMachine s] i] (lam - ww - (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) + w + s (lam - ww - (fun s Bool) + w + i (lam - ww - (fun s (fun i (fun ScriptContext Bool))) - (lam - ww - [Maybe ThreadToken] - [ + w + ScriptContext + [ + { [ - [ - [ + { { StateMachine_match s } i } + w + ] + Bool + } + (lam + ww + (fun [State s] (fun i [Maybe [[Tuple2 [[TxConstraints Void] Void]] [State s]]])) + (lam + ww + (fun s Bool) + (lam + ww + (fun s (fun i (fun ScriptContext Bool))) + (lam + ww + [Maybe ThreadToken] [ [ [ [ - { - { - wmkValidator s - } - i - } - w + [ + [ + [ + [ + { + { + wmkValidator + s + } + i + } + w + ] + ww + ] + ww + ] + ww + ] + ww ] - ww + w ] - ww + w ] - ww + w ] - ww - ] - w - ] - w - ] - w - ] - ) + ) + ) + ) + ) + ] ) ) ) - ] + ) ) ) ) ) + (termbind + (strict) + (vardecl + mkValidator + (fun Params (fun MSState (fun Input (fun ScriptContext Bool)))) + ) + (lam + params + Params + [ + [ + { { mkValidator MSState } Input } + fToDataMSState_ctoBuiltinData + ] + [ machine params ] + ] + ) + ) + mkValidator ) ) ) ) - (termbind - (strict) - (vardecl - mkValidator - (fun Params (fun MSState (fun Input (fun ScriptContext Bool)))) - ) - (lam - params - Params - [ - [ - { { mkValidator MSState } Input } - fToDataMSState_ctoBuiltinData - ] - [ machine params ] - ] - ) - ) - mkValidator ) ) ) diff --git a/plutus-use-cases/test/Spec/renderGuess.txt b/plutus-use-cases/test/Spec/renderGuess.txt index 775a58c87c1..fd47829a7cb 100644 --- a/plutus-use-cases/test/Spec/renderGuess.txt +++ b/plutus-use-cases/test/Spec/renderGuess.txt @@ -101,11 +101,11 @@ Balances Carried Forward: Ada: Lovelace: 100000000 ==== Slot #1, Tx #0 ==== -TxId: 2264a6a297a68fd084cddeb3df4b09e13543c2f950e0b2c1942b86032054da30 +TxId: 7b32dc5be193b7b94af0454f50a212229823a68faf644996b7eb4503e10b727f Fee: Ada: Lovelace: 10 Mint: - Signatures PubKey: d75a980182b10ab7d54bfed3c964073a0ee172f3... - Signature: 5840100a5b7f96f9e6adfb10b61ff1f537c936f8... + Signature: 58405f1db547173e9b0251611e3dfa8c5fc00cca... Inputs: ---- Input 0 ---- Destination: PubKeyHash: 35dedd2982a03cf39e7dce03c839994ffdec2ec6... (Wallet 1) @@ -124,7 +124,7 @@ Outputs: Ada: Lovelace: 99999982 ---- Output 1 ---- - Destination: Script: 9a1cd5dcf849c45f0c1fce4938b52e83b2d2657f4faec0827baa6e94 + Destination: Script: 874045b42d1db9d4f84b9961696a8c421780fbbd5e92740f7015067f Value: Ada: Lovelace: 8 @@ -170,51 +170,51 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 9a1cd5dcf849c45f0c1fce4938b52e83b2d2657f4faec0827baa6e94 + Script: 874045b42d1db9d4f84b9961696a8c421780fbbd5e92740f7015067f Value: Ada: Lovelace: 8 ==== Slot #2, Tx #0 ==== -TxId: 6931ea12da288f901ff14fd4a38083cc7896ddcda728ade3fa85d1dbf120f37a -Fee: Ada: Lovelace: 12562 -Mint: 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 1 +TxId: 89fe8d8fa45bea5945a060c4f1c4ee99b7e863625b95287d00c1ab78eb73377c +Fee: Ada: Lovelace: 12641 +Mint: 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 1 Signatures PubKey: d75a980182b10ab7d54bfed3c964073a0ee172f3... - Signature: 58409e976dfdc90b071ddaa46fb61efb8acc8886... + Signature: 5840bcc806c67fc9fcf031ac84fe05b165947d53... Inputs: ---- Input 0 ---- Destination: PubKeyHash: 35dedd2982a03cf39e7dce03c839994ffdec2ec6... (Wallet 1) Value: Ada: Lovelace: 99999982 Source: - Tx: 2264a6a297a68fd084cddeb3df4b09e13543c2f950e0b2c1942b86032054da30 + Tx: 7b32dc5be193b7b94af0454f50a212229823a68faf644996b7eb4503e10b727f Output #0 ---- Input 1 ---- - Destination: Script: 9a1cd5dcf849c45f0c1fce4938b52e83b2d2657f4faec0827baa6e94 + Destination: Script: 874045b42d1db9d4f84b9961696a8c421780fbbd5e92740f7015067f Value: Ada: Lovelace: 8 Source: - Tx: 2264a6a297a68fd084cddeb3df4b09e13543c2f950e0b2c1942b86032054da30 + Tx: 7b32dc5be193b7b94af0454f50a212229823a68faf644996b7eb4503e10b727f Output #1 - Script: 591d750100003323322333222333222323233223... + Script: 591dc10100003323322333222333222323233223... Outputs: ---- Output 0 ---- Destination: PubKeyHash: 35dedd2982a03cf39e7dce03c839994ffdec2ec6... (Wallet 1) Value: - Ada: Lovelace: 99987420 - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: - + Ada: Lovelace: 99987341 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: - ---- Output 1 ---- Destination: PubKeyHash: 35dedd2982a03cf39e7dce03c839994ffdec2ec6... (Wallet 1) Value: - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 1 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 1 Ada: - ---- Output 2 ---- - Destination: Script: 9a1cd5dcf849c45f0c1fce4938b52e83b2d2657f4faec0827baa6e94 + Destination: Script: 874045b42d1db9d4f84b9961696a8c421780fbbd5e92740f7015067f Value: Ada: Lovelace: 8 @@ -222,8 +222,8 @@ Outputs: Balances Carried Forward: PubKeyHash: 35dedd2982a03cf39e7dce03c839994ffdec2ec6... (Wallet 1) Value: - Ada: Lovelace: 99987420 - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 1 + Ada: Lovelace: 99987341 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 1 PubKeyHash: 3c88c96ed5ab14b16a32771bcfcb49928a5557fc... (Wallet 10) Value: @@ -261,34 +261,34 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 9a1cd5dcf849c45f0c1fce4938b52e83b2d2657f4faec0827baa6e94 + Script: 874045b42d1db9d4f84b9961696a8c421780fbbd5e92740f7015067f Value: Ada: Lovelace: 8 ==== Slot #3, Tx #0 ==== -TxId: bba61dec9bde49a0a6f66a27b526790400e330bea764d26c4cc66b077c5df793 +TxId: 30d9ac77cfb59c8ace524986a3c2ec1825225d7d8e7be4f3d24ea57f446cc4ee Fee: Ada: Lovelace: 10 Mint: - Signatures PubKey: d75a980182b10ab7d54bfed3c964073a0ee172f3... - Signature: 5840a12908be76c482d7d091a257d182bf54f88d... + Signature: 5840c6a52c5388a322d7d58b8dc3fc71ad72fb11... Inputs: ---- Input 0 ---- Destination: PubKeyHash: 35dedd2982a03cf39e7dce03c839994ffdec2ec6... (Wallet 1) Value: - Ada: Lovelace: 99987420 - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: - + Ada: Lovelace: 99987341 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: - Source: - Tx: 6931ea12da288f901ff14fd4a38083cc7896ddcda728ade3fa85d1dbf120f37a + Tx: 89fe8d8fa45bea5945a060c4f1c4ee99b7e863625b95287d00c1ab78eb73377c Output #0 ---- Input 1 ---- Destination: PubKeyHash: 35dedd2982a03cf39e7dce03c839994ffdec2ec6... (Wallet 1) Value: - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 1 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 1 Ada: - Source: - Tx: 6931ea12da288f901ff14fd4a38083cc7896ddcda728ade3fa85d1dbf120f37a + Tx: 89fe8d8fa45bea5945a060c4f1c4ee99b7e863625b95287d00c1ab78eb73377c Output #1 @@ -297,20 +297,20 @@ Outputs: ---- Output 0 ---- Destination: PubKeyHash: 35dedd2982a03cf39e7dce03c839994ffdec2ec6... (Wallet 1) Value: - Ada: Lovelace: 99987410 - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 0 + Ada: Lovelace: 99987331 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 0 ---- Output 1 ---- Destination: PubKeyHash: 977efb35ab621d39dbeb7274ec7795a34708ff4d... (Wallet 2) Value: - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 1 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 1 Balances Carried Forward: PubKeyHash: 35dedd2982a03cf39e7dce03c839994ffdec2ec6... (Wallet 1) Value: - Ada: Lovelace: 99987410 - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 0 + Ada: Lovelace: 99987331 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 0 PubKeyHash: 3c88c96ed5ab14b16a32771bcfcb49928a5557fc... (Wallet 10) Value: @@ -335,7 +335,7 @@ Balances Carried Forward: PubKeyHash: 977efb35ab621d39dbeb7274ec7795a34708ff4d... (Wallet 2) Value: Ada: Lovelace: 100000000 - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 1 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 1 PubKeyHash: b1fd7c427a17e57c112473449d8b237484c5ebf6... (Wallet 7) Value: @@ -349,16 +349,16 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 9a1cd5dcf849c45f0c1fce4938b52e83b2d2657f4faec0827baa6e94 + Script: 874045b42d1db9d4f84b9961696a8c421780fbbd5e92740f7015067f Value: Ada: Lovelace: 8 ==== Slot #4, Tx #0 ==== -TxId: 11c96742066a4e435de86d699cdead57993d5df26dfc25e60cf85cd7ba435d2f -Fee: Ada: Lovelace: 12562 -Mint: 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 0 +TxId: 3d7412c43883db73bd982105fced3a16913e89f4c71dc96ec71ef4100f7cdc27 +Fee: Ada: Lovelace: 12641 +Mint: 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 0 Signatures PubKey: 3d4017c3e843895a92b70aa74d1b7ebc9c982ccf... - Signature: 5840d0ec85161f728b2762fb5de03bdbbe685893... + Signature: 584038b30a61de87f7bf0b4ea044c1099421660d... Inputs: ---- Input 0 ---- Destination: PubKeyHash: 977efb35ab621d39dbeb7274ec7795a34708ff4d... (Wallet 2) @@ -370,39 +370,39 @@ Inputs: ---- Input 1 ---- - Destination: Script: 9a1cd5dcf849c45f0c1fce4938b52e83b2d2657f4faec0827baa6e94 + Destination: PubKeyHash: 977efb35ab621d39dbeb7274ec7795a34708ff4d... (Wallet 2) Value: - Ada: Lovelace: 8 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 1 Source: - Tx: 6931ea12da288f901ff14fd4a38083cc7896ddcda728ade3fa85d1dbf120f37a - Output #2 - Script: 591d750100003323322333222333222323233223... + Tx: 30d9ac77cfb59c8ace524986a3c2ec1825225d7d8e7be4f3d24ea57f446cc4ee + Output #1 + ---- Input 2 ---- - Destination: PubKeyHash: 977efb35ab621d39dbeb7274ec7795a34708ff4d... (Wallet 2) + Destination: Script: 874045b42d1db9d4f84b9961696a8c421780fbbd5e92740f7015067f Value: - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 1 + Ada: Lovelace: 8 Source: - Tx: bba61dec9bde49a0a6f66a27b526790400e330bea764d26c4cc66b077c5df793 - Output #1 - + Tx: 89fe8d8fa45bea5945a060c4f1c4ee99b7e863625b95287d00c1ab78eb73377c + Output #2 + Script: 591dc10100003323322333222333222323233223... Outputs: ---- Output 0 ---- Destination: PubKeyHash: 977efb35ab621d39dbeb7274ec7795a34708ff4d... (Wallet 2) Value: - Ada: Lovelace: 99987441 - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 0 + Ada: Lovelace: 99987362 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 0 ---- Output 1 ---- Destination: PubKeyHash: 977efb35ab621d39dbeb7274ec7795a34708ff4d... (Wallet 2) Value: - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 1 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 1 Ada: - ---- Output 2 ---- - Destination: Script: 9a1cd5dcf849c45f0c1fce4938b52e83b2d2657f4faec0827baa6e94 + Destination: Script: 874045b42d1db9d4f84b9961696a8c421780fbbd5e92740f7015067f Value: Ada: Lovelace: 5 @@ -410,8 +410,8 @@ Outputs: Balances Carried Forward: PubKeyHash: 35dedd2982a03cf39e7dce03c839994ffdec2ec6... (Wallet 1) Value: - Ada: Lovelace: 99987410 - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 0 + Ada: Lovelace: 99987331 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 0 PubKeyHash: 3c88c96ed5ab14b16a32771bcfcb49928a5557fc... (Wallet 10) Value: @@ -435,8 +435,8 @@ Balances Carried Forward: PubKeyHash: 977efb35ab621d39dbeb7274ec7795a34708ff4d... (Wallet 2) Value: - Ada: Lovelace: 99987441 - 79b1eac6a256073ee633c0396c1899bae4bb7e4edbf00d58dedb2793: guess: 1 + Ada: Lovelace: 99987362 + 50396484fd9f0c13ba0132242ac42a37a6afb25413a2e248abe2c888: guess: 1 PubKeyHash: b1fd7c427a17e57c112473449d8b237484c5ebf6... (Wallet 7) Value: @@ -450,6 +450,6 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 9a1cd5dcf849c45f0c1fce4938b52e83b2d2657f4faec0827baa6e94 + Script: 874045b42d1db9d4f84b9961696a8c421780fbbd5e92740f7015067f Value: Ada: Lovelace: 5 \ No newline at end of file