From 121017ff6260cbbdf4b337deba3b8c6a12bf405b Mon Sep 17 00:00:00 2001 From: Sjoerd Visscher Date: Wed, 6 Apr 2022 17:30:09 +0200 Subject: [PATCH] Accept test output changes --- plutus-use-cases/test/Spec/future.pir | 1730 +- .../test/Spec/gameStateMachine.pir | 5739 +++-- plutus-use-cases/test/Spec/governance.pir | 19299 ++++++++-------- .../test/Spec/multisigStateMachine.pir | 5636 +++-- plutus-use-cases/test/Spec/renderGuess.txt | 102 +- 5 files changed, 17339 insertions(+), 15167 deletions(-) diff --git a/plutus-use-cases/test/Spec/future.pir b/plutus-use-cases/test/Spec/future.pir index 953241e316..fd228b9a26 100644 --- a/plutus-use-cases/test/Spec/future.pir +++ b/plutus-use-cases/test/Spec/future.pir @@ -269,6 +269,9 @@ ) (let (nonrec) + (typebind + (tyvardecl TxConstraintFun (type)) (all a (type) (fun a a)) + ) (datatypebind (datatype (tyvardecl TxConstraints (fun (type) (fun (type) (type)))) @@ -279,10 +282,13 @@ (fun [ List TxConstraint ] (fun - [ List [ ScriptInputConstraint i ] ] + [ List TxConstraintFun ] (fun - [ List [ ScriptOutputConstraint o ] ] - [ [ TxConstraints i ] o ] + [ List [ ScriptInputConstraint i ] ] + (fun + [ List [ ScriptOutputConstraint o ] ] + [ [ TxConstraints i ] o ] + ) ) ) ) @@ -325,12 +331,19 @@ (datatypebind (datatype (tyvardecl - UTuple3 (fun (type) (fun (type) (fun (type) (type)))) + UTuple4 + (fun (type) (fun (type) (fun (type) (fun (type) (type))))) ) - (tyvardecl a (type)) (tyvardecl b (type)) (tyvardecl c (type)) - UTuple3_match + (tyvardecl a (type)) + (tyvardecl b (type)) + (tyvardecl c (type)) + (tyvardecl d (type)) + UTuple4_match (vardecl - UTuple3 (fun a (fun b (fun c [ [ [ UTuple3 a ] b ] c ]))) + UTuple4 + (fun + a (fun b (fun c (fun d [ [ [ [ UTuple4 a ] b ] c ] d ]))) + ) ) ) ) @@ -414,7 +427,10 @@ [ [ TxConstraints i ] o ] [ [ - [ UTuple3 [ List TxConstraint ] ] + [ + [ UTuple4 [ List TxConstraint ] ] + [ List TxConstraintFun ] + ] [ List [ ScriptInputConstraint i ] ] ] [ List [ ScriptOutputConstraint o ] ] @@ -439,21 +455,184 @@ [ [ [ - { + [ { - { UTuple3 [ List TxConstraint ] } - [ List [ ScriptInputConstraint i ] ] + { + { + { UTuple4 [ List TxConstraint ] } + [ List TxConstraintFun ] + } + [ List [ ScriptInputConstraint i ] ] + } + [ List [ ScriptOutputConstraint o ] ] } - [ List [ ScriptOutputConstraint o ] ] - } + [ + { + [ { { TxConstraints_match i } o } w ] + [ List TxConstraint ] + } + (lam + ds + [ List TxConstraint ] + (lam + ds + [ List TxConstraintFun ] + (lam + ds + [ List [ ScriptInputConstraint i ] ] + (lam + ds + [ + List [ ScriptOutputConstraint o ] + ] + [ + [ + [ + { + { foldr TxConstraint } + [ List TxConstraint ] + } + { Cons TxConstraint } + ] + [ + { + [ + { + { + TxConstraints_match i + } + o + } + w + ] + [ List TxConstraint ] + } + (lam + ds + [ List TxConstraint ] + (lam + ds + [ List TxConstraintFun ] + (lam + ds + [ + List + [ + ScriptInputConstraint + i + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + o + ] + ] + ds + ) + ) + ) + ) + ] + ] + ds + ] + ) + ) + ) + ) + ] + ] [ { [ { { TxConstraints_match i } o } w ] - [ List TxConstraint ] + [ List TxConstraintFun ] } (lam ds [ List TxConstraint ] + (lam + ds + [ List TxConstraintFun ] + (lam + ds + [ List [ ScriptInputConstraint i ] ] + (lam + ds + [ List [ ScriptOutputConstraint o ] ] + [ + [ + [ + { + { foldr TxConstraintFun } + [ List TxConstraintFun ] + } + { Cons TxConstraintFun } + ] + [ + { + [ + { + { TxConstraints_match i } + o + } + w + ] + [ List TxConstraintFun ] + } + (lam + ds + [ List TxConstraint ] + (lam + ds + [ List TxConstraintFun ] + (lam + ds + [ + List + [ + ScriptInputConstraint + i + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + o + ] + ] + ds + ) + ) + ) + ) + ] + ] + ds + ] + ) + ) + ) + ) + ] + ] + [ + { + [ { { TxConstraints_match i } o } w ] + [ List [ ScriptInputConstraint i ] ] + } + (lam + ds + [ List TxConstraint ] + (lam + ds + [ List TxConstraintFun ] (lam ds [ List [ ScriptInputConstraint i ] ] @@ -464,10 +643,18 @@ [ [ { - { foldr TxConstraint } - [ List TxConstraint ] + { + foldr + [ ScriptInputConstraint i ] + } + [ + List + [ ScriptInputConstraint i ] + ] + } + { + Cons [ ScriptInputConstraint i ] } - { Cons TxConstraint } ] [ { @@ -477,26 +664,36 @@ } w ] - [ List TxConstraint ] + [ + List + [ ScriptInputConstraint i ] + ] } (lam ds [ List TxConstraint ] (lam ds - [ - List - [ ScriptInputConstraint i ] - ] + [ List TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint o + ScriptInputConstraint i ] ] - ds + (lam + ds + [ + List + [ + ScriptOutputConstraint + o + ] + ] + ds + ) ) ) ) @@ -507,16 +704,20 @@ ) ) ) - ] + ) ] - [ - { - [ { { TxConstraints_match i } o } w ] - [ List [ ScriptInputConstraint i ] ] - } + ] + [ + { + [ { { TxConstraints_match i } o } w ] + [ List [ ScriptOutputConstraint o ] ] + } + (lam + ds + [ List TxConstraint ] (lam ds - [ List TxConstraint ] + [ List TxConstraintFun ] (lam ds [ List [ ScriptInputConstraint i ] ] @@ -529,13 +730,16 @@ { { foldr - [ ScriptInputConstraint i ] + [ ScriptOutputConstraint o ] } [ - List [ ScriptInputConstraint i ] + List + [ ScriptOutputConstraint o ] ] } - { Cons [ ScriptInputConstraint i ] } + { + Cons [ ScriptOutputConstraint o ] + } ] [ { @@ -544,7 +748,8 @@ w ] [ - List [ ScriptInputConstraint i ] + List + [ ScriptOutputConstraint o ] ] } (lam @@ -552,17 +757,23 @@ [ List TxConstraint ] (lam ds - [ - List - [ ScriptInputConstraint i ] - ] + [ List TxConstraintFun ] (lam ds [ List - [ ScriptOutputConstraint o ] + [ ScriptInputConstraint i ] ] - ds + (lam + ds + [ + List + [ + ScriptOutputConstraint o + ] + ] + ds + ) ) ) ) @@ -573,69 +784,7 @@ ) ) ) - ] - ] - [ - { - [ { { TxConstraints_match i } o } w ] - [ List [ ScriptOutputConstraint o ] ] - } - (lam - ds - [ List TxConstraint ] - (lam - ds - [ List [ ScriptInputConstraint i ] ] - (lam - ds - [ List [ ScriptOutputConstraint o ] ] - [ - [ - [ - { - { - foldr [ ScriptOutputConstraint o ] - } - [ - List [ ScriptOutputConstraint o ] - ] - } - { Cons [ ScriptOutputConstraint o ] } - ] - [ - { - [ - { { TxConstraints_match i } o } w - ] - [ - List [ ScriptOutputConstraint o ] - ] - } - (lam - ds - [ List TxConstraint ] - (lam - ds - [ - List [ ScriptInputConstraint i ] - ] - (lam - ds - [ - List - [ ScriptOutputConstraint o ] - ] - ds - ) - ) - ) - ] - ] - ds - ] - ) - ) - ) + ) ] ] ) @@ -704,7 +853,10 @@ ] [ [ - [ UTuple3 [ List TxConstraint ] ] + [ + [ UTuple4 [ List TxConstraint ] ] + [ List TxConstraintFun ] + ] [ List [ ScriptInputConstraint i ] ] ] [ List [ ScriptOutputConstraint o ] ] @@ -753,21 +905,44 @@ [ [ [ - { + [ { - { UTuple3 [ List TxConstraint ] } - [ List [ ScriptInputConstraint i ] ] + { + { + { UTuple4 [ List TxConstraint ] } + [ List TxConstraintFun ] + } + [ List [ ScriptInputConstraint i ] ] + } + [ List [ ScriptOutputConstraint o ] ] } - [ List [ ScriptOutputConstraint o ] ] - } - [ [ [ - { - { foldr TxConstraint } - [ List TxConstraint ] - } - { Cons TxConstraint } + [ + { + { foldr TxConstraint } + [ List TxConstraint ] + } + { Cons TxConstraint } + ] + [ + { build TxConstraint } + (abs + a + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a + [ + [ c [ MustIncludeDatum w ] ] n + ] + ) + ) + ) + ] ] [ { build TxConstraint } @@ -780,39 +955,37 @@ (lam n a - [ [ c [ MustIncludeDatum w ] ] n ] - ) - ) - ) - ] - ] - [ - { build TxConstraint } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n - a - [ [ - c [ + c [ - [ MustPayToOtherScript w ] w + [ + [ MustPayToOtherScript w ] + w + ] + w ] - w ] + n ] - n - ] + ) ) ) - ) + ] + ] + ] + [ + [ + [ + { + { foldr TxConstraintFun } + [ List TxConstraintFun ] + } + { Cons TxConstraintFun } + ] + { Nil TxConstraintFun } ] + { Nil TxConstraintFun } ] ] [ @@ -1435,49 +1608,56 @@ [ [ [ - { - { - TxConstraints - i - } - o - } [ { - build - TxConstraint + { + TxConstraints + i + } + o } - (abs - a - (type) - (lam - c - (fun - TxConstraint + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c (fun - a a + TxConstraint + (fun + a + a + ) ) - ) - (lam - n - a - [ + (lam + n + a [ - c [ + c [ - MustHashDatum + [ + MustHashDatum + ww + ] ww ] - ww ] + n ] - n - ] + ) ) ) - ) + ] ] + { + Nil + TxConstraintFun + } ] { Nil @@ -6925,16 +7105,22 @@ [ [ [ - { + [ { - TxConstraints + { + TxConstraints + Void + } Void } - Void - } + { + Nil + TxConstraint + } + ] { Nil - TxConstraint + TxConstraintFun } ] { @@ -8172,10 +8358,16 @@ { { { - UTuple3_match + { + UTuple4_match + [ + List + TxConstraint + ] + } [ List - TxConstraint + TxConstraintFun ] } [ @@ -8385,10 +8577,16 @@ { { { - UTuple3_match + { + UTuple4_match + [ + List + TxConstraint + ] + } [ List - TxConstraint + TxConstraintFun ] } [ @@ -8554,116 +8752,6 @@ ] ) ) - (termbind - (nonstrict) - (vardecl - w - [ - [ - TxConstraints - Void - ] - Void - ] - ) - [ - { - [ - { - { - { - UTuple3_match - [ - List - TxConstraint - ] - } - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - } - [ - [ - [ - { - { - wmustPayToOtherScript - Void - } - Void - } - ww - ] - unitDatum - ] - ww - ] - ] - [ - [ - TxConstraints - Void - ] - Void - ] - } - (lam - ww - [ - List - TxConstraint - ] - (lam - ww - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ww - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - [ - [ - [ - { - { - TxConstraints - Void - } - Void - } - ww - ] - ww - ] - ww - ] - ) - ) - ) - ] - ) (termbind (strict) (vardecl @@ -8730,169 +8818,88 @@ delta ] ) - (termbind - (nonstrict) - (vardecl - w - [ - [ - TxConstraints - Void - ] - Void - ] - ) + [ [ { - [ - { + { + wc + Void + } + Void + } + [ + { + [ { { - UTuple3_match + { + { + UTuple4_match + [ + List + TxConstraint + ] + } + [ + List + TxConstraintFun + ] + } [ List - TxConstraint + [ + ScriptInputConstraint + Void + ] ] } [ List [ - ScriptInputConstraint + ScriptOutputConstraint Void ] ] } - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - } - [ - [ - [ - { - { - wmustPayToOtherScript - Void - } - Void - } - ww - ] - unitDatum - ] - ww - ] - ] - [ - [ - TxConstraints - Void - ] - Void - ] - } - (lam - ww - [ - List - TxConstraint - ] - (lam - ww - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ww - [ - List - [ - ScriptOutputConstraint - Void - ] - ] [ [ [ { { - TxConstraints + wmustPayToOtherScript Void } Void } ww ] - ww + unitDatum ] ww ] - ) - ) - ) - ] - ) - [ - [ - [ - { - { - { - UTuple3 - [ - List - TxConstraint - ] - } - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } + ] [ - List [ - ScriptOutputConstraint + TxConstraints Void ] + Void ] } - [ - { - [ - { - { - TxConstraints_match - Void - } - Void - } - w - ] - [ - List - TxConstraint - ] - } + (lam + ww + [ + List + TxConstraint + ] (lam - ds + ww [ List - TxConstraint + TxConstraintFun ] (lam - ds + ww [ List [ @@ -8901,7 +8908,7 @@ ] ] (lam - ds + ww [ List [ @@ -8912,326 +8919,137 @@ [ [ [ - { + [ { - foldr - TxConstraint - } - [ - List - TxConstraint - ] - } - { - Cons - TxConstraint - } - ] - [ - { - [ { - { - TxConstraints_match - Void - } + TxConstraints Void } - w - ] - [ - List - TxConstraint - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - ds - ) - ) - ) + Void + } + ww + ] + ww ] + ww ] - ds + ww ] ) ) ) - ] + ) ] - [ - { - [ + ] + [ + { + [ + { { { - TxConstraints_match - Void + { + UTuple4_match + [ + List + TxConstraint + ] + } + [ + List + TxConstraintFun + ] } - Void + [ + List + [ + ScriptInputConstraint + Void + ] + ] } - w - ] - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds [ List [ - ScriptInputConstraint + ScriptOutputConstraint Void ] ] - (lam - ds + } + [ + [ [ - List - [ - ScriptOutputConstraint + { + { + wmustPayToOtherScript + Void + } Void - ] - ] - [ - [ - [ - { - { - foldr - [ - ScriptInputConstraint - Void - ] - } - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - { - Cons - [ - ScriptInputConstraint - Void - ] - } - ] - [ - { - [ - { - { - TxConstraints_match - Void - } - Void - } - w - ] - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - ds - ) - ) - ) - ] - ] - ds + } + ww ] - ) - ) - ) - ] - ] - [ - { - [ - { - { - TxConstraints_match - Void - } - Void - } - w + unitDatum + ] + ww + ] ] [ - List [ - ScriptOutputConstraint + TxConstraints Void ] + Void ] } (lam - ds + ww [ List TxConstraint ] (lam - ds + ww [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam - ds + ww [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] - ] - [ - [ - [ - { - { - foldr - [ - ScriptOutputConstraint - Void - ] - } - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - } - { - Cons - [ - ScriptOutputConstraint - Void - ] - } + ] + (lam + ww + [ + List + [ + ScriptOutputConstraint + Void ] + ] + [ [ - { + [ [ { { - TxConstraints_match + TxConstraints Void } Void } - w - ] - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - } - (lam - ds - [ - List - TxConstraint + ww ] - (lam - ds - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - ds - ) - ) - ) + ww + ] + ww ] + ww ] - ds - ] + ) ) ) ) @@ -9257,36 +9075,46 @@ ww [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ww [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - [ + (lam + ww [ + List [ - { - { - TxConstraints - Void - } - Void - } + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + ww + ] + ww + ] ww ] ww ] - ww - ] + ) ) ) ) @@ -9319,36 +9147,46 @@ ww [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ww [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - [ + (lam + ww + [ + List + [ + ScriptOutputConstraint + Void + ] + ] [ [ - { - { - TxConstraints - Void - } - Void - } + [ + [ + { + { + TxConstraints + Void + } + Void + } + ww + ] + ww + ] ww ] ww ] - ww - ] + ) ) ) ) @@ -9446,40 +9284,195 @@ TxConstraints Void ] - Void - ] - } - [ - State - FutureState - ] - } - [ - [ - [ - { - { - TxConstraints - Void - } - Void - } + Void + ] + } + [ + State + FutureState + ] + } + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + [ + [ + [ + { + { + foldr + TxConstraint + } + [ + List + TxConstraint + ] + } + { + Cons + TxConstraint + } + ] + [ + { + [ + { + { + TxConstraints_match + Void + } + Void + } + w + ] + [ + List + TxConstraint + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + ds + ) + ) + ) + ) + ] + ] + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c + (fun + TxConstraint + (fun + a + a + ) + ) + (lam + n + a + [ + [ + c + [ + MustValidateIn + [ + [ + { + Interval + (con + integer + ) + } + [ + [ + { + LowerBound + (con + integer + ) + } + [ + { + Finite + (con + integer + ) + } + ww + ] + ] + True + ] + ] + [ + [ + { + UpperBound + (con + integer + ) + } + { + PosInf + (con + integer + ) + } + ] + True + ] + ] + ] + ] + n + ] + ) + ) + ) + ] + ] + ] [ [ [ { { foldr - TxConstraint + TxConstraintFun } [ List - TxConstraint + TxConstraintFun ] } { Cons - TxConstraint + TxConstraintFun } ] [ @@ -9496,7 +9489,7 @@ ] [ List - TxConstraint + TxConstraintFun ] } (lam @@ -9509,106 +9502,37 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - ds - ) - ) - ) - ] - ] - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun - TxConstraint - (fun - a - a - ) - ) - (lam - n - a - [ - [ - c + (lam + ds [ - MustValidateIn + List [ - [ - { - Interval - (con - integer - ) - } - [ - [ - { - LowerBound - (con - integer - ) - } - [ - { - Finite - (con - integer - ) - } - ww - ] - ] - True - ] - ] - [ - [ - { - UpperBound - (con - integer - ) - } - { - PosInf - (con - integer - ) - } - ] - True - ] + ScriptOutputConstraint + Void ] ] - ] - n - ] + ds + ) + ) ) ) - ) + ] ] + { + Nil + TxConstraintFun + } ] ] [ @@ -9668,21 +9592,28 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - ds + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + ds + ) ) ) ) @@ -9754,21 +9685,28 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - ds + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + ds + ) ) ) ) @@ -10976,10 +10914,16 @@ { { { - UTuple3_match + { + UTuple4_match + [ + List + TxConstraint + ] + } [ List - TxConstraint + TxConstraintFun ] } [ @@ -11036,10 +10980,16 @@ { { { - UTuple3_match + { + UTuple4_match + [ + List + TxConstraint + ] + } [ List - TxConstraint + TxConstraintFun ] } [ @@ -11150,36 +11100,46 @@ ww [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ww [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - [ + (lam + ww + [ + List + [ + ScriptOutputConstraint + Void + ] + ] [ [ - { - { - TxConstraints - Void - } - Void - } + [ + [ + { + { + TxConstraints + Void + } + Void + } + ww + ] + ww + ] ww ] ww ] - ww - ] + ) ) ) ) @@ -11195,10 +11155,16 @@ { { { - UTuple3_match + { + UTuple4_match + [ + List + TxConstraint + ] + } [ List - TxConstraint + TxConstraintFun ] } [ @@ -11309,36 +11275,46 @@ ww [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ww [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - [ + (lam + ww [ + List [ - { - { - TxConstraints - Void - } - Void - } + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + ww + ] + ww + ] ww ] ww ] - ww - ] + ) ) ) ) @@ -11373,36 +11349,46 @@ ww [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ww [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - [ + (lam + ww [ + List [ - { - { - TxConstraints - Void - } - Void - } + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + ww + ] + ww + ] ww ] ww ] - ww - ] + ) ) ) ) diff --git a/plutus-use-cases/test/Spec/gameStateMachine.pir b/plutus-use-cases/test/Spec/gameStateMachine.pir index aaf2d809c1..be09b3c9f4 100644 --- a/plutus-use-cases/test/Spec/gameStateMachine.pir +++ b/plutus-use-cases/test/Spec/gameStateMachine.pir @@ -1,6 +1,8 @@ (program (let (nonrec) + (termbind (strict) (vardecl w (con integer)) (con integer 0)) + (termbind (strict) (vardecl w (con integer)) (con integer 1)) (datatypebind (datatype (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit)) ) @@ -3916,6 +3918,214 @@ (vardecl minAdaTxOut (con integer)) (con integer 2000000) ) + (termbind + (strict) + (vardecl + wfindDatum + (fun + (con bytestring) + (fun + [ List [ [ Tuple2 (con bytestring) ] (con data) ] ] + [ Maybe (con data) ] + ) + ) + ) + (lam + w + (con bytestring) + (lam + ww + [ List [ [ Tuple2 (con bytestring) ] (con data) ] ] + { + [ + [ + { + [ + { + 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 + [ + [ Tuple2 (con bytestring) ] (con data) + ] + [ + { + [ + { + { + Tuple2_match (con bytestring) + } + (con data) + } + x + ] + [ + Maybe + [ + [ Tuple2 (con bytestring) ] + (con data) + ] + ] + } + (lam + dsh + (con bytestring) + (lam + ds + (con data) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + dsh + ] + w + ] + ] + True + ] + False + ] + ] + (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) + ] + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + ) + ] + ww + ] + ] + (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) + ) + ] + ] + ) + ) + ] + (abs dead (type) { Nothing (con data) }) + ] + (all dead (type) dead) + } + ) + ) + ) (termbind (strict) (vardecl fAdditiveGroupValue (con integer)) @@ -6463,388 +6673,74 @@ data ) } + [ + [ + wfindDatum + dvh + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (lam + a + (con + data + ) + (abs + dead + (type) { [ [ { [ - { - Maybe_match - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - } + Bool_match [ [ [ { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - [ - Maybe - a - ] - ) - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - ] - } + (builtin + ifThenElse + ) + Bool + } + [ [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data + (builtin + equalsData ) + a ] - } - { - fMonoidFirst - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - } - ] - (lam - x - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - [ - { - [ - { - { - Tuple2_match - (con - bytestring - ) - } - (con - data - ) - } - x - ] - [ - Maybe - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - ] - } - (lam - dsh - (con - bytestring - ) - (lam - ds - (con - data - ) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - dsh - ] - dvh - ] - ] - True - ] - False - ] - ] - (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 - ) - ] - } - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) + dv ] - ) + ] + True ] - ww + False ] ] (all dead (type) - [ - Maybe - (con - data - ) - ] + Bool ) } - (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 - ) - ) - ] - ] - ) + (abs + dead + (type) + True ) ] (abs dead (type) - { - Nothing - (con - data - ) - } - ) - ] - (all - dead - (type) - dead - ) - } - ] - (all - dead - (type) - Bool - ) - } - (lam - a - (con - data - ) - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsData - ) - a - ] - dv - ] - ] - True - ] - False - ] - ] - (all - dead - (type) - Bool - ) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - j + j ) ] (all @@ -12997,6 +12893,57 @@ ) ) ) + (datatypebind + (datatype + (tyvardecl TxConstraintFun (type)) + + TxConstraintFun_match + (vardecl + MustSpendScriptOutputWithMatchingDatumAndValue + (fun + (con bytestring) + (fun + (fun (con data) Bool) + (fun + (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 + ) + (fun (con data) TxConstraintFun) + ) + ) + ) + ) + ) + ) (termbind (strict) (vardecl @@ -13012,10 +12959,15 @@ (fun [ List TxConstraint ] (fun - [ List [ ScriptInputConstraint i ] ] + [ List TxConstraintFun ] (fun - [ List [ ScriptOutputConstraint o ] ] - (fun ScriptContext Bool) + [ List [ ScriptInputConstraint i ] ] + (fun + [ + List [ ScriptOutputConstraint o ] + ] + (fun ScriptContext Bool) + ) ) ) ) @@ -13037,205 +12989,149 @@ [ List TxConstraint ] (lam ww - [ List [ ScriptInputConstraint i ] ] + [ List TxConstraintFun ] (lam ww - [ List [ ScriptOutputConstraint o ] ] + [ List [ ScriptInputConstraint i ] ] (lam - w - ScriptContext - { - [ + ww + [ List [ ScriptOutputConstraint o ] ] + (lam + w + ScriptContext + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - { - fFoldableNil_cfoldMap - [ - (lam a (type) a) - Bool - ] - } - TxConstraint - } [ { - fMonoidProduct - Bool + { + fFoldableNil_cfoldMap + [ + (lam + a (type) a + ) + Bool + ] + } + TxConstraint } - fMultiplicativeMonoidBool + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] ] - ] - (lam - w - TxConstraint - [ - { - [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo + (lam + w + TxConstraint + [ + { + [ + ScriptContext_match + w + ] + Bool + } (lam ww - ScriptPurpose - [ + TxInfo + (lam + ww + ScriptPurpose [ - wcheckTxConstraint - ww + [ + wcheckTxConstraint + ww + ] + w ] - w - ] + ) ) - ) - ] - ) + ] + ) + ] + ww ] - ww ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ + (all dead (type) Bool) + } + (abs + dead + (type) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxConstraintFun } [ - ScriptInputConstraint - i + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool ] - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - (lam - w - [ - ScriptInputConstraint - i ] - [ - { - [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo + (lam + w + TxConstraintFun + [ + { + [ + ScriptContext_match + w + ] + Bool + } (lam ww - ScriptPurpose - [ - { - [ - TxInfo_match - ww - ] - Bool - } - (lam - ww - [ - List - TxInInfo - ] - (lam + TxInfo + (lam + ww + ScriptPurpose + [ + { + [ + TxInfo_match + ww + ] + Bool + } + (lam ww [ List - TxOut + TxInInfo ] (lam ww [ - [ - (lam - k - (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 ww @@ -13295,697 +13191,1447 @@ (lam ww [ - 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 ww [ List - [ - [ - Tuple2 - StakingCredential - ] - (con - integer - ) - ] + DCert + ] + (lam + ww + [ + List + [ + [ + Tuple2 + StakingCredential + ] + (con + integer + ) + ] + ] + (lam + ww + [ + Interval + (con + integer + ) + ] + (lam + ww + [ + List + (con + bytestring + ) + ] + (lam + ww + [ + List + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + data + ) + ] + ] + (lam + ww + (con + bytestring + ) + [ + { + [ + TxConstraintFun_match + w + ] + Bool + } + (lam + ww + (con + bytestring + ) + (lam + ww + (fun + (con + data + ) + Bool + ) + (lam + ww + (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 + ww + (con + data + ) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxInInfo + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + (lam + x + TxInInfo + [ + { + [ + TxInInfo_match + x + ] + Bool + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + Bool + } + (lam + ds + Address + (lam + val + [ + [ + (lam + k + (type) + (lam + 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 + ] + Bool + } + (lam + ds + Credential + (lam + ds + [ + Maybe + StakingCredential + ] + [ + [ + { + [ + Credential_match + ds + ] + Bool + } + (lam + ipv + (con + bytestring + ) + False + ) + ] + (lam + vh + (con + bytestring + ) + { + [ + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) + Bool + ) + } + (lam + x + (con + bytestring + ) + (abs + dead + (type) + { + [ + [ + { + [ + { + Maybe_match + (con + data + ) + } + [ + [ + wfindDatum + x + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (lam + d + (con + data + ) + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + ww + ] + vh + ] + ] + True + ] + False + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + ww + val + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + [ + ww + d + ] + ) + ] + (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 + ) + } + ) + ] + ) + ) + ] + ) + ) + ) + ] + ) + ) + ] + ) + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "Le" + ) + ] + False + ] + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) + ) + ) + ] + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ] + ) + ) + ] + ) + ] + ww + ] + ] + (all + dead (type) Bool + ) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + [ + ScriptInputConstraint + i + ] + } + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] + ] + (lam + w + [ + ScriptInputConstraint + i + ] + [ + { + [ + ScriptContext_match + w + ] + Bool + } + (lam + ww + TxInfo + (lam + ww + ScriptPurpose + [ + { + [ + TxInfo_match + ww + ] + Bool + } + (lam + ww + [ + List + TxInInfo ] (lam ww [ - Interval - (con - integer - ) + List + TxOut ] (lam ww [ - 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 ww [ - List + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] [ [ - Tuple2 + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con bytestring ) ] (con - data + integer ) ] ] (lam ww - (con - bytestring - ) [ - { + List + DCert + ] + (lam + ww + [ + List [ - { - ScriptInputConstraint_match - i - } - w + [ + Tuple2 + StakingCredential + ] + (con + integer + ) ] - Bool - } + ] (lam ww - i + [ + Interval + (con + integer + ) + ] (lam ww - TxOutRef - { + [ + List + (con + bytestring + ) + ] + (lam + ww [ + List + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + data + ) + ] + ] + (lam + ww + (con + bytestring + ) [ { [ - Bool_match - [ + { + ScriptInputConstraint_match + i + } + w + ] + Bool + } + (lam + ww + i + (lam + ww + TxOutRef + { [ [ { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - TxInInfo - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxInInfo - [ - { + [ + Bool_match [ - TxInInfo_match - ds + [ + [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxInInfo + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + (lam + ds + TxInInfo + [ + { + [ + TxInInfo_match + ds + ] + Bool + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + [ + fEqTxOutRef_c + ds + ] + ww + ] + ) + ) + ] + ) + ] + ww ] + ] + (all + dead + (type) Bool - } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - [ - fEqTxOutRef_c - ds - ] - ww - ] - ) ) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L0" + ) + ] + False ] ) ] - ww - ] - ] - (all - dead - (type) - Bool + (all + dead + (type) + dead + ) + } ) - } - (abs - dead - (type) - True ) ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L0" - ) - ] - False - ] - ) - ] - (all - dead - (type) - dead ) - } + ) ) ) - ] + ) ) ) ) ) ) - ) + ] ) ) - ) + ] ) ] - ) + ww + ] + ] + (all + dead + (type) + Bool ) - ] - ) - ] - ww - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match - [ + } + (abs + dead + (type) + { [ [ { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } [ - ScriptOutputConstraint - o - ] - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - (lam - w - [ - ScriptOutputConstraint - o - ] - [ - { + Bool_match [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo - (lam - ww - ScriptPurpose [ - { + [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + [ + ScriptOutputConstraint + o + ] + } [ - TxInfo_match - ww + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool ] - Bool - } + ] (lam - ww + w [ - List - TxInInfo + ScriptOutputConstraint + o ] - (lam - ww - [ - List - TxOut - ] - (lam - ww + [ + { [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - ww - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ + ScriptContext_match + w + ] + Bool + } + (lam + ww + TxInfo + (lam + ww + ScriptPurpose + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + TxInfo_match + ww ] - (con - integer - ) - ] - ] - (lam - ww - [ - List - DCert - ] + Bool + } (lam ww [ List - [ - [ - Tuple2 - StakingCredential - ] - (con - integer - ) - ] + TxInInfo ] (lam ww [ - Interval - (con - integer - ) + List + TxOut ] (lam ww [ - 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 ww [ - List + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] [ [ - Tuple2 + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con bytestring ) ] (con - data + integer ) ] ] (lam ww - (con - bytestring - ) [ - { + List + DCert + ] + (lam + ww + [ + List [ - { - ScriptOutputConstraint_match - o - } - w + [ + Tuple2 + StakingCredential + ] + (con + integer + ) ] - Bool - } + ] (lam ww - o + [ + Interval + (con + integer + ) + ] (lam ww [ + List + (con + bytestring + ) + ] + (lam + ww [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] + List + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + data ) - ) + ] + ] + (lam + ww (con bytestring ) - ] - [ [ + { + [ + { + ScriptOutputConstraint_match + o + } + w + ] + Bool + } (lam - k - (type) + ww + o (lam - v - (type) + ww [ - List + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] [ [ - Tuple2 - k + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] - v + (con + integer + ) ] ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - { - [ - [ - { - [ - Bool_match - [ + { [ [ { - { - 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) + { + { + fFoldableNil_cfoldMap [ - List - [ - [ - Tuple2 - k - ] - v - ] + (lam + a + (type) + a + ) + Bool ] - ) - ) - (con - bytestring - ) + } + TxOut + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] ] - [ + (lam + ds + TxOut [ + { + [ + TxOut_match + ds + ] + Bool + } (lam - k - (type) + ds + Address (lam - v - (type) + ds [ - List [ - [ - 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 + ) ] - v + (con + integer + ) ] ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - { - [ - [ - { - [ - { - Maybe_match + (lam + ds + [ + Maybe (con bytestring ) - } - ds - ] - (all - dead - (type) - Bool - ) - } - (lam - svh - (con - bytestring - ) - (abs - dead - (type) + ] { [ [ { [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - lessThanInteger - ) - [ - [ - [ - valueOf - ds - ] - emptyByteString - ] - emptyByteString - ] - ] - [ - [ - [ - valueOf - ww - ] - emptyByteString - ] - emptyByteString - ] - ] - ] - False - ] - True - ] + { + Maybe_match + (con + bytestring + ) + } + ds ] (all dead @@ -13993,727 +14639,804 @@ Bool ) } - (abs - dead - (type) - { - [ + (lam + svh + (con + bytestring + ) + (abs + dead + (type) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - lessThanEqualsInteger + ifThenElse ) - [ - [ - [ - valueOf - ds - ] - emptyByteString - ] - emptyByteString - ] - ] + Bool + } [ [ (builtin - addInteger + lessThanInteger ) [ [ [ valueOf - ww + ds ] emptyByteString ] emptyByteString ] ] - minAdaTxOut + [ + [ + [ + valueOf + ww + ] + emptyByteString + ] + emptyByteString + ] ] ] + False ] True ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - checkBinRel - equalsInteger - ] - [ - noAdaValue - ds + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + [ + [ + [ + valueOf + ds + ] + emptyByteString + ] + emptyByteString + ] + ] + [ + [ + (builtin + addInteger + ) + [ + [ + [ + valueOf + ww + ] + emptyByteString + ] + emptyByteString + ] + ] + minAdaTxOut + ] + ] + ] + True ] - ] - [ - noAdaValue - ww + False ] ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - { - Maybe_match - (con - bytestring - ) - } + [ + { [ + Bool_match [ - wfindDatumHash [ - w + [ + checkBinRel + equalsInteger + ] + [ + noAdaValue + ds + ] + ] + [ + noAdaValue ww ] ] - ww ] - ] - (all - dead - (type) - Bool - ) - } - (lam - a - (con - bytestring - ) + (all + dead + (type) + Bool + ) + } (abs dead (type) - [ + { [ - equalsByteString - a + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + [ + [ + wfindDatumHash + [ + w + ww + ] + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (lam + a + (con + bytestring + ) + (abs + dead + (type) + [ + [ + equalsByteString + a + ] + svh + ] + ) + ) + ] + (abs + dead + (type) + False + ) ] - svh - ] + (all + dead + (type) + dead + ) + } ) + ] + (abs + dead + (type) + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (abs + dead + (type) + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (abs + dead + (type) + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ] (abs - dead - (type) - False - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - ] - (abs - dead - (type) - False - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - ) - ] - ) - ] - { - [ - [ - { - [ - { - Maybe_match - TxInInfo - } - [ - [ - wfindOwnInput - ww - ] - ww - ] - ] - (all - dead - (type) - [ - List - TxOut - ] - ) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { - [ - TxInInfo_match - ds + dead + (type) + False + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) + ) ] + ) + ] + { + [ [ - List - TxOut - ] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { + { + [ + { + Maybe_match + TxInInfo + } [ - TxOut_match - ds + [ + wfindOwnInput + ww + ] + ww ] + ] + (all + dead + (type) [ List TxOut ] - } - (lam - ds - Address - (lam - ds - [ + ) + } + (lam + ds + TxInInfo + (abs + dead + (type) + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + TxInInfo_match + ds ] [ + List + TxOut + ] + } + (lam + ds + TxOutRef + (lam + ds + TxOut [ + { + [ + TxOut_match + ds + ] + [ + List + TxOut + ] + } (lam - k - (type) + ds + Address (lam - v - (type) + ds [ - List [ - [ - 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 + ) ] - v + (con + integer + ) ] ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - [ - [ - [ - { - { - foldr - TxOut - } - [ - List - TxOut - ] - } - (lam - e - TxOut (lam - xs + ds [ - List - TxOut + Maybe + (con + bytestring + ) ] [ - { - [ - TxOut_match - e - ] + [ [ - List - TxOut - ] - } - (lam - ds - Address - (lam - ds - [ + { + { + foldr + TxOut + } [ - (lam - k - (type) - (lam - v - (type) + List + TxOut + ] + } + (lam + e + TxOut + (lam + xs + [ + List + TxOut + ] + [ + { + [ + TxOut_match + e + ] [ List - [ - [ - Tuple2 - k - ] - v - ] + TxOut ] - ) - ) - (con - bytestring - ) - ] - [ - [ + } (lam - k - (type) + ds + Address (lam - v - (type) + ds [ - List [ - [ - Tuple2 + (lam k - ] - v + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - [ - { - [ - Address_match - ds - ] - [ - List - TxOut - ] - } - (lam - ww - Credential - (lam - ww - [ - Maybe - StakingCredential - ] - [ - { [ - Address_match - ds + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) ] + ] + (lam + ds [ - List - TxOut + Maybe + (con + bytestring + ) ] - } - (lam - ww - Credential - (lam - ww - [ - Maybe - StakingCredential - ] + [ { [ + Address_match + ds + ] + [ + List + TxOut + ] + } + (lam + ww + Credential + (lam + ww + [ + Maybe + StakingCredential + ] [ { [ - Bool_match + Address_match + ds + ] + [ + List + TxOut + ] + } + (lam + ww + Credential + (lam + ww [ + Maybe + StakingCredential + ] + { [ [ - [ - wc - ww - ] - ww + { + [ + Bool_match + [ + [ + [ + [ + wc + ww + ] + ww + ] + ww + ] + ww + ] + ] + (all + dead + (type) + [ + List + TxOut + ] + ) + } + (abs + dead + (type) + [ + [ + { + Cons + TxOut + } + e + ] + xs + ] + ) ] - ww + (abs + dead + (type) + xs + ) ] - ww - ] - ] - (all - dead - (type) - [ - List - TxOut - ] + (all + dead + (type) + dead + ) + } ) - } - (abs - dead - (type) - [ - [ - { - Cons - TxOut - } - e - ] - xs - ] ) ] - (abs - dead - (type) - xs - ) - ] - (all - dead - (type) - dead ) - } - ) + ) + ] ) - ] + ) ) - ) - ] + ] + ) ) - ) - ) + ] + { + Nil + TxOut + } + ] + ww ] ) ) - ] - { - Nil - TxOut - } + ) ] - ww - ] + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + thunk + (con + unit ) ) + [ + { + [ + Unit_match + [ + [ + { + (builtin + trace + ) + Unit + } + (con + string + "Lf" + ) + ] + Unit + ] + ] + (con + unit + ) + } + unitval + ] ) - ] + (error + [ + List + TxOut + ] + ) + ) ) + ] + (all + dead + (type) + dead ) - ] - ) + } + ] + ] + (all + dead + (type) + Bool ) - ] + } (abs dead (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - thunk - (con - unit - ) - ) - [ - { - [ - Unit_match - [ - [ - { - (builtin - trace - ) - Unit - } - (con - string - "Lf" - ) - ] - Unit - ] - ] - (con - unit - ) - } - unitval - ] - ) - (error - [ - List - TxOut - ] - ) - ) + True ) ] - (all + (abs dead (type) - dead + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L1" + ) + ] + False + ] ) - } - ] - ] - (all - dead - (type) - Bool + ] + (all + dead + (type) + dead + ) + } ) - } - (abs - dead - (type) - True ) ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L1" - ) - ] - False - ] - ) - ] - (all - dead - (type) - dead ) - } + ) ) ) - ] + ) ) ) ) ) ) - ) + ] ) ) - ) + ] ) ] - ) + ww + ] + ] + (all + dead + (type) + Bool ) - ] + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + j ) ] - ww - ] - ] - (all - dead - (type) - Bool + (all + dead + (type) + dead + ) + } ) - } + ] (abs - dead - (type) - True + dead (type) j ) ] - (abs - dead (type) j + (all + dead (type) dead ) - ] - (all - dead (type) dead - ) - } - ) + } + ) + ] + (abs dead (type) j) ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ] + (abs dead (type) j) ] - (abs dead (type) j) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ) ) @@ -14790,10 +15513,13 @@ (fun [ List TxConstraint ] (fun - [ List [ ScriptInputConstraint i ] ] + [ List TxConstraintFun ] (fun - [ List [ ScriptOutputConstraint o ] ] - [ [ TxConstraints i ] o ] + [ List [ ScriptInputConstraint i ] ] + (fun + [ List [ ScriptOutputConstraint o ] ] + [ [ TxConstraints i ] o ] + ) ) ) ) @@ -15603,24 +16329,6 @@ } ) ) - (datatypebind - (datatype - (tyvardecl - UTuple3 - (fun (type) (fun (type) (fun (type) (type)))) - ) - (tyvardecl a (type)) - (tyvardecl b (type)) - (tyvardecl c (type)) - UTuple3_match - (vardecl - UTuple3 - (fun - a (fun b (fun c [ [ [ UTuple3 a ] b ] c ])) - ) - ) - ) - ) (termbind (strict) (vardecl @@ -15646,247 +16354,6 @@ ) ) ) - (termbind - (strict) - (vardecl - wmustMintCurrencyWithRedeemer - (all - i - (type) - (all - o - (type) - (fun - (con bytestring) - (fun - (con data) - (fun - (con bytestring) - (fun - (con integer) - [ - [ - [ UTuple3 [ List TxConstraint ] ] - [ - List [ ScriptInputConstraint i ] - ] - ] - [ - List [ ScriptOutputConstraint o ] - ] - ] - ) - ) - ) - ) - ) - ) - ) - (abs - i - (type) - (abs - o - (type) - (lam - w - (con bytestring) - (lam - w - (con data) - (lam - w - (con bytestring) - (lam - w - (con integer) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin ifThenElse) - Bool - } - [ - [ - (builtin - equalsInteger - ) - w - ] - (con integer 0) - ] - ] - True - ] - False - ] - ] - (all - dead - (type) - [ - [ - [ - UTuple3 - [ List TxConstraint ] - ] - [ - List - [ - ScriptInputConstraint - i - ] - ] - ] - [ - List - [ - ScriptOutputConstraint o - ] - ] - ] - ) - } - (abs - dead - (type) - [ - [ - [ - { - { - { - UTuple3 - [ - List TxConstraint - ] - } - [ - List - [ - ScriptInputConstraint - i - ] - ] - } - [ - List - [ - ScriptOutputConstraint - o - ] - ] - } - { Nil TxConstraint } - ] - { - Nil - [ - ScriptInputConstraint i - ] - } - ] - { - Nil - [ ScriptOutputConstraint o ] - } - ] - ) - ] - (abs - dead - (type) - [ - [ - [ - { - { - { - UTuple3 - [ List TxConstraint ] - } - [ - List - [ - ScriptInputConstraint - i - ] - ] - } - [ - List - [ - ScriptOutputConstraint - o - ] - ] - } - [ - { build TxConstraint } - (abs - a - (type) - (lam - c - (fun - TxConstraint - (fun a a) - ) - (lam - n - a - [ - [ - c - [ - [ - [ - [ - MustMintValue - w - ] - w - ] - w - ] - w - ] - ] - n - ] - ) - ) - ) - ] - ] - { - Nil - [ ScriptInputConstraint i ] - } - ] - { - Nil - [ ScriptOutputConstraint o ] - } - ] - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ) - ) - ) - ) (termbind (strict) (vardecl @@ -16521,89 +16988,97 @@ GameState ] } - [ - { + { + [ [ { - { - { - UTuple3_match + [ + Bool_match + [ [ - List - TxConstraint + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + w + ] + (con + integer + 0 + ) + ] + ] + True ] - } + False + ] + ] + (all + dead + (type) [ - List [ - ScriptInputConstraint + TxConstraints Void ] - ] - } - [ - List - [ - ScriptOutputConstraint Void ] - ] + ) } - [ + (abs + dead + (type) [ [ [ - { + [ { - wmustMintCurrencyWithRedeemer + { + TxConstraints + Void + } Void } - Void + { + Nil + TxConstraint + } + ] + { + Nil + TxConstraintFun } - mph ] - unitDatum + { + Nil + [ + ScriptInputConstraint + Void + ] + } ] - tn + { + Nil + [ + ScriptOutputConstraint + Void + ] + } ] - (con - integer - 1 - ) - ] - ] - [ - [ - TxConstraints - Void - ] - Void - ] - } - (lam - ww - [ - List - TxConstraint + ) ] - (lam - ww + (abs + dead + (type) [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ww - [ - List - [ - ScriptOutputConstraint - Void - ] - ] [ [ [ @@ -16614,16 +17089,79 @@ } Void } - ww + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c + (fun + TxConstraint + (fun + a + a + ) + ) + (lam + n + a + [ + [ + c + [ + [ + [ + [ + MustMintValue + mph + ] + unitDatum + ] + tn + ] + w + ] + ] + n + ] + ) + ) + ) + ] ] - ww + { + Nil + TxConstraintFun + } ] - ww + { + Nil + [ + ScriptInputConstraint + Void + ] + } ] - ) + { + Nil + [ + ScriptOutputConstraint + Void + ] + } + ] ) + ] + (all + dead + (type) + dead ) - ] + } ] [ [ @@ -16679,89 +17217,97 @@ Void ] ) - [ - { + { + [ [ { - { - { - UTuple3_match + [ + Bool_match + [ [ - List - TxConstraint + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + w + ] + (con + integer + 0 + ) + ] + ] + True ] - } + False + ] + ] + (all + dead + (type) [ - List [ - ScriptInputConstraint + TxConstraints Void ] - ] - } - [ - List - [ - ScriptOutputConstraint Void ] - ] + ) } - [ + (abs + dead + (type) [ [ [ - { + [ { - wmustMintCurrencyWithRedeemer + { + TxConstraints + Void + } Void } - Void - } - mph - ] - unitDatum - ] - tn - ] - (con - integer - 0 - ) - ] - ] - [ - [ - TxConstraints - Void - ] - Void - ] - } - (lam - ww - [ - List - TxConstraint - ] - (lam - ww - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ww - [ - List - [ - ScriptOutputConstraint - Void + { + Nil + TxConstraint + } + ] + { + Nil + TxConstraintFun + } + ] + { + Nil + [ + ScriptInputConstraint + Void + ] + } ] + { + Nil + [ + ScriptOutputConstraint + Void + ] + } ] + ) + ] + (abs + dead + (type) + [ [ [ [ @@ -16772,16 +17318,79 @@ } Void } - ww + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c + (fun + TxConstraint + (fun + a + a + ) + ) + (lam + n + a + [ + [ + c + [ + [ + [ + [ + MustMintValue + mph + ] + unitDatum + ] + tn + ] + w + ] + ] + n + ] + ) + ) + ) + ] ] - ww + { + Nil + TxConstraintFun + } ] - ww + { + Nil + [ + ScriptInputConstraint + Void + ] + } ] - ) + { + Nil + [ + ScriptOutputConstraint + Void + ] + } + ] ) + ] + (all + dead + (type) + dead ) - ] + } ) (lam currentSecret @@ -17069,153 +17678,122 @@ [ [ [ - { + [ { - TxConstraints + { + TxConstraints + Void + } Void } - Void - } - [ [ [ - { + [ { - foldr - TxConstraint + { + foldr + TxConstraint + } + [ + List + TxConstraint + ] } - [ - List + { + Cons TxConstraint - ] - } - { - Cons - TxConstraint - } - ] - [ - { - [ - { + } + ] + [ + { + [ { - TxConstraints_match + { + TxConstraints_match + Void + } Void } - Void - } - w - ] - [ - List - TxConstraint - ] - } - (lam - ds - [ - List - TxConstraint - ] + w + ] + [ + List + TxConstraint + ] + } (lam ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraint ] (lam ds [ List + TxConstraintFun + ] + (lam + ds [ - ScriptOutputConstraint - Void + List + [ + ScriptInputConstraint + Void + ] ] - ] - ds + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + ds + ) + ) ) ) - ) + ] ] - ] - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun - TxConstraint + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c (fun - a - a + TxConstraint + (fun + a + a + ) ) - ) - (lam - n - a - [ + (lam + n + a [ - c [ - MustSpendAtLeast + c [ + MustSpendAtLeast [ - { - Cons - [ - [ - Tuple2 - (con - bytestring - ) - ] + [ + { + Cons [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - } - [ - [ - { - { Tuple2 (con bytestring ) - } + ] [ [ (lam @@ -17244,16 +17822,37 @@ integer ) ] - } - mph - ] + ] + } [ [ { - Cons + { + Tuple2 + (con + bytestring + ) + } [ [ - Tuple2 + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con bytestring ) @@ -17263,92 +17862,188 @@ ) ] } + mph + ] + [ [ - [ - { - { + { + Cons + [ + [ Tuple2 (con bytestring ) - } + ] (con integer ) - } - tn + ] + } + [ + [ + { + { + Tuple2 + (con + bytestring + ) + } + (con + integer + ) + } + tn + ] + (con + integer + 1 + ) ] - (con - integer - 1 - ) ] - ] - { - Nil - [ + { + Nil [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + integer ) ] - (con - integer - ) - ] - } + } + ] ] ] - ] - { - Nil - [ - [ - Tuple2 - (con - bytestring - ) - ] + { + Nil [ [ - (lam - k - (type) + Tuple2 + (con + bytestring + ) + ] + [ + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] - (con - integer - ) ] - ] - } + } + ] ] ] + n ] - n + ) + ) + ) + ] + ] + ] + [ + [ + [ + { + { + foldr + TxConstraintFun + } + [ + List + TxConstraintFun + ] + } + { + Cons + TxConstraintFun + } + ] + [ + { + [ + { + { + TxConstraints_match + Void + } + Void + } + w + ] + [ + List + TxConstraintFun + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun ] + (lam + ds + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + ds + ) + ) ) ) - ) + ] ] + { + Nil + TxConstraintFun + } ] ] [ @@ -17408,21 +18103,28 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - ds + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + ds + ) ) ) ) @@ -17494,21 +18196,28 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - ds + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + ds + ) ) ) ) @@ -18773,99 +19482,109 @@ ww [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ww [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - { + (lam + ww [ + List [ - { - [ - Bool_match + ScriptOutputConstraint + Void + ] + ] + { + [ + [ + { [ + Bool_match [ [ [ [ - { - { - wcheckScriptContext - Void - } - Void - } - (lam - a - Void - { - [ - Void_match + [ + [ + { + { + wcheckScriptContext + Void + } + Void + } + (lam a - ] - (con - data + Void + { + [ + Void_match + a + ] + (con + data + ) + } ) - } - ) + ] + ww + ] + ww ] ww ] ww ] - ww + w ] - w ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S4" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S4" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -19075,95 +19794,65 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - { + (lam + ds [ + List [ - { - [ - Bool_match + ScriptOutputConstraint + Void + ] + ] + { + [ + [ + { [ + Bool_match [ [ [ [ - { - { - wcheckScriptContext - Void - } - GameState - } - (lam - ds - GameState - { - [ - [ + [ + [ + { + { + wcheckScriptContext + Void + } + GameState + } + (lam + ds + GameState + { [ - { - [ - GameState_match - ds - ] - (all - dead - (type) - (con - data - ) - ) - } - (abs - dead - (type) + [ [ - [ - (builtin - constrData - ) - (con - integer - 2 - ) - ] - [ - (builtin - mkNilData + { + [ + GameState_match + ds + ] + (all + dead + (type) + (con + data + ) ) - unitval - ] - ] - ) - ] - (lam - arg - (con - bytestring - ) - (lam - arg - (con - bytestring - ) - (lam - arg - (con - bytestring - ) + } (abs dead (type) @@ -19174,25 +19863,139 @@ ) (con integer - 0 + 2 + ) + ] + [ + (builtin + mkNilData ) + unitval ] + ] + ) + ] + (lam + arg + (con + bytestring + ) + (lam + arg + (con + bytestring + ) + (lam + arg + (con + bytestring + ) + (abs + dead + (type) + [ + [ + (builtin + constrData + ) + (con + integer + 0 + ) + ] + [ + [ + { + (builtin + mkCons + ) + (con + data + ) + } + [ + (builtin + bData + ) + arg + ] + ] + [ + [ + { + (builtin + mkCons + ) + (con + data + ) + } + [ + (builtin + bData + ) + arg + ] + ] + [ + [ + { + (builtin + mkCons + ) + (con + data + ) + } + [ + (builtin + bData + ) + arg + ] + ] + [ + (builtin + mkNilData + ) + unitval + ] + ] + ] + ] + ] + ) + ) + ) + ) + ] + (lam + arg + (con + bytestring + ) + (lam + arg + (con + bytestring + ) + (lam + arg + (con + bytestring + ) + (abs + dead + (type) [ [ - { - (builtin - mkCons - ) - (con - data - ) - } - [ - (builtin - bData - ) - arg - ] + (builtin + constrData + ) + (con + integer + 1 + ) ] [ [ @@ -19229,232 +20032,158 @@ ] ] [ - (builtin - mkNilData - ) - unitval + [ + { + (builtin + mkCons + ) + (con + data + ) + } + [ + (builtin + bData + ) + arg + ] + ] + [ + (builtin + mkNilData + ) + unitval + ] ] ] ] ] - ] + ) ) ) ) + ] + (all + dead + (type) + dead ) - ] - (lam - arg - (con - bytestring - ) - (lam - arg - (con - bytestring - ) - (lam - arg - (con - bytestring - ) - (abs - dead - (type) - [ - [ - (builtin - constrData - ) - (con - integer - 1 - ) - ] - [ - [ - { - (builtin - mkCons - ) - (con - data - ) - } - [ - (builtin - bData - ) - arg - ] - ] - [ - [ - { - (builtin - mkCons - ) - (con - data - ) - } - [ - (builtin - bData - ) - arg - ] - ] - [ - [ - { - (builtin - mkCons - ) - (con - data - ) - } - [ - (builtin - bData - ) - arg - ] - ] - [ - (builtin - mkNilData - ) - unitval - ] - ] - ] - ] - ] - ) - ) - ) - ) - ] - (all - dead - (type) - dead + } ) - } - ) + ] + ds + ] + ds ] ds ] - ds - ] - [ - { - build - [ - ScriptOutputConstraint - GameState - ] - } - (abs - a - (type) - (lam - c - (fun - [ - ScriptOutputConstraint - GameState - ] + [ + { + build + [ + ScriptOutputConstraint + GameState + ] + } + (abs + a + (type) + (lam + c (fun - a - a + [ + ScriptOutputConstraint + GameState + ] + (fun + a + a + ) ) - ) - (lam - n - a - [ + (lam + n + a [ - c [ - [ - { - ScriptOutputConstraint - GameState - } - ds - ] + c [ [ - [ - unionWith - addInteger - ] + { + ScriptOutputConstraint + GameState + } ds ] [ [ - threadTokenValueInner - ww + [ + unionWith + addInteger + ] + ds ] [ - ownHash - w + [ + threadTokenValueInner + ww + ] + [ + ownHash + w + ] ] ] ] ] + n ] - n - ] + ) ) ) - ) + ] ] + w ] - w ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S5" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S5" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) diff --git a/plutus-use-cases/test/Spec/governance.pir b/plutus-use-cases/test/Spec/governance.pir index 09bb5a19a0..a884b72488 100644 --- a/plutus-use-cases/test/Spec/governance.pir +++ b/plutus-use-cases/test/Spec/governance.pir @@ -4593,6 +4593,237 @@ (vardecl minAdaTxOut (con integer)) (con integer 2000000) ) + (termbind + (strict) + (vardecl + wfindDatum + (fun + (con bytestring) + (fun + [ + List + [ [ Tuple2 (con bytestring) ] (con data) ] + ] + [ Maybe (con data) ] + ) + ) + ) + (lam + w + (con bytestring) + (lam + ww + [ + List [ [ Tuple2 (con bytestring) ] (con data) ] + ] + { + [ + [ + { + [ + { + 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 + [ + [ Tuple2 (con bytestring) ] + (con data) + ] + [ + { + [ + { + { + Tuple2_match + (con bytestring) + } + (con data) + } + x + ] + [ + Maybe + [ + [ + Tuple2 (con bytestring) + ] + (con data) + ] + ] + } + (lam + dsh + (con bytestring) + (lam + ds + (con data) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + dsh + ] + w + ] + ] + True + ] + False + ] + ] + (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) + ] + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + ) + ] + ww + ] + ] + (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) + ) + ] + ] + ) + ) + ] + (abs dead (type) { Nothing (con data) }) + ] + (all dead (type) dead) + } + ) + ) + ) (termbind (strict) (vardecl @@ -7377,388 +7608,74 @@ data ) } + [ + [ + wfindDatum + dvh + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (lam + a + (con + data + ) + (abs + dead + (type) { [ [ { [ - { - Maybe_match - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - } + Bool_match [ [ [ { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - [ - Maybe - a - ] - ) - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - ] - } - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - } - { - fMonoidFirst - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] + (builtin + ifThenElse + ) + Bool } - ] - (lam - x [ [ - Tuple2 - (con - bytestring + (builtin + equalsData ) + a ] - (con - data - ) - ] - [ - { - [ - { - { - Tuple2_match - (con - bytestring - ) - } - (con - data - ) - } - x - ] - [ - Maybe - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - ] - } - (lam - dsh - (con - bytestring - ) - (lam - ds - (con - data - ) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - dsh - ] - dvh - ] - ] - True - ] - False - ] - ] - (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 - ) - ] - } - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) + dv ] - ) + ] + True ] - ww + False ] ] (all dead (type) - [ - Maybe - (con - data - ) - ] + Bool ) } - (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 - ) - ) - ] - ] - ) + (abs + dead + (type) + True ) ] (abs dead (type) - { - Nothing - (con - data - ) - } - ) - ] - (all - dead - (type) - dead - ) - } - ] - (all - dead - (type) - Bool - ) - } - (lam - a - (con - data - ) - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsData - ) - a - ] - dv - ] - ] - True - ] - False - ] - ] - (all - dead - (type) - Bool - ) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - j + j ) ] (all @@ -14113,6 +14030,62 @@ ) ) ) + (datatypebind + (datatype + (tyvardecl TxConstraintFun (type)) + + TxConstraintFun_match + (vardecl + MustSpendScriptOutputWithMatchingDatumAndValue + (fun + (con bytestring) + (fun + (fun (con data) Bool) + (fun + (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 + ) + (fun (con data) TxConstraintFun) + ) + ) + ) + ) + ) + ) (termbind (strict) (vardecl @@ -14130,15 +14103,19 @@ (fun [ List TxConstraint ] (fun - [ - List [ ScriptInputConstraint i ] - ] + [ List TxConstraintFun ] (fun [ List - [ ScriptOutputConstraint o ] + [ ScriptInputConstraint i ] ] - (fun ScriptContext Bool) + (fun + [ + List + [ ScriptOutputConstraint o ] + ] + (fun ScriptContext Bool) + ) ) ) ) @@ -14160,212 +14137,156 @@ [ List TxConstraint ] (lam ww - [ List [ ScriptInputConstraint i ] ] + [ List TxConstraintFun ] (lam ww [ - List - [ ScriptOutputConstraint o ] + List [ ScriptInputConstraint i ] ] (lam - w - ScriptContext - { - [ + ww + [ + List + [ ScriptOutputConstraint o ] + ] + (lam + w + ScriptContext + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - TxConstraint - } [ { - fMonoidProduct - Bool + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxConstraint } - fMultiplicativeMonoidBool + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] ] - ] - (lam - w - TxConstraint - [ - { - [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo + (lam + w + TxConstraint + [ + { + [ + ScriptContext_match + w + ] + Bool + } (lam ww - ScriptPurpose - [ + TxInfo + (lam + ww + ScriptPurpose [ - wcheckTxConstraint - ww + [ + wcheckTxConstraint + ww + ] + w ] - w - ] + ) ) - ) - ] - ) + ] + ) + ] + ww ] - ww ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ + (all dead (type) Bool) + } + (abs + dead + (type) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxConstraintFun } [ - ScriptInputConstraint - i + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool ] - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - (lam - w - [ - ScriptInputConstraint - i ] - [ - { - [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo + (lam + w + TxConstraintFun + [ + { + [ + ScriptContext_match + w + ] + Bool + } (lam ww - ScriptPurpose - [ - { - [ - TxInfo_match - ww - ] - Bool - } - (lam - ww - [ - List - TxInInfo - ] + TxInfo + (lam + ww + ScriptPurpose + [ + { + [ + TxInfo_match + ww + ] + Bool + } (lam ww [ List - TxOut + TxInInfo ] (lam ww [ - [ - (lam - k - (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 ww @@ -14425,805 +14346,417 @@ (lam ww [ - List - DCert - ] - (lam - ww [ - List + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ [ - [ - Tuple2 - StakingCredential - ] + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con - integer + bytestring ) ] + (con + integer + ) + ] + ] + (lam + ww + [ + List + DCert ] (lam ww [ - Interval - (con - integer - ) + List + [ + [ + Tuple2 + StakingCredential + ] + (con + integer + ) + ] ] (lam ww [ - List + Interval (con - bytestring + integer ) ] (lam ww [ List + (con + bytestring + ) + ] + (lam + ww [ + List [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] + ] + (lam + ww (con - data + bytestring ) - ] - ] - (lam - ww - (con - bytestring - ) - [ - { - [ - { - ScriptInputConstraint_match - i - } - w - ] - Bool - } - (lam - ww - i + [ + { + [ + TxConstraintFun_match + w + ] + Bool + } (lam ww - TxOutRef - { - [ - [ - { + (con + bytestring + ) + (lam + ww + (fun + (con + data + ) + Bool + ) + (lam + ww + (fun + [ [ - Bool_match - [ - [ + (lam + k + (type) + (lam + v + (type) [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - TxInInfo - } + List [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool + [ + Tuple2 + k + ] + v ] ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) (lam - ds - TxInInfo + v + (type) [ - { + List + [ [ - TxInInfo_match - ds + Tuple2 + k ] - Bool - } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - [ - fEqTxOutRef_c - ds - ] - ww - ] - ) - ) + v + ] ] ) - ] - ww - ] - ] - (all - dead - (type) - Bool - ) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace ) - Bool - } + (con + bytestring + ) + ] (con - string - "L0" + integer ) ] - False ] + Bool ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - ] - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ] - ) - ) - ] - ) - ] - ww - ] - ] - (all - dead - (type) - Bool - ) - } - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - [ - ScriptOutputConstraint - o - ] - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - (lam - w - [ - ScriptOutputConstraint - o - ] - [ - { - [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo - (lam - ww - ScriptPurpose - [ - { - [ - TxInfo_match - ww - ] - Bool - } - (lam - ww - [ - List - TxInInfo - ] - (lam - ww - [ - List - TxOut - ] - (lam - ww - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - ww - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - ww - [ - List - DCert - ] - (lam - ww - [ - List - [ - [ - Tuple2 - StakingCredential - ] - (con - integer - ) - ] - ] - (lam - ww - [ - Interval - (con - integer - ) - ] - (lam - ww - [ - List - (con - bytestring - ) - ] - (lam - ww - [ - List - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - ] - (lam - ww - (con - bytestring - ) - [ - { - [ - { - ScriptOutputConstraint_match - o - } - w - ] - Bool - } (lam ww - o - (lam - ww + (con + data + ) + { [ [ - (lam - k - (type) - (lam - v - (type) + { + [ + Bool_match [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) [ - List [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxInInfo + } [ - Tuple2 - k + { + fMonoidSum + Bool + } + fAdditiveMonoidBool ] - v ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - { - [ - [ - { - [ - Bool_match - [ - [ + (lam + x + TxInInfo [ { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - TxOut + [ + TxInInfo_match + x + ] + Bool } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxOut - [ - { - [ - TxOut_match - ds - ] - Bool - } + (lam + ds + TxOutRef (lam ds - Address - (lam - ds - [ + TxOut + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + TxOut_match + ds ] - [ + Bool + } + (lam + ds + Address + (lam + val [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k - ] - v + [ + Tuple2 + k + ] + v + ] ] - ] + ) ) - ) - (con - bytestring - ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - { - [ + (lam + ds + [ + Maybe + (con + bytestring + ) + ] [ { [ - { - Maybe_match - (con - bytestring - ) - } + Address_match ds ] - (all - dead - (type) - Bool - ) + Bool } (lam - svh - (con - bytestring - ) - (abs - dead - (type) - { + ds + Credential + (lam + ds + [ + Maybe + StakingCredential + ] + [ [ - [ - { + { + [ + Credential_match + ds + ] + Bool + } + (lam + ipv + (con + bytestring + ) + False + ) + ] + (lam + vh + (con + bytestring + ) + { + [ [ - Bool_match - [ + { [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - lessThanInteger - ) - [ - [ - [ - valueOf - ds - ] - emptyByteString - ] - emptyByteString - ] - ] - [ - [ - [ - valueOf - ww - ] - emptyByteString - ] - emptyByteString - ] - ] - ] - False + { + Maybe_match + (con + bytestring + ) + } + ds ] - True - ] - ] - (all - dead - (type) - Bool - ) - } - (abs - dead - (type) - { - [ - [ + (all + dead + (type) + Bool + ) + } + (lam + x + (con + bytestring + ) + (abs + dead + (type) { [ - Bool_match [ - [ + { [ { - (builtin - ifThenElse + Maybe_match + (con + data ) - Bool } [ [ - (builtin - lessThanEqualsInteger - ) - [ - [ - [ - valueOf - ds - ] - emptyByteString - ] - emptyByteString - ] - ] - [ - [ - (builtin - addInteger - ) - [ - [ - [ - valueOf - ww - ] - emptyByteString - ] - emptyByteString - ] - ] - minAdaTxOut + wfindDatum + x ] + ww ] ] - True - ] - False - ] - ] - (all - dead - (type) - Bool - ) - } - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - checkBinRel - equalsInteger - ] - [ - noAdaValue - ds - ] - ] - [ - noAdaValue - ww - ] - ] - ] - (all - dead - (type) - Bool - ) - } + (all + dead + (type) + Bool + ) + } + (lam + d + (con + data + ) (abs dead (type) @@ -15232,21 +14765,29 @@ [ { [ - { - Maybe_match - (con - bytestring - ) - } + Bool_match [ [ - wfindDatumHash [ - w - ww + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + ww + ] + vh + ] ] + True ] - ww + False ] ] (all @@ -15255,22 +14796,47 @@ Bool ) } - (lam - a - (con - bytestring - ) - (abs - dead - (type) + (abs + dead + (type) + { [ [ - equalsByteString - a + { + [ + Bool_match + [ + ww + val + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + [ + ww + d + ] + ) ] - svh + (abs + dead + (type) + False + ) ] - ) + (all + dead + (type) + dead + ) + } ) ] (abs @@ -15286,520 +14852,95 @@ ) } ) - ] - (abs - dead - (type) - False ) ] - (all + (abs dead (type) - dead + False ) - } - ) - ] - (abs - dead - (type) - False + ] + (all + dead + (type) + dead + ) + } ) - ] - (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 ) - } + ) ) - ) - ) - ] - ) - ] - { - [ - [ - { - [ - { - Maybe_match - TxInInfo - } - [ - [ - wfindOwnInput - ww - ] - ww - ] ] - (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 - ] - } - (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 - ) - ] - [ - [ - [ - { - { - foldr - TxOut - } - [ - List - TxOut - ] - } - (lam - e - TxOut - (lam - xs - [ - List - TxOut - ] - [ - { - [ - TxOut_match - e - ] - [ - List - 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 - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - [ - { - [ - Address_match - ds - ] - [ - List - TxOut - ] - } - (lam - ww - Credential - (lam - ww - [ - Maybe - StakingCredential - ] - [ - { - [ - Address_match - ds - ] - [ - List - TxOut - ] - } - (lam - ww - Credential - (lam - ww - [ - Maybe - StakingCredential - ] - { - [ - [ - { - [ - Bool_match - [ - [ - [ - [ - wc - ww - ] - ww - ] - ww - ] - ww - ] - ] - (all - dead - (type) - [ - List - TxOut - ] - ) - } - (abs - dead - (type) - [ - [ - { - Cons - TxOut - } - e - ] - xs - ] - ) - ] - (abs - dead - (type) - xs - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - ] - ) - ) - ] - ) - ) - ) - ] - ) - ) - ] - { - Nil - TxOut - } - ] - ww - ] - ) - ) - ) - ] - ) - ) - ] - ) - ) - ] - (abs - dead - (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - thunk - (con - unit - ) - ) - [ - { - [ - Unit_match - [ - [ - { - (builtin - trace - ) - Unit - } - (con - string - "Lf" - ) - ] - Unit - ] - ] - (con - unit - ) - } - unitval - ] - ) - (error - [ - List - TxOut - ] - ) ) ) ] - (all - dead - (type) - dead - ) - } + ) ] + ww ] - (all - dead - (type) - Bool - ) - } - (abs + ] + (all dead (type) - True + Bool ) - ] + } (abs dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L1" - ) - ] - False - ] + True ) ] - (all + (abs dead (type) - dead + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "Le" + ) + ] + False + ] ) - } - ) + ] + (all + dead + (type) + dead + ) + } ) - ] + ) ) ) - ) + ] ) ) ) @@ -15807,4281 +14948,4742 @@ ) ) ) - ] + ) ) ) ] ) - ] - ww + ) ] - ] - (all - dead - (type) - Bool ) - } - (abs - dead - (type) - True - ) + ] + ww ] - (abs - dead - (type) - j - ) ] (all dead (type) - dead + Bool ) } - ) - ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) - ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) - ) - ) - ) - ) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl ThreadToken (type)) - - ThreadToken_match - (vardecl - ThreadToken - (fun - TxOutRef - (fun (con bytestring) ThreadToken) - ) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl State (fun (type) (type))) - (tyvardecl s (type)) - State_match - (vardecl - State - (fun - s - (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) - ] - ] - [ State s ] - ) - ) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl - TxConstraints - (fun (type) (fun (type) (type))) - ) - (tyvardecl i (type)) (tyvardecl o (type)) - TxConstraints_match - (vardecl - TxConstraints - (fun - [ List TxConstraint ] - (fun - [ List [ ScriptInputConstraint i ] ] - (fun - [ - List [ ScriptOutputConstraint 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 ] - ) - ) - ) - ) - ) - ) - ) - (termbind - (strict) - (vardecl - ownHash (fun ScriptContext (con bytestring)) - ) - (lam - p - ScriptContext - [ - { - [ - { - { Tuple2_match (con bytestring) } - (con bytestring) - } - [ - { - [ ScriptContext_match p ] - [ - [ Tuple2 (con bytestring) ] - (con bytestring) - ] - } - (lam - ww - TxInfo - (lam - ww - ScriptPurpose - [ - { - [ TxInfo_match ww ] - [ - [ - Tuple2 (con bytestring) - ] - (con bytestring) - ] - } - (lam - ww - [ List TxInInfo ] - (lam - ww - [ List TxOut ] - (lam - ww - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ Tuple2 k ] - v - ] - ] - ) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 k - ] - v - ] - ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] - (lam - ww - [ - [ - (lam - k - (type) - (lam - v + (abs + dead (type) - [ - List + { [ [ - Tuple2 k - ] - v - ] - ] - ) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] - (lam - ww - [ List DCert ] - (lam - ww - [ - List - [ - [ - Tuple2 - StakingCredential - ] - (con integer) - ] - ] - (lam - ww - [ - Interval - (con integer) - ] - (lam - ww - [ - List - (con - bytestring - ) - ] - (lam - ww - [ - List - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - ] - (lam - ww - (con - bytestring - ) - { - [ + { [ - { + Bool_match + [ [ - { - Maybe_match - TxInInfo - } [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + [ + ScriptInputConstraint + i + ] + } [ - wfindOwnInput - ww + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool ] - ww ] - ] - (all - dead - (type) - [ + (lam + w [ - Tuple2 - (con - bytestring - ) + ScriptInputConstraint + i ] - (con - bytestring - ) - ] - ) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { - [ - TxInInfo_match - ds - ] - [ + [ + { [ - Tuple2 - (con - bytestring - ) + ScriptContext_match + w ] - (con - bytestring - ) - ] - } - (lam - ds - TxOutRef + Bool + } (lam - ds - TxOut - [ - { - [ - TxOut_match - ds - ] - [ + ww + TxInfo + (lam + ww + ScriptPurpose + [ + { [ - Tuple2 - (con - bytestring - ) + TxInfo_match + ww ] - (con - bytestring - ) - ] - } - (lam - ds - Address + Bool + } (lam - ds + ww [ + List + TxInInfo + ] + (lam + ww [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + List + TxOut ] - [ + (lam + ww [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) + ) + (con + bytestring ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - [ - { - [ - Address_match - ds ] [ [ - Tuple2 + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con bytestring ) ] (con - bytestring + integer ) ] - } + ] (lam - ds - Credential - (lam - ds + ww + [ [ - Maybe - StakingCredential + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] [ [ - { - [ - Credential_match - ds - ] - [ + (lam + k + (type) + (lam + v + (type) [ - Tuple2 - (con - bytestring - ) + List + [ + [ + Tuple2 + k + ] + v + ] ] - (con - bytestring - ) + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ww + [ + List + DCert + ] + (lam + ww + [ + List + [ + [ + Tuple2 + StakingCredential ] - } - (lam - ipv (con - bytestring + integer + ) + ] + ] + (lam + ww + [ + Interval + (con + integer ) + ] + (lam + ww [ - fail + List (con - unit - () + bytestring ) ] - ) - ] - (lam - s - (con - bytestring - ) - { - [ + (lam + ww [ - { + List + [ [ - { - Maybe_match - (con - bytestring - ) - } - ds + Tuple2 + (con + bytestring + ) ] - (all - dead - (type) - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - bytestring - ) - ] - ) - } - (lam - dh (con - bytestring - ) - (abs - dead - (type) - [ - [ - { - { - Tuple2 - (con - bytestring - ) - } - (con - bytestring - ) - } - s - ] - dh - ] + data ) - ) + ] ] - (abs - dead - (type) + (lam + ww + (con + bytestring + ) [ - fail - (con - unit - () - ) - ] - ) - ] - (all - dead - (type) - dead - ) - } - ) - ] - ) - ) - ] - ) - ) - ) - ] - ) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (con - unit - () - ) - ] - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ] - ) - ) - ] - ] - (con bytestring) - } - (lam - a - (con bytestring) - (lam ds (con bytestring) a) - ) - ] - ) - ) - (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) - (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) - ] - } - [ - { - [ - ThreadToken_match - a - ] - (con bytestring) - } - (lam - ds - TxOutRef - (lam - ds - (con bytestring) - ds - ) - ) - ] - ] - [ - [ - { - Cons - [ - [ - Tuple2 - (con bytestring) - ] - (con integer) - ] - } - [ - [ - { - { - Tuple2 - (con - bytestring - ) - } - (con integer) - } - ds - ] - (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) - (lam - ds - (con bytestring) - { - Nil - [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ [ Tuple2 k ] v ] - ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] - } - ) - ) - ] - (all dead (type) dead) - } - ) - ) - (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 - 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 - (lam - v - v - (lam - m - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List [ [ Tuple2 k ] v ] - ] - ) - ) - k - ] - v - ] - (let - (nonrec) - (termbind - (strict) - (vardecl - rs - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ [ Tuple2 k ] v ] - ] - ) - ) - k - ] - v - ] - ) - [ - { build [ [ Tuple2 k ] v ] } - (abs - a - (type) - (lam - c - (fun - [ [ Tuple2 k ] v ] - (fun a a) - ) - (lam - n - a - [ - [ - c - [ - [ - { - { Tuple2 k } - v - } - k - ] - v - ] - ] - n - ] - ) - ) - ) - ] - ) - [ - [ - { - { - fFunctorNil_cfmap - [ - [ Tuple2 k ] - [ [ These v ] v ] - ] - } - [ [ Tuple2 k ] v ] - } - (lam - ds - [ - [ Tuple2 k ] - [ [ These v ] v ] - ] - [ - { - [ - { - { Tuple2_match k } - [ [ These v ] v ] - } - ds - ] - [ [ Tuple2 k ] v ] - } - (lam - c - k - (lam - a - [ [ These v ] v ] - [ - [ - { - { Tuple2 k } v - } - c - ] - [ - [ - [ - { - [ - { - { - These_match - v - } - v - } - a - ] - v - } - (lam b v b) - ] - (lam - a - v - (lam b v b) - ) - ] - (lam a v a) - ] - ] - ) - ) - ] - ) - ] - [ - [ - [ - { { { union k } v } v } - dEq - ] - m - ] - rs - ] - ] - ) - ) - ) - ) - ) - ) - ) - ) - (termbind - (nonstrict) - (vardecl - mkValidator - [ - Monoid [ (lam a (type) a) (con integer) ] - ] - ) - [ - { fMonoidSum (con integer) } - [ - [ - { CConsAdditiveMonoid (con integer) } - addInteger - ] - (con integer 0) - ] - ] - ) - (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 [ ScriptInputConstraint i ] } - ] - { Nil [ ScriptOutputConstraint o ] } - ] - ) - ) - ) - (datatypebind - (datatype - (tyvardecl - UTuple3 - (fun - (type) (fun (type) (fun (type) (type))) - ) - ) - (tyvardecl a (type)) - (tyvardecl b (type)) - (tyvardecl c (type)) - UTuple3_match - (vardecl - UTuple3 - (fun - a - (fun - b (fun c [ [ [ UTuple3 a ] b ] c ]) - ) - ) - ) - ) - ) - (termbind - (strict) - (vardecl - fMonoidTxConstraints - (all - i - (type) - (all - o - (type) - [ Monoid [ [ TxConstraints i ] o ] ] - ) - ) - ) - (abs - i - (type) - (abs - o - (type) - [ - [ - { - CConsMonoid - [ [ TxConstraints i ] o ] - } - (lam - w - [ [ TxConstraints i ] o ] - (lam - w - [ [ TxConstraints i ] o ] - [ - { - [ - { - { - { - UTuple3_match - [ List TxConstraint ] - } - [ - List - [ - ScriptInputConstraint - i - ] - ] - } - [ - List - [ - ScriptOutputConstraint - o - ] - ] - } - [ - [ - [ - { - { - { - UTuple3 - [ - List - TxConstraint - ] - } - [ - List - [ - ScriptInputConstraint - i - ] - ] - } - [ - List - [ - ScriptOutputConstraint - o - ] - ] - } - [ - { - [ - { - { - TxConstraints_match - i - } - o - } - w - ] - [ - List - TxConstraint - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - i - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - o - ] - ] - [ - [ - [ - { - { - foldr - TxConstraint - } - [ - List - TxConstraint - ] - } - { - Cons - TxConstraint - } - ] - [ - { - [ - { - { - TxConstraints_match - i - } - o - } - w - ] - [ - List - TxConstraint - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - i - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - o - ] - ] - ds - ) - ) - ) - ] - ] - ds - ] - ) - ) - ) - ] - ] - [ - { - [ - { - { - TxConstraints_match - i - } - o - } - w - ] - [ - List - [ - ScriptInputConstraint - i - ] - ] - } - (lam - ds - [ - List TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - i - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - o - ] - ] - [ - [ - [ - { - { - foldr - [ - ScriptInputConstraint - i - ] - } - [ - List - [ - ScriptInputConstraint - i - ] - ] - } - { - Cons - [ - ScriptInputConstraint - i - ] - } - ] - [ - { - [ - { - { - TxConstraints_match - i - } - o - } - w - ] - [ - List - [ - ScriptInputConstraint - i - ] - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - i - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - o - ] - ] - ds - ) - ) - ) - ] - ] - ds - ] - ) - ) - ) - ] - ] - [ - { - [ - { - { - TxConstraints_match - i - } - o - } - w - ] - [ - List - [ - ScriptOutputConstraint - o - ] - ] - } - (lam - ds - [ List TxConstraint ] - (lam - ds - [ - List - [ - ScriptInputConstraint - i - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - o - ] - ] - [ - [ - [ - { - { - foldr - [ - ScriptOutputConstraint - o - ] - } - [ - List - [ - ScriptOutputConstraint - o - ] - ] - } - { - Cons - [ - ScriptOutputConstraint - o - ] - } - ] - [ - { - [ - { - { - TxConstraints_match - i - } - o - } - w - ] - [ - List - [ - ScriptOutputConstraint - o - ] - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - i - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - o - ] - ] - ds - ) - ) - ) - ] - ] - ds - ] - ) - ) - ) - ] - ] - ] - [ [ TxConstraints i ] o ] - } - (lam - ww - [ List TxConstraint ] - (lam - ww - [ - List - [ - ScriptInputConstraint i - ] - ] - (lam - ww - [ - List - [ - ScriptOutputConstraint - o - ] - ] - [ - [ - [ - { - { - TxConstraints i - } - o - } - ww - ] - ww - ] - ww - ] - ) - ) - ) - ] - ) - ) - ] - { { fMonoidTxConstraints_cmempty i } o } - ] - ) - ) - ) - (termbind - (strict) - (vardecl - wownsVotingToken - (fun - (con bytestring) - (fun - (con bytestring) - [ - [ - [ UTuple3 [ List TxConstraint ] ] - [ - List - [ ScriptInputConstraint Void ] - ] - ] - [ - List [ ScriptOutputConstraint Void ] - ] - ] - ) - ) - ) - (lam - w - (con bytestring) - (lam - w - (con bytestring) - [ - [ - [ - { - { - { - UTuple3 [ List TxConstraint ] - } - [ - List - [ ScriptInputConstraint Void ] - ] - } - [ - List - [ ScriptOutputConstraint Void ] - ] - } - [ - { build TxConstraint } - (abs - a - (type) - (lam - c - (fun TxConstraint (fun a a)) - (lam - n - a - [ - [ - c - [ - MustSpendAtLeast - [ - [ - { - 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 - ) - ] - } - w - ] - [ - [ - { - Cons - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - integer - ) - ] - } - [ - [ - { - { - Tuple2 - (con - bytestring - ) - } - (con - integer - ) - } - w - ] - (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) - ] - ] - } - ] - ] - ] - n - ] - ) - ) - ) - ] - ] - { Nil [ ScriptInputConstraint Void ] } - ] - { Nil [ ScriptOutputConstraint Void ] } - ] - ) - ) - ) - (termbind - (strict) - (vardecl - ownsVotingToken - (fun - (con bytestring) - (fun - (con bytestring) - [ [ TxConstraints Void ] Void ] - ) - ) - ) - (lam - w - (con bytestring) - (lam - w - (con bytestring) - [ - { - [ - { - { - { - UTuple3_match - [ List TxConstraint ] - } - [ - List - [ ScriptInputConstraint Void ] - ] - } - [ - List - [ ScriptOutputConstraint Void ] - ] - } - [ [ wownsVotingToken w ] w ] - ] - [ [ TxConstraints Void ] Void ] - } - (lam - ww - [ List TxConstraint ] - (lam - ww - [ - List - [ ScriptInputConstraint Void ] - ] - (lam - ww - [ - List - [ ScriptOutputConstraint Void ] - ] - [ - [ - [ - { - { TxConstraints Void } - Void - } - ww - ] - ww - ] - ww - ] - ) - ) - ) - ] - ) - ) - ) - (datatypebind - (datatype - (tyvardecl Proposal (type)) - - Proposal_match - (vardecl - Proposal - (fun - (con bytestring) - (fun - (con bytestring) - (fun (con integer) Proposal) - ) - ) - ) - ) - ) - (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) - ) - (vardecl - ProposeChange (fun Proposal GovInput) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl Voting (type)) - - Voting_match - (vardecl - Voting - (fun - Proposal - (fun - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - Bool - ] - Voting - ) - ) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl GovState (type)) - - GovState_match - (vardecl - GovState - (fun - (con bytestring) - (fun - (con bytestring) - (fun [ Maybe Voting ] GovState) - ) - ) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl Params (type)) - - Params_match - (vardecl - Params - (fun - (con bytestring) - (fun - [ List (con bytestring) ] - (fun (con integer) Params) - ) - ) - ) - ) - ) - (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 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) - [ - [ - { - Cons - [ - [ - Tuple2 - a - ] - b - ] - } - [ - [ - { - { - Tuple2 - a - } - b - } - ipv - ] - ipv - ] - ] - [ - [ - { - { - zip a - } - b - } - ipv - ] - ipv - ] - ] - ) - ) - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ] - (all dead (type) dead) - } - ) - ) - ) - ) - ) - (lam - params - Params - (let - (nonrec) - (termbind - (strict) - (vardecl - w - [ [ StateMachine GovState ] GovInput ] - ) - [ - [ - [ - [ - { - { StateMachine GovState } - GovInput - } - (lam - w - [ State GovState ] - (lam - w - GovInput - [ - { - [ Params_match params ] - [ - Maybe - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ State GovState ] - ] - ] - } - (lam - ww - (con bytestring) - (lam - ww - [ - List - (con bytestring) - ] - (lam - ww - (con integer) - [ - { - [ - { - State_match - GovState - } - w - ] - [ - Maybe - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - ] - } - (lam - ww - GovState - (lam - ww - [ - [ - (lam - k - (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 - ww - ] - [ - Maybe - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - ] - } - (lam - ww - (con - bytestring - ) - (lam - ww - (con - bytestring - ) - (lam - ww - [ - Maybe - Voting - ] - { - [ - [ - [ - [ - { - [ - GovInput_match - w - ] - (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 - } - ww - ] - (all - dead - (type) - [ - Maybe - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - ] - ) - } - (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 - ] - { - [ - [ - [ - [ - { - [ - GovInput_match - w - ] - (all - dead - (type) - [ - Maybe - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - ] - ) - } - (lam - tokenName - (con - bytestring - ) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - w - [ - [ - TxConstraints - Void - ] - Void - ] - ) - [ - { - [ - { - { - { - UTuple3_match - [ - List - TxConstraint - ] - } - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - } - [ - [ - wownsVotingToken - ww - ] - tokenName - ] - ] - [ - [ - TxConstraints - Void - ] - Void - ] - } - (lam - ww - [ - List - TxConstraint - ] - (lam - ww - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ww - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - [ - [ - [ - { - { - TxConstraints - Void - } - Void - } - ww - ] - ww - ] - ww - ] - ) - ) - ) - ] - ) - (lam - vote - Bool - (abs - dead - (type) - [ - { - Just - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - } - [ - [ - { - { - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - } - [ - State - GovState - ] - } - [ - [ - [ - { - { - TxConstraints - Void - } - Void - } - [ - { - [ - { - { - TxConstraints_match - Void - } - Void - } - w - ] - [ - List - TxConstraint - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - [ - [ - [ - { - { - foldr - TxConstraint - } - [ - List - TxConstraint - ] - } - { - Cons - TxConstraint - } - ] - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun - TxConstraint - (fun - a - a - ) - ) - (lam - n - a - [ - [ - c - [ - MustValidateIn - [ - [ - { - Interval - (con - integer - ) - } - [ - [ - { - LowerBound - (con - integer - ) - } - { - NegInf - (con - integer - ) - } - ] - True - ] - ] - [ - [ - { - UpperBound - (con - integer - ) - } - [ - { - Finite - (con - integer - ) - } - [ - { - [ - Proposal_match - p - ] - (con - integer - ) - } - (lam - ds - (con - bytestring - ) - (lam - ds - (con - bytestring - ) - (lam - ds - (con - integer - ) - ds - ) - ) - ) - ] - ] - ] - True - ] - ] - ] - ] - n - ] - ) - ) - ) - ] - ] - ds - ] - ) - ) + { + [ + { + ScriptInputConstraint_match + i + } + w + ] + Bool + } + (lam + ww + i + (lam + ww + TxOutRef + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a ) + Bool ] - ] - [ - { - [ - { - { - TxConstraints_match - Void - } - Void - } - w - ] - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } + } + TxInInfo + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + (lam + ds + TxInInfo + [ + { + [ + TxInInfo_match + ds + ] + Bool + } + (lam + ds + TxOutRef (lam ds + TxOut [ - List - TxConstraint - ] - (lam - ds [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam + fEqTxOutRef_c ds - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - [ - [ - [ - { - { - foldr - [ - ScriptInputConstraint - Void - ] - } - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - { - Cons - [ - ScriptInputConstraint - Void - ] - } - ] - { - Nil - [ - ScriptInputConstraint - Void - ] - } - ] - ds - ] - ) - ) + ] + ww + ] ) - ] + ) ] + ) + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L0" + ) + ] + False + ] + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) + ] + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ] + ) + ) + ] + ) + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + [ + ScriptOutputConstraint + o + ] + } + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] + ] + (lam + w + [ + ScriptOutputConstraint + o + ] + [ + { + [ + ScriptContext_match + w + ] + Bool + } + (lam + ww + TxInfo + (lam + ww + ScriptPurpose + [ + { + [ + TxInfo_match + ww + ] + Bool + } + (lam + ww + [ + List + TxInInfo + ] + (lam + ww + [ + List + TxOut + ] + (lam + ww + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ww + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ww + [ + List + DCert + ] + (lam + ww + [ + List + [ + [ + Tuple2 + StakingCredential + ] + (con + integer + ) + ] + ] + (lam + ww + [ + Interval + (con + integer + ) + ] + (lam + ww + [ + List + (con + bytestring + ) + ] + (lam + ww + [ + List + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + data + ) + ] + ] + (lam + ww + (con + bytestring + ) + [ + { + [ + { + ScriptOutputConstraint_match + o + } + w + ] + Bool + } + (lam + ww + o + (lam + ww + [ + [ + (lam + k + (type) + (lam + v + (type) [ - { + List + [ [ - { - { - TxConstraints_match - Void - } - Void - } - w + Tuple2 + k ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List [ - List [ - ScriptOutputConstraint - Void + Tuple2 + k ] + v ] - } - (lam - ds + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + { + [ + [ + { + [ + Bool_match + [ [ - List - TxConstraint - ] - (lam - ds [ - List + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxOut + } [ - ScriptInputConstraint - Void + { + fMonoidSum + Bool + } + fAdditiveMonoidBool ] ] (lam ds + TxOut [ - List - [ - ScriptOutputConstraint - Void - ] - ] - [ - [ + { [ - { - { - foldr + TxOut_match + ds + ] + Bool + } + (lam + ds + Address + (lam + ds + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ [ - ScriptOutputConstraint - Void + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] - } + (con + integer + ) + ] + ] + (lam + ds [ - List + Maybe + (con + bytestring + ) + ] + { [ - ScriptOutputConstraint - Void + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) + Bool + ) + } + (lam + svh + (con + bytestring + ) + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + lessThanInteger + ) + [ + [ + [ + valueOf + ds + ] + emptyByteString + ] + emptyByteString + ] + ] + [ + [ + [ + valueOf + ww + ] + emptyByteString + ] + emptyByteString + ] + ] + ] + False + ] + True + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + [ + [ + [ + valueOf + ds + ] + emptyByteString + ] + emptyByteString + ] + ] + [ + [ + (builtin + addInteger + ) + [ + [ + [ + valueOf + ww + ] + emptyByteString + ] + emptyByteString + ] + ] + minAdaTxOut + ] + ] + ] + True + ] + False + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + checkBinRel + equalsInteger + ] + [ + noAdaValue + ds + ] + ] + [ + noAdaValue + ww + ] + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + { + [ + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + [ + [ + wfindDatumHash + [ + w + ww + ] + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (lam + a + (con + bytestring + ) + (abs + dead + (type) + [ + [ + equalsByteString + a + ] + svh + ] + ) + ) + ] + (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 + ) + } + ) + ) + ] + (abs + dead + (type) + False + ) ] - ] - } - { - Cons - [ - ScriptOutputConstraint - Void - ] - } - ] - { - Nil - [ - ScriptOutputConstraint - Void - ] - } - ] - ds - ] - ) - ) - ) - ] - ] - ] - [ - [ - { - State - GovState - } - [ - [ - [ - GovState - ww - ] - ww - ] - [ - { - Just - Voting - } - [ - [ - Voting - p - ] - [ - [ - [ - [ - { - { - insert - (con - bytestring + (all + dead + (type) + dead ) } - Bool - } - equalsByteString - ] - tokenName - ] - vote + ) + ) + ) ] - oldMap - ] + ) ] - ] - ] - ] - ww - ] - ] - ] - ) - ) - ) - ) - ] - (abs - dead - (type) - [ - { - Just - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - } - [ - [ - { - { - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - } - [ - State - GovState - ] - } - { - { - fMonoidTxConstraints_cmempty - Void - } - Void - } - ] - [ - [ - { - State - GovState - } - [ - [ - [ - GovState - { - [ - [ { [ - Bool_match [ - [ + { [ { - (builtin - ifThenElse - ) - Bool + Maybe_match + TxInInfo } [ [ - (builtin - lessThanInteger - ) + wfindOwnInput + ww + ] + ww + ] + ] + (all + dead + (type) + [ + List + TxOut + ] + ) + } + (lam + ds + TxInInfo + (abs + dead + (type) + [ + { + [ + TxInInfo_match + ds + ] [ + List + TxOut + ] + } + (lam + ds + TxOutRef + (lam + ds + TxOut [ - [ - { - { - fFoldableNil_cfoldMap + { + [ + TxOut_match + ds + ] + [ + List + TxOut + ] + } + (lam + ds + Address + (lam + ds + [ [ (lam - a + k (type) - a - ) - (con - integer + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) ) - ] - } - [ - [ - Tuple2 (con bytestring ) ] - Bool - ] - } - mkValidator - ] - (lam - ds - [ - [ - Tuple2 - (con - bytestring - ) - ] - Bool - ] - [ - { [ - { - { - Tuple2_match - (con - bytestring + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] ) - } - Bool - } - ds - ] - [ - (lam - a - (type) - a - ) + ) + (con + bytestring + ) + ] (con integer ) ] - } + ] (lam ds - (con - bytestring - ) - (lam - a - Bool + [ + Maybe + (con + bytestring + ) + ] + [ [ [ { + { + foldr + TxOut + } [ - Bool_match - a - ] - [ - (lam - a - (type) - a - ) - (con - integer - ) + List + TxOut ] } - (con - integer - 1 + (lam + e + TxOut + (lam + xs + [ + List + TxOut + ] + [ + { + [ + TxOut_match + e + ] + [ + List + 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 + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + [ + { + [ + Address_match + ds + ] + [ + List + TxOut + ] + } + (lam + ww + Credential + (lam + ww + [ + Maybe + StakingCredential + ] + [ + { + [ + Address_match + ds + ] + [ + List + TxOut + ] + } + (lam + ww + Credential + (lam + ww + [ + Maybe + StakingCredential + ] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + [ + wc + ww + ] + ww + ] + ww + ] + ww + ] + ] + (all + dead + (type) + [ + List + TxOut + ] + ) + } + (abs + dead + (type) + [ + [ + { + Cons + TxOut + } + e + ] + xs + ] + ) + ] + (abs + dead + (type) + xs + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) + ] + ) + ) + ] + ) + ) + ) + ] + ) ) ] - (con - integer - 0 - ) + { + Nil + TxOut + } ] - ) + ww + ] ) - ] + ) ) ] - oldMap + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + thunk + (con + unit + ) + ) + [ + { + [ + Unit_match + [ + [ + { + (builtin + trace + ) + Unit + } + (con + string + "Lf" + ) + ] + Unit + ] ] - ] - ww + (con + unit + ) + } + unitval ] - ] - False - ] - True - ] + ) + (error + [ + List + TxOut + ] + ) + ) + ) ] (all dead (type) - (con - bytestring - ) + dead ) } - (abs - dead - (type) - [ - { - [ - Proposal_match - p - ] - (con - bytestring - ) - } - (lam - ds - (con - bytestring - ) - (lam - ds - (con - bytestring - ) - (lam - ds - (con - integer - ) - ds - ) - ) - ) - ] - ) ] - (abs - dead - (type) - ww - ) ] (all dead (type) - dead + Bool ) } + (abs + dead + (type) + True + ) ] - ww - ] - { - Nothing - Voting - } - ] - ] - ww - ] - ] - ] - ) - ] - (lam - default_arg0 - [ - List - (con - bytestring - ) - ] - (abs - dead - (type) - (error - [ - Maybe - [ - [ - Tuple2 - [ - [ - TxConstraints - Void + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L1" + ) + ] + False + ] + ) ] - Void - ] - ] - [ - State - GovState - ] - ] + (all + dead + (type) + dead + ) + } + ) + ) ] ) ) ) - ] - (lam - ipv - Proposal - (abs - dead - (type) - { - Nothing - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - } - ) ) - ] - (all - dead - (type) - dead ) - } + ) ) ) + ) + ) + ] + ) + ) + ] + ) + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + j + ) + ] + (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) + } + ) + ) + ) + ) + ) + ) + ) + ) + ) + (datatypebind + (datatype + (tyvardecl ThreadToken (type)) + + ThreadToken_match + (vardecl + ThreadToken + (fun + TxOutRef + (fun (con bytestring) ThreadToken) + ) + ) + ) + ) + (datatypebind + (datatype + (tyvardecl State (fun (type) (type))) + (tyvardecl s (type)) + State_match + (vardecl + State + (fun + s + (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) + ] + ] + [ State s ] + ) + ) + ) + ) + ) + (datatypebind + (datatype + (tyvardecl + TxConstraints + (fun (type) (fun (type) (type))) + ) + (tyvardecl i (type)) (tyvardecl o (type)) + TxConstraints_match + (vardecl + TxConstraints + (fun + [ List TxConstraint ] + (fun + [ List TxConstraintFun ] + (fun + [ List [ ScriptInputConstraint i ] ] + (fun + [ + List + [ ScriptOutputConstraint 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 ] + ) + ) + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + ownHash (fun ScriptContext (con bytestring)) + ) + (lam + p + ScriptContext + [ + { + [ + { + { Tuple2_match (con bytestring) } + (con bytestring) + } + [ + { + [ ScriptContext_match p ] + [ + [ Tuple2 (con bytestring) ] + (con bytestring) + ] + } + (lam + ww + TxInfo + (lam + ww + ScriptPurpose + [ + { + [ TxInfo_match ww ] + [ + [ + Tuple2 (con bytestring) + ] + (con bytestring) + ] + } + (lam + ww + [ List TxInInfo ] + (lam + ww + [ List TxOut ] + (lam + ww + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ Tuple2 k ] + v + ] + ] + ) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 k + ] + v + ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + (lam + ww + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 k + ] + v + ] + ] + ) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + (lam + ww + [ List DCert ] + (lam + ww + [ + List + [ + [ + Tuple2 + StakingCredential + ] + (con integer) + ] + ] + (lam + ww + [ + Interval + (con integer) + ] + (lam + ww + [ + List + (con + bytestring + ) + ] + (lam + ww + [ + List + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + data + ) + ] + ] + (lam + ww + (con + bytestring + ) + { + [ + [ + { + [ + { + Maybe_match + TxInInfo + } + [ + [ + wfindOwnInput + ww + ] + ww + ] + ] + (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 + ds + Address + (lam + ds + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] ] ) ) + (con + bytestring + ) ] - (abs - dead - (type) + [ + [ + (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 + ] [ [ - [ - { - [ - GovInput_match - w - ] - (all - dead - (type) - [ - Maybe - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - ] - ) - } - (lam - default_arg0 + { + [ + Credential_match + ds + ] + [ + [ + Tuple2 + (con + bytestring + ) + ] (con bytestring ) - (lam - default_arg1 - Bool - (abs - dead - (type) - { - Nothing - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - } - ) - ) + ] + } + (lam + ipv + (con + bytestring ) - ] - (abs - dead - (type) - { - Nothing - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - } + [ + fail + (con + unit + () + ) + ] ) ] (lam - default_arg0 - [ - List - (con - bytestring - ) - ] - (abs - dead - (type) - { - Nothing - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - } + s + (con + bytestring ) - ) - ] - (lam - proposal - Proposal - (abs - dead - (type) - [ - { - [ - Proposal_match - proposal - ] + { + [ [ - Maybe - [ + { [ - Tuple2 + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) [ [ - TxConstraints - Void + Tuple2 + (con + bytestring + ) ] - Void + (con + bytestring + ) ] - ] - [ - State - GovState - ] - ] - ] - } - (lam - ds - (con - bytestring - ) - (lam - ds - (con - bytestring - ) + ) + } (lam - ds + dh (con - integer + bytestring ) - [ - { - Just - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - } + (abs + dead + (type) [ [ { { - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - } - [ - State - GovState - ] - } - [ - [ - ownsVotingToken - ww - ] - ds - ] - ] - [ - [ - { - State - GovState - } - [ - [ - [ - GovState - ww - ] - ww - ] - [ - { - Just - Voting - } - [ - [ - Voting - proposal - ] - { - Nil - [ - [ - Tuple2 - (con - bytestring - ) - ] - Bool - ] - } - ] - ] - ] - ] - ww + Tuple2 + (con + bytestring + ) + } + (con + bytestring + ) + } + s ] + dh ] - ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) + ] + (all + dead + (type) + dead ) - ] + } ) - ) - ] - (all - dead - (type) - dead + ] ) - } - ) - ] - (all - dead - (type) - dead + ) + ] ) - } + ) ) - ) + ] ) + ) + ] + ) + ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ] + ) + ) + ] + ] + (con bytestring) + } + (lam + a + (con bytestring) + (lam ds (con bytestring) a) + ) + ] + ) + ) + (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) + (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) + ] + } + [ + { + [ + ThreadToken_match + a + ] + (con bytestring) + } + (lam + ds + TxOutRef + (lam + ds + (con bytestring) + ds + ) + ) + ] + ] + [ + [ + { + Cons + [ + [ + Tuple2 + (con bytestring) + ] + (con integer) + ] + } + [ + [ + { + { + Tuple2 + (con + bytestring + ) + } + (con integer) + } + ds + ] + (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) + (lam + ds + (con bytestring) + { + Nil + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + } + ) + ) + ] + (all dead (type) dead) + } + ) + ) + (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 + 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 + (lam + v + v + (lam + m + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) + ) + k + ] + v + ] + (let + (nonrec) + (termbind + (strict) + (vardecl + rs + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + k + ] + v + ] + ) + [ + { build [ [ Tuple2 k ] v ] } + (abs + a + (type) + (lam + c + (fun + [ [ Tuple2 k ] v ] + (fun a a) + ) + (lam + n + a + [ + [ + c + [ + [ + { + { Tuple2 k } + v + } + k + ] + v + ] + ] + n + ] + ) + ) + ) + ] + ) + [ + [ + { + { + fFunctorNil_cfmap + [ + [ Tuple2 k ] + [ [ These v ] v ] + ] + } + [ [ Tuple2 k ] v ] + } + (lam + ds + [ + [ Tuple2 k ] + [ [ These v ] v ] + ] + [ + { + [ + { + { Tuple2_match k } + [ [ These v ] v ] + } + ds + ] + [ [ Tuple2 k ] v ] + } + (lam + c + k + (lam + a + [ [ These v ] v ] + [ + [ + { + { Tuple2 k } v + } + c + ] + [ + [ + [ + { + [ + { + { + These_match + v + } + v + } + a + ] + v + } + (lam b v b) + ] + (lam + a + v + (lam b v b) + ) + ] + (lam a v a) + ] + ] + ) + ) + ] + ) + ] + [ + [ + [ + { { { union k } v } v } + dEq + ] + m + ] + rs + ] + ] + ) + ) + ) + ) + ) + ) + ) + ) + (termbind + (nonstrict) + (vardecl + mkValidator + [ + Monoid [ (lam a (type) a) (con integer) ] + ] + ) + [ + { fMonoidSum (con integer) } + [ + [ + { CConsAdditiveMonoid (con integer) } + addInteger + ] + (con integer 0) + ] + ] + ) + (datatypebind + (datatype + (tyvardecl + UTuple4 + (fun + (type) + (fun + (type) + (fun (type) (fun (type) (type))) + ) + ) + ) + (tyvardecl a (type)) + (tyvardecl b (type)) + (tyvardecl c (type)) + (tyvardecl d (type)) + UTuple4_match + (vardecl + UTuple4 + (fun + a + (fun + b + (fun + c + (fun + d [ [ [ [ UTuple4 a ] b ] c ] d ] + ) + ) + ) + ) + ) + ) + ) + (termbind + (strict) + (vardecl + wc + (all + i + (type) + (all + o + (type) + (fun + [ [ TxConstraints i ] o ] + (fun + [ [ TxConstraints i ] o ] + [ + [ + [ + [ + UTuple4 + [ List TxConstraint ] + ] + [ List TxConstraintFun ] + ] + [ + List + [ ScriptInputConstraint i ] + ] + ] + [ + List + [ ScriptOutputConstraint o ] + ] + ] + ) + ) + ) + ) + ) + (abs + i + (type) + (abs + o + (type) + (lam + w + [ [ TxConstraints i ] o ] + (lam + w + [ [ TxConstraints i ] o ] + [ + [ + [ + [ + { + { + { + { + UTuple4 + [ List TxConstraint ] + } + [ List TxConstraintFun ] + } + [ + List + [ + ScriptInputConstraint + i + ] + ] + } + [ + List + [ + ScriptOutputConstraint o + ] + ] + } + [ + { + [ + { + { + TxConstraints_match + i + } + o + } + w + ] + [ List TxConstraint ] + } + (lam + ds + [ List TxConstraint ] + (lam + ds + [ List TxConstraintFun ] + (lam + ds + [ + List + [ + ScriptInputConstraint + i + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + o + ] + ] + [ + [ + [ + { + { + foldr + TxConstraint + } + [ + List + TxConstraint + ] + } + { + Cons + TxConstraint + } + ] + [ + { + [ + { + { + TxConstraints_match + i + } + o + } + w + ] + [ + List + TxConstraint + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + i + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + o + ] + ] + ds + ) + ) + ) + ) + ] + ] + ds + ] + ) + ) + ) + ) + ] + ] + [ + { + [ + { + { + TxConstraints_match i + } + o + } + w + ] + [ List TxConstraintFun ] + } + (lam + ds + [ List TxConstraint ] + (lam + ds + [ List TxConstraintFun ] + (lam + ds + [ + List + [ + ScriptInputConstraint + i + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + o + ] + ] + [ + [ + [ + { + { + foldr + TxConstraintFun + } + [ + List + TxConstraintFun + ] + } + { + Cons + TxConstraintFun + } + ] + [ + { + [ + { + { + TxConstraints_match + i + } + o + } + w + ] + [ + List + TxConstraintFun + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + i + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + o + ] + ] + ds + ) + ) + ) + ) + ] + ] + ds + ] + ) + ) + ) + ) + ] + ] + [ + { + [ + { + { TxConstraints_match i } + o + } + w + ] + [ + List + [ ScriptInputConstraint i ] + ] + } + (lam + ds + [ List TxConstraint ] + (lam + ds + [ List TxConstraintFun ] + (lam + ds + [ + List + [ + ScriptInputConstraint + i + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + o + ] + ] + [ + [ + [ + { + { + foldr + [ + ScriptInputConstraint + i + ] + } + [ + List + [ + ScriptInputConstraint + i + ] + ] + } + { + Cons + [ + ScriptInputConstraint + i + ] + } + ] + [ + { + [ + { + { + TxConstraints_match + i + } + o + } + w + ] + [ + List + [ + ScriptInputConstraint + i + ] + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + i + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + o + ] + ] + ds + ) + ) + ) + ) + ] + ] + ds + ] + ) + ) + ) + ) + ] + ] + [ + { + [ + { + { TxConstraints_match i } o + } + w + ] + [ + List + [ ScriptOutputConstraint o ] + ] + } + (lam + ds + [ List TxConstraint ] + (lam + ds + [ List TxConstraintFun ] + (lam + ds + [ + List + [ + ScriptInputConstraint i + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + o + ] + ] + [ + [ + [ + { + { + foldr + [ + ScriptOutputConstraint + o + ] + } + [ + List + [ + ScriptOutputConstraint + o + ] + ] + } + { + Cons + [ + ScriptOutputConstraint + o + ] + } + ] + [ + { + [ + { + { + TxConstraints_match + i + } + o + } + w + ] + [ + List + [ + ScriptOutputConstraint + o + ] + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + i + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + 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 TxConstraintFun } + ] + { Nil [ ScriptInputConstraint i ] } + ] + { Nil [ ScriptOutputConstraint 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 ] + } + (lam + w + [ [ TxConstraints i ] o ] + (lam + w + [ [ TxConstraints i ] o ] + [ + { + [ + { + { + { + { + UTuple4_match + [ + List TxConstraint + ] + } + [ + List TxConstraintFun + ] + } + [ + List + [ + ScriptInputConstraint + i + ] + ] + } + [ + List + [ + ScriptOutputConstraint + o + ] + ] + } + [ [ { { wc i } o } w ] w ] + ] + [ [ TxConstraints i ] o ] + } + (lam + ww + [ List TxConstraint ] + (lam + ww + [ List TxConstraintFun ] + (lam + ww + [ + List + [ + ScriptInputConstraint + i + ] + ] + (lam + ww + [ + List + [ + ScriptOutputConstraint + o + ] + ] + [ + [ + [ + [ + { + { + TxConstraints + i + } + o + } + ww + ] + ww + ] + ww + ] + ww + ] + ) + ) + ) + ) + ] + ) + ) + ] + { { fMonoidTxConstraints_cmempty i } o } + ] + ) + ) + ) + (termbind + (strict) + (vardecl + wownsVotingToken + (fun + (con bytestring) + (fun + (con bytestring) + [ + [ + [ + [ UTuple4 [ List TxConstraint ] ] + [ List TxConstraintFun ] + ] + [ + List + [ ScriptInputConstraint Void ] + ] + ] + [ + List [ ScriptOutputConstraint Void ] + ] + ] + ) + ) + ) + (lam + w + (con bytestring) + (lam + w + (con bytestring) + [ + [ + [ + [ + { + { + { + { + UTuple4 + [ List TxConstraint ] + } + [ List TxConstraintFun ] + } + [ + List + [ + ScriptInputConstraint Void + ] + ] + } + [ + List + [ + ScriptOutputConstraint Void + ] + ] + } + [ + { build TxConstraint } + (abs + a + (type) + (lam + c + (fun TxConstraint (fun a a)) + (lam + n + a + [ + [ + c + [ + MustSpendAtLeast + [ + [ + { + 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 ] - (abs - dead - (type) + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + } + w + ] + [ + [ + { + Cons + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + integer + ) + ] + } + [ + [ + { + { + Tuple2 + (con + bytestring + ) + } + (con + integer + ) + } + w + ] + (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 + ) + ] + ] + } + ] + ] + ] + n + ] + ) + ) + ) + ] + ] + { Nil TxConstraintFun } + ] + { Nil [ ScriptInputConstraint Void ] } + ] + { Nil [ ScriptOutputConstraint Void ] } + ] + ) + ) + ) + (termbind + (strict) + (vardecl + ownsVotingToken + (fun + (con bytestring) + (fun + (con bytestring) + [ [ TxConstraints Void ] Void ] + ) + ) + ) + (lam + w + (con bytestring) + (lam + w + (con bytestring) + [ + { + [ + { + { + { + { + UTuple4_match + [ List TxConstraint ] + } + [ List TxConstraintFun ] + } + [ + List + [ ScriptInputConstraint Void ] + ] + } + [ + List + [ ScriptOutputConstraint Void ] + ] + } + [ [ wownsVotingToken w ] w ] + ] + [ [ TxConstraints Void ] Void ] + } + (lam + ww + [ List TxConstraint ] + (lam + ww + [ List TxConstraintFun ] + (lam + ww + [ + List + [ ScriptInputConstraint Void ] + ] + (lam + ww + [ + List + [ + ScriptOutputConstraint Void + ] + ] + [ + [ + [ + [ + { + { TxConstraints Void } + Void + } + ww + ] + ww + ] + ww + ] + ww + ] + ) + ) + ) + ) + ] + ) + ) + ) + (datatypebind + (datatype + (tyvardecl Proposal (type)) + + Proposal_match + (vardecl + Proposal + (fun + (con bytestring) + (fun + (con bytestring) + (fun (con integer) Proposal) + ) + ) + ) + ) + ) + (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) + ) + (vardecl + ProposeChange (fun Proposal GovInput) + ) + ) + ) + (datatypebind + (datatype + (tyvardecl Voting (type)) + + Voting_match + (vardecl + Voting + (fun + Proposal + (fun + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + Bool + ] + Voting + ) + ) + ) + ) + ) + (datatypebind + (datatype + (tyvardecl GovState (type)) + + GovState_match + (vardecl + GovState + (fun + (con bytestring) + (fun + (con bytestring) + (fun [ Maybe Voting ] GovState) + ) + ) + ) + ) + ) + (datatypebind + (datatype + (tyvardecl Params (type)) + + Params_match + (vardecl + Params + (fun + (con bytestring) + (fun + [ List (con bytestring) ] + (fun (con integer) Params) + ) + ) + ) + ) + ) + (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 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) + [ + [ + { + Cons + [ + [ + Tuple2 + a + ] + b + ] + } + [ + [ + { + { + Tuple2 + a + } + b + } + ipv + ] + ipv + ] + ] + [ + [ + { + { + zip a + } + b + } + ipv + ] + ipv + ] + ] + ) + ) + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ] + (all dead (type) dead) + } + ) + ) + ) + ) + ) + (lam + params + Params + (let + (nonrec) + (termbind + (strict) + (vardecl + w + [ [ StateMachine GovState ] GovInput ] + ) + [ + [ + [ + [ + { + { StateMachine GovState } + GovInput + } + (lam + w + [ State GovState ] + (lam + w + GovInput + [ + { + [ Params_match params ] + [ + Maybe + [ + [ + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ State GovState ] + ] + ] + } + (lam + ww + (con bytestring) + (lam + ww + [ + List + (con bytestring) + ] + (lam + ww + (con integer) + [ + { + [ + { + State_match + GovState + } + w + ] + [ + Maybe + [ + [ + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState + ] + ] + ] + } + (lam + ww + GovState + (lam + ww + [ + [ + (lam + k + (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 + ww + ] + [ + Maybe + [ + [ + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState + ] + ] + ] + } + (lam + ww + (con + bytestring + ) + (lam + ww + (con + bytestring + ) + (lam + ww + [ + Maybe + Voting + ] + { + [ + [ + [ + [ { [ + GovInput_match + w + ] + (all + dead + (type) [ - { + Maybe + [ [ - { - Maybe_match - Voting - } - ww - ] - (all - dead - (type) + Tuple2 [ - Maybe [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] + TxConstraints + Void ] + Void ] - ) - } - (lam - ds - Voting - (abs - dead - (type) + ] + [ + State + GovState + ] + ] + ] + ) + } + (lam + default_arg0 + (con + bytestring + ) + (lam + default_arg1 + Bool + (abs + dead + (type) + { + [ [ { [ - Voting_match - ds + { + Maybe_match + Voting + } + ww ] - [ - Maybe + (all + dead + (type) [ + Maybe [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void ] - ] - [ - State - GovState + [ + State + GovState + ] ] ] - ] + ) } (lam - p - Proposal - (lam - oldMap + ds + Voting + (abs + dead + (type) [ - [ - (lam - k - (type) - (lam - v - (type) + { + [ + Voting_match + ds + ] + [ + Maybe + [ [ - List + Tuple2 [ [ - Tuple2 - k + TxConstraints + Void ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - Bool - ] - { - [ - [ + Void + ] + ] + [ + State + GovState + ] + ] + ] + } + (lam + p + Proposal + (lam + oldMap [ [ - { - [ - GovInput_match - w - ] - (all - dead + (lam + k + (type) + (lam + v (type) [ - Maybe + List [ [ Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState + k ] + v ] ] ) - } - (lam - tokenName - (con - bytestring - ) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - w + ) + (con + bytestring + ) + ] + Bool + ] + { + [ + [ + [ + [ + { [ - [ - TxConstraints - Void - ] - Void + GovInput_match + w ] - ) - [ - { + (all + dead + (type) [ - { - { - { - UTuple3_match - [ - List - TxConstraint - ] - } + Maybe + [ + [ + Tuple2 [ - List [ - ScriptInputConstraint + TxConstraints Void ] - ] - } - [ - List - [ - ScriptOutputConstraint Void ] ] - } - [ [ - wownsVotingToken - ww + State + GovState ] - tokenName - ] - ] - [ - [ - TxConstraints - Void ] - Void - ] - } - (lam - ww - [ - List - TxConstraint ] - (lam - ww - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ww + ) + } + (lam + tokenName + (con + bytestring + ) + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + w [ - List [ - ScriptOutputConstraint + TxConstraints Void ] + Void ] - [ + ) + [ + { [ - [ + { { { - TxConstraints - Void + { + UTuple4_match + [ + List + TxConstraint + ] + } + [ + List + TxConstraintFun + ] } - Void + [ + List + [ + ScriptInputConstraint + Void + ] + ] } - ww + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + } + [ + [ + wownsVotingToken + ww + ] + tokenName ] - ww ] - ww - ] - ) - ) - ) - ] - ) - (lam - vote - Bool - (abs - dead - (type) - [ - { - Just - [ - [ - Tuple2 [ [ TxConstraints @@ -20089,272 +19691,331 @@ ] Void ] - ] - [ - State - GovState - ] + } + (lam + ww + [ + List + TxConstraint + ] + (lam + ww + [ + List + TxConstraintFun + ] + (lam + ww + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ww + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + ww + ] + ww + ] + ww + ] + ww + ] + ) + ) + ) + ) ] - } - [ - [ - { + ) + (lam + vote + Bool + (abs + dead + (type) + [ { - Tuple2 + Just [ [ - TxConstraints - Void + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState ] - Void ] } - [ - State - GovState - ] - } - [ [ [ { { - TxConstraints - Void - } - Void - } - [ - { + Tuple2 [ - { - { - TxConstraints_match - Void - } + [ + TxConstraints Void - } - w - ] - [ - List - TxConstraint + ] + Void ] } - (lam - ds + [ + State + GovState + ] + } + [ + [ [ - List - TxConstraint - ] - (lam - ds [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint + { + { + TxConstraints Void - ] - ] + } + Void + } [ - [ + { [ { { - foldr - TxConstraint + TxConstraints_match + Void } - [ - List - TxConstraint - ] - } - { - Cons - TxConstraint + Void } + w ] [ - { - build - TxConstraint - } - (abs - a - (type) + List + TxConstraint + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + Void + ] + ] (lam - c - (fun - TxConstraint - (fun - a - a - ) - ) - (lam - n - a + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ [ [ - c - [ - MustValidateIn + { + { + foldr + TxConstraint + } [ - [ - { - Interval - (con - integer - ) - } - [ - [ - { - LowerBound - (con - integer - ) - } - { - NegInf - (con - integer - ) - } - ] - True - ] - ] - [ + List + TxConstraint + ] + } + { + Cons + TxConstraint + } + ] + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c + (fun + TxConstraint + (fun + a + a + ) + ) + (lam + n + a [ - { - UpperBound - (con - integer - ) - } [ - { - Finite - (con - integer - ) - } + c [ - { + MustValidateIn + [ + [ + { + Interval + (con + integer + ) + } + [ + [ + { + LowerBound + (con + integer + ) + } + { + NegInf + (con + integer + ) + } + ] + True + ] + ] [ - Proposal_match - p + [ + { + UpperBound + (con + integer + ) + } + [ + { + Finite + (con + integer + ) + } + [ + { + [ + Proposal_match + p + ] + (con + integer + ) + } + (lam + ds + (con + bytestring + ) + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + ds + ) + ) + ) + ] + ] + ] + True ] - (con - integer - ) - } - (lam - ds - (con - bytestring - ) - (lam - ds - (con - bytestring - ) - (lam - ds - (con - integer - ) - ds - ) - ) - ) + ] ] ] + n ] - True - ] - ] - ] + ) + ) + ) ] - n ] - ) + ds + ] ) ) - ] - ] - ds - ] - ) - ) - ) - ] - ] - [ - { - [ - { - { - TxConstraints_match - Void - } - Void - } - w - ] - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - Void + ) + ) ] ] [ - [ + { [ { { - foldr - [ - ScriptInputConstraint - Void - ] + TxConstraints_match + Void } + Void + } + w + ] + [ + List + TxConstraintFun + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds [ List [ @@ -20362,85 +20023,182 @@ Void ] ] - } + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + { + { + foldr + TxConstraintFun + } + [ + List + TxConstraintFun + ] + } + { + Cons + TxConstraintFun + } + ] + { + Nil + TxConstraintFun + } + ] + ds + ] + ) + ) + ) + ) + ] + ] + [ + { + [ + { { - Cons + TxConstraints_match + Void + } + Void + } + w + ] + [ + List + [ + ScriptInputConstraint + Void + ] + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List [ ScriptInputConstraint Void ] - } - ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + { + { + foldr + [ + ScriptInputConstraint + Void + ] + } + [ + List + [ + ScriptInputConstraint + Void + ] + ] + } + { + Cons + [ + ScriptInputConstraint + Void + ] + } + ] + { + Nil + [ + ScriptInputConstraint + Void + ] + } + ] + ds + ] + ) + ) + ) + ) + ] + ] + [ + { + [ + { { - Nil - [ - ScriptInputConstraint - Void - ] + TxConstraints_match + Void } + Void + } + w + ] + [ + List + [ + ScriptOutputConstraint + Void ] - ds ] - ) - ) - ) - ] - ] - [ - { - [ - { - { - TxConstraints_match - Void } - Void - } - w - ] - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ds - [ - List + (lam + ds [ - ScriptOutputConstraint - Void + List + TxConstraint ] - ] - [ - [ + (lam + ds [ - { - { - foldr - [ - ScriptOutputConstraint - Void - ] - } + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ds [ List [ @@ -20448,369 +20206,499 @@ Void ] ] - } - { - Cons [ - ScriptOutputConstraint - Void + [ + [ + { + { + foldr + [ + ScriptOutputConstraint + Void + ] + } + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + } + { + Cons + [ + ScriptOutputConstraint + Void + ] + } + ] + { + Nil + [ + ScriptOutputConstraint + Void + ] + } + ] + ds ] - } - ] - { - Nil - [ - ScriptOutputConstraint - Void - ] - } - ] - ds - ] - ) - ) - ) - ] - ] - ] - [ - [ - { - State - GovState - } - [ - [ - [ - GovState - ww + ) + ) + ) + ) + ] ] - ww ] [ - { - Just - Voting - } [ - [ - Voting - p - ] + { + State + GovState + } [ [ [ - [ - { - { - insert - (con - bytestring - ) - } - Bool - } - equalsByteString - ] - tokenName + GovState + ww ] - vote + ww ] - oldMap - ] - ] - ] - ] - ] - ww - ] - ] - ] - ) - ) - ) - ) - ] - (abs - dead - (type) - [ - { - Just - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] + [ + { + Just + Voting + } + [ + [ + Voting + p + ] + [ + [ + [ + [ + { + { + insert + (con + bytestring + ) + } + Bool + } + equalsByteString + ] + tokenName + ] + vote + ] + oldMap + ] + ] + ] + ] + ] + ww + ] + ] + ] + ) + ) + ) + ) ] - } - [ - [ - { + (abs + dead + (type) + [ { - Tuple2 + Just [ [ - TxConstraints - Void + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState ] - Void ] } [ - State - GovState - ] - } - { - { - fMonoidTxConstraints_cmempty - Void - } - Void - } - ] - [ - [ - { - State - GovState - } - [ + [ + { + { + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + } + [ + State + GovState + ] + } + { + { + fMonoidTxConstraints_cmempty + Void + } + Void + } + ] [ [ - GovState { + State + GovState + } + [ [ [ + GovState { [ - Bool_match [ - [ + { [ - { - (builtin - ifThenElse - ) - Bool - } + Bool_match [ [ - (builtin - lessThanInteger - ) [ + { + (builtin + ifThenElse + ) + Bool + } [ [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - (con - integer - ) - ] - } - [ - [ - Tuple2 - (con - bytestring - ) - ] - Bool - ] - } - mkValidator - ] - (lam - ds + (builtin + lessThanInteger + ) [ [ - Tuple2 - (con - bytestring - ) - ] - Bool - ] - [ - { [ { { - Tuple2_match - (con - bytestring - ) + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + (con + integer + ) + ] } - Bool + [ + [ + Tuple2 + (con + bytestring + ) + ] + Bool + ] } - ds - ] - [ - (lam - a - (type) - a - ) - (con - integer - ) + mkValidator ] - } - (lam - ds - (con - bytestring - ) (lam - a - Bool + ds [ [ - { - [ - Bool_match + Tuple2 + (con + bytestring + ) + ] + Bool + ] + [ + { + [ + { + { + Tuple2_match + (con + bytestring + ) + } + Bool + } + ds + ] + [ + (lam a - ] + (type) + a + ) + (con + integer + ) + ] + } + (lam + ds + (con + bytestring + ) + (lam + a + Bool [ - (lam - a - (type) - a - ) + [ + { + [ + Bool_match + a + ] + [ + (lam + a + (type) + a + ) + (con + integer + ) + ] + } + (con + integer + 1 + ) + ] (con integer + 0 ) ] - } - (con - integer - 1 ) - ] - (con - integer - 0 ) ] ) - ) + ] + oldMap ] - ) + ] + ww ] - oldMap ] + False ] - ww + True ] ] - False - ] - True + (all + dead + (type) + (con + bytestring + ) + ) + } + (abs + dead + (type) + [ + { + [ + Proposal_match + p + ] + (con + bytestring + ) + } + (lam + ds + (con + bytestring + ) + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + ds + ) + ) + ) + ] + ) ] + (abs + dead + (type) + ww + ) ] (all dead (type) - (con - bytestring - ) + dead ) } - (abs - dead - (type) - [ - { - [ - Proposal_match - p - ] - (con - bytestring - ) - } - (lam - ds - (con - bytestring - ) - (lam - ds - (con - bytestring - ) - (lam - ds - (con - integer - ) - ds - ) - ) - ) - ] - ) ] - (abs - dead - (type) - ww - ) + ww ] - (all - dead - (type) - dead - ) - } + { + Nothing + Voting + } + ] ] ww ] - { - Nothing - Voting - } ] ] - ww - ] + ) ] + (lam + default_arg0 + [ + List + (con + bytestring + ) + ] + (abs + dead + (type) + (error + [ + Maybe + [ + [ + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState + ] + ] + ] + ) + ) + ) ] + (lam + ipv + Proposal + (abs + dead + (type) + { + Nothing + [ + [ + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState + ] + ] + } + ) + ) + ] + (all + dead + (type) + dead ) - ] - (lam - default_arg0 + } + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + [ + { [ - List - (con - bytestring - ) + GovInput_match + w ] - (abs + (all dead (type) - (error + [ + Maybe [ - Maybe + [ + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState + ] + ] + ] + ) + } + (lam + default_arg0 + (con + bytestring + ) + (lam + default_arg1 + Bool + (abs + dead + (type) + { + Nothing [ [ Tuple2 @@ -20827,1504 +20715,2148 @@ GovState ] ] - ] + } ) ) ) ] - (lam - ipv - Proposal - (abs - dead - (type) - { - Nothing + (abs + dead + (type) + { + Nothing + [ [ + Tuple2 [ - Tuple2 [ - [ - TxConstraints - Void - ] + TxConstraints Void ] - ] - [ - State - GovState + Void ] ] - } - ) + [ + State + GovState + ] + ] + } ) ] - (all - dead - (type) - dead - ) - } - ) - ) - ] - ) - ) - ] - (abs - dead - (type) - { - [ - [ - [ - [ - { - [ - GovInput_match - w - ] - (all - dead - (type) + (lam + default_arg0 [ - Maybe - [ + List + (con + bytestring + ) + ] + (abs + dead + (type) + { + Nothing [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void + ] + [ + State + GovState ] ] - [ - State - GovState - ] - ] - ] + } + ) ) - } + ] (lam - default_arg0 - (con - bytestring - ) - (lam - default_arg1 - Bool - (abs - dead - (type) + proposal + Proposal + (abs + dead + (type) + [ { - Nothing [ + Proposal_match + proposal + ] + [ + Maybe [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void ] - ] - [ - State - GovState - ] - ] - } - ) + [ + State + GovState + ] + ] + ] + } + (lam + ds + (con + bytestring + ) + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + [ + { + Just + [ + [ + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState + ] + ] + } + [ + [ + { + { + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + } + [ + State + GovState + ] + } + [ + [ + ownsVotingToken + ww + ] + ds + ] + ] + [ + [ + { + State + GovState + } + [ + [ + [ + GovState + ww + ] + ww + ] + [ + { + Just + Voting + } + [ + [ + Voting + proposal + ] + { + Nil + [ + [ + Tuple2 + (con + bytestring + ) + ] + Bool + ] + } + ] + ] + ] + ] + ww + ] + ] + ] + ) + ) + ) + ] ) ) ] - (abs + (all dead (type) - { - Nothing + dead + ) + } + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) + ) + ] + (abs + dead + (type) + { + [ + [ + { + [ + { + Maybe_match + Voting + } + ww + ] + (all + dead + (type) + [ + Maybe + [ + [ + Tuple2 + [ [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] + TxConstraints + Void ] - } - ) + Void + ] + ] + [ + State + GovState + ] ] - (lam - default_arg0 + ] + ) + } + (lam + ds + Voting + (abs + dead + (type) + [ + { [ - List - (con - bytestring - ) + Voting_match + ds ] - (abs - dead - (type) - { - Nothing + [ + Maybe + [ [ + Tuple2 [ - Tuple2 [ - [ - TxConstraints - Void - ] + TxConstraints Void ] - ] - [ - State - GovState + Void ] ] - } - ) - ) - ] - (lam - proposal - Proposal - (abs - dead - (type) - [ - { [ - Proposal_match - proposal + State + GovState ] + ] + ] + } + (lam + p + Proposal + (lam + oldMap + [ [ - Maybe - [ - [ - Tuple2 + (lam + k + (type) + (lam + v + (type) [ + List [ - TxConstraints - Void + [ + Tuple2 + k + ] + v ] - Void ] - ] - [ - State - GovState - ] - ] - ] - } - (lam - ds - (con - bytestring - ) - (lam - ds + ) + ) (con bytestring ) - (lam - ds - (con - integer - ) + ] + Bool + ] + { + [ + [ [ - { - Just - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - } [ - [ - { - { - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - } - [ - State - GovState - ] - } + { [ - [ - ownsVotingToken - ww - ] - ds + GovInput_match + w ] - ] - [ - [ - { - State - GovState - } + (all + dead + (type) [ + Maybe [ [ + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State GovState - ww ] - ww ] + ] + ) + } + (lam + tokenName + (con + bytestring + ) + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + w + [ + [ + TxConstraints + Void + ] + Void + ] + ) [ { - Just - Voting + [ + { + { + { + { + UTuple4_match + [ + List + TxConstraint + ] + } + [ + List + TxConstraintFun + ] + } + [ + List + [ + ScriptInputConstraint + Void + ] + ] + } + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + } + [ + [ + wownsVotingToken + ww + ] + tokenName + ] + ] + [ + [ + TxConstraints + Void + ] + Void + ] } - [ + (lam + ww [ - Voting - proposal + List + TxConstraint ] + (lam + ww + [ + List + TxConstraintFun + ] + (lam + ww + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ww + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + ww + ] + ww + ] + ww + ] + ww + ] + ) + ) + ) + ) + ] + ) + (lam + vote + Bool + (abs + dead + (type) + [ { - Nil + Just [ [ Tuple2 - (con - bytestring - ) + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState + ] + ] + } + [ + [ + { + { + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + } + [ + State + GovState + ] + } + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + [ + { + [ + { + { + TxConstraints_match + Void + } + Void + } + w + ] + [ + List + TxConstraint + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + { + { + foldr + TxConstraint + } + [ + List + TxConstraint + ] + } + { + Cons + TxConstraint + } + ] + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c + (fun + TxConstraint + (fun + a + a + ) + ) + (lam + n + a + [ + [ + c + [ + MustValidateIn + [ + [ + { + Interval + (con + integer + ) + } + [ + [ + { + LowerBound + (con + integer + ) + } + { + NegInf + (con + integer + ) + } + ] + True + ] + ] + [ + [ + { + UpperBound + (con + integer + ) + } + [ + { + Finite + (con + integer + ) + } + [ + { + [ + Proposal_match + p + ] + (con + integer + ) + } + (lam + ds + (con + bytestring + ) + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + ds + ) + ) + ) + ] + ] + ] + True + ] + ] + ] + ] + n + ] + ) + ) + ) + ] + ] + ds + ] + ) + ) + ) + ) + ] + ] + [ + { + [ + { + { + TxConstraints_match + Void + } + Void + } + w + ] + [ + List + TxConstraintFun + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + { + { + foldr + TxConstraintFun + } + [ + List + TxConstraintFun + ] + } + { + Cons + TxConstraintFun + } + ] + { + Nil + TxConstraintFun + } + ] + ds + ] + ) + ) + ) + ) + ] + ] + [ + { + [ + { + { + TxConstraints_match + Void + } + Void + } + w + ] + [ + List + [ + ScriptInputConstraint + Void + ] + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + { + { + foldr + [ + ScriptInputConstraint + Void + ] + } + [ + List + [ + ScriptInputConstraint + Void + ] + ] + } + { + Cons + [ + ScriptInputConstraint + Void + ] + } + ] + { + Nil + [ + ScriptInputConstraint + Void + ] + } + ] + ds + ] + ) + ) + ) + ) + ] + ] + [ + { + [ + { + { + TxConstraints_match + Void + } + Void + } + w + ] + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + { + { + foldr + [ + ScriptOutputConstraint + Void + ] + } + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + } + { + Cons + [ + ScriptOutputConstraint + Void + ] + } + ] + { + Nil + [ + ScriptOutputConstraint + Void + ] + } + ] + ds + ] + ) + ) + ) + ) + ] ] - Bool ] - } - ] - ] - ] - ] - ww - ] - ] - ] - ) - ) - ) - ] - ) - ) - ] - (all - dead - (type) - dead - ) - } - ) - ] - (all - dead - (type) - dead - ) - } - ) - ] - (lam - tokenNames - [ - List - (con - bytestring - ) - ] - (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 - ] + [ + [ + { + State + GovState + } + [ + [ + [ + GovState + ww + ] + ww + ] + [ + { + Just + Voting + } + [ + [ + Voting + p + ] + [ + [ + [ + [ + { + { + insert + (con + bytestring + ) + } + Bool + } + equalsByteString + ] + tokenName + ] + vote + ] + oldMap + ] + ] + ] + ] + ] + ww + ] + ] + ] + ) + ) + ) + ) ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v + (abs + dead (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - ] - [ - [ - TxConstraints - Void - ] - Void - ] - ] - } - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - bytestring - ) - ] - } - [ - [ - { - { - (abs - a - (type) - (abs - b - (type) - (lam - v - [ - Monoid - a - ] - (lam - v - [ - Monoid - b - ] - [ [ { - CConsMonoid - [ - [ - Tuple2 - a - ] - b - ] - } - (lam - eta + Just [ [ Tuple2 - a - ] - b - ] - (lam - eta - [ [ - Tuple2 - a + [ + TxConstraints + Void + ] + Void ] - b ] [ + State + GovState + ] + ] + } + [ + [ + { { - [ - { - { - Tuple2_match - a - } - b - } - eta - ] + Tuple2 [ [ - Tuple2 - a + TxConstraints + Void ] - b + Void ] } - (lam - a - a - (lam - b - b + [ + State + GovState + ] + } + { + { + fMonoidTxConstraints_cmempty + Void + } + Void + } + ] + [ + [ + { + State + GovState + } + [ + [ [ + GovState { [ - { - { - Tuple2_match - a - } - b - } - eta - ] - [ - [ - Tuple2 - a - ] - b - ] - } - (lam - a - a - (lam - b - b [ - [ - { - { - Tuple2 - a - } - b - } + { [ + Bool_match [ [ - { - p1Monoid - a - } - v + [ + { + (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 + } + ds + ] + [ + (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 + ] + ] + ww + ] + ] + False ] - a + True ] - a ] - ] - [ + (all + dead + (type) + (con + bytestring + ) + ) + } + (abs + dead + (type) [ - [ - { - p1Monoid - b - } - v - ] - b + { + [ + Proposal_match + p + ] + (con + bytestring + ) + } + (lam + ds + (con + bytestring + ) + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + ds + ) + ) + ) ] - b - ] + ) ] + (abs + dead + (type) + ww + ) + ] + (all + dead + (type) + dead ) - ) + } ] - ) - ) + ww + ] + { + Nothing + Voting + } + ] ] - ) - ) - ] - [ - [ - { - { - Tuple2 - a - } - b - } - [ - { - mempty - a - } - v + ww ] ] - [ - { - mempty - b - } - v - ] ] - ] - ) - ) - ) - ) - [ - [ - (lam - k - (type) + ) + ] (lam - v - (type) + default_arg0 [ List - [ - [ - Tuple2 - k - ] - v - ] + (con + bytestring + ) ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v + (abs + dead (type) - [ - List + (error [ + Maybe [ - Tuple2 - k + [ + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState + ] ] - v ] - ] + ) ) ) - (con - bytestring - ) ] - (con - integer - ) - ] - ] - } - [ - [ - TxConstraints - Void - ] - Void - ] - } - fMonoidValue - ] - { - { - fMonoidTxConstraints - Void - } - Void - } - ] - ] - (lam - ds - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - bytestring - ) - ] - [ - { - [ - { - { - Tuple2_match - (con - bytestring - ) - } - (con - bytestring - ) - } - ds - ] - [ - [ - Tuple2 - [ - [ (lam - k - (type) - (lam - v + ipv + Proposal + (abs + dead (type) - [ - List + { + Nothing [ [ Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ [ - Tuple2 - k + [ + TxConstraints + Void + ] + Void ] - v + ] + [ + State + GovState ] ] - ) - ) - (con - bytestring + } ) - ] - (con - integer ) ] - ] - ] - [ - [ - TxConstraints - Void - ] - Void - ] - ] - } - (lam - pk - (con - bytestring - ) - (lam - nm - (con - bytestring + (all + dead + (type) + dead + ) + } ) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - v + ) + ] + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + [ + { + [ + GovInput_match + w + ] + (all + dead + (type) [ - List + Maybe [ [ 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 - ) + TxConstraints + Void + ] + Void ] ] - } - [ [ - { - { - Tuple2 - (con - bytestring - ) - } - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - } - ww + State + GovState ] + ] + ] + ) + } + (lam + default_arg0 + (con + bytestring + ) + (lam + default_arg1 + Bool + (abs + dead + (type) + { + Nothing [ [ - { - Cons - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - integer - ) - ] - } + Tuple2 [ [ - { - { - Tuple2 - (con - bytestring - ) - } - (con - integer - ) - } - nm + TxConstraints + Void ] - (con - integer - 1 - ) + Void ] ] - { - Nil - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - integer - ) - ] - } + [ + State + GovState + ] + ] + } + ) + ) + ) + ] + (abs + dead + (type) + { + Nothing + [ + [ + Tuple2 + [ + [ + TxConstraints + Void ] + Void ] ] - { - Nil + [ + State + GovState + ] + ] + } + ) + ] + (lam + default_arg0 + [ + List + (con + bytestring + ) + ] + (abs + dead + (type) + { + Nothing + [ + [ + Tuple2 [ [ - Tuple2 - (con - bytestring - ) + TxConstraints + Void ] + Void + ] + ] + [ + State + GovState + ] + ] + } + ) + ) + ] + (lam + proposal + Proposal + (abs + dead + (type) + [ + { + [ + Proposal_match + proposal + ] + [ + Maybe + [ + [ + Tuple2 [ [ - (lam - k - (type) - (lam - v - (type) + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState + ] + ] + ] + } + (lam + ds + (con + bytestring + ) + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + [ + { + Just + [ + [ + Tuple2 + [ [ - List - [ - [ - Tuple2 - k - ] - v - ] + TxConstraints + Void ] - ) - ) - (con - bytestring - ) + Void + ] + ] + [ + State + GovState + ] ] - (con - integer - ) - ] - ] - } - ] - ) - [ - [ - { - { - Tuple2 + } [ [ - (lam - k - (type) - (lam - v - (type) + { + { + Tuple2 [ - List [ - [ - Tuple2 - k - ] - v + TxConstraints + Void ] + Void ] - ) - ) - (con - bytestring - ) + } + [ + State + GovState + ] + } + [ + [ + ownsVotingToken + ww + ] + ds + ] ] [ [ - (lam - k - (type) - (lam - v - (type) + { + State + GovState + } + [ + [ [ - List - [ - [ - Tuple2 - k - ] - v - ] + GovState + ww ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - } - [ - [ - TxConstraints - Void - ] - Void - ] - } - v - ] - [ - [ - [ - { - { - TxConstraints - Void - } - Void - } - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun - TxConstraint - (fun - a - a - ) - ) - (lam - n - a + ww + ] [ + { + Just + Voting + } [ - c [ + Voting + proposal + ] + { + Nil [ [ - [ - MustPayToPubKeyAddress - pk - ] - { - Nothing - (con - bytestring - ) - } - ] - { - Nothing + Tuple2 (con - data + bytestring ) - } + ] + Bool ] - v - ] + } ] - n ] - ) - ) - ) - ] - ] - { - Nil - [ - ScriptInputConstraint - Void + ] + ] + ww + ] ] - } - ] - { - Nil - [ - ScriptOutputConstraint - Void ] - } - ] - ] - ) + ) + ) + ) + ] ) ) ] - ) - ] + (all + dead + (type) + dead + ) + } + ) + ] + (all + dead + (type) + dead + ) + } + ) + ] + (lam + tokenNames + [ + List + (con + bytestring + ) + ] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + ds [ [ - { - { - zip + 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 - bytestring + integer ) - } - (con - bytestring - ) - } - ww + ] + ] ] - tokenNames - ] - ] - ) - (termbind - (nonstrict) - (vardecl - w - [ [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void ] ) [ - { + [ [ { { - Tuple2_match + fFoldableNil_cfoldMap [ [ - (lam - k + 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 + ) + ] + } + [ + [ + { + { + (abs + a (type) - (lam - v + (abs + b (type) - [ - List + (lam + v [ + Monoid + a + ] + (lam + v [ - Tuple2 - k + Monoid + b + ] + [ + [ + { + CConsMonoid + [ + [ + Tuple2 + a + ] + 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 + } + v + ] + a + ] + a + ] + ] + [ + [ + [ + { + p1Monoid + b + } + v + ] + b + ] + b + ] + ] + ) + ) + ] + ) + ) + ] + ) + ) + ] + [ + [ + { + { + Tuple2 + a + } + b + } + [ + { + mempty + a + } + v + ] + ] + [ + { + mempty + b + } + v + ] + ] ] - v - ] - ] + ) + ) ) ) - (con - bytestring - ) - ] - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) + ) + (con + bytestring ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - } - [ - [ - TxConstraints - Void - ] - Void - ] - } - ds - ] - [ - [ - TxConstraints - Void - ] - Void - ] - } - (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 - ] - (let - (nonrec) - (termbind - (strict) - (vardecl - red - (con - data - ) - ) - [ - [ - (builtin - constrData - ) - (con - integer - 0 - ) - ] - [ - (builtin - mkNilData - ) - unitval - ] - ] - ) - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [ - [ - TxConstraints - Void - ] - Void - ] - } [ [ - Tuple2 - (con - bytestring - ) - ] - [ - [ + (lam + k + (type) (lam - k + v (type) - (lam - v - (type) + [ + List [ - List [ - [ - Tuple2 - k - ] - v + Tuple2 + k ] + v ] - ) - ) - (con - bytestring + ] ) - ] + ) (con - integer + bytestring ) ] + (con + integer + ) ] - } + ] + } + [ + [ + TxConstraints + Void + ] + Void + ] + } + fMonoidValue + ] + { + { + fMonoidTxConstraints + Void + } + Void + } + ] + ] + (lam + ds + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + bytestring + ) + ] + [ + { + [ + { { - { - fMonoidTxConstraints - Void - } - Void + Tuple2_match + (con + bytestring + ) } - ] - (lam - ds + (con + bytestring + ) + } + ds + ] + [ + [ + Tuple2 [ [ - Tuple2 + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con bytestring ) @@ -22358,596 +22890,253 @@ ) ] ] + ] + [ [ - { - [ - { - { - Tuple2_match - (con - bytestring - ) - } - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - } - ds - ] + TxConstraints + Void + ] + Void + ] + ] + } + (lam + pk + (con + bytestring + ) + (lam + nm + (con + bytestring + ) + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + v [ - [ - TxConstraints - Void - ] - Void - ] - } - (lam - currencySymbol - (con - bytestring - ) - (lam - mp + List [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + Tuple2 (con bytestring ) ] - (con - integer - ) - ] - [ [ [ - { - { - fFoldableNil_cfoldMap - [ - [ - TxConstraints - Void - ] - Void - ] - } - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - integer - ) - ] - } - { - { - fMonoidTxConstraints - Void - } - Void - } - ] - (lam - p - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - integer - ) - ] - (let - (nonrec) - (termbind - (strict) - (vardecl - w - (con - bytestring - ) - ) - [ - { - [ - { - { - Tuple2_match - (con - bytestring - ) - } - (con - integer - ) - } - p - ] - (con - bytestring - ) - } - (lam - x - (con - bytestring - ) - (lam - ds - (con - integer - ) - x - ) - ) - ] - ) - (termbind - (strict) - (vardecl - w - (con - integer - ) - ) - [ - { - [ - { - { - Tuple2_match - (con - bytestring - ) - } - (con - integer - ) - } - p + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k ] - (con - integer - ) - } - (lam - ds - (con - bytestring - ) - (lam - y - (con - integer - ) - y - ) - ) + v + ] ] ) - [ - { - [ - { - { - { - UTuple3_match - [ - List - TxConstraint - ] - } - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - } - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsInteger - ) - w - ] - (con - integer - 0 - ) - ] - ] - True - ] - False - ] - ] - (all - dead - (type) - [ - [ - [ - UTuple3 - [ - List - TxConstraint - ] - ] - [ - List - [ - ScriptInputConstraint - Void - ] - ] - ] - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - ] - ) - } - (abs - dead - (type) - [ - [ - [ - { - { - { - UTuple3 - [ - List - TxConstraint - ] - } - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - } - { - Nil - TxConstraint - } - ] - { - Nil - [ - ScriptInputConstraint - Void - ] - } - ] - { - Nil - [ - ScriptOutputConstraint - Void - ] - } - ] - ) - ] - (abs - dead - (type) - [ - [ - [ - { - { - { - UTuple3 - [ - List - TxConstraint - ] - } - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - } - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun - TxConstraint - (fun - a - a - ) - ) - (lam - n - a - [ - [ - c - [ - [ - [ - [ - MustMintValue - currencySymbol - ] - red - ] - w - ] - w - ] - ] - n - ] - ) - ) - ) - ] - ] - { - Nil - [ - ScriptInputConstraint - Void - ] - } - ] - { - Nil - [ - ScriptOutputConstraint - Void - ] - } - ] - ) - ] - (all - dead - (type) - dead - ) - } - ] + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + ] + ) + [ + [ + { + Cons + [ + [ + Tuple2 + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) [ + List [ - TxConstraints - Void + [ + Tuple2 + k + ] + v ] - Void ] - } + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + } + [ + [ + { + { + Tuple2 + (con + bytestring + ) + } + [ + [ (lam - ww - [ - List - TxConstraint - ] + k + (type) (lam - ww + v + (type) [ List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ww - [ - List - [ - ScriptOutputConstraint - Void - ] - ] [ [ - [ - { - { - TxConstraints - Void - } - Void - } - ww - ] - ww + Tuple2 + k ] - ww + v ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + } + ww + ] + [ + [ + { + Cons + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + integer + ) + ] + } + [ + [ + { + { + Tuple2 + (con + bytestring ) + } + (con + integer ) + } + nm + ] + (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 ) ] - mp ] - ) - ) - ] - ) - ] - total - ] - ) - ) - ) - ] - ) - (abs - dead - (type) - [ - { - Just - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - GovState - ] - ] - } - [ - [ - { - { - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - } - [ - State - GovState - ] - } - [ - [ - [ - { - { - TxConstraints - Void - } - Void - } - [ - { + } + ] + ) + [ [ { { - Tuple2_match + Tuple2 [ [ (lam @@ -23010,496 +23199,284 @@ Void ] } - ds - ] - [ - List - TxConstraint + v ] - } - (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 - ] - [ - { [ { { - TxConstraints_match + TxConstraints Void } Void } - constraints - ] - [ - List - TxConstraint - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - [ - [ - [ - { - { - foldr - TxConstraint - } - [ - List - TxConstraint - ] - } - { - Cons - TxConstraint - } - ] - [ - { - [ - { - { - TxConstraints_match - Void - } - Void - } - w - ] - [ - List - TxConstraint - ] - } - (lam - ds + { + build + TxConstraint + } + (abs + a + (type) + (lam + c + (fun + TxConstraint + (fun + a + a + ) + ) + (lam + n + a + [ [ - List - TxConstraint - ] - (lam - ds + c [ - List [ - ScriptInputConstraint - Void - ] - ] - (lam - ds - [ - List [ - ScriptOutputConstraint - Void + [ + MustPayToPubKeyAddress + pk + ] + { + Nothing + (con + bytestring + ) + } ] + { + Nothing + (con + data + ) + } ] - ds - ) - ) - ) - ] - ] - ds - ] - ) - ) - ) + v + ] + ] + n + ] + ) + ) + ) + ] + ] + { + Nil + TxConstraintFun + } + ] + { + Nil + [ + ScriptInputConstraint + Void + ] + } ] - ) - ) + { + Nil + [ + ScriptOutputConstraint + Void + ] + } + ] + ] + ) + ) + ) + ] + ) + ] + [ + [ + { + { + zip + (con + bytestring + ) + } + (con + bytestring + ) + } + ww + ] + tokenNames + ] + ] + ) + (abs + dead + (type) + [ + { + Just + [ + [ + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + ] + [ + State + GovState + ] + ] + } + [ + [ + { + { + Tuple2 + [ + [ + TxConstraints + Void ] + Void ] + } + [ + State + GovState + ] + } + [ + { [ { - [ + { { { - Tuple2_match + UTuple4_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 - ) - ] + List + TxConstraint ] } [ - [ - TxConstraints - Void - ] - Void + List + TxConstraintFun ] } - ds - ] + [ + List + [ + ScriptInputConstraint + Void + ] + ] + } [ List [ - ScriptInputConstraint + ScriptOutputConstraint Void ] ] } - (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 + { + { + wc Void - ] + } Void - ] + } [ { [ { { - TxConstraints_match - Void - } - Void - } - constraints - ] - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds - [ - List - [ - ScriptInputConstraint - Void - ] - ] - (lam - ds - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - [ + Tuple2_match [ [ - { - { - foldr - [ - ScriptInputConstraint - Void - ] - } - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } - { - Cons - [ - ScriptInputConstraint - Void - ] - } - ] - [ - { - [ - { - { - TxConstraints_match - Void - } - Void - } - w - ] - [ - List - [ - ScriptInputConstraint - Void - ] - ] - } (lam - ds - [ - List - TxConstraint - ] + k + (type) (lam - ds + v + (type) [ List [ - ScriptInputConstraint - Void + [ + Tuple2 + k + ] + v ] ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) (lam - ds + v + (type) [ List [ - ScriptOutputConstraint - Void + [ + Tuple2 + k + ] + v ] ] - ds ) ) + (con + bytestring + ) + ] + (con + integer ) ] ] - ds - ] - ) - ) - ) - ] - ) - ) - ] - ] - [ - { - [ - { - { - Tuple2_match - [ - [ - (lam - k - (type) - (lam - v - (type) + } + [ [ - List - [ - [ - Tuple2 - k - ] - v - ] + TxConstraints + Void ] - ) - ) - (con - bytestring - ) + Void + ] + } + ds + ] + [ + [ + TxConstraints + Void + ] + Void ] + } + (lam + total [ [ (lam @@ -23524,224 +23501,788 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - [ - [ - TxConstraints - Void - ] - Void - ] - } - ds - ] - [ - List - [ - ScriptOutputConstraint - Void - ] - ] - } - (lam - total - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List [ [ - Tuple2 - k + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] - v + (con + integer + ) ] ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) (lam - v - (type) + constraints [ - List [ - [ - Tuple2 - k - ] - v + TxConstraints + Void ] + Void ] + constraints ) ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - constraints - [ - [ - TxConstraints - Void ] - Void ] [ { [ { { - TxConstraints_match - 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 + ) + ] + ] } - Void + [ + [ + TxConstraints + Void + ] + Void + ] } - constraints + ds ] [ - List [ - ScriptOutputConstraint - Void + TxConstraints + Void + ] + Void + ] + } + (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 - ds - [ - List - TxConstraint - ] (lam - ds + constraints [ - List [ - ScriptInputConstraint + TxConstraints Void ] + Void ] - (lam - ds - [ - List + (let + (nonrec) + (termbind + (strict) + (vardecl + red + (con + data + ) + ) [ - ScriptOutputConstraint - Void + [ + (builtin + constrData + ) + (con + integer + 0 + ) + ] + [ + (builtin + mkNilData + ) + unitval + ] ] - ] + ) [ [ [ { { - foldr + fFoldableNil_cfoldMap [ - ScriptOutputConstraint + [ + TxConstraints + Void + ] Void ] } [ - List [ - ScriptOutputConstraint - Void + Tuple2 + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) ] ] } { - Cons - [ - ScriptOutputConstraint + { + fMonoidTxConstraints Void - ] + } + Void } ] - [ - { + (lam + ds + [ [ - { - { - TxConstraints_match - Void - } - Void - } - w + Tuple2 + (con + bytestring + ) ] [ - List [ - ScriptOutputConstraint - Void + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] + (con + integer + ) ] - } - (lam - ds - [ - List - TxConstraint - ] - (lam - ds + ] + [ + { + [ + { + { + Tuple2_match + (con + bytestring + ) + } + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + } + ds + ] [ - List [ - ScriptInputConstraint + TxConstraints Void ] - ] - (lam - ds + Void + ] + } + (lam + currencySymbol + (con + bytestring + ) + (lam + mp + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] [ - List [ - ScriptOutputConstraint - Void + [ + { + { + fFoldableNil_cfoldMap + [ + [ + TxConstraints + Void + ] + Void + ] + } + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + integer + ) + ] + } + { + { + fMonoidTxConstraints + Void + } + Void + } + ] + (lam + p + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + integer + ) + ] + (let + (nonrec) + (termbind + (strict) + (vardecl + w + (con + bytestring + ) + ) + [ + { + [ + { + { + Tuple2_match + (con + bytestring + ) + } + (con + integer + ) + } + p + ] + (con + bytestring + ) + } + (lam + x + (con + bytestring + ) + (lam + ds + (con + integer + ) + x + ) + ) + ] + ) + (termbind + (strict) + (vardecl + w + (con + integer + ) + ) + [ + { + [ + { + { + Tuple2_match + (con + bytestring + ) + } + (con + integer + ) + } + p + ] + (con + integer + ) + } + (lam + ds + (con + bytestring + ) + (lam + y + (con + integer + ) + y + ) + ) + ] + ) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + w + ] + (con + integer + 0 + ) + ] + ] + True + ] + False + ] + ] + (all + dead + (type) + [ + [ + TxConstraints + Void + ] + Void + ] + ) + } + (abs + dead + (type) + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + { + Nil + TxConstraint + } + ] + { + Nil + TxConstraintFun + } + ] + { + Nil + [ + ScriptInputConstraint + Void + ] + } + ] + { + Nil + [ + ScriptOutputConstraint + Void + ] + } + ] + ) + ] + (abs + dead + (type) + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c + (fun + TxConstraint + (fun + a + a + ) + ) + (lam + n + a + [ + [ + c + [ + [ + [ + [ + MustMintValue + currencySymbol + ] + red + ] + w + ] + w + ] + ] + n + ] + ) + ) + ) + ] + ] + { + Nil + TxConstraintFun + } + ] + { + Nil + [ + ScriptInputConstraint + Void + ] + } + ] + { + Nil + [ + ScriptOutputConstraint + Void + ] + } + ] + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) ] + mp ] - ds ) ) - ) - ] + ] + ) ] - ds + total ] ) ) ) ] + ] + ] + [ + [ + TxConstraints + Void + ] + Void + ] + } + (lam + ww + [ + List + TxConstraint + ] + (lam + ww + [ + List + TxConstraintFun + ] + (lam + ww + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ww + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + ww + ] + ww + ] + ww + ] + ww + ] + ) ) ) - ] + ) ] ] [ @@ -23932,10 +24473,16 @@ { { { - UTuple3_match + { + UTuple4_match + [ + List + TxConstraint + ] + } [ List - TxConstraint + TxConstraintFun ] } [ @@ -23980,36 +24527,46 @@ ww [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ww [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - [ + (lam + ww [ + List [ - { - { - TxConstraints - Void - } - Void - } + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + ww + ] + ww + ] ww ] ww ] - ww - ] + ) ) ) ) @@ -24051,24 +24608,208 @@ TxConstraints Void ] - Void - ] - } - [ - State - GovState - ] - } - [ - [ - [ - { - { - TxConstraints - Void - } - Void - } + Void + ] + } + [ + State + GovState + ] + } + [ + [ + [ + [ + { + { + TxConstraints + Void + } + Void + } + [ + { + [ + { + { + TxConstraints_match + Void + } + Void + } + w + ] + [ + List + TxConstraint + ] + } + (lam + ds + [ + List + TxConstraint + ] + (lam + ds + [ + List + TxConstraintFun + ] + (lam + ds + [ + List + [ + ScriptInputConstraint + Void + ] + ] + (lam + ds + [ + List + [ + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ + { + { + foldr + TxConstraint + } + [ + List + TxConstraint + ] + } + { + Cons + TxConstraint + } + ] + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c + (fun + TxConstraint + (fun + a + a + ) + ) + (lam + n + a + [ + [ + c + [ + MustValidateIn + [ + [ + { + Interval + (con + integer + ) + } + [ + [ + { + LowerBound + (con + integer + ) + } + { + NegInf + (con + integer + ) + } + ] + True + ] + ] + [ + [ + { + UpperBound + (con + integer + ) + } + [ + { + Finite + (con + integer + ) + } + [ + { + [ + Proposal_match + p + ] + (con + integer + ) + } + (lam + ds + (con + bytestring + ) + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + ds + ) + ) + ) + ] + ] + ] + True + ] + ] + ] + ] + n + ] + ) + ) + ) + ] + ] + ds + ] + ) + ) + ) + ) + ] + ] [ { [ @@ -24083,7 +24824,7 @@ ] [ List - TxConstraint + TxConstraintFun ] } (lam @@ -24096,150 +24837,52 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - [ + (lam + ds [ + List [ - { - { - foldr - TxConstraint - } - [ - List - TxConstraint - ] - } - { - Cons - TxConstraint - } + ScriptOutputConstraint + Void ] + ] + [ [ + [ + { + { + foldr + TxConstraintFun + } + [ + List + TxConstraintFun + ] + } + { + Cons + TxConstraintFun + } + ] { - build - TxConstraint + Nil + TxConstraintFun } - (abs - a - (type) - (lam - c - (fun - TxConstraint - (fun - a - a - ) - ) - (lam - n - a - [ - [ - c - [ - MustValidateIn - [ - [ - { - Interval - (con - integer - ) - } - [ - [ - { - LowerBound - (con - integer - ) - } - { - NegInf - (con - integer - ) - } - ] - True - ] - ] - [ - [ - { - UpperBound - (con - integer - ) - } - [ - { - Finite - (con - integer - ) - } - [ - { - [ - Proposal_match - p - ] - (con - integer - ) - } - (lam - ds - (con - bytestring - ) - (lam - ds - (con - bytestring - ) - (lam - ds - (con - integer - ) - ds - ) - ) - ) - ] - ] - ] - True - ] - ] - ] - ] - n - ] - ) - ) - ) ] + ds ] - ds - ] + ) ) ) ) @@ -24275,57 +24918,64 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - [ + (lam + ds [ + List [ - { + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ { - foldr + { + foldr + [ + ScriptInputConstraint + Void + ] + } [ - ScriptInputConstraint - Void + List + [ + ScriptInputConstraint + Void + ] ] } - [ - List + { + Cons [ ScriptInputConstraint Void ] - ] - } + } + ] { - Cons + Nil [ ScriptInputConstraint Void ] } ] - { - Nil - [ - ScriptInputConstraint - Void - ] - } + ds ] - ds - ] + ) ) ) ) @@ -24361,57 +25011,64 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - [ + (lam + ds [ + List [ - { + ScriptOutputConstraint + Void + ] + ] + [ + [ + [ { - foldr + { + foldr + [ + ScriptOutputConstraint + Void + ] + } [ - ScriptOutputConstraint - Void + List + [ + ScriptOutputConstraint + Void + ] ] } - [ - List + { + Cons [ ScriptOutputConstraint Void ] - ] - } + } + ] { - Cons + Nil [ ScriptOutputConstraint Void ] } ] - { - Nil - [ - ScriptOutputConstraint - Void - ] - } + ds ] - ds - ] + ) ) ) ) @@ -26079,99 +26736,109 @@ ww [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ww [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - { + (lam + ww [ + List [ - { - [ - Bool_match + ScriptOutputConstraint + Void + ] + ] + { + [ + [ + { [ + Bool_match [ [ [ [ - { - { - wcheckScriptContext - Void - } - Void - } - (lam - a - Void - { - [ - Void_match + [ + [ + { + { + wcheckScriptContext + Void + } + Void + } + (lam a - ] - (con - data + Void + { + [ + Void_match + a + ] + (con + data + ) + } ) - } - ) + ] + ww + ] + ww ] ww ] ww ] - ww + w ] - w ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S4" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S4" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -26683,110 +27350,83 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - { + (lam + ds [ + List [ - { - [ - Bool_match + ScriptOutputConstraint + Void + ] + ] + { + [ + [ + { [ + Bool_match [ [ [ [ - { - { - wcheckScriptContext - Void - } - GovState - } - (lam - w - GovState + [ [ { - [ - GovState_match - w - ] - (con - data - ) + { + wcheckScriptContext + Void + } + GovState } (lam - ww - (con - bytestring - ) - (lam - ww - (con - bytestring - ) - (lam - ww + w + GovState + [ + { [ - Maybe - Voting + GovState_match + w ] - [ - [ - (builtin - constrData - ) - (con - integer - 0 - ) - ] - [ + (con + data + ) + } + (lam + ww + (con + bytestring + ) + (lam + ww + (con + bytestring + ) + (lam + ww [ - { + Maybe + Voting + ] + [ + [ (builtin - mkCons + constrData ) (con - data - ) - } - [ - (builtin - bData + integer + 0 ) - ww - ] - ] - [ - [ - { - (builtin - mkCons - ) - (con - data - ) - } - [ - (builtin - bData - ) - ww - ] ] [ [ @@ -26798,180 +27438,180 @@ data ) } - { + [ + (builtin + bData + ) + ww + ] + ] + [ + [ + { + (builtin + mkCons + ) + (con + data + ) + } [ - [ - { + (builtin + bData + ) + ww + ] + ] + [ + [ + { + (builtin + mkCons + ) + (con + data + ) + } + { + [ [ { - Maybe_match - Voting - } - ww - ] - (all - dead - (type) - (con - data - ) - ) - } - (lam - arg - Voting - (abs - dead - (type) - [ [ - (builtin - constrData - ) + { + Maybe_match + Voting + } + ww + ] + (all + dead + (type) (con - integer - 0 + data ) - ] - [ + ) + } + (lam + arg + Voting + (abs + dead + (type) [ - { + [ (builtin - mkCons + constrData ) (con - data + integer + 0 ) - } + ] [ - { + [ + { + (builtin + mkCons + ) + (con + data + ) + } [ - Voting_match - arg - ] - (con - data - ) - } - (lam - ww - Proposal - (lam - ww - [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ + Voting_match + arg + ] + (con + data + ) + } + (lam + ww + Proposal + (lam + ww + [ + [ + (lam + k + (type) + (lam + v + (type) [ - Tuple2 - k + List + [ + [ + Tuple2 + k + ] + v + ] ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - Bool - ] - [ - [ - (builtin - constrData - ) - (con - integer - 0 - ) - ] - [ + ) + ) + (con + bytestring + ) + ] + Bool + ] [ - { + [ (builtin - mkCons + constrData ) (con - data + integer + 0 ) - } + ] [ - { - [ - Proposal_match - ww - ] - (con - data - ) - } - (lam - ww - (con - bytestring - ) - (lam - ww + [ + { + (builtin + mkCons + ) (con - bytestring + data ) + } + [ + { + [ + Proposal_match + ww + ] + (con + data + ) + } (lam ww (con - integer + bytestring ) - [ - [ - (builtin - constrData - ) + (lam + ww + (con + bytestring + ) + (lam + ww (con integer - 0 ) - ] - [ [ - { + [ (builtin - mkCons + constrData ) (con - data - ) - } - [ - (builtin - bData + integer + 0 ) - ww - ] - ] - [ - [ - { - (builtin - mkCons - ) - (con - data - ) - } - [ - (builtin - bData - ) - ww - ] ] [ [ @@ -26984,226 +27624,263 @@ ) } [ - (builtin - iData - ) - ww + (builtin + bData + ) + ww + ] + ] + [ + [ + { + (builtin + mkCons + ) + (con + data + ) + } + [ + (builtin + bData + ) + ww + ] + ] + [ + [ + { + (builtin + mkCons + ) + (con + data + ) + } + [ + (builtin + iData + ) + ww + ] + ] + [ + (builtin + mkNilData + ) + unitval + ] ] ] - [ - (builtin - mkNilData - ) - unitval - ] ] ] - ] - ] + ) + ) ) - ) - ) - ] - ] - [ - [ - { - (builtin - mkCons - ) - (con - data - ) - } + ] + ] [ - (builtin - mapData - ) [ - go - ww + { + (builtin + mkCons + ) + (con + data + ) + } + [ + (builtin + mapData + ) + [ + go + ww + ] + ] + ] + [ + (builtin + mkNilData + ) + unitval ] ] ] - [ - (builtin - mkNilData - ) - unitval - ] ] - ] - ] + ) + ) + ] + ] + [ + (builtin + mkNilData ) - ) + unitval + ] ] ] - [ - (builtin - mkNilData - ) - unitval - ] + ) + ) + ] + (abs + dead + (type) + [ + [ + (builtin + constrData + ) + (con + integer + 1 + ) + ] + [ + (builtin + mkNilData + ) + unitval ] ] ) - ) - ] - (abs - dead - (type) - [ - [ - (builtin - constrData - ) - (con - integer - 1 - ) - ] - [ - (builtin - mkNilData - ) - unitval - ] ] + (all + dead + (type) + dead + ) + } + ] + [ + (builtin + mkNilData ) + unitval ] - (all - dead - (type) - dead - ) - } - ] - [ - (builtin - mkNilData - ) - unitval + ] ] ] ] - ] - ] + ) + ) ) - ) + ] ) ] - ) + ds + ] + ds ] ds ] - ds - ] - [ - { - build - [ - ScriptOutputConstraint - GovState - ] - } - (abs - a - (type) - (lam - c - (fun - [ - ScriptOutputConstraint - GovState - ] + [ + { + build + [ + ScriptOutputConstraint + GovState + ] + } + (abs + a + (type) + (lam + c (fun - a - a + [ + ScriptOutputConstraint + GovState + ] + (fun + a + a + ) ) - ) - (lam - n - a - [ + (lam + n + a [ - c [ - [ - { - ScriptOutputConstraint - GovState - } - ds - ] + c [ [ - [ - unionWith - addInteger - ] + { + ScriptOutputConstraint + GovState + } ds ] [ [ - threadTokenValueInner - ww + [ + unionWith + addInteger + ] + ds ] [ - ownHash - w + [ + threadTokenValueInner + ww + ] + [ + ownHash + w + ] ] ] ] ] + n ] - n - ] + ) ) ) - ) + ] ] + w ] - w ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S5" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S5" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) diff --git a/plutus-use-cases/test/Spec/multisigStateMachine.pir b/plutus-use-cases/test/Spec/multisigStateMachine.pir index 692e04b4aa..0e88174841 100644 --- a/plutus-use-cases/test/Spec/multisigStateMachine.pir +++ b/plutus-use-cases/test/Spec/multisigStateMachine.pir @@ -2466,6 +2466,197 @@ (vardecl minAdaTxOut (con integer)) (con integer 2000000) ) + (termbind + (strict) + (vardecl + wfindDatum + (fun + (con bytestring) + (fun + [ List [ [ Tuple2 (con bytestring) ] (con data) ] ] + [ Maybe (con data) ] + ) + ) + ) + (lam + w + (con bytestring) + (lam + ww + [ List [ [ Tuple2 (con bytestring) ] (con data) ] ] + { + [ + [ + { + [ + { + 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 + [ [ Tuple2 (con bytestring) ] (con data) ] + [ + { + [ + { + { Tuple2_match (con bytestring) } + (con data) + } + x + ] + [ + Maybe + [ + [ Tuple2 (con bytestring) ] + (con data) + ] + ] + } + (lam + dsh + (con bytestring) + (lam + ds + (con data) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin ifThenElse) + Bool + } + [ + [ + (builtin + equalsByteString + ) + dsh + ] + w + ] + ] + True + ] + False + ] + ] + (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) + ] + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + ) + ] + ww + ] + ] + (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)) + ] + ] + ) + ) + ] + (abs dead (type) { Nothing (con data) }) + ] + (all dead (type) dead) + } + ) + ) + ) (termbind (strict) (vardecl fAdditiveGroupValue (con integer)) @@ -7205,388 +7396,74 @@ data ) } + [ + [ + wfindDatum + dvh + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (lam + a + (con + data + ) + (abs + dead + (type) { [ [ { [ - { - Maybe_match - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - } + Bool_match [ [ [ { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - [ - Maybe - a - ] - ) - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - ] - } + (builtin + ifThenElse + ) + Bool + } + [ [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data + (builtin + equalsData ) + a ] - } - { - fMonoidFirst - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - } - ] - (lam - x - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - [ - { - [ - { - { - Tuple2_match - (con - bytestring - ) - } - (con - data - ) - } - x - ] - [ - Maybe - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - ] - } - (lam - dsh - (con - bytestring - ) - (lam - ds - (con - data - ) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - dsh - ] - dvh - ] - ] - True - ] - False - ] - ] - (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 - ) - ] - } - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) + dv ] - ) + ] + True ] - ww + False ] ] (all dead (type) - [ - Maybe - (con - data - ) - ] + Bool ) } - (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 - ) - ) - ] - ] - ) + (abs + dead + (type) + True ) ] (abs dead (type) - { - Nothing - (con - data - ) - } - ) - ] - (all - dead - (type) - dead - ) - } - ] - (all - dead - (type) - Bool - ) - } - (lam - a - (con - data - ) - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsData - ) - a - ] - dv - ] - ] - True - ] - False - ] - ] - (all - dead - (type) - Bool - ) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - j + j ) ] (all @@ -13876,6 +13753,59 @@ ) ) ) + (datatypebind + (datatype + (tyvardecl TxConstraintFun (type)) + + TxConstraintFun_match + (vardecl + MustSpendScriptOutputWithMatchingDatumAndValue + (fun + (con bytestring) + (fun + (fun (con data) Bool) + (fun + (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 + ) + (fun (con data) TxConstraintFun) + ) + ) + ) + ) + ) + ) (termbind (strict) (vardecl @@ -13891,13 +13821,18 @@ (fun [ List TxConstraint ] (fun - [ List [ ScriptInputConstraint i ] ] + [ List TxConstraintFun ] (fun [ - List - [ ScriptOutputConstraint o ] + List [ ScriptInputConstraint i ] ] - (fun ScriptContext Bool) + (fun + [ + List + [ ScriptOutputConstraint o ] + ] + (fun ScriptContext Bool) + ) ) ) ) @@ -13919,961 +13854,1656 @@ [ List TxConstraint ] (lam ww - [ List [ ScriptInputConstraint i ] ] + [ List TxConstraintFun ] (lam ww - [ - List [ ScriptOutputConstraint o ] - ] + [ List [ ScriptInputConstraint i ] ] (lam - w - ScriptContext - { - [ + ww + [ + List + [ ScriptOutputConstraint o ] + ] + (lam + w + ScriptContext + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a (type) a - ) - Bool - ] - } - TxConstraint - } [ { - fMonoidProduct - Bool + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxConstraint } - fMultiplicativeMonoidBool + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] ] - ] - (lam - w - TxConstraint - [ - { - [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo + (lam + w + TxConstraint + [ + { + [ + ScriptContext_match + w + ] + Bool + } (lam ww - ScriptPurpose - [ + TxInfo + (lam + ww + ScriptPurpose [ - wcheckTxConstraint - ww + [ + wcheckTxConstraint + ww + ] + w ] - w - ] + ) ) - ) - ] - ) + ] + ) + ] + ww ] - ww ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - { - [ + (all dead (type) Bool) + } + (abs + dead + (type) + { [ - { - [ - Bool_match + [ + { [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxConstraintFun + } + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] + ] + (lam + w + TxConstraintFun + [ + { + [ + ScriptContext_match + w + ] + Bool + } + (lam + ww + TxInfo + (lam + ww + ScriptPurpose + [ + { + [ + TxInfo_match + ww + ] + Bool + } + (lam + ww + [ + List + TxInInfo + ] + (lam + ww + [ + List + TxOut + ] + (lam + ww + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ww + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ww + [ + List + DCert + ] + (lam + ww + [ + List + [ + [ + Tuple2 + StakingCredential + ] + (con + integer + ) + ] + ] + (lam + ww + [ + Interval + (con + integer + ) + ] + (lam + ww + [ + List + (con + bytestring + ) + ] + (lam + ww + [ + List + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + data + ) + ] + ] + (lam + ww + (con + bytestring + ) + [ + { + [ + TxConstraintFun_match + w + ] + Bool + } + (lam + ww + (con + bytestring + ) + (lam + ww + (fun + (con + data + ) + Bool + ) + (lam + ww + (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 + ww + (con + data + ) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxInInfo + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + (lam + x + TxInInfo + [ + { + [ + TxInInfo_match + x + ] + Bool + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + Bool + } + (lam + ds + Address + (lam + val + [ + [ + (lam + k + (type) + (lam + 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 + ] + Bool + } + (lam + ds + Credential + (lam + ds + [ + Maybe + StakingCredential + ] + [ + [ + { + [ + Credential_match + ds + ] + Bool + } + (lam + ipv + (con + bytestring + ) + False + ) + ] + (lam + vh + (con + bytestring + ) + { + [ + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) + Bool + ) + } + (lam + x + (con + bytestring + ) + (abs + dead + (type) + { + [ + [ + { + [ + { + Maybe_match + (con + data + ) + } + [ + [ + wfindDatum + x + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (lam + d + (con + data + ) + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + ww + ] + vh + ] + ] + True + ] + False + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + { + [ + [ + { + [ + Bool_match + [ + ww + val + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + [ + ww + d + ] + ) + ] + (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 + ) + } + ) + ] + ) + ) + ] + ) + ) + ) + ] + ) + ) + ] + ) + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "Le" + ) + ] + False + ] + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) + ) + ) + ] + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ] + ) + ) + ] + ) + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + { [ [ { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } [ - ScriptInputConstraint - i - ] - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - (lam - w - [ - ScriptInputConstraint - i - ] - [ - { + Bool_match [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo - (lam - ww - ScriptPurpose [ - { + [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + [ + ScriptInputConstraint + i + ] + } [ - TxInfo_match - ww + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool ] - Bool - } + ] (lam - ww + w [ - List - TxInInfo + ScriptInputConstraint + i ] - (lam - ww - [ - List - TxOut - ] - (lam - ww + [ + { [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] + ScriptContext_match + w ] + Bool + } + (lam + ww + TxInfo (lam ww + ScriptPurpose [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + TxInfo_match + ww ] - (con - integer - ) - ] - ] - (lam - ww - [ - List - DCert - ] + Bool + } (lam ww [ List - [ - [ - Tuple2 - StakingCredential - ] - (con - integer - ) - ] + TxInInfo ] (lam ww [ - Interval - (con - integer - ) + List + TxOut ] (lam ww [ - 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 ww [ - List + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] [ [ - Tuple2 + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con bytestring ) ] (con - data + integer ) ] ] (lam ww - (con - bytestring - ) [ - { + List + DCert + ] + (lam + ww + [ + List [ - { - ScriptInputConstraint_match - i - } - w + [ + Tuple2 + StakingCredential + ] + (con + integer + ) ] - Bool - } + ] (lam ww - i + [ + Interval + (con + integer + ) + ] (lam ww - TxOutRef - { + [ + List + (con + bytestring + ) + ] + (lam + ww [ + List + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + data + ) + ] + ] + (lam + ww + (con + bytestring + ) [ { [ - Bool_match - [ + { + ScriptInputConstraint_match + i + } + w + ] + Bool + } + (lam + ww + i + (lam + ww + TxOutRef + { [ [ { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - TxInInfo - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxInInfo - [ - { + [ + Bool_match [ - TxInInfo_match - ds - ] - Bool - } - (lam - ds - TxOutRef - (lam - ds - TxOut [ [ - fEqTxOutRef_c - ds + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxInInfo + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] ] - ww + (lam + ds + TxInInfo + [ + { + [ + TxInInfo_match + ds + ] + Bool + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + [ + fEqTxOutRef_c + ds + ] + ww + ] + ) + ) + ] + ) ] - ) + ww + ] + ] + (all + dead + (type) + Bool ) + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L0" + ) + ] + False ] ) ] - ww - ] - ] - (all - dead - (type) - Bool - ) - } - (abs - dead - (type) - True - ) - ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L0" - ) - ] - False - ] - ) - ] - (all - dead - (type) - dead + (all + dead + (type) + dead + ) + } + ) + ) + ] ) - } + ) ) ) - ] + ) ) ) ) ) ) - ) + ] ) ) - ) + ] ) ] - ) + ww + ] + ] + (all + dead + (type) + Bool ) - ] - ) - ] - ww - ] - ] - (all - dead (type) Bool - ) - } - (abs - dead - (type) - { - [ - [ - { - [ - Bool_match - [ + } + (abs + dead + (type) + { [ [ { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } [ - ScriptOutputConstraint - o - ] - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - (lam - w - [ - ScriptOutputConstraint - o - ] - [ - { + Bool_match [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo - (lam - ww - ScriptPurpose [ - { + [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + [ + ScriptOutputConstraint + o + ] + } [ - TxInfo_match - ww + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool ] - Bool - } + ] (lam - ww + w [ - List - TxInInfo + ScriptOutputConstraint + o ] - (lam - ww - [ - List - TxOut - ] + [ + { + [ + ScriptContext_match + w + ] + Bool + } (lam ww - [ + TxInfo + (lam + ww + ScriptPurpose [ + { + [ + TxInfo_match + ww + ] + Bool + } (lam - k - (type) + ww + [ + List + TxInInfo + ] (lam - v - (type) + ww [ List - [ - [ - Tuple2 - k - ] - v - ] + TxOut ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - ww - [ - [ - (lam - k - (type) (lam - v - (type) + ww [ - List [ - [ - Tuple2 + (lam k - ] - v + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) [ - List [ - [ - Tuple2 + (lam k - ] - v + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] + (con + integer + ) ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - ww - [ - List - DCert - ] - (lam - ww - [ - List - [ - [ - Tuple2 - StakingCredential - ] - (con - integer - ) - ] - ] - (lam - ww - [ - Interval - (con - integer - ) - ] - (lam - ww - [ - List - (con - bytestring - ) ] (lam ww [ - List + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] [ [ - Tuple2 + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con bytestring ) ] (con - data + integer ) ] ] (lam ww - (con - bytestring - ) [ - { + List + DCert + ] + (lam + ww + [ + List [ - { - ScriptOutputConstraint_match - o - } - w + [ + Tuple2 + StakingCredential + ] + (con + integer + ) ] - Bool - } + ] (lam ww - o + [ + Interval + (con + integer + ) + ] (lam ww [ + List + (con + bytestring + ) + ] + (lam + ww [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ + List [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] + [ + Tuple2 + (con + bytestring ) - ) + ] (con - bytestring + data ) ] + ] + (lam + ww (con - integer + bytestring ) - ] - ] - { - [ [ { [ - Bool_match + { + ScriptOutputConstraint_match + o + } + w + ] + Bool + } + (lam + ww + o + (lam + ww [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] [ [ - { - { - fFoldableNil_cfoldMap + (lam + k + (type) + (lam + v + (type) [ - (lam - a - (type) - a - ) - Bool + List + [ + [ + Tuple2 + k + ] + v + ] ] - } - TxOut - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] + ) + ) + (con + bytestring + ) ] - (lam - ds - TxOut - [ - { + (con + integer + ) + ] + ] + { + [ + [ + { + [ + Bool_match [ - TxOut_match - ds - ] - Bool - } - (lam - ds - Address - (lam - ds [ [ - (lam - k - (type) - (lam - v - (type) + { + { + fFoldableNil_cfoldMap [ - List - [ - [ - Tuple2 - k - ] - v - ] + (lam + a + (type) + a + ) + Bool ] - ) - ) - (con - bytestring - ) + } + TxOut + } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] ] - [ + (lam + ds + TxOut [ + { + [ + TxOut_match + ds + ] + Bool + } (lam - k - (type) + ds + Address (lam - v - (type) + ds [ - List [ - [ - 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 + ) ] - v + (con + integer + ) ] ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - { - [ - [ - { - [ - { - Maybe_match + (lam + ds + [ + Maybe (con bytestring ) - } - ds - ] - (all - dead - (type) - Bool - ) - } - (lam - svh - (con - bytestring - ) - (abs - dead - (type) + ] { [ [ { [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - lessThanInteger - ) - [ - [ - [ - valueOf - ds - ] - emptyByteString - ] - emptyByteString - ] - ] - [ - [ - [ - valueOf - ww - ] - emptyByteString - ] - emptyByteString - ] - ] - ] - False - ] - True - ] + { + Maybe_match + (con + bytestring + ) + } + ds ] (all dead @@ -14881,192 +15511,269 @@ Bool ) } - (abs - dead - (type) - { - [ + (lam + svh + (con + bytestring + ) + (abs + dead + (type) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - lessThanEqualsInteger + ifThenElse ) - [ - [ - [ - valueOf - ds - ] - emptyByteString - ] - emptyByteString - ] - ] + Bool + } [ [ (builtin - addInteger + lessThanInteger ) [ [ [ valueOf - ww + ds ] emptyByteString ] emptyByteString ] ] - minAdaTxOut + [ + [ + [ + valueOf + ww + ] + emptyByteString + ] + emptyByteString + ] ] ] + False ] True ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - checkBinRel - equalsInteger - ] - [ - noAdaValue - ds + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + [ + [ + [ + valueOf + ds + ] + emptyByteString + ] + emptyByteString + ] + ] + [ + [ + (builtin + addInteger + ) + [ + [ + [ + valueOf + ww + ] + emptyByteString + ] + emptyByteString + ] + ] + minAdaTxOut + ] + ] + ] + True ] - ] - [ - noAdaValue - ww + False ] ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - { - Maybe_match - (con - bytestring - ) - } + [ + { [ + Bool_match [ - wfindDatumHash [ - w + [ + checkBinRel + equalsInteger + ] + [ + noAdaValue + ds + ] + ] + [ + noAdaValue ww ] ] - ww ] - ] - (all - dead - (type) - Bool - ) - } - (lam - a - (con - bytestring - ) + (all + dead + (type) + Bool + ) + } (abs dead (type) - [ + { [ - equalsByteString - a + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + [ + [ + wfindDatumHash + [ + w + ww + ] + ] + ww + ] + ] + (all + dead + (type) + Bool + ) + } + (lam + a + (con + bytestring + ) + (abs + dead + (type) + [ + [ + equalsByteString + a + ] + svh + ] + ) + ) + ] + (abs + dead + (type) + False + ) ] - svh - ] + (all + dead + (type) + dead + ) + } ) + ] + (abs + dead + (type) + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (abs + dead + (type) + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (abs + dead + (type) + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ] (abs @@ -15083,529 +15790,529 @@ } ) ) - ] - (abs - dead - (type) - False ) ] - (all - dead - (type) - dead - ) - } - ) - ) - ) - ] - ) - ] - { - [ - [ - { - [ + ) + ] { - Maybe_match - TxInInfo - } - [ [ - wfindOwnInput - ww - ] - ww - ] - ] - (all - dead - (type) - [ - List - TxOut - ] - ) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { - [ - TxInInfo_match - ds - ] [ - List - TxOut - ] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { + { + [ + { + Maybe_match + TxInInfo + } [ - TxOut_match - ds + [ + wfindOwnInput + ww + ] + ww ] + ] + (all + dead + (type) [ List 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 - ) - ] - ] - (lam - ds + ) + } + (lam + ds + TxInInfo + (abs + dead + (type) + [ + { [ - Maybe - (con - bytestring - ) + TxInInfo_match + ds ] [ + List + TxOut + ] + } + (lam + ds + TxOutRef + (lam + ds + TxOut [ - [ - { - { - foldr - TxOut - } - [ - List - TxOut - ] - } - (lam - e + { + [ + TxOut_match + ds + ] + [ + List TxOut - (lam - xs - [ - List - TxOut - ] + ] + } + (lam + ds + Address + (lam + ds + [ [ - { - [ - TxOut_match - e - ] - [ - List - TxOut - ] - } (lam - ds - Address + k + (type) (lam - ds + v + (type) [ + List [ - (lam + [ + Tuple2 k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + ] + v ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) [ + List [ - (lam + [ + Tuple2 k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + ] + v ] - (con - integer - ) ] - ] - (lam - ds + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + [ + [ + [ + { + { + foldr + TxOut + } [ - Maybe - (con - bytestring - ) + List + TxOut ] - [ - { - [ - Address_match - ds - ] - [ - List - TxOut - ] - } - (lam - ww - Credential - (lam - ww + } + (lam + e + TxOut + (lam + xs + [ + List + TxOut + ] + [ + { [ - Maybe - StakingCredential + TxOut_match + e ] [ - { + List + TxOut + ] + } + (lam + ds + Address + (lam + ds + [ [ - Address_match - ds + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] [ - List - TxOut - ] - } - (lam - ww - Credential - (lam - ww [ - Maybe - StakingCredential + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] + (con + integer + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + [ { [ + Address_match + ds + ] + [ + List + TxOut + ] + } + (lam + ww + Credential + (lam + ww + [ + Maybe + StakingCredential + ] [ { [ - Bool_match + Address_match + ds + ] + [ + List + TxOut + ] + } + (lam + ww + Credential + (lam + ww [ + Maybe + StakingCredential + ] + { [ [ - [ - wc - ww - ] - ww + { + [ + Bool_match + [ + [ + [ + [ + wc + ww + ] + ww + ] + ww + ] + ww + ] + ] + (all + dead + (type) + [ + List + TxOut + ] + ) + } + (abs + dead + (type) + [ + [ + { + Cons + TxOut + } + e + ] + xs + ] + ) ] - ww + (abs + dead + (type) + xs + ) ] - ww - ] - ] - (all - dead - (type) - [ - List - TxOut - ] + (all + dead + (type) + dead + ) + } ) - } - (abs - dead - (type) - [ - [ - { - Cons - TxOut - } - e - ] - xs - ] ) ] - (abs - dead - (type) - xs - ) - ] - (all - dead - (type) - dead ) - } - ) + ) + ] ) - ] + ) ) - ) - ] + ] + ) ) - ) - ) + ] + { + Nil + TxOut + } + ] + ww ] ) ) - ] - { - Nil - TxOut - } + ) ] - ww - ] + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + thunk + (con + unit ) ) + [ + { + [ + Unit_match + [ + [ + { + (builtin + trace + ) + Unit + } + (con + string + "Lf" + ) + ] + Unit + ] + ] + (con + unit + ) + } + unitval + ] ) - ] + (error + [ + List + TxOut + ] + ) + ) ) + ] + (all + dead + (type) + dead ) - ] - ) + } + ] + ] + (all + dead + (type) + Bool ) - ] + } (abs dead (type) - (let - (nonrec) - (termbind - (strict) - (vardecl - thunk - (con - unit - ) - ) - [ - { - [ - Unit_match - [ - [ - { - (builtin - trace - ) - Unit - } - (con - string - "Lf" - ) - ] - Unit - ] - ] - (con - unit - ) - } - unitval - ] - ) - (error - [ - List - TxOut - ] - ) - ) + True ) ] - (all + (abs dead (type) - dead + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L1" + ) + ] + False + ] ) - } - ] - ] - (all - dead - (type) - Bool + ] + (all + dead + (type) + dead + ) + } ) - } - (abs - dead - (type) - True ) ] - (abs - dead - (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L1" - ) - ] - False - ] - ) - ] - (all - dead - (type) - dead ) - } + ) ) ) - ] + ) ) ) ) ) ) - ) + ] ) ) - ) + ] ) ] - ) + ww + ] + ] + (all + dead + (type) + Bool ) - ] + } + (abs + dead + (type) + True + ) + ] + (abs + dead + (type) + j ) ] - ww - ] - ] - (all - dead - (type) - Bool + (all + dead + (type) + dead + ) + } ) - } + ] (abs dead (type) - True + j ) ] - (abs + (all dead (type) - j + dead ) - ] - (all - dead - (type) - dead - ) - } - ) + } + ) + ] + (abs dead (type) j) ] - (abs dead (type) j) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ] + (abs dead (type) j) ] - (abs dead (type) j) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ) ) @@ -15686,10 +16393,15 @@ (fun [ List TxConstraint ] (fun - [ List [ ScriptInputConstraint i ] ] + [ List TxConstraintFun ] (fun - [ List [ ScriptOutputConstraint o ] ] - [ [ TxConstraints i ] o ] + [ List [ ScriptInputConstraint i ] ] + (fun + [ + List [ ScriptOutputConstraint o ] + ] + [ [ TxConstraints i ] o ] + ) ) ) ) @@ -17624,47 +18336,53 @@ [ [ [ - { - { - TxConstraints - Void - } - Void - } [ { - build - TxConstraint + { + TxConstraints + Void + } + Void } - (abs - a - (type) - (lam - c - (fun - TxConstraint + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c (fun - a - a + TxConstraint + (fun + a + a + ) ) - ) - (lam - n - a - [ + (lam + n + a [ - c [ - MustBeSignedBy - pk + c + [ + MustBeSignedBy + pk + ] ] + n ] - n - ] + ) ) ) - ) + ] ] + { + Nil + TxConstraintFun + } ] { Nil @@ -17802,97 +18520,74 @@ [ [ [ - { - { - TxConstraints - Void - } - Void - } [ { - build - TxConstraint + { + TxConstraints + Void + } + Void } - (abs - a - (type) - (lam - c - (fun - TxConstraint + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c (fun - a - a + TxConstraint + (fun + a + a + ) ) - ) - (lam - n - a - [ + (lam + n + a [ - c [ - MustValidateIn + c [ + MustValidateIn [ - { - Interval - (con - integer - ) - } [ + { + Interval + (con + integer + ) + } [ - { - LowerBound - (con - integer - ) - } [ { - Finite + LowerBound (con integer ) } [ { - [ - Payment_match - pmt - ] + Finite (con integer ) } - (lam - ds - [ + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + Payment_match + pmt ] + (con + integer + ) + } + (lam + ds [ [ (lam @@ -17917,57 +18612,86 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - (lam - ds - (con - bytestring - ) (lam ds (con - integer + bytestring + ) + (lam + ds + (con + integer + ) + ds ) - ds ) ) - ) + ] ] ] + True ] - True ] - ] - [ [ - { - UpperBound - (con - integer - ) - } - { - PosInf - (con - integer - ) - } + [ + { + UpperBound + (con + integer + ) + } + { + PosInf + (con + integer + ) + } + ] + True ] - True ] ] ] + n ] - n - ] + ) ) ) - ) + ] ] + { + Nil + TxConstraintFun + } ] { Nil @@ -18508,95 +19232,72 @@ [ [ [ - { + [ { - TxConstraints + { + TxConstraints + Void + } Void } - Void - } - [ [ [ - { + [ { - foldr + { + foldr + TxConstraint + } + [ + List + TxConstraint + ] + } + { + Cons TxConstraint } - [ - List + ] + [ + { + build TxConstraint - ] - } - { - Cons - TxConstraint - } - ] - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun - TxConstraint + } + (abs + a + (type) + (lam + c (fun - a - a + TxConstraint + (fun + a + a + ) ) - ) - (lam - n - a - [ + (lam + n + a [ - c [ - [ - [ - [ - MustPayToPubKeyAddress - [ - { - [ - Payment_match - pmt - ] - (con - bytestring - ) - } - (lam - ds - [ + c + [ + [ + [ + [ + MustPayToPubKeyAddress + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + Payment_match + pmt ] + (con + bytestring + ) + } + (lam + ds [ [ (lam @@ -18621,158 +19322,158 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - (lam - ds - (con - bytestring - ) (lam ds (con - integer + bytestring + ) + (lam + ds + (con + integer + ) + ds ) - ds ) ) - ) + ] ] + { + Nothing + (con + bytestring + ) + } ] { Nothing (con - bytestring + data ) } ] - { - Nothing - (con - data - ) - } + paymentAmount ] - paymentAmount ] + n ] - n - ] + ) ) ) - ) + ] ] - ] - [ - { - build - TxConstraint - } - (abs - a - (type) - (lam - c - (fun - TxConstraint + [ + { + build + TxConstraint + } + (abs + a + (type) + (lam + c (fun - a - a + TxConstraint + (fun + a + a + ) ) - ) - (lam - n - a - [ + (lam + n + a [ - c [ - MustValidateIn + c [ - [ - { - Interval - (con - integer - ) - } - [ - [ - { - LowerBound - (con - integer - ) - } - { - NegInf - (con - integer - ) - } - ] - True - ] - ] + MustValidateIn [ [ { - UpperBound + Interval (con integer ) } + [ + [ + { + LowerBound + (con + integer + ) + } + { + NegInf + (con + integer + ) + } + ] + True + ] + ] + [ [ { - Finite + UpperBound (con integer ) } [ - [ - (builtin - subtractInteger + { + Finite + (con + integer ) + } + [ [ - { - [ - Payment_match - pmt - ] - (con - integer - ) - } - (lam - ds - [ + (builtin + subtractInteger + ) + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + Payment_match + pmt ] + (con + integer + ) + } + (lam + ds [ [ (lam @@ -18797,45 +19498,98 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - (lam - ds - (con - bytestring - ) (lam ds (con - integer + bytestring + ) + (lam + ds + (con + integer + ) + ds ) - ds ) ) - ) + ] ] + (con + integer + 1 + ) ] - (con - integer - 1 - ) ] ] + True ] - True ] ] ] + n ] - n - ] + ) ) ) - ) + ] + ] + ] + [ + [ + [ + { + { + foldr + TxConstraintFun + } + [ + List + TxConstraintFun + ] + } + { + Cons + TxConstraintFun + } + ] + { + Nil + TxConstraintFun + } ] + { + Nil + TxConstraintFun + } ] ] [ @@ -19550,16 +20304,22 @@ [ [ [ - { + [ { - TxConstraints + { + TxConstraints + Void + } Void } - Void - } + { + Nil + TxConstraint + } + ] { Nil - TxConstraint + TxConstraintFun } ] { @@ -20609,99 +21369,109 @@ ww [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ww [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - { + (lam + ww [ + List [ - { - [ - Bool_match + ScriptOutputConstraint + Void + ] + ] + { + [ + [ + { [ + Bool_match [ [ [ [ - { - { - wcheckScriptContext - Void - } - Void - } - (lam - a - Void - { - [ - Void_match + [ + [ + { + { + wcheckScriptContext + Void + } + Void + } + (lam a - ] - (con - data + Void + { + [ + Void_match + a + ] + (con + data + ) + } ) - } - ) + ] + ww + ] + ww ] ww ] ww ] - ww + w ] - w ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S4" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S4" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -20911,508 +21681,518 @@ ds [ List - [ - ScriptInputConstraint - Void - ] + TxConstraintFun ] (lam ds [ List [ - ScriptOutputConstraint + ScriptInputConstraint Void ] ] - { + (lam + ds [ + List [ - { - [ - Bool_match + ScriptOutputConstraint + Void + ] + ] + { + [ + [ + { [ + Bool_match [ [ [ [ - { - { - wcheckScriptContext - Void - } - MSState - } - (lam - ds - MSState - { - [ - [ + [ + [ + { + { + wcheckScriptContext + Void + } + MSState + } + (lam + ds + MSState + { [ - { + [ [ - MSState_match - ds - ] - (all - dead - (type) - (con - data - ) - ) - } - (lam - arg - Payment - (lam - arg - [ - List - (con - bytestring - ) - ] - (abs - dead - (type) + { [ + MSState_match + ds + ] + (all + dead + (type) + (con + data + ) + ) + } + (lam + arg + Payment + (lam + arg [ - (builtin - constrData - ) + List (con - integer - 1 + bytestring ) ] - [ + (abs + dead + (type) [ - { + [ (builtin - mkCons + constrData ) (con - data + integer + 1 ) - } + ] [ - { - [ - Payment_match - arg - ] - (con - data - ) - } - (lam - ww + [ + { + (builtin + mkCons + ) + (con + data + ) + } [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + { + [ + Payment_match + arg + ] (con - bytestring + data ) - ] - [ + } + (lam + ww [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ww (con bytestring ) - ] - (con - integer - ) - ] - ] - (lam - ww - (con - bytestring - ) - (lam - ww - (con - integer - ) - [ - [ - (builtin - constrData - ) + (lam + ww (con integer - 0 ) - ] - [ [ - { + [ (builtin - mkCons + constrData ) (con - data + integer + 0 ) - } + ] [ [ + { + (builtin + mkCons + ) + (con + data + ) + } [ - { - { - fToDataMap_ctoBuiltinData - (con - bytestring - ) - } + [ [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ + { + { + fToDataMap_ctoBuiltinData + (con + bytestring + ) + } + [ + [ + (lam + k + (type) + (lam + v + (type) [ - Tuple2 - k + List + [ + [ + Tuple2 + k + ] + v + ] ] - v - ] - ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + } + (builtin + bData + ) + ] + [ + [ + { + { + fToDataMap_ctoBuiltinData + (con + bytestring + ) + } + (con + integer ) + } + (builtin + bData ) + ] + (lam + i (con - bytestring + integer ) - ] - (con - integer + [ + (builtin + iData + ) + i + ] ) ] - } - (builtin - bData - ) + ] + ww ] + ] + [ [ + { + (builtin + mkCons + ) + (con + data + ) + } [ - { - { - fToDataMap_ctoBuiltinData - (con - bytestring - ) - } - (con - integer - ) - } (builtin bData ) + ww ] - (lam - i - (con - integer - ) - [ - (builtin - iData - ) - i - ] - ) ] - ] - ww - ] - ] - [ - [ - { - (builtin - mkCons - ) - (con - data - ) - } - [ - (builtin - bData - ) - ww - ] - ] - [ - [ - { - (builtin - mkCons - ) - (con - data - ) - } [ - (builtin - iData - ) - ww + [ + { + (builtin + mkCons + ) + (con + data + ) + } + [ + (builtin + iData + ) + ww + ] + ] + [ + (builtin + mkNilData + ) + unitval + ] ] ] - [ - (builtin - mkNilData - ) - unitval - ] ] ] - ] - ] + ) + ) ) - ) - ) - ] - ] - [ - [ - { - (builtin - mkCons - ) - (con - data - ) - } + ] + ] [ - (builtin - listData - ) [ - go - arg + { + (builtin + mkCons + ) + (con + data + ) + } + [ + (builtin + listData + ) + [ + go + arg + ] + ] + ] + [ + (builtin + mkNilData + ) + unitval ] ] ] - [ - (builtin - mkNilData - ) - unitval - ] ] - ] - ] + ) + ) ) + ] + (abs + dead + (type) + [ + [ + (builtin + constrData + ) + (con + integer + 2 + ) + ] + [ + (builtin + mkNilData + ) + unitval + ] + ] ) + ] + (abs + dead + (type) + [ + [ + (builtin + constrData + ) + (con + integer + 0 + ) + ] + [ + (builtin + mkNilData + ) + unitval + ] + ] ) ] - (abs + (all dead (type) - [ - [ - (builtin - constrData - ) - (con - integer - 2 - ) - ] - [ - (builtin - mkNilData - ) - unitval - ] - ] + dead ) - ] - (abs - dead - (type) - [ - [ - (builtin - constrData - ) - (con - integer - 0 - ) - ] - [ - (builtin - mkNilData - ) - unitval - ] - ] - ) - ] - (all - dead - (type) - dead + } ) - } - ) + ] + ds + ] + ds ] ds ] - ds - ] - [ - { - build - [ - ScriptOutputConstraint - MSState - ] - } - (abs - a - (type) - (lam - c - (fun - [ - ScriptOutputConstraint - MSState - ] + [ + { + build + [ + ScriptOutputConstraint + MSState + ] + } + (abs + a + (type) + (lam + c (fun - a - a + [ + ScriptOutputConstraint + MSState + ] + (fun + a + a + ) ) - ) - (lam - n - a - [ + (lam + n + a [ - c [ - [ - { - ScriptOutputConstraint - MSState - } - ds - ] + c [ [ - [ - unionWith - addInteger - ] + { + ScriptOutputConstraint + MSState + } ds ] [ [ - threadTokenValueInner - ww + [ + unionWith + addInteger + ] + ds ] [ - ownHash - w + [ + threadTokenValueInner + ww + ] + [ + ownHash + w + ] ] ] ] ] + n ] - n - ] + ) ) ) - ) + ] ] + w ] - w ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S5" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S5" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) diff --git a/plutus-use-cases/test/Spec/renderGuess.txt b/plutus-use-cases/test/Spec/renderGuess.txt index f5126c116d..5aead252d2 100644 --- a/plutus-use-cases/test/Spec/renderGuess.txt +++ b/plutus-use-cases/test/Spec/renderGuess.txt @@ -551,11 +551,11 @@ Balances Carried Forward: Ada: Lovelace: 100000000 ==== Slot #1, Tx #0 ==== -TxId: e0546cc51db7a5e10f10b2b56d0cd6f9f8032d0b4899a0b6220aed9e4c93370f +TxId: e7c7291ed09c2b1a7143e16652ec8d7d1aab2ccf98e1ea36d164f2685686c7da Fee: Ada: Lovelace: 651 Mint: - Signatures PubKey: 8d9de88fbf445b7f6c3875a14daba94caee2ffcb... - Signature: 5840e00b1ab25ef3863cab1a0d543f813e8b5273... + Signature: 5840bf55bd8de0ce22bd78187d2c46d7688b9f41... Inputs: ---- Input 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) @@ -583,7 +583,7 @@ Outputs: Ada: Lovelace: 11999349 ---- Output 1 ---- - Destination: Script: 8180862e2a5d9610a79c59394315b15045565161ac3ab76f01d92f9d + Destination: Script: 632fc96a34ec54f10d2e6bc0cfcda1fec9afe3fe4f27ad4dfeba4206 Value: Ada: Lovelace: 8000000 @@ -629,51 +629,51 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 8180862e2a5d9610a79c59394315b15045565161ac3ab76f01d92f9d + Script: 632fc96a34ec54f10d2e6bc0cfcda1fec9afe3fe4f27ad4dfeba4206 Value: Ada: Lovelace: 8000000 ==== Slot #2, Tx #0 ==== -TxId: 4e5eadb9de48934f1849216c218f44728c92ad9e2f85ab3de9d54d170d6eb4d4 -Fee: Ada: Lovelace: 292520 -Mint: c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 1 +TxId: e390194d77b1f4dd309775dc527c2543dfd40ca95353871d49412e25e0aa269b +Fee: Ada: Lovelace: 293186 +Mint: 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 1 Signatures PubKey: 8d9de88fbf445b7f6c3875a14daba94caee2ffcb... - Signature: 58407894683d290ecee255040bc876a17baed29b... + Signature: 5840c4e3e7212bf33e7f89eacbfb800d072efe80... Inputs: ---- Input 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: Ada: Lovelace: 11999349 Source: - Tx: e0546cc51db7a5e10f10b2b56d0cd6f9f8032d0b4899a0b6220aed9e4c93370f + Tx: e7c7291ed09c2b1a7143e16652ec8d7d1aab2ccf98e1ea36d164f2685686c7da Output #0 ---- Input 1 ---- - Destination: Script: 8180862e2a5d9610a79c59394315b15045565161ac3ab76f01d92f9d + Destination: Script: 632fc96a34ec54f10d2e6bc0cfcda1fec9afe3fe4f27ad4dfeba4206 Value: Ada: Lovelace: 8000000 Source: - Tx: e0546cc51db7a5e10f10b2b56d0cd6f9f8032d0b4899a0b6220aed9e4c93370f + Tx: e7c7291ed09c2b1a7143e16652ec8d7d1aab2ccf98e1ea36d164f2685686c7da Output #1 - Script: 59d6880100003323232332232323232323232323... + Script: 59d7280100003323232332232323232323232323... Outputs: ---- Output 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 9706829 - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: - + Ada: Lovelace: 9706163 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: - ---- Output 1 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 1 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 1 Ada: Lovelace: 2000000 ---- Output 2 ---- - Destination: Script: 8180862e2a5d9610a79c59394315b15045565161ac3ab76f01d92f9d + Destination: Script: 632fc96a34ec54f10d2e6bc0cfcda1fec9afe3fe4f27ad4dfeba4206 Value: Ada: Lovelace: 8000000 @@ -701,8 +701,8 @@ Balances Carried Forward: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 91706829 - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 1 + Ada: Lovelace: 91706163 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 1 PaymentPubKeyHash: a96a668ed7be83e332c872f51da7925b4472ca98... (Wallet bdf8dbca0cadeb365480c6ec29ec746a2b85274f) Value: @@ -720,34 +720,34 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 8180862e2a5d9610a79c59394315b15045565161ac3ab76f01d92f9d + Script: 632fc96a34ec54f10d2e6bc0cfcda1fec9afe3fe4f27ad4dfeba4206 Value: Ada: Lovelace: 8000000 ==== Slot #3, Tx #0 ==== -TxId: c8115bc8ecbcea7055e280ab2e68747835f4290ad8b4f7f3725325c0f41d4411 +TxId: e92f86eb5cd5a88f5809c26d7d2c9ef844928d8155c6e07612755ac18057a58f Fee: Ada: Lovelace: 543 Mint: - Signatures PubKey: 8d9de88fbf445b7f6c3875a14daba94caee2ffcb... - Signature: 5840b5e9bb709a2019cf7a929dca5eaf872c973c... + Signature: 5840ab88f65d417767f26a9d556f467e762f0003... Inputs: ---- Input 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 9706829 - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: - + Ada: Lovelace: 9706163 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: - Source: - Tx: 4e5eadb9de48934f1849216c218f44728c92ad9e2f85ab3de9d54d170d6eb4d4 + Tx: e390194d77b1f4dd309775dc527c2543dfd40ca95353871d49412e25e0aa269b Output #0 ---- Input 1 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 1 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 1 Ada: Lovelace: 2000000 Source: - Tx: 4e5eadb9de48934f1849216c218f44728c92ad9e2f85ab3de9d54d170d6eb4d4 + Tx: e390194d77b1f4dd309775dc527c2543dfd40ca95353871d49412e25e0aa269b Output #1 @@ -756,13 +756,13 @@ Outputs: ---- Output 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 9706286 - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 0 + Ada: Lovelace: 9705620 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 0 ---- Output 1 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 1 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 1 Ada: Lovelace: 2000000 @@ -778,7 +778,7 @@ Balances Carried Forward: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: Ada: Lovelace: 102000000 - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 1 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 1 PaymentPubKeyHash: 8952ed1aff55f5b7674b122804a3c0a96f4e2863... (Wallet 3a4778247ad35117d7c3150d194da389f3148f4a) Value: @@ -790,8 +790,8 @@ Balances Carried Forward: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 89706286 - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 0 + Ada: Lovelace: 89705620 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 0 PaymentPubKeyHash: a96a668ed7be83e332c872f51da7925b4472ca98... (Wallet bdf8dbca0cadeb365480c6ec29ec746a2b85274f) Value: @@ -809,33 +809,33 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 8180862e2a5d9610a79c59394315b15045565161ac3ab76f01d92f9d + Script: 632fc96a34ec54f10d2e6bc0cfcda1fec9afe3fe4f27ad4dfeba4206 Value: Ada: Lovelace: 8000000 ==== Slot #4, Tx #0 ==== -TxId: 0308c9ad4f19fa5af8bd7dde8a0b5b2096423555d93d162dd41b47f52a3229dc -Fee: Ada: Lovelace: 356957 +TxId: 961f112ec439bae1c03c31b11c15fdd686a38534b6e174a818a2849050cc5a9d +Fee: Ada: Lovelace: 358392 Mint: - Signatures PubKey: 98c77c40ccc536e0d433874dae97d4a0787b10b3... - Signature: 58406594079c03e5e3a1278397f487980612fa26... + Signature: 58405b3894083585d29bfb48ebb0b2ac51560d21... Inputs: ---- Input 0 ---- - Destination: Script: 8180862e2a5d9610a79c59394315b15045565161ac3ab76f01d92f9d + Destination: Script: 632fc96a34ec54f10d2e6bc0cfcda1fec9afe3fe4f27ad4dfeba4206 Value: Ada: Lovelace: 8000000 Source: - Tx: 4e5eadb9de48934f1849216c218f44728c92ad9e2f85ab3de9d54d170d6eb4d4 + Tx: e390194d77b1f4dd309775dc527c2543dfd40ca95353871d49412e25e0aa269b Output #2 - Script: 59d6880100003323232332232323232323232323... + Script: 59d7280100003323232332232323232323232323... ---- Input 1 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 1 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 1 Ada: Lovelace: 2000000 Source: - Tx: c8115bc8ecbcea7055e280ab2e68747835f4290ad8b4f7f3725325c0f41d4411 + Tx: e92f86eb5cd5a88f5809c26d7d2c9ef844928d8155c6e07612755ac18057a58f Output #1 @@ -853,23 +853,23 @@ Outputs: ---- Output 0 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 0 - Ada: Lovelace: 10643043 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 0 + Ada: Lovelace: 10641608 ---- Output 1 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: Ada: Lovelace: 2000000 - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: - + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: - ---- Output 2 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 1 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 1 Ada: Lovelace: 2000000 ---- Output 3 ---- - Destination: Script: 8180862e2a5d9610a79c59394315b15045565161ac3ab76f01d92f9d + Destination: Script: 632fc96a34ec54f10d2e6bc0cfcda1fec9afe3fe4f27ad4dfeba4206 Value: Ada: Lovelace: 5000000 @@ -885,8 +885,8 @@ Balances Carried Forward: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - Ada: Lovelace: 104643043 - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 1 + Ada: Lovelace: 104641608 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 1 PaymentPubKeyHash: 8952ed1aff55f5b7674b122804a3c0a96f4e2863... (Wallet 3a4778247ad35117d7c3150d194da389f3148f4a) Value: @@ -898,8 +898,8 @@ Balances Carried Forward: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 89706286 - c90dd22f18123d31212b433800414c41ca5b90662689054b2bcd3a16: guess: 0 + Ada: Lovelace: 89705620 + 34e143404ac0239947e275484b1eeacb03a3bd7fd41ae7cf8f846d4b: guess: 0 PaymentPubKeyHash: a96a668ed7be83e332c872f51da7925b4472ca98... (Wallet bdf8dbca0cadeb365480c6ec29ec746a2b85274f) Value: @@ -917,6 +917,6 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 8180862e2a5d9610a79c59394315b15045565161ac3ab76f01d92f9d + Script: 632fc96a34ec54f10d2e6bc0cfcda1fec9afe3fe4f27ad4dfeba4206 Value: Ada: Lovelace: 5000000 \ No newline at end of file