From b34e884c144c30a375fe85b6bb583ecbdcfa3097 Mon Sep 17 00:00:00 2001 From: Hai Nguyen Quang Date: Mon, 17 Jan 2022 13:01:43 +0700 Subject: [PATCH] re-generate use case test files with new plutus --- plutus-use-cases/test/Spec/crowdfunding.pir | 427 +- .../Spec/crowdfundingEmulatorTestOutput.txt | 82 +- plutus-use-cases/test/Spec/future.pir | 307 +- .../test/Spec/gameStateMachine.pir | 855 +- plutus-use-cases/test/Spec/governance.pir | 904 +- .../test/Spec/multisigStateMachine.pir | 27245 ++++++++-------- .../test/Spec/renderCrowdfunding.txt | 58 +- plutus-use-cases/test/Spec/renderGuess.txt | 118 +- plutus-use-cases/test/Spec/renderVesting.txt | 28 +- plutus-use-cases/test/Spec/vesting.pir | 13025 ++++---- 10 files changed, 21006 insertions(+), 22043 deletions(-) diff --git a/plutus-use-cases/test/Spec/crowdfunding.pir b/plutus-use-cases/test/Spec/crowdfunding.pir index 8b1e1447ee..b404588373 100644 --- a/plutus-use-cases/test/Spec/crowdfunding.pir +++ b/plutus-use-cases/test/Spec/crowdfunding.pir @@ -1,6 +1,30 @@ (program (let (nonrec) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) (datatypebind (datatype (tyvardecl CampaignAction (type)) @@ -9,70 +33,8 @@ (vardecl Collect CampaignAction) (vardecl Refund CampaignAction) ) ) - (datatypebind - (datatype - (tyvardecl Credential (type)) - - Credential_match - (vardecl PubKeyCredential (fun (con bytestring) Credential)) - (vardecl ScriptCredential (fun (con bytestring) Credential)) - ) - ) - (datatypebind - (datatype - (tyvardecl StakingCredential (type)) - - StakingCredential_match - (vardecl StakingHash (fun Credential StakingCredential)) - (vardecl - StakingPtr - (fun - (con integer) - (fun (con integer) (fun (con integer) StakingCredential)) - ) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl DCert (type)) - - DCert_match - (vardecl DCertDelegDeRegKey (fun StakingCredential DCert)) - (vardecl - DCertDelegDelegate - (fun StakingCredential (fun (con bytestring) DCert)) - ) - (vardecl DCertDelegRegKey (fun StakingCredential DCert)) - (vardecl DCertGenesis DCert) - (vardecl DCertMir DCert) - (vardecl - DCertPoolRegister (fun (con bytestring) (fun (con bytestring) DCert)) - ) - (vardecl - DCertPoolRetire (fun (con bytestring) (fun (con integer) DCert)) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl TxOutRef (type)) - - TxOutRef_match - (vardecl TxOutRef (fun (con bytestring) (fun (con integer) TxOutRef))) - ) - ) - (datatypebind - (datatype - (tyvardecl ScriptPurpose (type)) - - ScriptPurpose_match - (vardecl Certifying (fun DCert ScriptPurpose)) - (vardecl Minting (fun (con bytestring) ScriptPurpose)) - (vardecl Rewarding (fun StakingCredential ScriptPurpose)) - (vardecl Spending (fun TxOutRef ScriptPurpose)) - ) - ) + (typebind (tyvardecl ScriptPurpose (type)) (all a (type) (fun a a))) + (typebind (tyvardecl DCert (type)) (all a (type) (fun a a))) (datatypebind (datatype (tyvardecl Bool (type)) @@ -117,31 +79,12 @@ ) ) ) - (datatypebind - (datatype - (tyvardecl Maybe (fun (type) (type))) - (tyvardecl a (type)) - Maybe_match - (vardecl Just (fun a [ Maybe a ])) (vardecl Nothing [ Maybe a ]) - ) - ) - (datatypebind - (datatype - (tyvardecl Address (type)) - - Address_match - (vardecl - Address (fun Credential (fun [ Maybe StakingCredential ] Address)) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl Tuple2 (fun (type) (fun (type) (type)))) - (tyvardecl a (type)) (tyvardecl b (type)) - Tuple2_match - (vardecl Tuple2 (fun a (fun b [ [ Tuple2 a ] b ]))) - ) + (typebind (tyvardecl TxInInfo (type)) (all a (type) (fun a a))) + (typebind (tyvardecl TxOut (type)) (all a (type) (fun a a))) + (typebind (tyvardecl StakingCredential (type)) (all a (type) (fun a a))) + (typebind + (tyvardecl Tuple2 (fun (type) (fun (type) (type)))) + (lam a (type) (lam a (type) (all a (type) (fun a a)))) ) (let (rec) @@ -156,45 +99,6 @@ ) (let (nonrec) - (datatypebind - (datatype - (tyvardecl TxOut (type)) - - TxOut_match - (vardecl - TxOut - (fun - Address - (fun - [ - [ - (lam k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ])) - (con bytestring) - ] - [ - [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - (fun [ Maybe (con bytestring) ] TxOut) - ) - ) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl TxInInfo (type)) - - TxInInfo_match - (vardecl TxInInfo (fun TxOutRef (fun TxOut TxInInfo))) - ) - ) (datatypebind (datatype (tyvardecl TxInfo (type)) @@ -290,11 +194,6 @@ (vardecl EQ Ordering) (vardecl GT Ordering) (vardecl LT Ordering) ) ) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam ds (all a (type) a) (error Ordering)) - ) (datatypebind (datatype (tyvardecl Ord (fun (type) (type))) @@ -396,10 +295,10 @@ (nonrec) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -463,21 +362,13 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -485,11 +376,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -544,21 +431,11 @@ ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (all dead (type) dead) @@ -566,11 +443,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -586,10 +459,10 @@ ) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -653,21 +526,13 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -675,11 +540,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -734,21 +595,11 @@ ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (all dead (type) dead) @@ -756,11 +607,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -776,10 +623,10 @@ ) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -843,21 +690,13 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -865,11 +704,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -924,21 +759,11 @@ ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (all dead (type) dead) @@ -946,11 +771,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -966,10 +787,10 @@ ) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -1033,21 +854,13 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -1055,11 +868,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1114,21 +923,11 @@ ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (all dead (type) dead) @@ -1136,11 +935,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1198,22 +993,14 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + [ fail (con unit ()) ] ) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ] (abs @@ -1244,11 +1031,7 @@ (type) [ fail - (abs - e - (type) - (error e) - ) + (con unit ()) ] ) ) @@ -1256,12 +1039,7 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + [ fail (con unit ()) ] ) ] (abs dead (type) EQ) @@ -1294,17 +1072,12 @@ (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ) ] (abs - dead - (type) - [ fail (abs e (type) (error e)) ] + dead (type) [ fail (con unit ()) ] ) ] (abs @@ -1326,22 +1099,14 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + [ fail (con unit ()) ] ) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ] (abs dead (type) EQ) @@ -1411,17 +1176,12 @@ (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ) ] (abs - dead - (type) - [ fail (abs e (type) (error e)) ] + dead (type) [ fail (con unit ()) ] ) ] (abs @@ -1443,22 +1203,14 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + [ fail (con unit ()) ] ) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ] (abs dead (type) EQ) @@ -1489,17 +1241,11 @@ default_arg0 a (abs - dead - (type) - [ fail (abs e (type) (error e)) ] + dead (type) [ fail (con unit ()) ] ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) [ fail (con unit ()) ]) ] (abs dead @@ -1518,17 +1264,12 @@ (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ) ] (abs - dead - (type) - [ fail (abs e (type) (error e)) ] + dead (type) [ fail (con unit ()) ] ) ] (abs dead (type) EQ) @@ -1999,6 +1740,14 @@ ) (let (nonrec) + (datatypebind + (datatype + (tyvardecl Maybe (fun (type) (type))) + (tyvardecl a (type)) + Maybe_match + (vardecl Just (fun a [ Maybe a ])) (vardecl Nothing [ Maybe a ]) + ) + ) (termbind (strict) (vardecl diff --git a/plutus-use-cases/test/Spec/crowdfundingEmulatorTestOutput.txt b/plutus-use-cases/test/Spec/crowdfundingEmulatorTestOutput.txt index b10aed7bcd..52b06383e9 100644 --- a/plutus-use-cases/test/Spec/crowdfundingEmulatorTestOutput.txt +++ b/plutus-use-cases/test/Spec/crowdfundingEmulatorTestOutput.txt @@ -19,12 +19,12 @@ Slot 1: 00000000-0000-4000-8000-000000000002 {Wallet Wc30e}: Contract log: String "Contributing Value (Map [(,Map [(\"\",10000000)])])" Slot 1: W7ce812d: Balancing an unbalanced transaction: Tx: - Tx e185d3cf67edc3ad39d0b39cc1974e33ce3c04c400126dae4a35183e52876392: + Tx 4dd66a16ea3767751bbed6f2f6bd3eccc5b1b540f0f023dcf15af036d580d212: {inputs: collateral inputs: outputs: - Value (Map [(,Map [("",10000000)])]) addressed to - ScriptCredential: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b (no staking credential) + ScriptCredential: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 (no staking credential) mint: Value (Map []) fee: Value (Map []) mps: @@ -37,7 +37,7 @@ Slot 1: W7ce812d: Balancing an unbalanced transaction: Validity range: (-∞ , POSIXTime 1596059111000 ] Slot 1: W7ce812d: Finished balancing: - Tx e9628f4a7231fbe76f221ae02309b0d44df8d902154ab1bd93e38a274d52f370: + Tx 1dc8c21dc6a9ae5cecd57646a344745dba3d2d9929e30498c7da36f0a8ff0c78: {inputs: - 98d5fbcefe21113b3f0390c1441e075b8a870cc5a8fa2a56dcde1d8247e41715!2 @@ -48,7 +48,7 @@ Slot 1: W7ce812d: Finished balancing: - Value (Map [(,Map [("",89999990)])]) addressed to PubKeyCredential: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c087f250b86193ca7 (no staking credential) - Value (Map [(,Map [("",10000000)])]) addressed to - ScriptCredential: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b (no staking credential) + ScriptCredential: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 (no staking credential) mint: Value (Map []) fee: Value (Map [(,Map [("",10)])]) mps: @@ -59,20 +59,20 @@ Slot 1: W7ce812d: Finished balancing: "\128\164\244[V\184\141\DC19\218#\188L\222\136\166\254\253 ="} -Slot 1: W5f5a4f5: Submitting tx: c351875a8d5d26a87f1cf365f007f8a543040e9d8d182d608223edd245c5ea9e -Slot 1: W5f5a4f5: TxSubmit: c351875a8d5d26a87f1cf365f007f8a543040e9d8d182d608223edd245c5ea9e -Slot 1: TxnValidate c351875a8d5d26a87f1cf365f007f8a543040e9d8d182d608223edd245c5ea9e -Slot 1: TxnValidate 2f869889c09e76fb2cbfe2a3a0d512bfc86fe515d0cee53ecea4a79d3e695029 -Slot 1: TxnValidate e9628f4a7231fbe76f221ae02309b0d44df8d902154ab1bd93e38a274d52f370 +Slot 1: W5f5a4f5: Submitting tx: d90b088b39ea27cd845200fc4242f7aa048eaba5dd5f33ff0757ee5bb22d0ff9 +Slot 1: W5f5a4f5: TxSubmit: d90b088b39ea27cd845200fc4242f7aa048eaba5dd5f33ff0757ee5bb22d0ff9 +Slot 1: TxnValidate d90b088b39ea27cd845200fc4242f7aa048eaba5dd5f33ff0757ee5bb22d0ff9 +Slot 1: TxnValidate 3885731ef1d31f92492628bdb6982c22de9af5eb4286c4cde47c6f2f62156eea +Slot 1: TxnValidate 1dc8c21dc6a9ae5cecd57646a344745dba3d2d9929e30498c7da36f0a8ff0c78 Slot 20: 00000000-0000-4000-8000-000000000000 {Wallet W872c}: Contract log: String "Collecting funds" Slot 20: W872cb83: Balancing an unbalanced transaction: Tx: - Tx e76a2eef029a8ed6f69bba989c02632b04da7ad691299365cadcbc78a41eb0cf: + Tx 4b9e527945bc1095d3d951ab7ca3514a94ebdf93dfb48fec55399ff72dfa0de5: {inputs: - - 2f869889c09e76fb2cbfe2a3a0d512bfc86fe515d0cee53ecea4a79d3e695029!1 + - 1dc8c21dc6a9ae5cecd57646a344745dba3d2d9929e30498c7da36f0a8ff0c78!1 <> - - c351875a8d5d26a87f1cf365f007f8a543040e9d8d182d608223edd245c5ea9e!1 + - 3885731ef1d31f92492628bdb6982c22de9af5eb4286c4cde47c6f2f62156eea!1 <> - - e9628f4a7231fbe76f221ae02309b0d44df8d902154ab1bd93e38a274d52f370!1 + - d90b088b39ea27cd845200fc4242f7aa048eaba5dd5f33ff0757ee5bb22d0ff9!1 <> collateral inputs: outputs: @@ -174,41 +174,41 @@ Slot 20: W872cb83: Balancing an unbalanced transaction: data:} Requires signatures: Utxo index: - ( 2f869889c09e76fb2cbfe2a3a0d512bfc86fe515d0cee53ecea4a79d3e695029!1 + ( 1dc8c21dc6a9ae5cecd57646a344745dba3d2d9929e30498c7da36f0a8ff0c78!1 , - Value (Map [(,Map [("",10000000)])]) addressed to - 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b ) - ( c351875a8d5d26a87f1cf365f007f8a543040e9d8d182d608223edd245c5ea9e!1 - , - Value (Map [(,Map [("",2500000)])]) addressed to - 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b ) - ( e9628f4a7231fbe76f221ae02309b0d44df8d902154ab1bd93e38a274d52f370!1 + 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 ) + ( 3885731ef1d31f92492628bdb6982c22de9af5eb4286c4cde47c6f2f62156eea!1 , - Value (Map [(,Map [("",10000000)])]) addressed to - 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b ) + 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 ) + ( d90b088b39ea27cd845200fc4242f7aa048eaba5dd5f33ff0757ee5bb22d0ff9!1 + , - Value (Map [(,Map [("",2500000)])]) addressed to + 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 ) Validity range: [ POSIXTime 1596059111000 , POSIXTime 1596059120999 ] Slot 20: W872cb83: Finished balancing: - Tx 3a20125dbda70ddc4408207505e362966252b6941ec7eb334ca11f11fc96ac35: + Tx 7ba21a272ba87fb598c6ed594313b042b94ed126cfcb953dcd619953f0db1ca0: {inputs: - - 2f869889c09e76fb2cbfe2a3a0d512bfc86fe515d0cee53ecea4a79d3e695029!1 + - 1dc8c21dc6a9ae5cecd57646a344745dba3d2d9929e30498c7da36f0a8ff0c78!1 <> - - c351875a8d5d26a87f1cf365f007f8a543040e9d8d182d608223edd245c5ea9e!1 + - 3885731ef1d31f92492628bdb6982c22de9af5eb4286c4cde47c6f2f62156eea!1 <> - - e9628f4a7231fbe76f221ae02309b0d44df8d902154ab1bd93e38a274d52f370!1 + - d90b088b39ea27cd845200fc4242f7aa048eaba5dd5f33ff0757ee5bb22d0ff9!1 <> collateral inputs: - 98d5fbcefe21113b3f0390c1441e075b8a870cc5a8fa2a56dcde1d8247e41715!5 outputs: - - Value (Map [(,Map [("",22486334)])]) addressed to + - Value (Map [(,Map [("",22487462)])]) addressed to PubKeyCredential: a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2 (no staking credential) mint: Value (Map []) - fee: Value (Map [(,Map [("",13666)])]) + fee: Value (Map [(,Map [("",12538)])]) mps: signatures: 8d9de88fbf445b7f6c3875a14daba94caee2ffcbc9ac211c95aba0a2f5711853 validity range: Interval {ivFrom = LowerBound (Finite (Slot {getSlot = 20})) True, ivTo = UpperBound (Finite (Slot {getSlot = 29})) True} data:} -Slot 20: W872cb83: Submitting tx: 3a20125dbda70ddc4408207505e362966252b6941ec7eb334ca11f11fc96ac35 -Slot 20: W872cb83: TxSubmit: 3a20125dbda70ddc4408207505e362966252b6941ec7eb334ca11f11fc96ac35 +Slot 20: W872cb83: Submitting tx: 7ba21a272ba87fb598c6ed594313b042b94ed126cfcb953dcd619953f0db1ca0 +Slot 20: W872cb83: TxSubmit: 7ba21a272ba87fb598c6ed594313b042b94ed126cfcb953dcd619953f0db1ca0 Slot 20: 00000000-0000-4000-8000-000000000000 {Wallet W872c}: Contract instance stopped (no errors) -Slot 20: TxnValidate 3a20125dbda70ddc4408207505e362966252b6941ec7eb334ca11f11fc96ac35 \ No newline at end of file +Slot 20: TxnValidate 7ba21a272ba87fb598c6ed594313b042b94ed126cfcb953dcd619953f0db1ca0 \ No newline at end of file diff --git a/plutus-use-cases/test/Spec/future.pir b/plutus-use-cases/test/Spec/future.pir index 6aa4c1ba59..c4c2758845 100644 --- a/plutus-use-cases/test/Spec/future.pir +++ b/plutus-use-cases/test/Spec/future.pir @@ -1,97 +1,9 @@ (program (let (nonrec) - (termbind (strict) (vardecl void (all a (type) a)) (abs e (type) (error e))) - (datatypebind - (datatype - (tyvardecl TxOutRef (type)) - - TxOutRef_match - (vardecl TxOutRef (fun (con bytestring) (fun (con integer) TxOutRef))) - ) - ) - (datatypebind - (datatype - (tyvardecl ThreadToken (type)) - - ThreadToken_match - (vardecl ThreadToken (fun TxOutRef (fun (con bytestring) ThreadToken))) - ) - ) - (datatypebind - (datatype - (tyvardecl Credential (type)) - - Credential_match - (vardecl PubKeyCredential (fun (con bytestring) Credential)) - (vardecl ScriptCredential (fun (con bytestring) Credential)) - ) - ) - (datatypebind - (datatype - (tyvardecl StakingCredential (type)) - - StakingCredential_match - (vardecl StakingHash (fun Credential StakingCredential)) - (vardecl - StakingPtr - (fun - (con integer) - (fun (con integer) (fun (con integer) StakingCredential)) - ) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl DCert (type)) - - DCert_match - (vardecl DCertDelegDeRegKey (fun StakingCredential DCert)) - (vardecl - DCertDelegDelegate - (fun StakingCredential (fun (con bytestring) DCert)) - ) - (vardecl DCertDelegRegKey (fun StakingCredential DCert)) - (vardecl DCertGenesis DCert) - (vardecl DCertMir DCert) - (vardecl - DCertPoolRegister (fun (con bytestring) (fun (con bytestring) DCert)) - ) - (vardecl - DCertPoolRetire (fun (con bytestring) (fun (con integer) DCert)) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl ScriptPurpose (type)) - - ScriptPurpose_match - (vardecl Certifying (fun DCert ScriptPurpose)) - (vardecl Minting (fun (con bytestring) ScriptPurpose)) - (vardecl Rewarding (fun StakingCredential ScriptPurpose)) - (vardecl Spending (fun TxOutRef ScriptPurpose)) - ) - ) - (datatypebind - (datatype - (tyvardecl Maybe (fun (type) (type))) - (tyvardecl a (type)) - Maybe_match - (vardecl Just (fun a [ Maybe a ])) (vardecl Nothing [ Maybe a ]) - ) - ) - (datatypebind - (datatype - (tyvardecl Address (type)) - - Address_match - (vardecl - Address (fun Credential (fun [ Maybe StakingCredential ] Address)) - ) - ) - ) + (termbind (strict) (vardecl void (con unit)) (con unit ())) + (typebind (tyvardecl ThreadToken (type)) (all a (type) (fun a a))) + (typebind (tyvardecl ScriptContext (type)) (all a (type) (fun a a))) (datatypebind (datatype (tyvardecl Tuple2 (fun (type) (fun (type) (type)))) @@ -115,13 +27,13 @@ (nonrec) (datatypebind (datatype - (tyvardecl TxOut (type)) - - TxOut_match + (tyvardecl State (fun (type) (type))) + (tyvardecl s (type)) + State_match (vardecl - TxOut + State (fun - Address + s (fun [ [ @@ -138,19 +50,19 @@ (con integer) ] ] - (fun [ Maybe (con bytestring) ] TxOut) + [ State s ] ) ) ) ) ) - (datatypebind - (datatype - (tyvardecl TxInInfo (type)) - - TxInInfo_match - (vardecl TxInInfo (fun TxOutRef (fun TxOut TxInInfo))) - ) + (typebind + (tyvardecl InputConstraint (fun (type) (type))) + (lam a (type) (all a (type) (fun a a))) + ) + (typebind + (tyvardecl OutputConstraint (fun (type) (type))) + (lam a (type) (all a (type) (fun a a))) ) (datatypebind (datatype @@ -203,163 +115,13 @@ ) (datatypebind (datatype - (tyvardecl TxInfo (type)) - - TxInfo_match - (vardecl - TxInfo - (fun - [ List TxInInfo ] - (fun - [ List TxOut ] - (fun - [ - [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - (fun - [ - [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - (fun - [ List DCert ] - (fun - [ - List [ [ Tuple2 StakingCredential ] (con integer) ] - ] - (fun - [ Interval (con integer) ] - (fun - [ List (con bytestring) ] - (fun - [ - List - [ [ Tuple2 (con bytestring) ] (con data) ] - ] - (fun (con bytestring) TxInfo) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl ScriptContext (type)) - - ScriptContext_match - (vardecl - ScriptContext (fun TxInfo (fun ScriptPurpose ScriptContext)) - ) - ) - ) - (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 InputConstraint (fun (type) (type))) + (tyvardecl Maybe (fun (type) (type))) (tyvardecl a (type)) - InputConstraint_match - (vardecl - InputConstraint (fun a (fun TxOutRef [ InputConstraint a ])) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl OutputConstraint (fun (type) (type))) - (tyvardecl a (type)) - OutputConstraint_match - (vardecl - OutputConstraint - (fun - a - (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) - ] - ] - [ OutputConstraint a ] - ) - ) - ) + Maybe_match + (vardecl Just (fun a [ Maybe a ])) (vardecl Nothing [ Maybe a ]) ) ) + (typebind (tyvardecl TxOutRef (type)) (all a (type) (fun a a))) (let (rec) (datatypebind @@ -528,7 +290,7 @@ ) ) ) - (datatypebind (datatype (tyvardecl Void (type)) Void_match )) + (typebind (tyvardecl Void (type)) (all a (type) (fun a a))) (datatypebind (datatype (tyvardecl StateMachine (fun (type) (fun (type) (type)))) @@ -1061,6 +823,11 @@ ) ) ) + (termbind + (strict) + (vardecl fAdditiveGroupValue (con integer)) + (con integer -1) + ) (let (rec) (termbind @@ -2533,6 +2300,9 @@ ) ) ) + (termbind + (strict) (vardecl unitval (con unit)) (con unit ()) + ) (termbind (nonstrict) (vardecl @@ -2971,7 +2741,7 @@ } ) ] - (con unit ()) + unitval ] ) ] @@ -6694,7 +6464,7 @@ (vardecl unitDatum (con data)) [ [ (builtin constrData) (con integer 0) ] - [ (builtin mkNilData) (con unit ()) ] + [ (builtin mkNilData) unitval ] ] ) (lam @@ -8355,10 +8125,7 @@ [ [ fAdditiveGroupValue_cscale - (con - integer - -1 - ) + fAdditiveGroupValue ] ww ] @@ -8761,10 +8528,7 @@ [ [ fAdditiveGroupValue_cscale - (con - integer - -1 - ) + fAdditiveGroupValue ] ds ] @@ -10931,10 +10695,7 @@ [ [ fAdditiveGroupValue_cscale - (con - integer - -1 - ) + fAdditiveGroupValue ] ww ] diff --git a/plutus-use-cases/test/Spec/gameStateMachine.pir b/plutus-use-cases/test/Spec/gameStateMachine.pir index 04ac4721ab..0d9fb892ee 100644 --- a/plutus-use-cases/test/Spec/gameStateMachine.pir +++ b/plutus-use-cases/test/Spec/gameStateMachine.pir @@ -1,11 +1,34 @@ (program (let (nonrec) - (termbind - (strict) - (vardecl error (all a (type) (fun (con unit) a))) - (abs a (type) (lam thunk (con unit) (error a))) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (datatypebind + (datatype (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit)) ) + (termbind (strict) (vardecl unitval (con unit)) (con unit ())) (datatypebind (datatype (tyvardecl Tuple2 (fun (type) (fun (type) (type)))) @@ -14,34 +37,35 @@ (vardecl Tuple2 (fun a (fun b [ [ Tuple2 a ] b ]))) ) ) - (datatypebind - (datatype (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit)) - ) (termbind (strict) (vardecl - fail - (fun (all a (type) a) [ [ Tuple2 (con bytestring) ] (con bytestring) ]) + fail (fun (con unit) [ [ Tuple2 (con bytestring) ] (con bytestring) ]) ) (lam ds - (all a (type) a) - [ - { error [ [ Tuple2 (con bytestring) ] (con bytestring) ] } - [ - { - [ - Unit_match - [ [ { (builtin trace) Unit } (con string "Lg") ] Unit ] - ] - (con unit) - } - (con unit ()) - ] - ] + (con unit) + (let + (nonrec) + (termbind + (strict) + (vardecl thunk (con unit)) + [ + { + [ + Unit_match + [ [ { (builtin trace) Unit } (con string "Lg") ] Unit ] + ] + (con unit) + } + unitval + ] + ) + (error [ [ Tuple2 (con bytestring) ] (con bytestring) ]) + ) ) ) - (termbind (strict) (vardecl void (all a (type) a)) (abs e (type) (error e))) + (termbind (strict) (vardecl void (con unit)) (con unit ())) (datatypebind (datatype (tyvardecl Bool (type)) @@ -573,11 +597,6 @@ (vardecl EQ Ordering) (vardecl GT Ordering) (vardecl LT Ordering) ) ) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam ds (all a (type) a) (error Ordering)) - ) (datatypebind (datatype (tyvardecl Ord (fun (type) (type))) @@ -683,10 +702,10 @@ (nonrec) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -744,21 +763,11 @@ ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (all dead (type) dead) @@ -766,11 +775,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -819,30 +824,16 @@ ) ) ] - (abs - dead - (type) - [ - fail (abs e (type) (error e)) - ] - ) + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (all dead (type) dead) } ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -858,10 +849,10 @@ ) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -919,21 +910,11 @@ ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (all dead (type) dead) @@ -941,11 +922,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -994,30 +971,16 @@ ) ) ] - (abs - dead - (type) - [ - fail (abs e (type) (error e)) - ] - ) + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (all dead (type) dead) } ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1033,10 +996,10 @@ ) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -1094,21 +1057,11 @@ ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (all dead (type) dead) @@ -1116,11 +1069,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1169,30 +1118,16 @@ ) ) ] - (abs - dead - (type) - [ - fail (abs e (type) (error e)) - ] - ) + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (all dead (type) dead) } ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1208,10 +1143,10 @@ ) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -1269,21 +1204,11 @@ ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] (all dead (type) dead) @@ -1291,11 +1216,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1344,30 +1265,16 @@ ) ) ] - (abs - dead - (type) - [ - fail (abs e (type) (error e)) - ] - ) + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (all dead (type) dead) } ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1422,19 +1329,14 @@ (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ) ] (abs dead (type) - [ - fail (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ] (abs @@ -1459,22 +1361,14 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + [ fail (con unit ()) ] ) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ] (abs dead (type) EQ) @@ -1505,17 +1399,11 @@ default_arg0 a (abs - dead - (type) - [ fail (abs e (type) (error e)) ] + dead (type) [ fail (con unit ()) ] ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) [ fail (con unit ()) ]) ] (abs dead @@ -1534,19 +1422,14 @@ (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ) ] (abs dead (type) - [ - fail (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ] (abs dead (type) EQ) @@ -1614,17 +1497,11 @@ default_arg0 a (abs - dead - (type) - [ fail (abs e (type) (error e)) ] + dead (type) [ fail (con unit ()) ] ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) [ fail (con unit ()) ]) ] (abs dead @@ -1643,19 +1520,14 @@ (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ) ] (abs dead (type) - [ - fail (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ] (abs dead (type) EQ) @@ -1685,18 +1557,10 @@ (lam default_arg0 a - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) [ fail (con unit ()) ]) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) [ fail (con unit ()) ]) ] (abs dead @@ -1713,17 +1577,11 @@ default_arg0 a (abs - dead - (type) - [ fail (abs e (type) (error e)) ] + dead (type) [ fail (con unit ()) ] ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) [ fail (con unit ()) ]) ] (abs dead (type) EQ) ] @@ -4078,6 +3936,16 @@ ) ) ) + (termbind + (strict) + (vardecl minAdaTxOut (con integer)) + (con integer 2000000) + ) + (termbind + (strict) + (vardecl fAdditiveGroupValue (con integer)) + (con integer -1) + ) (termbind (strict) (vardecl @@ -4372,6 +4240,11 @@ ) ) ) + (termbind + (strict) + (vardecl emptyByteString (con bytestring)) + (con bytestring #) + ) (termbind (strict) (vardecl @@ -5280,7 +5153,7 @@ [ [ [ unionWith addInteger ] v ] [ - [ fAdditiveGroupValue_cscale (con integer -1) ] + [ fAdditiveGroupValue_cscale fAdditiveGroupValue ] [ [ { @@ -5320,7 +5193,7 @@ (con integer) ] } - (con bytestring #) + emptyByteString ] [ [ @@ -5337,11 +5210,11 @@ { Tuple2 (con bytestring) } (con integer) } - (con bytestring #) + emptyByteString ] [ - [ [ valueOf v ] (con bytestring #) ] - (con bytestring #) + [ [ valueOf v ] emptyByteString ] + emptyByteString ] ] ] @@ -5835,32 +5708,8 @@ } ] ) - (datatypebind - (datatype - (tyvardecl DCert (type)) - - DCert_match - (vardecl - DCertDelegDeRegKey (fun StakingCredential DCert) - ) - (vardecl - DCertDelegDelegate - (fun StakingCredential (fun (con bytestring) DCert)) - ) - (vardecl - DCertDelegRegKey (fun StakingCredential DCert) - ) - (vardecl DCertGenesis DCert) - (vardecl DCertMir DCert) - (vardecl - DCertPoolRegister - (fun (con bytestring) (fun (con bytestring) DCert)) - ) - (vardecl - DCertPoolRetire - (fun (con bytestring) (fun (con integer) DCert)) - ) - ) + (typebind + (tyvardecl DCert (type)) (all a (type) (fun a a)) ) (datatypebind (datatype @@ -8078,15 +7927,9 @@ valueOf ds ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] [ @@ -8095,15 +7938,9 @@ valueOf vl ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] ] @@ -8147,15 +7984,9 @@ valueOf ds ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] [ @@ -8169,21 +8000,12 @@ valueOf vl ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] - (con - integer - 2000000 - ) + minAdaTxOut ] ] ] @@ -13090,119 +12912,104 @@ (lam ww ScriptPurpose - { + [ [ [ [ - [ - { - [ ScriptPurpose_match ww ] - (all dead (type) [ Maybe TxInInfo ]) - } - (lam - default_arg0 - DCert - (abs - dead (type) { Nothing TxInInfo } - ) - ) - ] + { + [ ScriptPurpose_match ww ] + [ Maybe TxInInfo ] + } (lam default_arg0 - (con bytestring) - (abs dead (type) { Nothing TxInInfo }) + DCert + { Nothing TxInInfo } ) ] (lam default_arg0 - StakingCredential - (abs dead (type) { Nothing TxInInfo }) + (con bytestring) + { Nothing TxInInfo } ) ] (lam - txOutRef - TxOutRef - (abs - dead - (type) + default_arg0 + StakingCredential + { Nothing TxInInfo } + ) + ] + (lam + txOutRef + TxOutRef + [ + [ [ - [ - [ - { - { - fFoldableNil_cfoldMap - [ - (lam a (type) [ Maybe a ]) - TxInInfo - ] - } + { + { + fFoldableNil_cfoldMap + [ + (lam a (type) [ Maybe a ]) TxInInfo - } - { fMonoidFirst TxInInfo } - ] + ] + } + TxInInfo + } + { fMonoidFirst TxInInfo } + ] + (lam + x + TxInInfo + [ + { + [ TxInInfo_match x ] + [ Maybe TxInInfo ] + } (lam - x - TxInInfo - [ + ds + TxOutRef + (lam + ds + TxOut { - [ TxInInfo_match x ] - [ Maybe TxInInfo ] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - { - [ + [ + [ + { [ - { - [ - Bool_match - [ - [ - fEqTxOutRef_c - ds - ] - txOutRef - ] - ] - (all - dead - (type) - [ Maybe TxInInfo ] - ) - } - (abs - dead - (type) - [ - { Just TxInInfo } - x - ] - ) + Bool_match + [ + [ fEqTxOutRef_c ds ] + txOutRef + ] ] - (abs + (all dead (type) - { Nothing TxInInfo } + [ Maybe TxInInfo ] ) - ] - (all dead (type) dead) - } - ) - ) - ] + } + (abs + dead + (type) + [ { Just TxInInfo } x ] + ) + ] + (abs + dead + (type) + { Nothing TxInInfo } + ) + ] + (all dead (type) dead) + } + ) ) ] - ww - ] - ) - ) - ] - (all dead (type) dead) - } + ) + ] + ww + ] + ) + ] ) ) ) @@ -14295,15 +14102,9 @@ valueOf ds ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] [ @@ -14312,15 +14113,9 @@ valueOf ww ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] ] @@ -14364,15 +14159,9 @@ valueOf ds ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] [ @@ -14386,21 +14175,12 @@ valueOf ww ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] - (con - integer - 2000000 - ) + minAdaTxOut ] ] ] @@ -14925,44 +14705,50 @@ (abs dead (type) - [ - { - error + (let + (nonrec) + (termbind + (strict) + (vardecl + thunk + (con + unit + ) + ) [ - List - TxOut - ] - } - [ - { - [ - Unit_match + { [ + Unit_match [ - { - (builtin - trace + [ + { + (builtin + trace + ) + Unit + } + (con + string + "Lf" ) - Unit - } - (con - string - "Lf" - ) + ] + Unit ] - Unit ] - ] - (con - unit - ) - } - (con - unit - () - ) - ] - ] + (con + unit + ) + } + unitval + ] + ) + (error + [ + List + TxOut + ] + ) + ) ) ] (all @@ -15560,12 +15346,9 @@ ) [ fail - (abs - e - (type) - (error - e - ) + (con + unit + () ) ] ) @@ -15637,12 +15420,9 @@ (type) [ fail - (abs - e - (type) - (error - e - ) + (con + unit + () ) ] ) @@ -15673,12 +15453,9 @@ (type) [ fail - (abs - e - (type) - (error - e - ) + (con + unit + () ) ] ) @@ -16307,7 +16084,7 @@ (vardecl unitDatum (con data)) [ [ (builtin constrData) (con integer 0) ] - [ (builtin mkNilData) (con unit ()) ] + [ (builtin mkNilData) unitval ] ] ) (termbind @@ -16892,10 +16669,7 @@ [ [ fAdditiveGroupValue_cscale - (con - integer - -1 - ) + fAdditiveGroupValue ] takenOut ] @@ -17471,10 +17245,7 @@ ) ] } - (con - bytestring - # - ) + emptyByteString ] [ [ @@ -17505,10 +17276,7 @@ integer ) } - (con - bytestring - # - ) + emptyByteString ] [ [ @@ -17516,15 +17284,9 @@ valueOf newValue ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] ] @@ -18468,9 +18230,44 @@ (abs dead (type) - [ - { - error + (let + (nonrec) + (termbind + (strict) + (vardecl + thunk + (con + unit + ) + ) + [ + { + [ + Unit_match + [ + [ + { + (builtin + trace + ) + Unit + } + (con + string + "S0" + ) + ] + Unit + ] + ] + (con + unit + ) + } + unitval + ] + ) + (error [ [ (lam @@ -18524,37 +18321,8 @@ ) ] ] - } - [ - { - [ - Unit_match - [ - [ - { - (builtin - trace - ) - Unit - } - (con - string - "S0" - ) - ] - Unit - ] - ] - (con - unit - ) - } - (con - unit - () - ) - ] - ] + ) + ) ) ] (all @@ -19111,10 +18879,7 @@ (builtin mkNilData ) - (con - unit - () - ) + unitval ] ] ) @@ -19202,10 +18967,7 @@ (builtin mkNilData ) - (con - unit - () - ) + unitval ] ] ] @@ -19299,10 +19061,7 @@ (builtin mkNilData ) - (con - unit - () - ) + unitval ] ] ] diff --git a/plutus-use-cases/test/Spec/governance.pir b/plutus-use-cases/test/Spec/governance.pir index 5d47f73868..7597a2a9ae 100644 --- a/plutus-use-cases/test/Spec/governance.pir +++ b/plutus-use-cases/test/Spec/governance.pir @@ -1,6 +1,7 @@ (program (let (nonrec) + (termbind (strict) (vardecl unitval (con unit)) (con unit ())) (datatypebind (datatype (tyvardecl Tuple2 (fun (type) (fun (type) (type)))) @@ -55,7 +56,7 @@ [ (con list) [ [ (con pair) (con data) ] (con data) ] ] ) } - (abs dead (type) [ (builtin mkNilPairData) (con unit ()) ]) + (abs dead (type) [ (builtin mkNilPairData) unitval ]) ] (lam ds @@ -105,10 +106,7 @@ (builtin constrData) (con integer 1) ] - [ - (builtin mkNilData) - (con unit ()) - ] + [ (builtin mkNilData) unitval ] ] ) ] @@ -120,9 +118,7 @@ (builtin constrData) (con integer 0) ] - [ - (builtin mkNilData) (con unit ()) - ] + [ (builtin mkNilData) unitval ] ] ) ] @@ -145,14 +141,31 @@ ) (let (nonrec) - (termbind - (strict) (vardecl void (all a (type) a)) (abs e (type) (error e)) - ) - (termbind - (strict) - (vardecl error (all a (type) (fun (con unit) a))) - (abs a (type) (lam thunk (con unit) (error a))) - ) + (termbind (strict) (vardecl void (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) (datatypebind (datatype (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit)) ) @@ -161,26 +174,32 @@ (vardecl fail (fun - (all a (type) a) - [ [ Tuple2 (con bytestring) ] (con bytestring) ] + (con unit) [ [ Tuple2 (con bytestring) ] (con bytestring) ] ) ) (lam ds - (all a (type) a) - [ - { error [ [ Tuple2 (con bytestring) ] (con bytestring) ] } - [ - { - [ - Unit_match - [ [ { (builtin trace) Unit } (con string "Lg") ] Unit ] - ] - (con unit) - } - (con unit ()) - ] - ] + (con unit) + (let + (nonrec) + (termbind + (strict) + (vardecl thunk (con unit)) + [ + { + [ + Unit_match + [ + [ { (builtin trace) Unit } (con string "Lg") ] Unit + ] + ] + (con unit) + } + unitval + ] + ) + (error [ [ Tuple2 (con bytestring) ] (con bytestring) ]) + ) ) ) (termbind @@ -765,11 +784,6 @@ (vardecl LT Ordering) ) ) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam ds (all a (type) a) (error Ordering)) - ) (datatypebind (datatype (tyvardecl Ord (fun (type) (type))) @@ -886,10 +900,10 @@ (nonrec) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -961,25 +975,13 @@ (abs dead (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -987,13 +989,7 @@ ) ) ] - (abs - dead - (type) - [ - fail (abs e (type) (error e)) - ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1054,21 +1050,13 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -1076,11 +1064,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1096,10 +1080,10 @@ ) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -1171,25 +1155,13 @@ (abs dead (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -1197,13 +1169,7 @@ ) ) ] - (abs - dead - (type) - [ - fail (abs e (type) (error e)) - ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1264,21 +1230,13 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -1286,11 +1244,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1306,10 +1260,10 @@ ) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -1381,25 +1335,13 @@ (abs dead (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -1407,13 +1349,7 @@ ) ) ] - (abs - dead - (type) - [ - fail (abs e (type) (error e)) - ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1474,21 +1410,13 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -1496,11 +1424,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1516,10 +1440,10 @@ ) (termbind (strict) - (vardecl fail (fun (all a (type) a) Ordering)) + (vardecl fail (fun (con unit) Ordering)) (lam ds - (all a (type) a) + (con unit) { [ [ @@ -1591,25 +1515,13 @@ (abs dead (type) - [ - fail - (abs - e - (type) - (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -1617,13 +1529,7 @@ ) ) ] - (abs - dead - (type) - [ - fail (abs e (type) (error e)) - ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1684,21 +1590,13 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + (error Ordering) ) ] (all dead (type) dead) @@ -1706,11 +1604,7 @@ ) ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) (error Ordering)) ] (abs dead (type) GT) ] @@ -1772,12 +1666,7 @@ dead (type) [ - fail - (abs - e - (type) - (error e) - ) + fail (con unit ()) ] ) ) @@ -1785,12 +1674,7 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + [ fail (con unit ()) ] ) ] (abs @@ -1822,10 +1706,8 @@ (type) [ fail - (abs - e - (type) - (error e) + (con + unit () ) ] ) @@ -1836,11 +1718,7 @@ (type) [ fail - (abs - e - (type) - (error e) - ) + (con unit ()) ] ) ] @@ -1874,20 +1752,14 @@ (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ] (abs @@ -1913,12 +1785,7 @@ dead (type) [ - fail - (abs - e - (type) - (error e) - ) + fail (con unit ()) ] ) ) @@ -1926,12 +1793,7 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + [ fail (con unit ()) ] ) ] (abs dead (type) EQ) @@ -2003,20 +1865,14 @@ (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ] (abs @@ -2042,12 +1898,7 @@ dead (type) [ - fail - (abs - e - (type) - (error e) - ) + fail (con unit ()) ] ) ) @@ -2055,12 +1906,7 @@ (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + [ fail (con unit ()) ] ) ] (abs dead (type) EQ) @@ -2093,16 +1939,12 @@ (abs dead (type) - [ - fail (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ) ] (abs - dead - (type) - [ fail (abs e (type) (error e)) ] + dead (type) [ fail (con unit ()) ] ) ] (abs @@ -2122,20 +1964,14 @@ (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] + [ fail (con unit ()) ] ) ] (abs dead (type) EQ) @@ -4777,6 +4613,11 @@ ) ) ) + (termbind + (strict) + (vardecl minAdaTxOut (con integer)) + (con integer 2000000) + ) (termbind (strict) (vardecl @@ -5097,6 +4938,11 @@ ) ) ) + (termbind + (strict) + (vardecl emptyByteString (con bytestring)) + (con bytestring #) + ) (termbind (strict) (vardecl @@ -6153,7 +5999,7 @@ (con integer) ] } - (con bytestring #) + emptyByteString ] [ [ @@ -6170,13 +6016,11 @@ { Tuple2 (con bytestring) } (con integer) } - (con bytestring #) + emptyByteString ] [ - [ - [ valueOf v ] (con bytestring #) - ] - (con bytestring #) + [ [ valueOf v ] emptyByteString ] + emptyByteString ] ] ] @@ -6738,41 +6582,8 @@ } ] ) - (datatypebind - (datatype - (tyvardecl DCert (type)) - - DCert_match - (vardecl - DCertDelegDeRegKey - (fun StakingCredential DCert) - ) - (vardecl - DCertDelegDelegate - (fun - StakingCredential - (fun (con bytestring) DCert) - ) - ) - (vardecl - DCertDelegRegKey (fun StakingCredential DCert) - ) - (vardecl DCertGenesis DCert) - (vardecl DCertMir DCert) - (vardecl - DCertPoolRegister - (fun - (con bytestring) - (fun (con bytestring) DCert) - ) - ) - (vardecl - DCertPoolRetire - (fun - (con bytestring) (fun (con integer) DCert) - ) - ) - ) + (typebind + (tyvardecl DCert (type)) (all a (type) (fun a a)) ) (datatypebind (datatype @@ -9070,15 +8881,9 @@ valueOf ds ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] [ @@ -9087,15 +8892,9 @@ valueOf vl ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] ] @@ -9139,15 +8938,9 @@ valueOf ds ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] [ @@ -9161,21 +8954,12 @@ valueOf vl ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] - (con - integer - 2000000 - ) + minAdaTxOut ] ] ] @@ -14227,144 +14011,114 @@ (lam ww ScriptPurpose - { + [ [ [ [ - [ - { - [ ScriptPurpose_match ww ] - (all - dead - (type) - [ Maybe TxInInfo ] - ) - } - (lam - default_arg0 - DCert - (abs - dead - (type) - { Nothing TxInInfo } - ) - ) - ] + { + [ ScriptPurpose_match ww ] + [ Maybe TxInInfo ] + } (lam default_arg0 - (con bytestring) - (abs - dead - (type) - { Nothing TxInInfo } - ) + DCert + { Nothing TxInInfo } ) ] (lam default_arg0 - StakingCredential - (abs - dead (type) { Nothing TxInInfo } - ) + (con bytestring) + { Nothing TxInInfo } ) ] (lam - txOutRef - TxOutRef - (abs - dead - (type) + default_arg0 + StakingCredential + { Nothing TxInInfo } + ) + ] + (lam + txOutRef + TxOutRef + [ + [ [ - [ - [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a (type) [ Maybe a ] - ) - TxInInfo - ] - } + { + { + fFoldableNil_cfoldMap + [ + (lam a (type) [ Maybe a ]) TxInInfo - } - { fMonoidFirst TxInInfo } - ] + ] + } + TxInInfo + } + { fMonoidFirst TxInInfo } + ] + (lam + x + TxInInfo + [ + { + [ TxInInfo_match x ] + [ Maybe TxInInfo ] + } (lam - x - TxInInfo - [ + ds + TxOutRef + (lam + ds + TxOut { - [ TxInInfo_match x ] - [ Maybe TxInInfo ] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - { - [ + [ + [ + { [ - { - [ - Bool_match - [ - [ - fEqTxOutRef_c - ds - ] - txOutRef - ] - ] - (all - dead - (type) - [ - Maybe - TxInInfo - ] - ) - } - (abs - dead - (type) + Bool_match + [ [ - { - Just - TxInInfo - } - x + fEqTxOutRef_c + ds ] - ) + txOutRef + ] ] - (abs + (all dead (type) + [ + Maybe TxInInfo + ] + ) + } + (abs + dead + (type) + [ { - Nothing - TxInInfo + Just TxInInfo } - ) - ] - (all - dead (type) dead + x + ] ) - } - ) - ) - ] + ] + (abs + dead + (type) + { Nothing TxInInfo } + ) + ] + (all dead (type) dead) + } + ) ) ] - ww - ] - ) - ) - ] - (all dead (type) dead) - } + ) + ] + ww + ] + ) + ] ) ) ) @@ -15477,15 +15231,9 @@ valueOf ds ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] [ @@ -15494,15 +15242,9 @@ valueOf ww ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] ] @@ -15546,15 +15288,9 @@ valueOf ds ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] [ @@ -15568,21 +15304,12 @@ valueOf ww ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] ] - (con - integer - 2000000 - ) + minAdaTxOut ] ] ] @@ -16107,44 +15834,50 @@ (abs dead (type) - [ - { - error + (let + (nonrec) + (termbind + (strict) + (vardecl + thunk + (con + unit + ) + ) [ - List - TxOut - ] - } - [ - { - [ - Unit_match + { [ + Unit_match [ - { - (builtin - trace + [ + { + (builtin + trace + ) + Unit + } + (con + string + "Lf" ) - Unit - } - (con - string - "Lf" - ) + ] + Unit ] - Unit ] - ] - (con - unit - ) - } - (con - unit - () - ) - ] - ] + (con + unit + ) + } + unitval + ] + ) + (error + [ + List + TxOut + ] + ) + ) ) ] (all @@ -16782,12 +16515,9 @@ ) [ fail - (abs - e - (type) - (error - e - ) + (con + unit + () ) ] ) @@ -16859,12 +16589,9 @@ (type) [ fail - (abs - e - (type) - (error - e - ) + (con + unit + () ) ] ) @@ -16895,12 +16622,9 @@ (type) [ fail - (abs - e - (type) - (error - e - ) + (con + unit + () ) ] ) @@ -22635,10 +22359,7 @@ (builtin mkNilData ) - (con - unit - () - ) + unitval ] ] ) @@ -26055,9 +25776,44 @@ (abs dead (type) - [ - { - error + (let + (nonrec) + (termbind + (strict) + (vardecl + thunk + (con + unit + ) + ) + [ + { + [ + Unit_match + [ + [ + { + (builtin + trace + ) + Unit + } + (con + string + "S0" + ) + ] + Unit + ] + ] + (con + unit + ) + } + unitval + ] + ) + (error [ [ (lam @@ -26111,37 +25867,8 @@ ) ] ] - } - [ - { - [ - Unit_match - [ - [ - { - (builtin - trace - ) - Unit - } - (con - string - "S0" - ) - ] - Unit - ] - ] - (con - unit - ) - } - (con - unit - () - ) - ] - ] + ) + ) ) ] (all @@ -27244,10 +26971,7 @@ (builtin mkNilData ) - (con - unit - () - ) + unitval ] ] ] @@ -27282,10 +27006,7 @@ (builtin mkNilData ) - (con - unit - () - ) + unitval ] ] ] @@ -27298,10 +27019,7 @@ (builtin mkNilData ) - (con - unit - () - ) + unitval ] ] ] @@ -27325,10 +27043,7 @@ (builtin mkNilData ) - (con - unit - () - ) + unitval ] ] ) @@ -27344,10 +27059,7 @@ (builtin mkNilData ) - (con - unit - () - ) + unitval ] ] ] diff --git a/plutus-use-cases/test/Spec/multisigStateMachine.pir b/plutus-use-cases/test/Spec/multisigStateMachine.pir index fb771f80aa..a3c73c8b27 100644 --- a/plutus-use-cases/test/Spec/multisigStateMachine.pir +++ b/plutus-use-cases/test/Spec/multisigStateMachine.pir @@ -1,440 +1,514 @@ (program (let - (rec) - (datatypebind - (datatype - (tyvardecl List (fun (type) (type))) - (tyvardecl a (type)) - Nil_match - (vardecl Nil [ List a ]) - (vardecl Cons (fun a (fun [ List a ] [ List a ]))) - ) - ) + (nonrec) + (termbind (strict) (vardecl unitval (con unit)) (con unit ())) (let (rec) - (termbind - (strict) - (vardecl go (fun [ List (con bytestring) ] [ (con list) (con data) ])) - (lam - ds - [ List (con bytestring) ] - { - [ - [ - { - [ { Nil_match (con bytestring) } ds ] - (all dead (type) [ (con list) (con data) ]) - } - (abs dead (type) [ (builtin mkNilData) (con unit ()) ]) - ] - (lam - x - (con bytestring) - (lam - xs - [ List (con bytestring) ] - (abs - dead - (type) - [ - [ { (builtin mkCons) (con data) } [ (builtin bData) x ] ] - [ go xs ] - ] - ) - ) - ) - ] - (all dead (type) dead) - } + (datatypebind + (datatype + (tyvardecl List (fun (type) (type))) + (tyvardecl a (type)) + Nil_match + (vardecl Nil [ List a ]) + (vardecl Cons (fun a (fun [ List a ] [ List a ]))) ) ) (let - (nonrec) + (rec) (termbind (strict) - (vardecl error (all a (type) (fun (con unit) a))) - (abs a (type) (lam thunk (con unit) (error a))) - ) - (datatypebind - (datatype - (tyvardecl Tuple2 (fun (type) (fun (type) (type)))) - (tyvardecl a (type)) (tyvardecl b (type)) - Tuple2_match - (vardecl Tuple2 (fun a (fun b [ [ Tuple2 a ] b ]))) + (vardecl go (fun [ List (con bytestring) ] [ (con list) (con data) ])) + (lam + ds + [ List (con bytestring) ] + { + [ + [ + { + [ { Nil_match (con bytestring) } ds ] + (all dead (type) [ (con list) (con data) ]) + } + (abs dead (type) [ (builtin mkNilData) unitval ]) + ] + (lam + x + (con bytestring) + (lam + xs + [ List (con bytestring) ] + (abs + dead + (type) + [ + [ + { (builtin mkCons) (con data) } [ (builtin bData) x ] + ] + [ go xs ] + ] + ) + ) + ) + ] + (all dead (type) dead) + } ) ) - (datatypebind - (datatype (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit)) - ) - (termbind - (strict) - (vardecl - fail - (fun - (all a (type) a) [ [ Tuple2 (con bytestring) ] (con bytestring) ] + (let + (nonrec) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (datatypebind + (datatype (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit)) + ) + (datatypebind + (datatype + (tyvardecl Tuple2 (fun (type) (fun (type) (type)))) + (tyvardecl a (type)) (tyvardecl b (type)) + Tuple2_match + (vardecl Tuple2 (fun a (fun b [ [ Tuple2 a ] b ]))) ) ) - (lam - ds - (all a (type) a) - [ - { error [ [ Tuple2 (con bytestring) ] (con bytestring) ] } - [ - { + (termbind + (strict) + (vardecl + fail + (fun (con unit) [ [ Tuple2 (con bytestring) ] (con bytestring) ]) + ) + (lam + ds + (con unit) + (let + (nonrec) + (termbind + (strict) + (vardecl thunk (con unit)) [ - Unit_match - [ [ { (builtin trace) Unit } (con string "Lg") ] Unit ] + { + [ + Unit_match + [ [ { (builtin trace) Unit } (con string "Lg") ] Unit ] + ] + (con unit) + } + unitval ] - (con unit) - } - (con unit ()) - ] - ] + ) + (error [ [ Tuple2 (con bytestring) ] (con bytestring) ]) + ) + ) ) - ) - (termbind - (strict) - (vardecl - fToDataMap_ctoBuiltinData - (all - k - (type) + (termbind + (strict) + (vardecl + fToDataMap_ctoBuiltinData (all - v + k (type) - (fun - [ (lam a (type) (fun a (con data))) k ] + (all + v + (type) (fun - [ (lam a (type) (fun a (con data))) v ] + [ (lam a (type) (fun a (con data))) k ] (fun - [ + [ (lam a (type) (fun a (con data))) v ] + (fun [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - k + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + k + ] + v ] - v - ] - (con data) + (con data) + ) ) ) ) ) ) - ) - (abs - k - (type) (abs - v + k (type) - (lam - dToData - [ (lam a (type) (fun a (con data))) k ] + (abs + v + (type) (lam dToData - [ (lam a (type) (fun a (con data))) v ] - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun - [ List [ [ Tuple2 k ] v ] ] - [ - (con list) [ [ (con pair) (con data) ] (con data) ] - ] + [ (lam a (type) (fun a (con data))) k ] + (lam + dToData + [ (lam a (type) (fun a (con data))) v ] + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun + [ List [ [ Tuple2 k ] v ] ] + [ + (con list) + [ [ (con pair) (con data) ] (con data) ] + ] + ) ) - ) - (lam - ds - [ List [ [ Tuple2 k ] v ] ] - { - [ + (lam + ds + [ List [ [ Tuple2 k ] v ] ] + { [ - { - [ { Nil_match [ [ Tuple2 k ] v ] } ds ] - (all + [ + { + [ { Nil_match [ [ Tuple2 k ] v ] } ds ] + (all + dead + (type) + [ + (con list) + [ [ (con pair) (con data) ] (con data) ] + ] + ) + } + (abs dead (type) - [ - (con list) - [ [ (con pair) (con data) ] (con data) ] - ] + [ (builtin mkNilPairData) unitval ] ) - } - (abs - dead - (type) - [ (builtin mkNilPairData) (con unit ()) ] - ) - ] - (lam - ds - [ [ Tuple2 k ] v ] + ] (lam - xs - [ List [ [ Tuple2 k ] v ] ] - (abs - dead - (type) - [ - { - [ { { Tuple2_match k } v } ds ] - [ - (con list) - [ [ (con pair) (con data) ] (con data) ] - ] - } - (lam - k - k - (lam - v - v + ds + [ [ Tuple2 k ] v ] + (lam + xs + [ List [ [ Tuple2 k ] v ] ] + (abs + dead + (type) + [ + { + [ { { Tuple2_match k } v } ds ] [ + (con list) + [ + [ (con pair) (con data) ] (con data) + ] + ] + } + (lam + k + k + (lam + v + v [ - { - (builtin mkCons) - [ - [ (con pair) (con data) ] - (con data) - ] - } [ + { + (builtin mkCons) + [ + [ (con pair) (con data) ] + (con data) + ] + } [ - (builtin mkPairData) - [ dToData k ] + [ + (builtin mkPairData) + [ dToData k ] + ] + [ dToData v ] ] - [ dToData v ] ] + [ go xs ] ] - [ go xs ] - ] + ) ) - ) - ] + ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) - ) - (lam - ds - [ + (lam + ds [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - k + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + k + ] + v ] - v - ] - [ (builtin mapData) [ go ds ] ] + [ (builtin mapData) [ go ds ] ] + ) ) ) ) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl Bool (type)) + (datatypebind + (datatype + (tyvardecl Bool (type)) - Bool_match - (vardecl True Bool) (vardecl False Bool) + Bool_match + (vardecl True Bool) (vardecl False Bool) + ) ) - ) - (termbind - (nonstrict) - (vardecl j Bool) - [ [ { (builtin trace) Bool } (con string "Ld") ] False ] - ) - (termbind - (nonstrict) - (vardecl j Bool) - [ [ { (builtin trace) Bool } (con string "L7") ] False ] - ) - (termbind - (nonstrict) - (vardecl j Bool) - [ [ { (builtin trace) Bool } (con string "La") ] False ] - ) - (termbind - (nonstrict) - (vardecl j Bool) - [ [ { (builtin trace) Bool } (con string "Lc") ] False ] - ) - (termbind - (strict) - (vardecl equalsInteger (fun (con integer) (fun (con integer) Bool))) - (lam - x - (con integer) + (termbind + (nonstrict) + (vardecl j Bool) + [ [ { (builtin trace) Bool } (con string "Ld") ] False ] + ) + (termbind + (nonstrict) + (vardecl j Bool) + [ [ { (builtin trace) Bool } (con string "L7") ] False ] + ) + (termbind + (nonstrict) + (vardecl j Bool) + [ [ { (builtin trace) Bool } (con string "La") ] False ] + ) + (termbind + (nonstrict) + (vardecl j Bool) + [ [ { (builtin trace) Bool } (con string "Lc") ] False ] + ) + (termbind + (strict) + (vardecl equalsInteger (fun (con integer) (fun (con integer) Bool))) (lam - y + x (con integer) - [ + (lam + y + (con integer) [ [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsInteger) x ] y ] + [ + { (builtin ifThenElse) Bool } + [ [ (builtin equalsInteger) x ] y ] + ] + True ] - True + False ] - False - ] + ) ) ) - ) - (termbind - (strict) - (vardecl - equalsByteString (fun (con bytestring) (fun (con bytestring) Bool)) - ) - (lam - x - (con bytestring) + (termbind + (strict) + (vardecl + equalsByteString + (fun (con bytestring) (fun (con bytestring) Bool)) + ) (lam - y + x (con bytestring) - [ + (lam + y + (con bytestring) [ [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsByteString) x ] y ] + [ + { (builtin ifThenElse) Bool } + [ [ (builtin equalsByteString) x ] y ] + ] + True ] - True + False ] - False - ] + ) ) ) - ) - (datatypebind - (datatype - (tyvardecl Credential (type)) + (datatypebind + (datatype + (tyvardecl Credential (type)) - Credential_match - (vardecl PubKeyCredential (fun (con bytestring) Credential)) - (vardecl ScriptCredential (fun (con bytestring) Credential)) + Credential_match + (vardecl PubKeyCredential (fun (con bytestring) Credential)) + (vardecl ScriptCredential (fun (con bytestring) Credential)) + ) ) - ) - (datatypebind - (datatype - (tyvardecl StakingCredential (type)) + (datatypebind + (datatype + (tyvardecl StakingCredential (type)) - StakingCredential_match - (vardecl StakingHash (fun Credential StakingCredential)) - (vardecl - StakingPtr - (fun - (con integer) - (fun (con integer) (fun (con integer) StakingCredential)) + StakingCredential_match + (vardecl StakingHash (fun Credential StakingCredential)) + (vardecl + StakingPtr + (fun + (con integer) + (fun (con integer) (fun (con integer) StakingCredential)) + ) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl Maybe (fun (type) (type))) - (tyvardecl a (type)) - Maybe_match - (vardecl Just (fun a [ Maybe a ])) (vardecl Nothing [ Maybe a ]) + (datatypebind + (datatype + (tyvardecl Maybe (fun (type) (type))) + (tyvardecl a (type)) + Maybe_match + (vardecl Just (fun a [ Maybe a ])) (vardecl Nothing [ Maybe a ]) + ) ) - ) - (termbind - (strict) - (vardecl - wc - (fun - Credential + (termbind + (strict) + (vardecl + wc (fun - [ Maybe StakingCredential ] - (fun Credential (fun [ Maybe StakingCredential ] Bool)) + Credential + (fun + [ Maybe StakingCredential ] + (fun Credential (fun [ Maybe StakingCredential ] Bool)) + ) ) ) - ) - (lam - ww - Credential (lam ww - [ Maybe StakingCredential ] + Credential (lam ww - Credential + [ Maybe StakingCredential ] (lam ww - [ Maybe StakingCredential ] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ + Credential + (lam + ww + [ Maybe StakingCredential ] + (let + (nonrec) + (termbind + (nonstrict) + (vardecl j Bool) + { [ - { - [ { Maybe_match StakingCredential } ww ] - (all dead (type) Bool) - } - (lam - a - StakingCredential - (abs - dead - (type) - { - [ + [ + { + [ { Maybe_match StakingCredential } ww ] + (all dead (type) Bool) + } + (lam + a + StakingCredential + (abs + dead + (type) + { [ - { - [ { Maybe_match StakingCredential } ww ] - (all dead (type) Bool) - } - (lam - a - StakingCredential - (abs - dead - (type) + [ + { [ + { Maybe_match StakingCredential } ww + ] + (all dead (type) Bool) + } + (lam + a + StakingCredential + (abs + dead + (type) [ - { - [ StakingCredential_match a ] - Bool - } - (lam - l - Credential - [ + [ + { + [ StakingCredential_match a ] + Bool + } + (lam + l + Credential [ - { - [ - StakingCredential_match - a - ] - Bool - } - (lam - r - Credential - [ + [ + { [ - { - [ - Credential_match l - ] - Bool - } + StakingCredential_match + a + ] + Bool + } + (lam + r + Credential + [ + [ + { + [ + Credential_match + l + ] + Bool + } + (lam + l + (con bytestring) + [ + [ + { + [ + Credential_match + r + ] + Bool + } + (lam + r + (con + bytestring + ) + [ + [ + equalsByteString + l + ] + r + ] + ) + ] + (lam + ipv + (con + bytestring + ) + False + ) + ] + ) + ] (lam - l + a (con bytestring) [ [ @@ -446,380 +520,347 @@ Bool } (lam - r + ipv (con bytestring ) - [ - [ - equalsByteString - l - ] - r - ] + False ) ] (lam - ipv + a (con bytestring) - False - ) - ] - ) - ] - (lam - a - (con bytestring) - [ - [ - { [ - Credential_match - r + [ + equalsByteString + a + ] + a ] - Bool - } - (lam - ipv - (con bytestring) - False ) ] - (lam - a - (con bytestring) - [ - [ - equalsByteString - a - ] - a - ] - ) - ] - ) - ] - ) - ] - (lam - ipv - (con integer) + ) + ] + ) + ] (lam ipv (con integer) (lam - ipv (con integer) False + ipv + (con integer) + (lam + ipv + (con integer) + False + ) ) ) - ) - ] - ) - ] - (lam - a - (con integer) + ] + ) + ] (lam - b + a (con integer) (lam - c + b (con integer) - [ + (lam + c + (con integer) [ - { - [ - StakingCredential_match - a - ] - Bool - } - (lam ipv Credential False) - ] - (lam - a - (con integer) + [ + { + [ + StakingCredential_match + a + ] + Bool + } + (lam + ipv Credential False + ) + ] (lam - b + a (con integer) (lam - c + b (con integer) - { - [ + (lam + c + (con integer) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsInteger + ifThenElse ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + a + ] a ] - a ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsInteger + ifThenElse ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + b + ] b ] - b ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + [ + [ + equalsInteger + c + ] + c + ] ) - } + ] (abs dead (type) - [ - [ - equalsInteger - c - ] - c - ] + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (abs + dead + (type) + False ) ] - (abs - dead - (type) - False + (all + dead (type) dead ) - ] - (all - dead (type) dead - ) - } + } + ) ) ) - ) - ] + ] + ) ) ) - ) - ] + ] + ) ) - ) + ] + (abs dead (type) False) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ - { - [ { Maybe_match StakingCredential } ww ] - (all dead (type) Bool) - } - (lam - ipv - StakingCredential - (abs dead (type) False) - ) + [ + { + [ { Maybe_match StakingCredential } ww ] + (all dead (type) Bool) + } + (lam + ipv + StakingCredential + (abs dead (type) False) + ) + ] + (abs dead (type) True) ] - (abs dead (type) True) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - [ + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) [ - { [ Credential_match ww ] Bool } - (lam - l - (con bytestring) - [ + [ + { [ Credential_match ww ] Bool } + (lam + l + (con bytestring) [ - { [ Credential_match ww ] Bool } - (lam - r - (con bytestring) - { - [ + [ + { [ Credential_match ww ] Bool } + (lam + r + (con bytestring) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { (builtin ifThenElse) Bool } [ + { (builtin ifThenElse) Bool } [ - (builtin equalsByteString) l + [ + (builtin equalsByteString) + l + ] + r ] - r ] + True ] - True + False ] - False ] - ] - (all dead (type) Bool) - } - (abs dead (type) j) + (all dead (type) Bool) + } + (abs dead (type) j) + ] + (abs dead (type) False) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ] + (lam ipv (con bytestring) False) ] - (lam ipv (con bytestring) False) - ] - ) - ] - (lam - a - (con bytestring) - [ + ) + ] + (lam + a + (con bytestring) [ - { [ Credential_match ww ] Bool } - (lam ipv (con bytestring) False) - ] - (lam - a - (con bytestring) - { - [ + [ + { [ Credential_match ww ] Bool } + (lam ipv (con bytestring) False) + ] + (lam + a + (con bytestring) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { (builtin ifThenElse) Bool } [ - [ (builtin equalsByteString) a ] a + { (builtin ifThenElse) Bool } + [ + [ (builtin equalsByteString) a ] + a + ] ] + True ] - True + False ] - False ] - ] - (all dead (type) Bool) - } - (abs dead (type) j) + (all dead (type) Bool) + } + (abs dead (type) j) + ] + (abs dead (type) False) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) - ] - ) - ] - ) - ) - ) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl Ordering (type)) + (all dead (type) dead) + } + ) + ] + ) + ] + ) + ) + ) + ) + ) + ) + (datatypebind + (datatype + (tyvardecl Ordering (type)) - Ordering_match - (vardecl EQ Ordering) (vardecl GT Ordering) (vardecl LT Ordering) + Ordering_match + (vardecl EQ Ordering) (vardecl GT Ordering) (vardecl LT Ordering) + ) ) - ) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam ds (all a (type) a) (error Ordering)) - ) - (datatypebind - (datatype - (tyvardecl Ord (fun (type) (type))) - (tyvardecl a (type)) - Ord_match - (vardecl - CConsOrd - (fun - [ (lam a (type) (fun a (fun a Bool))) a ] + (datatypebind + (datatype + (tyvardecl Ord (fun (type) (type))) + (tyvardecl a (type)) + Ord_match + (vardecl + CConsOrd (fun - (fun a (fun a Ordering)) + [ (lam a (type) (fun a (fun a Bool))) a ] (fun - (fun a (fun a Bool)) + (fun a (fun a Ordering)) (fun (fun a (fun a Bool)) (fun @@ -827,7 +868,11 @@ (fun (fun a (fun a Bool)) (fun - (fun a (fun a a)) (fun (fun a (fun a a)) [ Ord a ]) + (fun a (fun a Bool)) + (fun + (fun a (fun a a)) + (fun (fun a (fun a a)) [ Ord a ]) + ) ) ) ) @@ -837,29 +882,25 @@ ) ) ) - ) - (termbind - (strict) - (vardecl - compare (all a (type) (fun [ Ord a ] (fun a (fun a Ordering)))) - ) - (abs - a - (type) - (lam - v - [ Ord a ] - [ - { [ { Ord_match a } v ] (fun a (fun a Ordering)) } - (lam - v - [ (lam a (type) (fun a (fun a Bool))) a ] + (termbind + (strict) + (vardecl + compare (all a (type) (fun [ Ord a ] (fun a (fun a Ordering)))) + ) + (abs + a + (type) + (lam + v + [ Ord a ] + [ + { [ { Ord_match a } v ] (fun a (fun a Ordering)) } (lam v - (fun a (fun a Ordering)) + [ (lam a (type) (fun a (fun a Bool))) a ] (lam v - (fun a (fun a Bool)) + (fun a (fun a Ordering)) (lam v (fun a (fun a Bool)) @@ -870,1015 +911,966 @@ v (fun a (fun a Bool)) (lam - v (fun a (fun a a)) (lam v (fun a (fun a a)) v) + v + (fun a (fun a Bool)) + (lam + v (fun a (fun a a)) (lam v (fun a (fun a a)) v) + ) ) ) ) ) ) ) - ) - ] + ] + ) ) ) - ) - (datatypebind - (datatype - (tyvardecl Extended (fun (type) (type))) - (tyvardecl a (type)) - Extended_match - (vardecl Finite (fun a [ Extended a ])) - (vardecl NegInf [ Extended a ]) - (vardecl PosInf [ Extended a ]) + (datatypebind + (datatype + (tyvardecl Extended (fun (type) (type))) + (tyvardecl a (type)) + Extended_match + (vardecl Finite (fun a [ Extended a ])) + (vardecl NegInf [ Extended a ]) + (vardecl PosInf [ Extended a ]) + ) ) - ) - (termbind - (strict) - (vardecl - hull_ccompare - (all + (termbind + (strict) + (vardecl + hull_ccompare + (all + a + (type) + (fun + [ Ord a ] (fun [ Extended a ] (fun [ Extended a ] Ordering)) + ) + ) + ) + (abs a (type) - (fun [ Ord a ] (fun [ Extended a ] (fun [ Extended a ] Ordering))) - ) - ) - (abs - a - (type) - (lam - dOrd - [ Ord a ] (lam - ds - [ Extended a ] + dOrd + [ Ord a ] (lam ds [ Extended a ] - (let - (nonrec) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam - ds - (all a (type) a) - { - [ + (lam + ds + [ Extended a ] + (let + (nonrec) + (termbind + (strict) + (vardecl fail (fun (con unit) Ordering)) + (lam + ds + (con unit) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { [ [ - { - [ - { Extended_match a } - ds - ] - (all - dead (type) Ordering - ) - } - (lam - r - a - (abs - dead - (type) + [ + { [ + { + Extended_match a + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + a + (abs + dead + (type) [ [ - { compare a } - dOrd + [ + { + compare a + } + dOrd + ] + l ] - l + r ] - r - ] + ) ) + ] + (abs + dead + (type) + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) + ] + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) GT) ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { [ [ - { - [ - { Extended_match a } ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) + [ + { [ + { Extended_match a } + ds + ] + (all + dead (type) Ordering + ) + } + (lam + r + a + (abs + dead + (type) [ [ - { compare a } dOrd + [ + { compare a } + dOrd + ] + l ] - l + r ] - r - ] + ) ) + ] + (abs + dead + (type) + (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) + ] + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) GT) ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ] + (abs dead (type) LT) ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam - ds - (all a (type) a) - { - [ + (termbind + (strict) + (vardecl fail (fun (con unit) Ordering)) + (lam + ds + (con unit) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { [ [ - { - [ - { Extended_match a } - ds - ] - (all - dead (type) Ordering - ) - } - (lam - r - a - (abs - dead - (type) + [ + { [ + { + Extended_match a + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + a + (abs + dead + (type) [ [ - { compare a } - dOrd + [ + { + compare a + } + dOrd + ] + l ] - l + r ] - r - ] + ) ) + ] + (abs + dead + (type) + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) + ] + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) GT) ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { [ [ - { - [ - { Extended_match a } ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) + [ + { [ + { Extended_match a } + ds + ] + (all + dead (type) Ordering + ) + } + (lam + r + a + (abs + dead + (type) [ [ - { compare a } dOrd + [ + { compare a } + dOrd + ] + l ] - l + r ] - r - ] + ) ) + ] + (abs + dead + (type) + (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) + ] + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) GT) ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ] + (abs dead (type) LT) ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam - ds - (all a (type) a) - { - [ + (termbind + (strict) + (vardecl fail (fun (con unit) Ordering)) + (lam + ds + (con unit) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { [ [ - { - [ - { Extended_match a } - ds - ] - (all - dead (type) Ordering - ) - } - (lam - r - a - (abs - dead - (type) + [ + { [ + { + Extended_match a + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + a + (abs + dead + (type) [ [ - { compare a } - dOrd + [ + { + compare a + } + dOrd + ] + l ] - l + r ] - r - ] + ) ) + ] + (abs + dead + (type) + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) + ] + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) GT) ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { [ [ - { - [ - { Extended_match a } ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) + [ + { [ + { Extended_match a } + ds + ] + (all + dead (type) Ordering + ) + } + (lam + r + a + (abs + dead + (type) [ [ - { compare a } dOrd + [ + { compare a } + dOrd + ] + l ] - l + r ] - r - ] + ) ) + ] + (abs + dead + (type) + (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) + ] + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) GT) ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ] + (abs dead (type) LT) ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam - ds - (all a (type) a) - { - [ + (termbind + (strict) + (vardecl fail (fun (con unit) Ordering)) + (lam + ds + (con unit) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ - [ - [ - { - [ - { Extended_match a } - ds - ] - (all - dead (type) Ordering - ) - } - (lam - r - a - (abs - dead - (type) + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { + [ + [ + [ + { [ + { + Extended_match a + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + a + (abs + dead + (type) [ [ - { compare a } - dOrd + [ + { + compare a + } + dOrd + ] + l ] - l + r ] - r - ] + ) ) + ] + (abs + dead + (type) + (error Ordering) ) ] (abs dead (type) - [ - fail - (abs - e (type) (error e) - ) - ] + (error Ordering) ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) + ] + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) GT) ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - l - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + l + a + (abs + dead + (type) + { [ [ - { - [ - { Extended_match a } ds - ] - (all dead (type) Ordering) - } - (lam - r - a - (abs - dead - (type) + [ + { [ + { Extended_match a } + ds + ] + (all + dead (type) Ordering + ) + } + (lam + r + a + (abs + dead + (type) [ [ - { compare a } dOrd + [ + { compare a } + dOrd + ] + l ] - l + r ] - r - ] + ) ) + ] + (abs + dead + (type) + (error Ordering) ) ] (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + dead (type) (error Ordering) ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) + ] + (abs dead (type) (error Ordering)) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) GT) ] - (abs dead (type) GT) - ] - (all dead (type) dead) - } - ) + (all dead (type) dead) + } + ) + ] + (abs dead (type) LT) ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - { - [ + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - { - [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + { [ [ - { - [ - { Extended_match a } ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) + [ + { [ - fail - (abs - e (type) (error e) - ) + { Extended_match a } + ds ] + (all + dead (type) Ordering + ) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ fail (con unit ()) ] + ) ) + ] + (abs + dead + (type) + [ fail (con unit ()) ] ) ] (abs dead (type) - [ - fail - (abs e (type) (error e)) - ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { - Extended_match a - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - a - (abs - dead - (type) + [ + { [ - fail - (abs - e - (type) - (error e) - ) + { + Extended_match + a + } + ds ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ + fail + (con unit ()) + ] + ) ) + ] + (abs + dead + (type) + [ + fail (con unit ()) + ] ) ] - (abs - dead - (type) - [ - fail - (abs - e (type) (error e) - ) - ] - ) + (abs dead (type) EQ) ] - (abs dead (type) EQ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) ) - ) + ] + (abs dead (type) GT) ] - (abs dead (type) GT) - ] - (abs - dead - (type) - { - [ + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ fail (con unit ()) ] + ) ) + ] + (abs + dead + (type) + [ fail (con unit ()) ] ) ] (abs dead (type) - [ fail (abs e (type) (error e)) ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { Extended_match a } ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) + [ + { [ - fail - (abs - e (type) (error e) - ) + { Extended_match a } + ds ] + (all + dead (type) Ordering + ) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ fail (con unit ()) ] + ) ) + ] + (abs + dead + (type) + [ fail (con unit ()) ] ) ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] - ) + (abs dead (type) EQ) ] - (abs dead (type) EQ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) } - ) + (lam default_arg0 a (abs dead (type) LT)) + ] + (abs dead (type) EQ) ] - (all dead (type) dead) - } - ) + (abs dead (type) LT) + ] + (all dead (type) dead) + } ) ] (abs @@ -1892,704 +1884,703 @@ [ { Extended_match a } ds ] (all dead (type) Ordering) } - (lam default_arg0 a (abs dead (type) LT)) - ] - (abs dead (type) EQ) - ] - (abs dead (type) LT) - ] - (all dead (type) dead) - } - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - { - [ + (lam + default_arg0 + a + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ fail (con unit ()) ] + ) ) + ] + (abs + dead + (type) + [ fail (con unit ()) ] ) ] (abs dead (type) - [ fail (abs e (type) (error e)) ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { Extended_match a } ds - ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) + [ + { [ - fail - (abs - e (type) (error e) - ) + { Extended_match a } + ds ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) + (all + dead (type) Ordering + ) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ fail (con unit ()) ] + ) + ) ] - ) + (abs + dead + (type) + [ fail (con unit ()) ] + ) + ] + (abs dead (type) EQ) ] - (abs dead (type) EQ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) ) - ) + ] + (abs dead (type) GT) ] - (abs dead (type) GT) - ] - (abs - dead - (type) - { - [ + (abs + dead + (type) + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead (type) [ fail (con unit ()) ] + ) ) - ) + ] + (abs dead (type) [ fail (con unit ()) ]) ] (abs dead (type) - [ fail (abs e (type) (error e)) ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ { Extended_match a } ds ] - (all dead (type) Ordering) - } - (lam - default_arg0 - a - (abs - dead - (type) - [ - fail - (abs e (type) (error e)) - ] + [ + { + [ { Extended_match a } ds ] + (all dead (type) Ordering) + } + (lam + default_arg0 + a + (abs + dead + (type) + [ fail (con unit ()) ] + ) ) + ] + (abs + dead + (type) + [ fail (con unit ()) ] ) ] - (abs - dead - (type) - [ fail (abs e (type) (error e)) ] - ) + (abs dead (type) EQ) ] - (abs dead (type) EQ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) + ] + (all dead (type) dead) + } + ) ) ) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl UpperBound (fun (type) (type))) - (tyvardecl a (type)) - UpperBound_match - (vardecl - UpperBound (fun [ Extended a ] (fun Bool [ UpperBound a ])) + (datatypebind + (datatype + (tyvardecl UpperBound (fun (type) (type))) + (tyvardecl a (type)) + UpperBound_match + (vardecl + UpperBound (fun [ Extended a ] (fun Bool [ UpperBound a ])) + ) ) ) - ) - (termbind - (strict) - (vardecl - fOrdUpperBound0_c - (all + (termbind + (strict) + (vardecl + fOrdUpperBound0_c + (all + a + (type) + (fun + [ Ord a ] (fun [ UpperBound a ] (fun [ UpperBound a ] Bool)) + ) + ) + ) + (abs a (type) - (fun [ Ord a ] (fun [ UpperBound a ] (fun [ UpperBound a ] Bool))) - ) - ) - (abs - a - (type) - (lam - w - [ Ord a ] (lam w - [ UpperBound a ] + [ Ord a ] (lam w [ UpperBound a ] - [ - { [ { UpperBound_match a } w ] Bool } - (lam - ww - [ Extended a ] + (lam + w + [ UpperBound a ] + [ + { [ { UpperBound_match a } w ] Bool } (lam ww - Bool - [ - { [ { UpperBound_match a } w ] Bool } - (lam - ww - [ Extended a ] + [ Extended a ] + (lam + ww + Bool + [ + { [ { UpperBound_match a } w ] Bool } (lam ww - Bool - { - [ + [ Extended a ] + (lam + ww + Bool + { [ [ - { - [ - Ordering_match - [ - [ [ { hull_ccompare a } w ] ww ] ww - ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) + [ { [ + Ordering_match [ - { - [ Bool_match ww ] - (all dead (type) Bool) - } - (abs dead (type) ww) + [ [ { hull_ccompare a } w ] ww ] + ww ] - (abs dead (type) True) ] - (all dead (type) dead) + (all dead (type) Bool) } - ) + (abs + dead + (type) + { + [ + [ + { + [ Bool_match ww ] + (all dead (type) Bool) + } + (abs dead (type) ww) + ] + (abs dead (type) True) + ] + (all dead (type) dead) + } + ) + ] + (abs dead (type) False) ] - (abs dead (type) False) + (abs dead (type) True) ] - (abs dead (type) True) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - ] + ] + ) ) - ) - ] + ] + ) ) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl Monoid (fun (type) (type))) - (tyvardecl a (type)) - Monoid_match - (vardecl - CConsMonoid - (fun [ (lam a (type) (fun a (fun a a))) a ] (fun a [ Monoid a ])) + (datatypebind + (datatype + (tyvardecl Monoid (fun (type) (type))) + (tyvardecl a (type)) + Monoid_match + (vardecl + CConsMonoid + (fun + [ (lam a (type) (fun a (fun a a))) a ] (fun a [ Monoid a ]) + ) + ) ) ) - ) - (termbind - (strict) - (vardecl - fMonoidFirst - (all a (type) [ Monoid [ (lam a (type) [ Maybe a ]) a ] ]) - ) - (abs - a - (type) - [ + (termbind + (strict) + (vardecl + fMonoidFirst + (all a (type) [ Monoid [ (lam a (type) [ Maybe a ]) a ] ]) + ) + (abs + a + (type) [ - { CConsMonoid [ (lam a (type) [ Maybe a ]) a ] } - (lam - ds - [ (lam a (type) [ Maybe a ]) a ] + [ + { CConsMonoid [ (lam a (type) [ Maybe a ]) a ] } (lam - b + ds [ (lam a (type) [ Maybe a ]) a ] - { - [ + (lam + b + [ (lam a (type) [ Maybe a ]) a ] + { [ - { - [ { Maybe_match a } ds ] - (all dead (type) [ (lam a (type) [ Maybe a ]) a ]) - } - (lam ipv a (abs dead (type) ds)) + [ + { + [ { Maybe_match a } ds ] + (all dead (type) [ (lam a (type) [ Maybe a ]) a ]) + } + (lam ipv a (abs dead (type) ds)) + ] + (abs dead (type) b) ] - (abs dead (type) b) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) + ] + { Nothing a } ] - { Nothing a } - ] - ) - ) - (termbind - (strict) - (vardecl - p1Monoid - (all - a (type) (fun [ Monoid a ] [ (lam a (type) (fun a (fun a a))) a ]) ) ) - (abs - a - (type) - (lam - v - [ Monoid a ] - [ - { - [ { Monoid_match a } v ] - [ (lam a (type) (fun a (fun a a))) a ] - } - (lam v [ (lam a (type) (fun a (fun a a))) a ] (lam v a v)) - ] - ) - ) - ) - (termbind - (strict) - (vardecl mempty (all a (type) (fun [ Monoid a ] a))) - (abs - a - (type) - (lam - v - [ Monoid a ] - [ - { [ { Monoid_match a } v ] a } - (lam v [ (lam a (type) (fun a (fun a a))) a ] (lam v a v)) - ] - ) - ) - ) - (let - (rec) (termbind (strict) (vardecl - fFoldableNil_cfoldMap + p1Monoid (all - m + a (type) - (all - a (type) (fun [ Monoid m ] (fun (fun a m) (fun [ List a ] m))) - ) + (fun [ Monoid a ] [ (lam a (type) (fun a (fun a a))) a ]) + ) + ) + (abs + a + (type) + (lam + v + [ Monoid a ] + [ + { + [ { Monoid_match a } v ] + [ (lam a (type) (fun a (fun a a))) a ] + } + (lam v [ (lam a (type) (fun a (fun a a))) a ] (lam v a v)) + ] ) ) + ) + (termbind + (strict) + (vardecl mempty (all a (type) (fun [ Monoid a ] a))) (abs - m + a (type) + (lam + v + [ Monoid a ] + [ + { [ { Monoid_match a } v ] a } + (lam v [ (lam a (type) (fun a (fun a a))) a ] (lam v a v)) + ] + ) + ) + ) + (let + (rec) + (termbind + (strict) + (vardecl + fFoldableNil_cfoldMap + (all + m + (type) + (all + a + (type) + (fun [ Monoid m ] (fun (fun a m) (fun [ List a ] m))) + ) + ) + ) (abs - a + m (type) - (lam - dMonoid - [ Monoid m ] + (abs + a + (type) (lam - ds - (fun a m) + dMonoid + [ Monoid m ] (lam ds - [ List a ] - { - [ + (fun a m) + (lam + ds + [ List a ] + { [ - { [ { Nil_match a } ds ] (all dead (type) m) } - (abs dead (type) [ { mempty m } dMonoid ]) - ] - (lam - x - a + [ + { [ { Nil_match a } ds ] (all dead (type) m) } + (abs dead (type) [ { mempty m } dMonoid ]) + ] (lam - xs - [ List a ] - (abs - dead - (type) - [ - [ [ { p1Monoid m } dMonoid ] [ ds x ] ] + x + a + (lam + xs + [ List a ] + (abs + dead + (type) [ + [ [ { p1Monoid m } dMonoid ] [ ds x ] ] [ [ - { { fFoldableNil_cfoldMap m } a } - dMonoid + [ + { { fFoldableNil_cfoldMap m } a } + dMonoid + ] + ds ] - ds + xs ] - xs ] - ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) ) ) ) ) - ) - (let - (nonrec) - (termbind - (strict) - (vardecl - wfindDatumHash - (fun - (con data) + (let + (nonrec) + (termbind + (strict) + (vardecl + wfindDatumHash (fun - [ List [ [ Tuple2 (con bytestring) ] (con data) ] ] - [ Maybe (con bytestring) ] + (con data) + (fun + [ List [ [ Tuple2 (con bytestring) ] (con data) ] ] + [ Maybe (con bytestring) ] + ) ) ) - ) - (lam - w - (con data) (lam - ww - [ List [ [ Tuple2 (con bytestring) ] (con data) ] ] - { - [ + w + (con data) + (lam + ww + [ List [ [ Tuple2 (con bytestring) ] (con data) ] ] + { [ - { - [ - { - Maybe_match - [ [ Tuple2 (con bytestring) ] (con data) ] - } + [ + { [ + { + Maybe_match + [ [ Tuple2 (con bytestring) ] (con data) ] + } [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam a (type) [ Maybe a ]) + { + fFoldableNil_cfoldMap [ - [ Tuple2 (con bytestring) ] (con data) + (lam a (type) [ Maybe a ]) + [ + [ Tuple2 (con bytestring) ] + (con data) + ] ] - ] + } + [ [ 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 + fMonoidFirst + [ [ Tuple2 (con bytestring) ] (con data) ] + } + ] + (lam + x + [ [ Tuple2 (con bytestring) ] (con data) ] + [ + { [ - [ Tuple2 (con bytestring) ] (con data) + { + { Tuple2_match (con bytestring) } + (con data) + } + x ] - ] - } - (lam - ds - (con bytestring) + [ + Maybe + [ + [ Tuple2 (con bytestring) ] + (con data) + ] + ] + } (lam ds - (con data) - { - [ + (con bytestring) + (lam + ds + (con data) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin ifThenElse) - Bool - } [ + { + (builtin ifThenElse) + Bool + } [ - (builtin equalsData) - ds + [ + (builtin + equalsData + ) + ds + ] + w ] - w ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + [ + Maybe + [ + [ + Tuple2 + (con bytestring) + ] + (con data) + ] + ] + ) + } + (abs dead (type) [ - Maybe - [ + { + Just [ - Tuple2 (con bytestring) + [ + Tuple2 + (con bytestring) + ] + (con data) ] - (con data) - ] + } + x ] ) - } + ] (abs dead (type) - [ - { - Just - [ - [ - Tuple2 (con bytestring) - ] - (con data) - ] - } - x - ] + { + Nothing + [ + [ Tuple2 (con bytestring) ] + (con data) + ] + } ) ] - (abs - dead - (type) - { - Nothing - [ - [ Tuple2 (con bytestring) ] - (con data) - ] - } - ) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) - ] - ) + ] + ) + ] + ww ] - ww ] - ] - (all dead (type) [ Maybe (con bytestring) ]) - } - (lam - a - [ [ Tuple2 (con bytestring) ] (con data) ] - (abs - dead - (type) - [ - { Just (con bytestring) } + (all dead (type) [ Maybe (con bytestring) ]) + } + (lam + a + [ [ Tuple2 (con bytestring) ] (con data) ] + (abs + dead + (type) [ - { - [ - { - { Tuple2_match (con bytestring) } - (con data) - } - a - ] - (con bytestring) - } - (lam a (con bytestring) (lam ds (con data) a)) + { Just (con bytestring) } + [ + { + [ + { + { Tuple2_match (con bytestring) } + (con data) + } + a + ] + (con bytestring) + } + (lam a (con bytestring) (lam ds (con data) a)) + ] ] - ] + ) ) - ) + ] + (abs dead (type) { Nothing (con bytestring) }) ] - (abs dead (type) { Nothing (con bytestring) }) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ) - ) - (let - (rec) (termbind (strict) - (vardecl - fFunctorNil_cfmap - (all - a - (type) - (all b (type) (fun (fun a b) (fun [ List a ] [ List b ]))) + (vardecl minAdaTxOut (con integer)) + (con integer 2000000) + ) + (termbind + (strict) + (vardecl fAdditiveGroupValue (con integer)) + (con integer -1) + ) + (let + (rec) + (termbind + (strict) + (vardecl + fFunctorNil_cfmap + (all + a + (type) + (all b (type) (fun (fun a b) (fun [ List a ] [ List b ]))) + ) ) - ) - (abs - a - (type) (abs - b + a (type) - (lam - f - (fun a b) + (abs + b + (type) (lam - l - [ List a ] - { - [ + f + (fun a b) + (lam + l + [ List a ] + { [ - { - [ { Nil_match a } l ] - (all dead (type) [ List b ]) - } - (abs dead (type) { Nil b }) - ] - (lam - x - a + [ + { + [ { Nil_match a } l ] + (all dead (type) [ List b ]) + } + (abs dead (type) { Nil b }) + ] (lam - xs - [ List a ] - (abs - dead - (type) - [ - [ { Cons b } [ f x ] ] - [ [ { { fFunctorNil_cfmap a } b } f ] xs ] - ] + x + a + (lam + xs + [ List a ] + (abs + dead + (type) + [ + [ { Cons b } [ f x ] ] + [ [ { { fFunctorNil_cfmap a } b } f ] xs ] + ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) ) ) ) - ) - (let - (nonrec) - (termbind - (strict) - (vardecl - fAdditiveGroupValue_cscale - (fun - (con integer) + (let + (nonrec) + (termbind + (strict) + (vardecl + fAdditiveGroupValue_cscale (fun - [ + (con integer) + (fun [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] ] [ [ @@ -2600,9 +2591,26 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] ] - ] + ) + ) + ) + (lam + i + (con integer) + (lam + ds [ [ (lam @@ -2624,38 +2632,28 @@ (con integer) ] ] - ) - ) - ) - (lam - i - (con integer) - (lam - ds - [ - [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] [ [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - [ - [ - { { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + } [ [ Tuple2 (con bytestring) ] [ @@ -2671,42 +2669,47 @@ ] ] } - [ - [ Tuple2 (con bytestring) ] + (lam + ds [ + [ Tuple2 (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) ] - (con integer) ] - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - [ - { - [ - { - { Tuple2_match (con bytestring) } + { + [ + { + { Tuple2_match (con bytestring) } + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + } + ds + ] + [ + [ Tuple2 (con bytestring) ] [ [ (lam @@ -2720,151 +2723,169 @@ ] (con integer) ] - } - ds - ] - [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) ] - ] - } - (lam - c - (con bytestring) + } (lam - a - [ + c + (con bytestring) + (lam + a [ - (lam - k - (type) + [ (lam - v (type) [ List [ [ Tuple2 k ] v ] ] + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) - ] - [ [ - { - { Tuple2 (con bytestring) } - [ + [ + { + { Tuple2 (con bytestring) } [ - (lam - k - (type) + [ (lam - v + k (type) - [ List [ [ Tuple2 k ] v ] ] + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) - ] - } - c - ] - [ + } + c + ] [ - { + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ Tuple2 (con bytestring) ] + (con integer) + ] + } [ [ Tuple2 (con bytestring) ] (con integer) ] } - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - [ - { - [ - { + (lam + ds + [ + [ Tuple2 (con bytestring) ] + (con integer) + ] + [ + { + [ { - Tuple2_match - (con bytestring) + { + Tuple2_match + (con bytestring) + } + (con integer) } + ds + ] + [ + [ Tuple2 (con bytestring) ] (con integer) - } - ds - ] - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - } - (lam - c - (con bytestring) + ] + } (lam - a - (con integer) - [ + c + (con bytestring) + (lam + a + (con integer) [ - { + [ { - Tuple2 (con bytestring) + { + Tuple2 + (con bytestring) + } + (con integer) } - (con integer) - } - c - ] - [ + c + ] [ - (builtin multiplyInteger) - i + [ + (builtin + multiplyInteger + ) + i + ] + a ] - a ] - ] + ) ) - ) - ] - ) + ] + ) + ] + a ] - a ] - ] + ) ) + ] + ) + ] + ds + ] + ) + ) + ) + (termbind + (strict) + (vardecl emptyByteString (con bytestring)) + (con bytestring #) + ) + (termbind + (strict) + (vardecl + valueOf + (fun + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) ) + (con bytestring) ] - ) + (con integer) + ] ] - ds - ] + (fun + (con bytestring) (fun (con bytestring) (con integer)) + ) + ) ) - ) - ) - (termbind - (strict) - (vardecl - valueOf - (fun + (lam + ds [ [ (lam @@ -2884,148 +2905,12 @@ (con integer) ] ] - (fun - (con bytestring) (fun (con bytestring) (con integer)) - ) - ) - ) - (lam - ds - [ - [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - (lam - cur - (con bytestring) (lam - tn + cur (con bytestring) - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun - [ - List - [ [ Tuple2 (con bytestring) ] (con integer) ] - ] - (con integer) - ) - ) - (lam - ds - [ - List - [ [ Tuple2 (con bytestring) ] (con integer) ] - ] - [ - [ - { - [ - { - Nil_match - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - } - ds - ] - (con integer) - } - (con integer 0) - ] - (lam - ds - [ [ Tuple2 (con bytestring) ] (con integer) ] - (lam - xs - [ - List - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - ] - [ - { - [ - { - { Tuple2_match (con bytestring) } - (con integer) - } - ds - ] - (con integer) - } - (lam - c - (con bytestring) - (lam - i - (con integer) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin ifThenElse) - Bool - } - [ - [ - (builtin - equalsByteString - ) - c - ] - tn - ] - ] - True - ] - False - ] - ] - (all - dead (type) (con integer) - ) - } - (abs dead (type) i) - ] - (abs dead (type) [ go xs ]) - ] - (all dead (type) dead) - } - ) - ) - ] - ) - ) - ] - ) - ) + (lam + tn + (con bytestring) (let (rec) (termbind @@ -3036,22 +2921,7 @@ [ List [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] + [ Tuple2 (con bytestring) ] (con integer) ] ] (con integer) @@ -3061,22 +2931,7 @@ ds [ List - [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] + [ [ Tuple2 (con bytestring) ] (con integer) ] ] [ [ @@ -3086,21 +2941,7 @@ Nil_match [ [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] + (con integer) ] } ds @@ -3112,22 +2953,7 @@ (lam ds [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] + [ Tuple2 (con bytestring) ] (con integer) ] (lam xs @@ -3135,21 +2961,7 @@ List [ [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] + (con integer) ] ] [ @@ -3157,23 +2969,7 @@ [ { { Tuple2_match (con bytestring) } - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List [ [ Tuple2 k ] v ] - ] - ) - ) - (con bytestring) - ] - (con integer) - ] + (con integer) } ds ] @@ -3184,21 +2980,7 @@ (con bytestring) (lam i - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] + (con integer) { [ [ @@ -3221,7 +3003,7 @@ ) c ] - cur + tn ] ] True @@ -3233,7 +3015,7 @@ dead (type) (con integer) ) } - (abs dead (type) [ go i ]) + (abs dead (type) i) ] (abs dead (type) [ go xs ]) ] @@ -3247,229 +3029,452 @@ ] ) ) - [ go ds ] - ) - ) - ) - ) - ) - ) - (termbind - (strict) - (vardecl - addInteger - (fun (con integer) (fun (con integer) (con integer))) - ) - (lam - x - (con integer) - (lam y (con integer) [ [ (builtin addInteger) x ] y ]) - ) - ) - (datatypebind - (datatype - (tyvardecl AdditiveMonoid (fun (type) (type))) - (tyvardecl a (type)) - AdditiveMonoid_match - (vardecl - CConsAdditiveMonoid - (fun - [ (lam a (type) (fun a (fun a a))) a ] - (fun a [ AdditiveMonoid a ]) - ) - ) - ) - ) - (termbind - (nonstrict) - (vardecl fAdditiveMonoidBool [ AdditiveMonoid Bool ]) - [ - [ - { CConsAdditiveMonoid Bool } - (lam - l - Bool - (lam - r - Bool - { - [ - [ - { [ Bool_match l ] (all dead (type) Bool) } - (abs dead (type) True) - ] - (abs dead (type) r) - ] - (all dead (type) dead) - } + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun + [ + List + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + ] + (con integer) + ) + ) + (lam + ds + [ + List + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + ] + [ + [ + { + [ + { + Nil_match + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + } + ds + ] + (con integer) + } + (con integer 0) + ] + (lam + ds + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + (lam + xs + [ + List + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + ] + [ + { + [ + { + { + Tuple2_match (con bytestring) + } + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + } + ds + ] + (con integer) + } + (lam + c + (con bytestring) + (lam + i + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + c + ] + cur + ] + ] + True + ] + False + ] + ] + (all + dead + (type) + (con integer) + ) + } + (abs dead (type) [ go i ]) + ] + (abs dead (type) [ go xs ]) + ] + (all dead (type) dead) + } + ) + ) + ] + ) + ) + ] + ) + ) + [ go ds ] + ) + ) ) ) - ] - False - ] - ) - (termbind - (strict) - (vardecl - fMonoidSum - (all - a - (type) - (fun - [ AdditiveMonoid a ] [ Monoid [ (lam a (type) a) a ] ] - ) ) ) - (abs - a - (type) + (termbind + (strict) + (vardecl + addInteger + (fun (con integer) (fun (con integer) (con integer))) + ) (lam - v - [ AdditiveMonoid a ] + x + (con integer) + (lam y (con integer) [ [ (builtin addInteger) x ] y ]) + ) + ) + (datatypebind + (datatype + (tyvardecl AdditiveMonoid (fun (type) (type))) + (tyvardecl a (type)) + AdditiveMonoid_match + (vardecl + CConsAdditiveMonoid + (fun + [ (lam a (type) (fun a (fun a a))) a ] + (fun a [ AdditiveMonoid a ]) + ) + ) + ) + ) + (termbind + (nonstrict) + (vardecl fAdditiveMonoidBool [ AdditiveMonoid Bool ]) + [ [ - [ - { CConsMonoid [ (lam a (type) a) a ] } + { CConsAdditiveMonoid Bool } + (lam + l + Bool (lam - eta - [ (lam a (type) a) a ] - (lam - eta - [ (lam a (type) a) a ] + r + Bool + { [ [ - [ - { - [ { AdditiveMonoid_match a } v ] - [ (lam a (type) (fun a (fun a a))) a ] - } - (lam - v - [ (lam a (type) (fun a (fun a a))) a ] - (lam v a v) - ) - ] - eta + { [ Bool_match l ] (all dead (type) Bool) } + (abs dead (type) True) ] - eta + (abs dead (type) r) ] - ) - ) - ] - [ - { [ { AdditiveMonoid_match a } v ] a } - (lam - v [ (lam a (type) (fun a (fun a a))) a ] (lam v a v) + (all dead (type) dead) + } ) - ] + ) ] - ) - ) - ) - (datatypebind - (datatype - (tyvardecl These (fun (type) (fun (type) (type)))) - (tyvardecl a (type)) (tyvardecl b (type)) - These_match - (vardecl That (fun b [ [ These a ] b ])) - (vardecl These (fun a (fun b [ [ These a ] b ]))) - (vardecl This (fun a [ [ These a ] b ])) + False + ] ) - ) - (let - (rec) (termbind (strict) (vardecl - foldr + fMonoidSum (all a (type) - (all - b - (type) - (fun (fun a (fun b b)) (fun b (fun [ List a ] b))) + (fun + [ AdditiveMonoid a ] [ Monoid [ (lam a (type) a) a ] ] ) ) ) (abs a (type) - (abs - b - (type) - (lam - f - (fun a (fun b b)) - (lam - acc - b + (lam + v + [ AdditiveMonoid a ] + [ + [ + { CConsMonoid [ (lam a (type) a) a ] } (lam - l - [ List a ] - { + eta + [ (lam a (type) a) a ] + (lam + eta + [ (lam a (type) a) a ] [ [ - { - [ { Nil_match a } l ] (all dead (type) b) - } - (abs dead (type) acc) - ] - (lam - x - a - (lam - xs - [ List a ] - (abs - dead - (type) - [ - [ f x ] - [ [ [ { { foldr a } b } f ] acc ] xs ] - ] + [ + { + [ { AdditiveMonoid_match a } v ] + [ (lam a (type) (fun a (fun a a))) a ] + } + (lam + v + [ (lam a (type) (fun a (fun a a))) a ] + (lam v a v) ) - ) - ) + ] + eta + ] + eta ] - (all dead (type) dead) - } + ) ) - ) - ) + ] + [ + { [ { AdditiveMonoid_match a } v ] a } + (lam + v + [ (lam a (type) (fun a (fun a a))) a ] + (lam v a v) + ) + ] + ] ) ) ) + (datatypebind + (datatype + (tyvardecl These (fun (type) (fun (type) (type)))) + (tyvardecl a (type)) (tyvardecl b (type)) + These_match + (vardecl That (fun b [ [ These a ] b ])) + (vardecl These (fun a (fun b [ [ These a ] b ]))) + (vardecl This (fun a [ [ These a ] b ])) + ) + ) (let - (nonrec) + (rec) (termbind (strict) (vardecl - union + foldr (all - k + a (type) (all - v + b (type) - (all - r - (type) - (fun - [ (lam a (type) (fun a (fun a Bool))) k ] - (fun + (fun (fun a (fun b b)) (fun b (fun [ List a ] b))) + ) + ) + ) + (abs + a + (type) + (abs + b + (type) + (lam + f + (fun a (fun b b)) + (lam + acc + b + (lam + l + [ List a ] + { [ [ + { + [ { Nil_match a } l ] + (all dead (type) b) + } + (abs dead (type) acc) + ] + (lam + x + a (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] + xs + [ List a ] + (abs + dead + (type) + [ + [ f x ] + [ + [ [ { { foldr a } b } f ] acc ] xs + ] + ] ) ) - k - ] - v + ) ] + (all dead (type) dead) + } + ) + ) + ) + ) + ) + ) + (let + (nonrec) + (termbind + (strict) + (vardecl + union + (all + k + (type) + (all + v + (type) + (all + r + (type) + (fun + [ (lam a (type) (fun a (fun a Bool))) k ] (fun [ [ @@ -3482,53 +3487,58 @@ ) k ] - r + v ] - [ + (fun [ - (lam + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) k - (type) + ] + r + ] + [ + [ (lam - v (type) [ List [ [ Tuple2 k ] v ] ] + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - k + k + ] + [ [ These v ] r ] ] - [ [ These v ] r ] - ] + ) ) ) ) ) ) ) - ) - (abs - k - (type) (abs - v + k (type) (abs - r + v (type) - (lam - dEq - [ (lam a (type) (fun a (fun a Bool))) k ] + (abs + r + (type) (lam - ds - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - k - ] - v - ] + dEq + [ (lam a (type) (fun a (fun a Bool))) k ] (lam ds [ @@ -3542,116 +3552,155 @@ ) k ] - r + v ] - [ + (lam + ds [ [ - { - { - foldr - [ [ Tuple2 k ] [ [ These v ] r ] ] - } - [ - List - [ [ Tuple2 k ] [ [ These v ] r ] ] - ] - } - { - Cons - [ [ Tuple2 k ] [ [ These v ] r ] ] - } + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + k ] + r + ] + [ [ [ { { - fFunctorNil_cfmap - [ [ Tuple2 k ] r ] + foldr + [ [ Tuple2 k ] [ [ These v ] r ] ] } + [ + List + [ [ Tuple2 k ] [ [ These v ] r ] ] + ] + } + { + Cons [ [ Tuple2 k ] [ [ These v ] r ] ] } - (lam - ds - [ [ Tuple2 k ] r ] - [ + ] + [ + [ + { { - [ { { Tuple2_match k } r } ds ] - [ - [ Tuple2 k ] [ [ These v ] r ] - ] + fFunctorNil_cfmap + [ [ Tuple2 k ] r ] } - (lam - c - k - (lam - a - r + [ [ Tuple2 k ] [ [ These v ] r ] ] + } + (lam + ds + [ [ Tuple2 k ] r ] + [ + { [ + { { Tuple2_match k } r } ds + ] + [ + [ Tuple2 k ] + [ [ These v ] r ] + ] + } + (lam + c + k + (lam + a + r [ - { - { Tuple2 k } - [ [ These v ] r ] - } - c + [ + { + { Tuple2 k } + [ [ These v ] r ] + } + c + ] + [ { { That v } r } a ] ] - [ { { That v } r } a ] - ] + ) ) - ) - ] - ) - ] - [ + ] + ) + ] [ [ - { - { foldr [ [ Tuple2 k ] r ] } - [ List [ [ Tuple2 k ] r ] ] - } - (lam - e - [ [ Tuple2 k ] r ] - (lam - xs + [ + { + { foldr [ [ Tuple2 k ] r ] } [ List [ [ Tuple2 k ] r ] ] - [ - { - [ - { { Tuple2_match k } r } - e - ] - [ - List [ [ Tuple2 k ] r ] - ] - } - (lam - c - k + } + (lam + e + [ [ Tuple2 k ] r ] + (lam + xs + [ List [ [ Tuple2 k ] r ] ] + [ + { + [ + { + { Tuple2_match k } r + } + e + ] + [ + List + [ [ Tuple2 k ] r ] + ] + } (lam - ds - r - { - [ + c + k + (lam + ds + r + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { + [ { - fFoldableNil_cfoldMap + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } [ - (lam - a - (type) - a - ) - Bool + [ + Tuple2 + k + ] + v ] } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + (lam + ds [ [ Tuple2 @@ -3659,344 +3708,319 @@ ] v ] - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - ds - [ [ - Tuple2 - k - ] - v - ] - [ - { - [ - { + { + [ { - Tuple2_match - k + { + Tuple2_match + k + } + v } - v - } - ds - ] - Bool - } - (lam - c - k + ds + ] + Bool + } (lam - ds - v - [ + c + k + (lam + ds + v [ - dEq + [ + dEq + c + ] c ] - c - ] + ) ) - ) - ] - ) + ] + ) + ] + ds ] - ds ] - ] - (all - dead - (type) - [ - List + (all + dead + (type) [ + List [ - Tuple2 k + [ + Tuple2 + k + ] + r ] - r ] - ] + ) + } + (abs + dead (type) xs ) - } + ] (abs - dead (type) xs - ) - ] - (abs - dead - (type) - [ + dead + (type) [ - { - Cons - [ + [ + { + Cons [ - Tuple2 k + [ + Tuple2 + k + ] + r ] - r - ] - } - e + } + e + ] + xs ] - xs - ] + ) + ] + (all + dead (type) dead ) - ] - (all dead (type) dead) - } + } + ) ) - ) - ] + ] + ) ) - ) + ] + { Nil [ [ Tuple2 k ] r ] } ] - { Nil [ [ Tuple2 k ] r ] } + ds ] - ds ] ] - ] - [ [ - { + [ { - fFunctorNil_cfmap [ [ Tuple2 k ] v ] - } - [ [ Tuple2 k ] [ [ These v ] r ] ] - } - (lam - ds - [ [ Tuple2 k ] v ] - [ { - [ { { Tuple2_match k } v } ds ] - [ [ Tuple2 k ] [ [ These v ] r ] ] + fFunctorNil_cfmap + [ [ Tuple2 k ] v ] } - (lam - c - k + [ [ Tuple2 k ] [ [ These v ] r ] ] + } + (lam + ds + [ [ Tuple2 k ] v ] + [ + { + [ { { Tuple2_match k } v } ds ] + [ + [ Tuple2 k ] [ [ These v ] r ] + ] + } (lam - i - v - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun + c + k + (lam + i + v + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun + [ + List + [ [ Tuple2 k ] r ] + ] + [ [ These v ] r ] + ) + ) + (lam + ds [ List [ [ Tuple2 k ] r ] ] - [ [ These v ] r ] - ) - ) - (lam - ds - [ - List [ [ Tuple2 k ] r ] - ] - { - [ + { [ - { - [ - { - Nil_match + [ + { + [ + { + Nil_match + [ + [ + Tuple2 k + ] + r + ] + } + ds + ] + (all + dead + (type) [ - [ Tuple2 k ] + [ These v ] r ] - } - ds - ] - (all + ) + } + (abs dead (type) [ - [ These v ] r + { + { This v } r + } + i ] ) - } - (abs - dead - (type) - [ - { { This v } r } - i - ] - ) - ] - (lam - ds - [ [ Tuple2 k ] r ] + ] (lam - xs - [ - List + ds + [ [ Tuple2 k ] r ] + (lam + xs [ - [ Tuple2 k ] r + List + [ + [ Tuple2 k ] + r + ] ] - ] - (abs - dead - (type) - [ - { - [ - { + (abs + dead + (type) + [ + { + [ { - Tuple2_match - k + { + Tuple2_match + k + } + r } - r - } - ds - ] - [ + ds + ] [ - These v + [ + These + v + ] + r ] - r - ] - } - (lam - c - k + } (lam - i - r - { - [ + c + k + (lam + i + r + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ - dEq + [ + dEq + c + ] c ] - c ] - ] - (all + (all + dead + (type) + [ + [ + These + v + ] + r + ] + ) + } + (abs dead (type) [ [ - These - v + { + { + These + v + } + r + } + i ] - r + i ] ) - } + ] (abs dead (type) [ - [ - { - { - These - v - } - r - } - i - ] - i + go + xs ] ) ] - (abs + (all dead (type) - [ - go - xs - ] + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - ] + } + ) + ) + ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) - ) - [ [ - { - { Tuple2 k } - [ [ These v ] r ] - } - c + [ + { + { Tuple2 k } + [ [ These v ] r ] + } + c + ] + [ go ds ] ] - [ go ds ] - ] + ) ) ) - ) - ] - ) + ] + ) + ] + ds ] - ds ] - ] + ) ) ) ) ) ) ) - ) - (termbind - (strict) - (vardecl - unionVal - (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] + (termbind + (strict) + (vardecl + unionVal (fun [ [ @@ -4019,14 +4043,27 @@ (con integer) ] ] - [ + (fun [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] ] [ [ @@ -4037,35 +4074,21 @@ ) (con bytestring) ] - [ [ These (con integer) ] (con integer) ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ [ These (con integer) ] (con integer) ] + ] ] - ] + ) ) ) - ) - (lam - ds - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] (lam ds [ @@ -4089,16 +4112,55 @@ (con integer) ] ] - [ + (lam + ds [ - { + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] + ] + [ + [ { - fFunctorNil_cfmap - [ - [ Tuple2 (con bytestring) ] + { + fFunctorNil_cfmap [ + [ Tuple2 (con bytestring) ] [ - These + [ + These + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] [ [ (lam @@ -4115,64 +4177,10 @@ (con integer) ] ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] - ] - } - [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) ] - [ [ These (con integer) ] (con integer) ] - ] - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] + } [ - [ - These - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] + [ Tuple2 (con bytestring) ] [ [ (lam @@ -4184,55 +4192,33 @@ ) (con bytestring) ] - (con integer) + [ [ These (con integer) ] (con integer) ] ] ] - ] - [ - { - [ - { - { Tuple2_match (con bytestring) } - [ - [ - These - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] + } + (lam + ds + [ + [ Tuple2 (con bytestring) ] + [ + [ + These + [ [ - [ + (lam + k + (type) (lam - k + v (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) + [ List [ [ Tuple2 k ] v ] ] ) - (con bytestring) - ] - (con integer) + ) + (con bytestring) ] + (con integer) ] - } - ds - ] - [ - [ Tuple2 (con bytestring) ] + ] [ [ (lam @@ -4246,36 +4232,57 @@ ) (con bytestring) ] - [ - [ These (con integer) ] (con integer) - ] + (con integer) ] ] - } - (lam - c - (con bytestring) - (lam - a + ] + [ + { [ - [ - These + { + { Tuple2_match (con bytestring) } [ [ - (lam - k - (type) + These + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + [ + [ (lam - v + k (type) - [ List [ [ Tuple2 k ] v ] ] + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) ] - ] + } + ds + ] + [ + [ Tuple2 (con bytestring) ] [ [ (lam @@ -4289,13 +4296,21 @@ ) (con bytestring) ] - (con integer) + [ + [ These (con integer) ] + (con integer) + ] ] ] - [ + } + (lam + c + (con bytestring) + (lam + a [ - { - { Tuple2 (con bytestring) } + [ + These [ [ (lam @@ -4309,22 +4324,82 @@ ) (con bytestring) ] - [ - [ These (con integer) ] - (con integer) - ] + (con integer) ] - } - c + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] [ [ - [ - { + { + { Tuple2 (con bytestring) } + [ [ - { + (lam + k + (type) + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] + ] + } + c + ] + [ + [ + [ + { + [ { - These_match + { + These_match + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ Tuple2 k ] + v + ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + } [ [ (lam @@ -4346,202 +4421,169 @@ (con integer) ] } + a + ] + [ [ - [ + (lam + k + (type) (lam - k + v (type) - (lam - v - (type) - [ - List - [ [ Tuple2 k ] v ] - ] - ) + [ + List + [ [ Tuple2 k ] v ] + ] ) - (con bytestring) - ] + ) + (con bytestring) + ] + [ + [ These (con integer) ] (con integer) ] - } - a - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ [ Tuple2 k ] v ] - ] - ) - ) - (con bytestring) - ] - [ - [ These (con integer) ] - (con integer) ] - ] - } - (lam - b - [ + } + (lam + b [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List - [ [ Tuple2 k ] v ] - ] + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) - ] - [ [ - { + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ + Tuple2 + (con bytestring) + ] + (con integer) + ] + } [ [ Tuple2 (con bytestring) ] - (con integer) + [ + [ + These + (con integer) + ] + (con integer) + ] ] } - [ - [ - Tuple2 - (con bytestring) - ] + (lam + ds [ [ - These (con integer) + Tuple2 + (con bytestring) ] (con integer) ] - ] - } - (lam - ds - [ [ - Tuple2 - (con bytestring) - ] - (con integer) - ] - [ - { - [ - { + { + [ { - Tuple2_match - (con bytestring) + { + Tuple2_match + (con + bytestring + ) + } + (con integer) } - (con integer) - } - ds - ] - [ - [ - Tuple2 - (con bytestring) + ds ] [ [ - These + Tuple2 + (con bytestring) + ] + [ + [ + These + (con integer) + ] (con integer) ] - (con integer) ] - ] - } - (lam - c - (con bytestring) + } (lam - a - (con integer) - [ + c + (con bytestring) + (lam + a + (con integer) [ - { + [ { - Tuple2 - (con - bytestring - ) - } - [ + { + Tuple2 + (con + bytestring + ) + } [ - These + [ + These + (con + integer + ) + ] (con integer ) ] - (con - integer - ) - ] - } - c - ] - [ - { + } + c + ] + [ { - That + { + That + (con + integer + ) + } (con integer ) } - (con integer) - } - a + a + ] ] - ] + ) ) - ) - ] - ) + ] + ) + ] + b ] - b - ] - ) - ] - (lam - a - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List [ [ Tuple2 k ] v ] - ] - ) - ) - (con bytestring) - ] - (con integer) + ) ] (lam - b + a [ [ (lam @@ -4560,151 +4602,199 @@ ] (con integer) ] - [ + (lam + b [ [ - { + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + [ + [ + [ { { - union - (con bytestring) + { + union + (con bytestring) + } + (con integer) } (con integer) } - (con integer) - } - equalsByteString + equalsByteString + ] + a ] - a + b ] - b - ] + ) ) - ) - ] - (lam - a - [ + ] + (lam + a [ - (lam - k - (type) + [ (lam - v + k (type) - [ List [ [ Tuple2 k ] v ] ] + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) - ] - [ [ - { + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ + Tuple2 + (con bytestring) + ] + (con integer) + ] + } + [ + [ + Tuple2 (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] + ] + } + (lam + ds [ [ Tuple2 (con bytestring) ] (con integer) ] - } - [ - [ Tuple2 (con bytestring) ] [ - [ These (con integer) ] - (con integer) - ] - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - [ - { - [ - { + { + [ { - Tuple2_match - (con bytestring) + { + Tuple2_match + (con bytestring) + } + (con integer) } - (con integer) - } - ds - ] - [ - [ - Tuple2 - (con bytestring) + ds ] [ [ - These (con integer) + Tuple2 + (con bytestring) + ] + [ + [ + These + (con integer) + ] + (con integer) ] - (con integer) ] - ] - } - (lam - c - (con bytestring) + } (lam - a - (con integer) - [ + c + (con bytestring) + (lam + a + (con integer) [ - { + [ { - Tuple2 - (con bytestring) - } - [ + { + Tuple2 + (con + bytestring + ) + } [ - These + [ + These + (con + integer + ) + ] (con integer) ] - (con integer) - ] - } - c - ] - [ - { + } + c + ] + [ { - This + { + This + (con integer) + } (con integer) } - (con integer) - } - a + a + ] ] - ] + ) ) - ) - ] - ) + ] + ) + ] + a ] - a - ] - ) + ) + ] ] - ] + ) ) - ) - ] - ) - ] - [ + ] + ) + ] [ [ - { + [ { - { union (con bytestring) } + { + { union (con bytestring) } + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + } [ [ (lam @@ -4721,58 +4811,24 @@ (con integer) ] } - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - } - equalsByteString + equalsByteString + ] + ds ] ds ] - ds ] - ] + ) ) ) - ) - (termbind - (strict) - (vardecl - unionWith - (fun - (fun (con integer) (fun (con integer) (con integer))) + (termbind + (strict) + (vardecl + unionWith (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] + (fun + (con integer) (fun (con integer) (con integer)) + ) (fun [ [ @@ -4795,14 +4851,29 @@ (con integer) ] ] - [ + (fun [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] [ [ @@ -4813,41 +4884,29 @@ ) (con bytestring) ] - (con integer) - ] - ] - ) - ) - ) - ) - (lam - f - (fun (con integer) (fun (con integer) (con integer))) - (lam - ls - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + ) + ) + ) + ) + (lam + f + (fun (con integer) (fun (con integer) (con integer))) (lam - rs + ls [ [ (lam @@ -4869,11 +4928,56 @@ (con integer) ] ] - [ + (lam + rs [ - { + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] + ] + [ + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] + ] + ] + } [ [ Tuple2 (con bytestring) ] [ @@ -4889,52 +4993,60 @@ ) (con bytestring) ] - [ - [ These (con integer) ] (con integer) - ] + (con integer) ] ] } - [ - [ Tuple2 (con bytestring) ] + (lam + ds [ + [ Tuple2 (con bytestring) ] [ - (lam - k - (type) + [ (lam - v (type) [ List [ [ Tuple2 k ] v ] ] + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + [ + [ These (con integer) ] (con integer) + ] ] - (con integer) ] - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - [ [ These (con integer) ] (con integer) ] - ] - ] - [ - { - [ - { - { Tuple2_match (con bytestring) } + { + [ + { + { Tuple2_match (con bytestring) } + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] + ] + } + ds + ] + [ + [ Tuple2 (con bytestring) ] [ [ (lam @@ -4948,85 +5060,80 @@ ) (con bytestring) ] - [ - [ These (con integer) ] - (con integer) - ] - ] - } - ds - ] - [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) + (con integer) ] - (con integer) ] - ] - } - (lam - c - (con bytestring) + } (lam - a - [ + c + (con bytestring) + (lam + a [ - (lam - k - (type) + [ (lam - v + k (type) - [ List [ [ Tuple2 k ] v ] ] + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) - ] - [ - [ These (con integer) ] - (con integer) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] ] - ] - [ [ - { - { Tuple2 (con bytestring) } - [ + [ + { + { Tuple2 (con bytestring) } [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List [ [ Tuple2 k ] v ] - ] + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) - ] - } - c - ] - [ + } + c + ] [ - { + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ + Tuple2 (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] + ] + } + [ + [ Tuple2 (con bytestring) ] + (con integer) + ] + } + (lam + ds [ [ Tuple2 (con bytestring) ] [ @@ -5034,152 +5141,133 @@ (con integer) ] ] - } - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] [ - [ These (con integer) ] - (con integer) - ] - ] - [ - { - [ - { + { + [ { - Tuple2_match - (con bytestring) + { + Tuple2_match + (con bytestring) + } + [ + [ + These + (con integer) + ] + (con integer) + ] } + ds + ] + [ + [ + Tuple2 + (con bytestring) + ] + (con integer) + ] + } + (lam + c + (con bytestring) + (lam + a [ [ These (con integer) ] (con integer) ] - } - ds - ] - [ - [ - Tuple2 (con bytestring) - ] - (con integer) - ] - } - (lam - c - (con bytestring) - (lam - a - [ - [ These (con integer) ] - (con integer) - ] - [ [ - { + [ { - Tuple2 - (con bytestring) + { + Tuple2 + (con bytestring) + } + (con integer) } - (con integer) - } - c - ] - [ + c + ] [ [ - { - [ - { + [ + { + [ { - These_match + { + These_match + (con + integer + ) + } (con integer ) } - (con - integer - ) - } - a - ] - (con integer) - } - (lam - b - (con integer) - [ + a + ] + (con integer) + } + (lam + b + (con integer) [ - f - (con - integer 0 - ) + [ + f + (con + integer + 0 + ) + ] + b ] + ) + ] + (lam + a + (con integer) + (lam b - ] + (con integer) + [ [ f a ] b ] + ) ) ] (lam a (con integer) - (lam - b - (con integer) - [ [ f a ] b ] - ) + [ + [ f a ] + (con integer 0) + ] ) ] - (lam - a - (con integer) - [ - [ f a ] - (con integer 0) - ] - ) ] - ] + ) ) - ) - ] - ) + ] + ) + ] + a ] - a ] - ] + ) ) - ) - ] - ) + ] + ) + ] + [ [ unionVal ls ] rs ] ] - [ [ unionVal ls ] rs ] - ] + ) ) ) ) - ) - (termbind - (strict) - (vardecl - noAdaValue - (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] + (termbind + (strict) + (vardecl + noAdaValue + (fun [ [ (lam @@ -5189,17 +5277,17 @@ ) (con bytestring) ] - (con integer) - ] - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] ] [ [ @@ -5210,22 +5298,22 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] ] - ] + ) ) - ) - (lam - v - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] + (lam + v [ [ (lam @@ -5235,38 +5323,28 @@ ) (con bytestring) ] - (con integer) - ] - ] - [ - [ [ unionWith addInteger ] v ] - [ - [ fAdditiveGroupValue_cscale (con integer -1) ] [ [ - { - Cons - [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] - } + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] + ] + [ + [ [ unionWith addInteger ] v ] + [ + [ fAdditiveGroupValue_cscale fAdditiveGroupValue ] + [ [ - [ - { - { Tuple2 (con bytestring) } + { + Cons + [ + [ Tuple2 (con bytestring) ] [ [ (lam @@ -5282,102 +5360,137 @@ ] (con integer) ] - } - (con bytestring #) - ] + ] + } [ [ { - Cons + { Tuple2 (con bytestring) } [ - [ Tuple2 (con bytestring) ] + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] (con integer) ] } + emptyByteString + ] + [ [ - [ - { - { Tuple2 (con bytestring) } + { + Cons + [ + [ Tuple2 (con bytestring) ] (con integer) - } - (con bytestring #) - ] + ] + } [ - [ [ valueOf v ] (con bytestring #) ] - (con bytestring #) + [ + { + { Tuple2 (con bytestring) } + (con integer) + } + emptyByteString + ] + [ + [ [ valueOf v ] emptyByteString ] + emptyByteString + ] ] ] + { + Nil + [ + [ Tuple2 (con bytestring) ] + (con integer) + ] + } ] - { - Nil - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - } ] ] - ] - { - Nil - [ - [ Tuple2 (con bytestring) ] + { + Nil [ + [ Tuple2 (con bytestring) ] [ - (lam - k - (type) + [ (lam - v (type) [ List [ [ Tuple2 k ] v ] ] + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) ] - ] - } + } + ] ] ] - ] + ) ) - ) - (datatypebind - (datatype - (tyvardecl TxOutRef (type)) + (datatypebind + (datatype + (tyvardecl TxOutRef (type)) - TxOutRef_match - (vardecl - TxOutRef - (fun (con bytestring) (fun (con integer) TxOutRef)) + TxOutRef_match + (vardecl + TxOutRef + (fun (con bytestring) (fun (con integer) TxOutRef)) + ) ) ) - ) - (termbind - (strict) - (vardecl fEqTxOutRef_c (fun TxOutRef (fun TxOutRef Bool))) - (lam - l - TxOutRef + (termbind + (strict) + (vardecl + fEqTxOutRef_c (fun TxOutRef (fun TxOutRef Bool)) + ) (lam - r + l TxOutRef - { - [ + (lam + r + TxOutRef + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { (builtin ifThenElse) Bool } [ + { (builtin ifThenElse) Bool } [ - (builtin equalsByteString) + [ + (builtin equalsByteString) + [ + { + [ TxOutRef_match l ] + (con bytestring) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] + ] [ { - [ TxOutRef_match l ] + [ TxOutRef_match r ] (con bytestring) } (lam @@ -5387,39 +5500,39 @@ ) ] ] - [ - { - [ TxOutRef_match r ] - (con bytestring) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) - ] ] + True ] - True + False ] - False ] - ] - (all dead (type) Bool) - } - (abs - dead - (type) - [ + (all dead (type) Bool) + } + (abs + dead + (type) [ [ - { (builtin ifThenElse) Bool } [ + { (builtin ifThenElse) Bool } [ - (builtin equalsInteger) + [ + (builtin equalsInteger) + [ + { + [ TxOutRef_match l ] + (con integer) + } + (lam + ds + (con bytestring) + (lam ds (con integer) ds) + ) + ] + ] [ { - [ TxOutRef_match l ] + [ TxOutRef_match r ] (con integer) } (lam @@ -5429,163 +5542,139 @@ ) ] ] - [ - { - [ TxOutRef_match r ] (con integer) - } - (lam - ds - (con bytestring) - (lam ds (con integer) ds) - ) - ] ] + True ] - True + False ] - False - ] - ) + ) + ] + (abs dead (type) False) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ) - ) - (datatypebind - (datatype - (tyvardecl MultiplicativeMonoid (fun (type) (type))) - (tyvardecl a (type)) - MultiplicativeMonoid_match - (vardecl - CConsMultiplicativeMonoid - (fun - [ (lam a (type) (fun a (fun a a))) a ] - (fun a [ MultiplicativeMonoid a ]) + (datatypebind + (datatype + (tyvardecl MultiplicativeMonoid (fun (type) (type))) + (tyvardecl a (type)) + MultiplicativeMonoid_match + (vardecl + CConsMultiplicativeMonoid + (fun + [ (lam a (type) (fun a (fun a a))) a ] + (fun a [ MultiplicativeMonoid a ]) + ) ) ) ) - ) - (termbind - (strict) - (vardecl - fMonoidProduct - (all + (termbind + (strict) + (vardecl + fMonoidProduct + (all + a + (type) + (fun + [ MultiplicativeMonoid a ] + [ Monoid [ (lam a (type) a) a ] ] + ) + ) + ) + (abs a (type) - (fun + (lam + v [ MultiplicativeMonoid a ] - [ Monoid [ (lam a (type) a) a ] ] - ) - ) - ) - (abs - a - (type) - (lam - v - [ MultiplicativeMonoid a ] - [ [ - { CConsMonoid [ (lam a (type) a) a ] } - (lam - eta - [ (lam a (type) a) a ] + [ + { CConsMonoid [ (lam a (type) a) a ] } (lam eta [ (lam a (type) a) a ] - [ + (lam + eta + [ (lam a (type) a) a ] [ [ - { - [ { MultiplicativeMonoid_match a } v ] - [ (lam a (type) (fun a (fun a a))) a ] - } - (lam - v - [ (lam a (type) (fun a (fun a a))) a ] - (lam v a v) - ) + [ + { + [ + { MultiplicativeMonoid_match a } v + ] + [ + (lam a (type) (fun a (fun a a))) a + ] + } + (lam + v + [ + (lam a (type) (fun a (fun a a))) a + ] + (lam v a v) + ) + ] + eta ] eta ] - eta - ] + ) ) - ) - ] - [ - { [ { MultiplicativeMonoid_match a } v ] a } - (lam - v - [ (lam a (type) (fun a (fun a a))) a ] - (lam v a v) - ) + ] + [ + { [ { MultiplicativeMonoid_match a } v ] a } + (lam + v + [ (lam a (type) (fun a (fun a a))) a ] + (lam v a v) + ) + ] ] - ] + ) ) ) - ) - (termbind - (nonstrict) - (vardecl - fMultiplicativeMonoidBool [ MultiplicativeMonoid Bool ] - ) - [ + (termbind + (nonstrict) + (vardecl + fMultiplicativeMonoidBool + [ MultiplicativeMonoid Bool ] + ) [ - { CConsMultiplicativeMonoid Bool } - (lam - l - Bool + [ + { CConsMultiplicativeMonoid Bool } (lam - r + l Bool - { - [ + (lam + r + Bool + { [ - { [ Bool_match l ] (all dead (type) Bool) } - (abs dead (type) r) + [ + { + [ Bool_match l ] (all dead (type) Bool) + } + (abs dead (type) r) + ] + (abs dead (type) False) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) - ) + ] + True ] - True - ] - ) - (termbind - (strict) - (vardecl - checkBinRel - (fun - (fun (con integer) (fun (con integer) Bool)) + ) + (termbind + (strict) + (vardecl + checkBinRel (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] + (fun (con integer) (fun (con integer) Bool)) (fun [ [ @@ -5608,39 +5697,40 @@ (con integer) ] ] - Bool + (fun + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + Bool + ) ) ) ) - ) - (lam - f - (fun (con integer) (fun (con integer) Bool)) (lam - l - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] + f + (fun (con integer) (fun (con integer) Bool)) (lam - r + l [ [ (lam @@ -5662,14 +5752,66 @@ (con integer) ] ] - [ + (lam + r [ [ - { + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] + ] + [ + [ + [ { - fFoldableNil_cfoldMap - [ (lam a (type) a) Bool ] + { + fFoldableNil_cfoldMap + [ (lam a (type) a) Bool ] + } + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] + ] + ] } + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] + ] + (lam + ds [ [ Tuple2 (con bytestring) ] [ @@ -5690,89 +5832,80 @@ ] ] ] - } - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] - ] - (lam - ds - [ - [ Tuple2 (con bytestring) ] [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - [ [ These (con integer) ] (con integer) ] - ] - ] - [ - { - [ - { - { Tuple2_match (con bytestring) } - [ + { + [ + { + { Tuple2_match (con bytestring) } [ - (lam - k - (type) + [ (lam - v + k (type) - [ List [ [ Tuple2 k ] v ] ] + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) - ] - [ - [ These (con integer) ] - (con integer) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] ] - ] - } - ds - ] - [ (lam a (type) a) Bool ] - } - (lam - ds - (con bytestring) + } + ds + ] + [ (lam a (type) a) Bool ] + } (lam - a - [ + ds + (con bytestring) + (lam + a [ - (lam - k - (type) + [ (lam - v + k (type) - [ List [ [ Tuple2 k ] v ] ] + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) - ] - [ - [ These (con integer) ] - (con integer) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] ] - ] - [ [ [ - { + [ { - fFoldableNil_cfoldMap - [ (lam a (type) a) Bool ] + { + fFoldableNil_cfoldMap + [ (lam a (type) a) Bool ] + } + [ + [ Tuple2 (con bytestring) ] + [ + [ These (con integer) ] + (con integer) + ] + ] } + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] + ] + (lam + ds [ [ Tuple2 (con bytestring) ] [ @@ -5780,237 +5913,191 @@ (con integer) ] ] - } - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] - ] - (lam - ds - [ - [ Tuple2 (con bytestring) ] [ - [ These (con integer) ] - (con integer) - ] - ] - [ - { - [ - { + { + [ { - Tuple2_match - (con bytestring) + { + Tuple2_match + (con bytestring) + } + [ + [ + These (con integer) + ] + (con integer) + ] } + ds + ] + [ (lam a (type) a) Bool ] + } + (lam + ds + (con bytestring) + (lam + a [ [ These (con integer) ] (con integer) ] - } - ds - ] - [ (lam a (type) a) Bool ] - } - (lam - ds - (con bytestring) - (lam - a - [ - [ These (con integer) ] - (con integer) - ] - [ [ [ - { - [ - { + [ + { + [ { - These_match + { + These_match + (con + integer + ) + } (con integer) } - (con integer) - } - a - ] - Bool - } - (lam - b - (con integer) - [ + a + ] + Bool + } + (lam + b + (con integer) [ - f - (con integer 0) + [ + f + (con + integer 0 + ) + ] + b ] + ) + ] + (lam + a + (con integer) + (lam b - ] + (con integer) + [ [ f a ] b ] + ) ) ] (lam a (con integer) - (lam - b - (con integer) - [ [ f a ] b ] - ) + [ + [ f a ] + (con integer 0) + ] ) ] - (lam - a - (con integer) - [ - [ f a ] - (con integer 0) - ] - ) - ] + ) ) - ) - ] - ) + ] + ) + ] + a ] - a - ] + ) ) - ) - ] - ) + ] + ) + ] + [ [ unionVal l ] r ] ] - [ [ unionVal l ] r ] - ] + ) ) ) ) - ) - (termbind - (strict) - (vardecl - lessThanEqualsInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) + (termbind + (strict) + (vardecl + lessThanEqualsInteger + (fun (con integer) (fun (con integer) Bool)) + ) (lam - y + x (con integer) - [ + (lam + y + (con integer) [ [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanEqualsInteger) x ] y ] + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanEqualsInteger) x ] y ] + ] + True ] - True + False ] - False - ] - ) - ) - ) - (datatypebind - (datatype - (tyvardecl LowerBound (fun (type) (type))) - (tyvardecl a (type)) - LowerBound_match - (vardecl - LowerBound - (fun [ Extended a ] (fun Bool [ LowerBound a ])) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl Interval (fun (type) (type))) - (tyvardecl a (type)) - Interval_match - (vardecl - Interval - (fun - [ LowerBound a ] - (fun [ UpperBound a ] [ Interval a ]) ) ) ) - ) - (let - (rec) (datatypebind (datatype - (tyvardecl TxConstraint (type)) - - TxConstraint_match - (vardecl - MustBeSignedBy (fun (con bytestring) TxConstraint) - ) - (vardecl - MustHashDatum - (fun (con bytestring) (fun (con data) TxConstraint)) - ) + (tyvardecl LowerBound (fun (type) (type))) + (tyvardecl a (type)) + LowerBound_match (vardecl - MustIncludeDatum (fun (con data) TxConstraint) + LowerBound + (fun [ Extended a ] (fun Bool [ LowerBound a ])) ) + ) + ) + (datatypebind + (datatype + (tyvardecl Interval (fun (type) (type))) + (tyvardecl a (type)) + Interval_match (vardecl - MustMintValue + Interval (fun - (con bytestring) + [ LowerBound a ] + (fun [ UpperBound a ] [ Interval a ]) + ) + ) + ) + ) + (let + (rec) + (datatypebind + (datatype + (tyvardecl TxConstraint (type)) + + TxConstraint_match + (vardecl + MustBeSignedBy (fun (con bytestring) TxConstraint) + ) + (vardecl + MustHashDatum (fun - (con data) - (fun - (con bytestring) - (fun (con integer) TxConstraint) - ) + (con bytestring) (fun (con data) TxConstraint) ) ) - ) - (vardecl - MustPayToOtherScript - (fun - (con bytestring) + (vardecl + MustIncludeDatum (fun (con data) TxConstraint) + ) + (vardecl + MustMintValue (fun - (con data) - (fun - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] - TxConstraint + (con bytestring) + (fun + (con data) + (fun + (con bytestring) + (fun (con integer) TxConstraint) + ) ) ) ) - ) - (vardecl - MustPayToPubKeyAddress - (fun - (con bytestring) + (vardecl + MustPayToOtherScript (fun - [ Maybe (con bytestring) ] + (con bytestring) (fun - [ Maybe (con data) ] + (con data) (fun [ [ @@ -6044,106 +6131,52 @@ ) ) ) - ) - (vardecl - MustProduceAtLeast - (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + (vardecl + MustPayToPubKeyAddress + (fun + (con bytestring) + (fun + [ Maybe (con bytestring) ] + (fun + [ Maybe (con data) ] + (fun + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + TxConstraint ) - (con bytestring) - ] - (con integer) - ] - ] - TxConstraint - ) - ) - (vardecl - MustSatisfyAnyOf - (fun [ List [ List TxConstraint ] ] TxConstraint) - ) - (vardecl - MustSpendAtLeast - (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - TxConstraint + ) + ) ) - ) - (vardecl - MustSpendPubKeyOutput (fun TxOutRef TxConstraint) - ) - (vardecl - MustSpendScriptOutput - (fun TxOutRef (fun (con data) TxConstraint)) - ) - (vardecl - MustValidateIn - (fun [ Interval (con integer) ] TxConstraint) - ) - ) - ) - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - fMonoidValue_c - (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] + (vardecl + MustProduceAtLeast (fun [ [ @@ -6168,6 +6201,16 @@ (con integer) ] ] + TxConstraint + ) + ) + (vardecl + MustSatisfyAnyOf + (fun [ List [ List TxConstraint ] ] TxConstraint) + ) + (vardecl + MustSpendAtLeast + (fun [ [ (lam @@ -6191,44 +6234,29 @@ (con integer) ] ] + TxConstraint ) ) + (vardecl + MustSpendPubKeyOutput (fun TxOutRef TxConstraint) + ) + (vardecl + MustSpendScriptOutput + (fun TxOutRef (fun (con data) TxConstraint)) + ) + (vardecl + MustValidateIn + (fun [ Interval (con integer) ] TxConstraint) + ) ) - [ unionWith addInteger ] ) - (termbind - (nonstrict) - (vardecl - fMonoidValue - [ - Monoid - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - ] - ) - [ - [ - { - CConsMonoid + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + fMonoidValue_c + (fun [ [ (lam @@ -6252,83 +6280,97 @@ (con integer) ] ] - } - fMonoidValue_c - ] - { - Nil - [ - [ Tuple2 (con bytestring) ] - [ + (fun [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - (con integer) - ] - ] - } - ] - ) - (datatypebind - (datatype - (tyvardecl DCert (type)) - - DCert_match - (vardecl - DCertDelegDeRegKey (fun StakingCredential DCert) - ) - (vardecl - DCertDelegDelegate - (fun - StakingCredential (fun (con bytestring) DCert) - ) - ) - (vardecl - DCertDelegRegKey (fun StakingCredential DCert) - ) - (vardecl DCertGenesis DCert) - (vardecl DCertMir DCert) - (vardecl - DCertPoolRegister - (fun - (con bytestring) (fun (con bytestring) 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) + ] + ] + ) ) ) - (vardecl - DCertPoolRetire - (fun (con bytestring) (fun (con integer) DCert)) - ) + [ unionWith addInteger ] ) - ) - (datatypebind - (datatype - (tyvardecl Address (type)) - - Address_match + (termbind + (nonstrict) (vardecl - Address - (fun - Credential - (fun [ Maybe StakingCredential ] Address) - ) + fMonoidValue + [ + Monoid + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + ] ) - ) - ) - (datatypebind - (datatype - (tyvardecl TxOut (type)) - - TxOut_match - (vardecl - TxOut - (fun - Address - (fun + [ + [ + { + CConsMonoid [ [ (lam @@ -6354,33 +6396,56 @@ (con integer) ] ] - (fun [ Maybe (con bytestring) ] TxOut) - ) - ) - ) + } + fMonoidValue_c + ] + { + Nil + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + } + ] ) - ) - (datatypebind - (datatype - (tyvardecl TxInInfo (type)) + (typebind + (tyvardecl DCert (type)) (all a (type) (fun a a)) + ) + (datatypebind + (datatype + (tyvardecl Address (type)) - TxInInfo_match - (vardecl - TxInInfo (fun TxOutRef (fun TxOut TxInInfo)) + Address_match + (vardecl + Address + (fun + Credential + (fun [ Maybe StakingCredential ] Address) + ) + ) ) ) - ) - (datatypebind - (datatype - (tyvardecl TxInfo (type)) + (datatypebind + (datatype + (tyvardecl TxOut (type)) - TxInfo_match - (vardecl - TxInfo - (fun - [ List TxInInfo ] + TxOut_match + (vardecl + TxOut (fun - [ List TxOut ] + Address (fun [ [ @@ -6409,6 +6474,33 @@ (con integer) ] ] + (fun [ Maybe (con bytestring) ] TxOut) + ) + ) + ) + ) + ) + (datatypebind + (datatype + (tyvardecl TxInInfo (type)) + + TxInInfo_match + (vardecl + TxInInfo (fun TxOutRef (fun TxOut TxInInfo)) + ) + ) + ) + (datatypebind + (datatype + (tyvardecl TxInfo (type)) + + TxInfo_match + (vardecl + TxInfo + (fun + [ List TxInInfo ] + (fun + [ List TxOut ] (fun [ [ @@ -6440,28 +6532,61 @@ ] ] (fun - [ List DCert ] - (fun + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] [ - List [ - [ Tuple2 StakingCredential ] - (con integer) + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) ] + (con integer) ] + ] + (fun + [ List DCert ] (fun - [ Interval (con integer) ] + [ + List + [ + [ Tuple2 StakingCredential ] + (con integer) + ] + ] (fun - [ List (con bytestring) ] + [ Interval (con integer) ] (fun - [ - List + [ List (con bytestring) ] + (fun [ - [ Tuple2 (con bytestring) ] - (con data) + List + [ + [ + Tuple2 (con bytestring) + ] + (con data) + ] ] - ] - (fun (con bytestring) TxInfo) + (fun (con bytestring) TxInfo) + ) ) ) ) @@ -6473,22 +6598,20 @@ ) ) ) - ) - (let - (rec) - (termbind - (strict) - (vardecl - wcheckTxConstraint - (fun TxInfo (fun TxConstraint Bool)) - ) - (lam - ww - TxInfo + (let + (rec) + (termbind + (strict) + (vardecl + wcheckTxConstraint + (fun TxInfo (fun TxConstraint Bool)) + ) (lam - w - TxConstraint - [ + ww + TxInfo + (lam + w + TxConstraint [ [ [ @@ -6500,83 +6623,33 @@ [ [ [ - { - [ - TxConstraint_match w - ] - Bool - } - (lam - pkh - (con bytestring) - [ - { - [ - TxInfo_match ww - ] - Bool - } - (lam - ww - [ List TxInInfo ] - (lam - ww - [ List TxOut ] - (lam + [ + { + [ + TxConstraint_match + w + ] + Bool + } + (lam + pkh + (con bytestring) + [ + { + [ + TxInfo_match 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 - ) - ] - ] + ] + Bool + } + (lam + ww + [ + List TxInInfo + ] + (lam + ww + [ List TxOut ] (lam ww [ @@ -6635,259 +6708,315 @@ (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 - ) - { - [ + { [ - { - [ - Bool_match - { - [ + [ + { + [ + Bool_match + { [ - { - [ - { - Maybe_match - (con - bytestring - ) - } + [ + { [ + { + Maybe_match + (con + bytestring + ) + } [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - [ - Maybe + { + fFoldableNil_cfoldMap + [ + (lam a - ] - ) - (con - bytestring - ) - ] + (type) + [ + Maybe + a + ] + ) + (con + bytestring + ) + ] + } + (con + bytestring + ) } + { + fMonoidFirst + (con + bytestring + ) + } + ] + (lam + x (con bytestring ) - } - { - fMonoidFirst - (con - bytestring - ) - } - ] - (lam - x - (con - bytestring - ) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsByteString + ifThenElse ) - pkh + Bool + } + [ + [ + (builtin + equalsByteString + ) + pkh + ] + x ] - x ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + [ + Maybe + (con + bytestring + ) + ] + ) + } + (abs dead (type) [ - Maybe - (con - bytestring - ) + { + Just + (con + bytestring + ) + } + x ] ) - } + ] (abs dead (type) - [ - { - Just - (con - bytestring - ) - } - x - ] + { + Nothing + (con + bytestring + ) + } ) - ] - (abs - dead - (type) - { - Nothing - (con - bytestring - ) - } + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } - ) + } + ) + ] + ww ] - ww ] - ] - (all - dead - (type) - Bool - ) - } - (lam - ds - (con - bytestring - ) - (abs - dead - (type) - True + (all + dead + (type) + Bool + ) + } + (lam + ds + (con + bytestring + ) + (abs + dead + (type) + True + ) ) + ] + (abs + dead + (type) + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } - ] - (all + } + ] + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L4" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L4" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -6897,55 +7026,33 @@ ) ) ) - ) - ] - ) - ] - (lam - dvh - (con bytestring) + ] + ) + ] (lam - dv - (con data) - [ - { - [ - TxInfo_match ww - ] - Bool - } - (lam - ww - [ List TxInInfo ] + dvh + (con bytestring) + (lam + dv + (con data) + [ + { + [ + TxInfo_match + ww + ] + Bool + } (lam ww - [ List TxOut ] + [ + List TxInInfo + ] (lam ww - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + [ List TxOut ] + (lam + ww [ [ (lam @@ -6970,37 +7077,37 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ww - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] + ] + (lam + ww [ [ (lam @@ -7025,140 +7132,179 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ww - [ - List - DCert - ] - (lam - ww [ - List [ - [ - 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 - ) - { - [ + { [ - { - [ - { - Maybe_match - (con - data - ) - } - { - [ + [ + { + [ + { + Maybe_match + (con + data + ) + } + { [ - { - [ - { - Maybe_match - [ + [ + { + [ + { + Maybe_match [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] - (con - data - ) - ] - } - [ + } [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - [ - Maybe - a - ] - ) + { + fFoldableNil_cfoldMap [ + (lam + a + (type) + [ + Maybe + a + ] + ) [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] + ] + } + [ + [ + Tuple2 (con - data + bytestring ) ] + (con + data + ) ] } - [ + { + fMonoidFirst [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] - (con - data - ) - ] - } - { - fMonoidFirst + } + ] + (lam + x [ [ Tuple2 @@ -7170,339 +7316,325 @@ data ) ] - } - ] - (lam - x - [ [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - [ - { - [ - { + { + [ { - Tuple2_match + { + Tuple2_match + (con + bytestring + ) + } (con - bytestring + data ) } - (con - data - ) - } - x - ] - [ - Maybe + x + ] [ + Maybe [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] - (con - data - ) ] - ] - } - (lam - dsh - (con - bytestring - ) + } (lam - ds + dsh (con - data + bytestring ) - { - [ + (lam + ds + (con + data + ) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsByteString + ifThenElse ) - dsh + Bool + } + [ + [ + (builtin + equalsByteString + ) + dsh + ] + dvh ] - dvh ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + [ + Maybe + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + data + ) + ] + ] + ) + } + (abs dead (type) [ - Maybe - [ + { + Just [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] - (con - data - ) - ] + } + x ] ) - } + ] (abs dead (type) - [ - { - Just + { + Nothing + [ [ - [ - Tuple2 - (con - bytestring - ) - ] + Tuple2 (con - data + bytestring ) ] - } - x - ] + (con + data + ) + ] + } ) ] - (abs + (all dead (type) - { - Nothing - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - } + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] - ) + ] + ) + ] + ww ] - ww ] - ] - (all - dead - (type) + (all + dead + (type) + [ + Maybe + (con + data + ) + ] + ) + } + (lam + a [ - Maybe + [ + Tuple2 + (con + bytestring + ) + ] (con data ) ] - ) - } - (lam - a - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - (abs - dead - (type) - [ - { - Just - (con - data - ) - } + (abs + dead + (type) [ { - [ - { + Just + (con + data + ) + } + [ + { + [ { - Tuple2_match + { + Tuple2_match + (con + bytestring + ) + } (con - bytestring + data ) } + a + ] + (con + data + ) + } + (lam + ds + (con + bytestring + ) + (lam + b (con data ) - } - a - ] - (con - data - ) - } - (lam - ds - (con - bytestring - ) - (lam - b - (con - data + b ) - b ) - ) + ] ] - ] + ) ) + ] + (abs + dead + (type) + { + Nothing + (con + data + ) + } ) ] - (abs + (all dead (type) - { - Nothing - (con - data - ) - } + dead ) - ] - (all - dead - (type) - dead - ) - } - ] - (all - dead - (type) - Bool - ) - } - (lam - a - (con - data - ) - (abs - dead - (type) - { - [ + } + ] + (all + dead + (type) + Bool + ) + } + (lam + a + (con + data + ) + (abs + dead + (type) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsData + ifThenElse ) - a + Bool + } + [ + [ + (builtin + equalsData + ) + a + ] + dv ] - dv ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + j ) ] - (abs + (all dead (type) - j + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) + ] + (abs + dead + (type) + j ) ] - (abs + (all dead (type) - j + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -7512,51 +7644,26 @@ ) ) ) - ) - ] + ] + ) ) - ) - ] - (lam - dv - (con data) - [ - { - [ TxInfo_match ww ] - Bool - } - (lam - ds - [ List TxInInfo ] + ] + (lam + dv + (con data) + [ + { + [ TxInfo_match ww ] + Bool + } (lam ds - [ List TxOut ] + [ List TxInInfo ] (lam ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + [ List TxOut ] + (lam + ds [ [ (lam @@ -7581,35 +7688,37 @@ bytestring ) ] - (con integer) - ] - ] - (lam - ds - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] + ] + (lam + ds [ [ (lam @@ -7634,133 +7743,177 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ List DCert ] - (lam - ds [ - List [ - [ - Tuple2 - StakingCredential - ] + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con - integer + bytestring ) ] + (con + integer + ) + ] + ] + (lam + ds + [ + List DCert ] (lam ds [ - Interval - (con - integer - ) + List + [ + [ + Tuple2 + StakingCredential + ] + (con + integer + ) + ] ] (lam ds [ - List + Interval (con - bytestring + integer ) ] (lam ds [ List + (con + bytestring + ) + ] + (lam + ds [ + List [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] + ] + (lam + ds (con - data + bytestring ) - ] - ] - (lam - ds - (con - bytestring - ) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + (con + data + ) } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + (lam + d (con data ) - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - d - (con - data - ) - [ [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsData + ifThenElse ) - dv + Bool + } + [ + [ + (builtin + equalsData + ) + dv + ] + d ] - d ] + True ] - True + False ] - False - ] - ) - ] - [ + ) + ] [ - { + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ + Tuple2 + (con + bytestring + ) + ] + (con + data + ) + ] + } + (con + data + ) + } + (lam + ds [ [ Tuple2 @@ -7772,102 +7925,85 @@ data ) ] - } - (con - data - ) - } - (lam - ds - [ [ - Tuple2 - (con - bytestring - ) - ] - (con - data - ) - ] - [ - { - [ - { + { + [ { - Tuple2_match + { + Tuple2_match + (con + bytestring + ) + } (con - bytestring + data ) } + ds + ] + (con + data + ) + } + (lam + ds + (con + bytestring + ) + (lam + b (con data ) - } - ds - ] - (con - data - ) - } - (lam - ds - (con - bytestring - ) - (lam - b - (con - data + b ) - b ) - ) - ] - ) + ] + ) + ] + ds ] - ds ] ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L2" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L2" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -7877,118 +8013,62 @@ ) ) ) - ) - ] - ) - ] - (lam - mps - (con bytestring) + ] + ) + ] (lam - ds - (con data) + mps + (con bytestring) (lam - tn - (con bytestring) + ds + (con data) (lam - v - (con integer) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsInteger - ) - [ - { - [ - TxInfo_match - ww - ] - (con - integer - ) - } - (lam - ds - [ - List - TxInInfo - ] - (lam - ds - [ - List - TxOut - ] - (lam - ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] + tn + (con bytestring) + (lam + v + (con integer) + { + [ + [ + { + [ + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + [ + { + [ + TxInfo_match + ww + ] + (con + integer + ) + } + (lam + ds + [ + List + TxInInfo + ] + (lam + ds + [ + List + TxOut ] (lam ds @@ -8048,70 +8128,126 @@ (lam ds [ - List - DCert - ] - (lam - ds [ - 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 + ds + [ + List + DCert ] (lam ds [ - Interval - (con - integer - ) + List + [ + [ + Tuple2 + StakingCredential + ] + (con + integer + ) + ] ] (lam ds [ - List + Interval (con - bytestring + integer ) ] (lam ds [ List + (con + bytestring + ) + ] + (lam + ds [ + List [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] + ] + (lam + ds (con - data + bytestring ) - ] - ] - (lam - ds - (con - bytestring - ) - [ [ [ - valueOf - ds + [ + valueOf + ds + ] + mps ] - mps + tn ] - tn - ] + ) ) ) ) @@ -8121,84 +8257,65 @@ ) ) ) - ) + ] ] + v ] - v ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True - ) - ] - (abs - dead - (type) - [ [ - { - (builtin - trace + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L9" ) - Bool - } - (con - string - "L9" - ) + ] + False ] - False - ] + ) + ] + (all + dead (type) dead ) - ] - (all - dead (type) dead - ) - } + } + ) ) ) ) - ) - ] - (lam - vlh - (con bytestring) + ] (lam - dv - (con data) + vlh + (con bytestring) (lam - vl - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ Tuple2 k ] v - ] - ] - ) - ) - (con bytestring) - ] + dv + (con data) + (lam + vl [ [ (lam @@ -8218,46 +8335,43 @@ ) (con bytestring) ] - (con integer) - ] - ] - [ - { - [ TxInfo_match ww ] - Bool - } - (lam - ds - [ List TxInInfo ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 k + ] + v + ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + [ + { + [ TxInfo_match ww ] + Bool + } (lam ds - [ List TxOut ] + [ List TxInInfo ] (lam ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + [ List TxOut ] + (lam + ds [ [ (lam @@ -8282,35 +8396,37 @@ bytestring ) ] - (con integer) - ] - ] - (lam - ds - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] + ] + (lam + ds [ [ (lam @@ -8335,136 +8451,138 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ List DCert ] - (lam - ds [ - List [ - [ - Tuple2 - StakingCredential - ] + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con - integer + bytestring ) ] + (con + integer + ) + ] + ] + (lam + ds + [ + List DCert ] (lam ds [ - Interval - (con - integer - ) + List + [ + [ + Tuple2 + StakingCredential + ] + (con + integer + ) + ] ] (lam ds [ - List + Interval (con - bytestring + integer ) ] (lam ds [ List + (con + bytestring + ) + ] + (lam + ds [ + List [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] + ] + (lam + ds (con - data + bytestring ) - ] - ] - (lam - ds - (con - bytestring - ) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - TxOut - } [ { - fMonoidSum - Bool + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxOut } - fAdditiveMonoidBool + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] ] - ] - (lam - ds - TxOut - [ - { - [ - TxOut_match - ds - ] - Bool - } - (lam - ds - Address + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + Bool + } (lam ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + Address + (lam + ds [ [ (lam @@ -8480,326 +8598,268 @@ Tuple2 k ] - v + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) ] - { + (lam + ds [ + Maybe + (con + bytestring + ) + ] + { [ - { - [ - { - Maybe_match - (con - bytestring - ) - } - ds - ] - (all - dead - (type) - Bool - ) - } - (lam - svh - (con - bytestring - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) + Bool + ) + } + (lam + svh + (con + bytestring + ) + (abs + dead + (type) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - lessThanInteger + ifThenElse ) + Bool + } + [ [ + (builtin + lessThanInteger + ) [ [ - valueOf - ds + [ + valueOf + ds + ] + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) ] - ] - [ [ [ - valueOf - vl + [ + valueOf + vl + ] + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) ] ] + False ] - False + True ] - True ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - lessThanEqualsInteger + ifThenElse ) + Bool + } + [ [ + (builtin + lessThanEqualsInteger + ) [ [ - valueOf - ds + [ + valueOf + ds + ] + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) ] - ] - [ [ - (builtin - addInteger - ) [ + (builtin + addInteger + ) [ [ - valueOf - vl + [ + valueOf + vl + ] + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) ] + minAdaTxOut ] - (con - integer - 2000000 - ) ] ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - checkBinRel - equalsInteger + [ + checkBinRel + equalsInteger + ] + [ + noAdaValue + ds + ] ] [ noAdaValue - ds + vl ] ] - [ - noAdaValue - vl - ] ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead - (type) - Bool - ) - } - (abs - dead - (type) - { - [ - [ - { - [ - { - Maybe_match - (con - bytestring - ) - } + (type) + { + [ + [ + { [ { - [ - TxInfo_match - ww - ] - [ - Maybe - (con - bytestring - ) - ] + Maybe_match + (con + bytestring + ) } - (lam - ww - [ - List - TxInInfo - ] + [ + { + [ + TxInfo_match + ww + ] + [ + Maybe + (con + bytestring + ) + ] + } (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 @@ -8859,67 +8919,123 @@ (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 - ) - [ [ - wfindDatumHash - dv + [ + wfindDatumHash + dv + ] + ww ] - ww - ] + ) ) ) ) @@ -8929,234 +9045,234 @@ ) ) ) - ) + ] ] - ] - (all - dead - (type) - Bool - ) - } - (lam - a - (con - bytestring - ) - (abs - dead - (type) - { - [ + (all + dead + (type) + Bool + ) + } + (lam + a + (con + bytestring + ) + (abs + dead + (type) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsByteString + ifThenElse ) - a + Bool + } + [ + [ + (builtin + equalsByteString + ) + a + ] + svh ] - svh ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - [ - { - [ - Address_match - ds - ] - Bool - } - (lam - ww - Credential - (lam - ww + [ + { [ - Maybe - StakingCredential + Address_match + ds ] - [ + Bool + } + (lam + ww + Credential + (lam + ww + [ + Maybe + StakingCredential + ] [ [ [ - wc + [ + wc + ww + ] ww ] - ww - ] - [ - ScriptCredential - vlh + [ + ScriptCredential + vlh + ] ] + { + Nothing + StakingCredential + } ] - { - Nothing - StakingCredential - } - ] + ) ) - ) - ] + ] + ) + ] + (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 ) ] - (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 - ) - } + } + ) ) ) - ) - ] - ) + ] + ) + ] + ds ] - ds ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "Lb" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "Lb" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -9166,41 +9282,22 @@ ) ) ) - ) - ] + ] + ) ) ) - ) - ] - (lam - ds - (con bytestring) + ] (lam ds - [ Maybe (con bytestring) ] + (con bytestring) (lam - mdv - [ Maybe (con data) ] + ds + [ Maybe (con bytestring) ] (lam - vl - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ Tuple2 k ] v - ] - ] - ) - ) - (con bytestring) - ] + mdv + [ Maybe (con data) ] + (lam + vl [ [ (lam @@ -9220,29 +9317,104 @@ ) (con bytestring) ] - (con integer) - ] - ] - { - [ [ - { - [ - Bool_match - [ + [ + (lam + k + (type) + (lam + v + (type) [ + List [ - checkBinRel - lessThanEqualsInteger + [ + Tuple2 k + ] + v ] - vl ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + { + [ + [ + { + [ + Bool_match [ [ [ - { + checkBinRel + lessThanEqualsInteger + ] + vl + ] + [ + [ + [ { - foldr + { + foldr + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + } [ [ (lam @@ -9297,26 +9469,13 @@ ] ] } + fMonoidValue_c + ] + { + Nil [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + Tuple2 (con bytestring ) @@ -9351,125 +9510,15 @@ ] ] } - fMonoidValue_c ] - { - Nil - [ - [ - Tuple2 - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - } - ] - [ - { - [ - TxInfo_match - ww - ] - [ - List + [ + { [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] + TxInfo_match + ww ] - ] - } - (lam - ww - [ - List - TxInInfo - ] - (lam - ww [ List - TxOut - ] - (lam - ww [ [ (lam @@ -9523,6 +9572,20 @@ ) ] ] + ] + } + (lam + ww + [ + List + TxInInfo + ] + (lam + ww + [ + List + TxOut + ] (lam ww [ @@ -9581,94 +9644,125 @@ (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 - ) - [ [ [ - { + [ { - foldr - TxOut - } - [ - List + { + foldr + TxOut + } [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + List [ [ (lam @@ -9693,44 +9787,44 @@ bytestring ) ] - (con - integer - ) - ] - ] - ] - } - (lam - e - TxOut - (lam - xs - [ - List - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] + ] + ] + } + (lam + e + TxOut + (lam + xs + [ + List [ [ (lam @@ -9755,20 +9849,6 @@ bytestring ) ] - (con - integer - ) - ] - ] - ] - [ - { - [ - TxOut_match - e - ] - [ - List [ [ (lam @@ -9793,6 +9873,20 @@ bytestring ) ] + (con + integer + ) + ] + ] + ] + [ + { + [ + TxOut_match + e + ] + [ + List [ [ (lam @@ -9817,42 +9911,42 @@ bytestring ) ] - (con - integer - ) - ] - ] - ] - } - (lam - ds - Address - (lam - ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ + [ + [ + (lam + k + (type) + (lam + v + (type) [ - Tuple2 - k + List + [ + [ + Tuple2 + k + ] + v + ] ] - v - ] - ] + ) + ) + (con + bytestring + ) + ] + (con + integer ) - ) - (con - bytestring - ) + ] ] + ] + } + (lam + ds + Address + (lam + ds [ [ (lam @@ -9877,51 +9971,51 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - [ - { - [ - Address_match - ds - ] + [ [ - List - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k ] - ) - ) - (con - bytestring - ) - ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + [ + { + [ + Address_match + ds + ] + [ + List [ [ (lam @@ -9946,55 +10040,55 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] ] - ] - } - (lam - ds - Credential + } (lam ds - [ - Maybe - StakingCredential - ] - [ + Credential + (lam + ds [ - { - [ - Credential_match - ds - ] - [ - List + Maybe + StakingCredential + ] + [ + [ + { [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + Credential_match + ds + ] + [ + List [ [ (lam @@ -10019,116 +10113,77 @@ bytestring ) ] - (con - integer - ) - ] - ] - ] - } - (lam - pk - (con - bytestring - ) - { - [ - [ - { + [ [ - Bool_match - [ - [ + (lam + k + (type) + (lam + v + (type) [ - { - (builtin - ifThenElse - ) - Bool - } + List [ [ - (builtin - equalsByteString - ) - ds + Tuple2 + k ] - pk + v ] ] - True - ] - False - ] + ) + ) + (con + bytestring + ) ] - (all - dead - (type) + (con + integer + ) + ] + ] + ] + } + (lam + pk + (con + bytestring + ) + { + [ + [ + { [ - List + Bool_match [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] + { + (builtin + ifThenElse ) - ) - (con - bytestring - ) + Bool + } + [ + [ + (builtin + equalsByteString + ) + ds + ] + pk + ] ] - (con - integer - ) + True ] + False ] ] - ) - } - (abs - dead - (type) - [ - [ - { - Cons + (all + dead + (type) + [ + List [ [ (lam @@ -10182,71 +10237,110 @@ ) ] ] - } - ds + ] + ) + } + (abs + dead + (type) + [ + [ + { + Cons + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + } + ds + ] + xs ] - xs - ] + ) + ] + (abs + dead + (type) + xs ) ] - (abs + (all dead (type) - xs + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (lam + ipv + (con + bytestring + ) + xs ) ] - (lam - ipv - (con - bytestring - ) - xs - ) - ] + ) ) - ) - ] + ] + ) ) ) - ) - ] - ) - ) - ] - { - Nil - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring + ] ) - ] + ) + ] + { + Nil [ [ (lam @@ -10271,109 +10365,81 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - } + } + ] + ww ] - ww - ] + ) ) ) ) ) - ) - ) - ) - ) - ) - ) - ] - ] - ] - ] - (all - dead (type) Bool - ) - } - (abs - dead - (type) - [ - { - [ - TxInfo_match - ww - ] - Bool - } - (lam - ds - [ - List - TxInInfo - ] - (lam - ds - [ - List TxOut - ] - (lam - ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring + ) + ) ) - ] - (con - integer ) - ] + ) + ] + ] + ] + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + [ + { + [ + TxInfo_match + ww + ] + Bool + } + (lam + ds + [ + List + TxInInfo + ] + (lam + ds + [ + List + TxOut ] (lam ds @@ -10433,158 +10499,189 @@ (lam ds [ - List - DCert - ] - (lam - ds [ - 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 + ds + [ + List + DCert ] (lam ds [ - Interval - (con - integer - ) + List + [ + [ + Tuple2 + StakingCredential + ] + (con + integer + ) + ] ] (lam ds [ - List + Interval (con - bytestring + integer ) ] (lam ds [ List + (con + bytestring + ) + ] + (lam + ds [ + List [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] + ] + (lam + ds (con - data + bytestring ) - ] - ] - (lam - ds - (con - bytestring - ) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - TxOut - } [ { - fMonoidSum - Bool + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxOut } - fAdditiveMonoidBool - ] - ] - (lam - ds - TxOut - { [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + (lam + ds + TxOut + { [ - { - [ - { - Maybe_match - (con - data - ) - } - mdv - ] - (all - dead - (type) - Bool - ) - } - (lam - dv - (con - data - ) - (abs - dead - (type) + [ + { [ { - [ - TxOut_match - ds - ] - Bool + Maybe_match + (con + data + ) } - (lam - ds - Address - (lam - ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + mdv + ] + (all + dead + (type) + Bool + ) + } + (lam + dv + (con + data + ) + (abs + dead + (type) + [ + { + [ + TxOut_match + ds + ] + Bool + } + (lam + ds + Address + (lam + ds [ [ (lam @@ -10609,164 +10706,189 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - { [ [ - { - [ - { - Maybe_match - (con - bytestring - ) - } - ds - ] - (all - dead - (type) - Bool - ) - } (lam - svh - (con - bytestring - ) - (abs - dead + k + (type) + (lam + v (type) - { + [ + List [ [ - { - [ - { - Maybe_match - (con - bytestring - ) - } + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + { + [ + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) + Bool + ) + } + (lam + svh + (con + bytestring + ) + (abs + dead + (type) + { + [ + [ + { [ + { + Maybe_match + (con + bytestring + ) + } [ - wfindDatumHash - dv + [ + wfindDatumHash + dv + ] + ds ] - ds ] - ] - (all - dead - (type) - Bool - ) - } - (lam - a - (con - bytestring - ) - (abs - dead - (type) - [ + (all + dead + (type) + Bool + ) + } + (lam + a + (con + bytestring + ) + (abs + dead + (type) [ - equalsByteString - a + [ + equalsByteString + a + ] + svh ] - svh - ] + ) ) + ] + (abs + dead + (type) + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) + ] + (abs + dead + (type) + True ) ] - (abs + (all dead (type) - True + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) - ) - ] + ] + ) ) + ] + (abs + dead + (type) + True ) ] - (abs + (all dead (type) - True + dead ) - ] - (all - dead - (type) - dead - ) - } - ) + } + ) + ] + ds ] - ds ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + j ) ] - (abs + (all dead (type) - j + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -10776,36 +10898,20 @@ ) ) ) - ) - ] - ) + ] + ) + ] + (abs dead (type) j) ] - (abs dead (type) j) - ] - (all dead (type) dead) - } + (all dead (type) dead) + } + ) ) ) ) - ) - ] - (lam - vl - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List [ [ Tuple2 k ] v ] - ] - ) - ) - (con bytestring) - ] + ] + (lam + vl [ [ (lam @@ -10822,51 +10928,44 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - checkBinRel - lessThanEqualsInteger - ] - vl - ] - [ - { [ - TxInfo_match ww + checkBinRel + lessThanEqualsInteger ] - [ + vl + ] + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + TxInfo_match + ww ] [ [ @@ -10892,18 +10991,6 @@ bytestring ) ] - (con integer) - ] - ] - } - (lam - ds - [ List TxInInfo ] - (lam - ds - [ List TxOut ] - (lam - ds [ [ (lam @@ -10928,35 +11015,20 @@ bytestring ) ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] + (con + integer + ) ] + ] + } + (lam + ds + [ + List TxInInfo + ] + (lam + ds + [ List TxOut ] (lam ds [ @@ -11015,90 +11087,121 @@ (lam ds [ - List - DCert - ] - (lam - ds [ - 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 + ds + [ + List + DCert ] (lam ds [ - Interval - (con - integer - ) + List + [ + [ + Tuple2 + StakingCredential + ] + (con + integer + ) + ] ] (lam ds [ - List + Interval (con - bytestring + integer ) ] (lam ds [ List + (con + bytestring + ) + ] + (lam + ds [ + List [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] + ] + (lam + ds (con - data + bytestring ) - ] - ] - (lam - ds - (con - bytestring - ) - [ [ [ - { - { - fFoldableNil_cfoldMap - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + [ + { + { + fFoldableNil_cfoldMap [ [ (lam @@ -11123,84 +11226,49 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - TxOut - } - fMonoidValue - ] - (lam - ds - TxOut - [ - { - [ - TxOut_match - ds - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - 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 + integer ) ] - (con - integer - ) ] - ] + } + TxOut } - (lam - ds - Address - (lam - ds + fMonoidValue + ] + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] [ [ (lam @@ -11254,23 +11322,83 @@ ) ] ] + } + (lam + ds + Address (lam ds [ - Maybe - (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 + ) + ] ] - ds + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + ds + ) ) ) - ) - ] - ) + ] + ) + ] + ds ] - ds - ] + ) ) ) ) @@ -11280,64 +11408,41 @@ ) ) ) - ) + ] ] ] - ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (abs - dead - (type) - [ + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (abs + dead + (type) [ - { (builtin trace) Bool } - (con string "L6") + [ + { + (builtin trace) Bool + } + (con string "L6") + ] + False ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - xs - [ List [ List TxConstraint ] ] - { - [ + ) + ] + (all dead (type) dead) + } + ) + ] + (lam + xs + [ List [ List TxConstraint ] ] + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ - [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a (type) a - ) - Bool - ] - } - [ - List - TxConstraint - ] - } - [ - { - fMonoidSum Bool - } - fAdditiveMonoidBool - ] - ] [ [ { @@ -11350,67 +11455,81 @@ Bool ] } - TxConstraint + [ + List + TxConstraint + ] } [ { - fMonoidProduct + fMonoidSum Bool } - fMultiplicativeMonoidBool + fAdditiveMonoidBool ] ] - (lam - w - TxConstraint + [ [ + { + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxConstraint + } [ - wcheckTxConstraint - ww + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool ] - w ] - ) + (lam + w + TxConstraint + [ + [ + wcheckTxConstraint + ww + ] + w + ] + ) + ] ] + xs ] - xs ] - ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (abs - dead - (type) - [ + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (abs + dead + (type) [ - { (builtin trace) Bool } - (con string "Ld") + [ + { (builtin trace) Bool } + (con string "Ld") + ] + False ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - vl - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] + ) + ] + (all dead (type) dead) + } + ) + ] + (lam + vl [ [ (lam @@ -11424,47 +11543,41 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - checkBinRel - lessThanEqualsInteger - ] - vl - ] - [ - { - [ TxInfo_match ww ] [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 k - ] - v - ] - ] - ) - ) - (con bytestring) - ] + checkBinRel + lessThanEqualsInteger + ] + vl + ] + [ + { + [ TxInfo_match ww ] [ [ (lam @@ -11487,18 +11600,6 @@ ) (con bytestring) ] - (con integer) - ] - ] - } - (lam - ww - [ List TxInInfo ] - (lam - ww - [ List TxOut ] - (lam - ww [ [ (lam @@ -11523,6 +11624,18 @@ bytestring ) ] + (con integer) + ] + ] + } + (lam + ww + [ List TxInInfo ] + (lam + ww + [ List TxOut ] + (lam + ww [ [ (lam @@ -11547,35 +11660,37 @@ bytestring ) ] - (con integer) - ] - ] - (lam - ww - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] + ] + (lam + ww [ [ (lam @@ -11600,95 +11715,97 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ww - [ List DCert ] - (lam - ww [ - List [ - [ - 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 - ) - [ [ [ - { + [ { - fFoldableNil_cfoldMap - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + { + fFoldableNil_cfoldMap [ [ (lam @@ -11713,48 +11830,48 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] + } + TxInInfo } + fMonoidValue + ] + (lam + x TxInInfo - } - fMonoidValue - ] - (lam - x - TxInInfo - [ - { - [ - TxInInfo_match - x - ] - [ + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + TxInInfo_match + x ] [ [ @@ -11780,47 +11897,47 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { - [ - TxOut_match - ds - ] + [ [ - [ + (lam + k + (type) (lam - k + v (type) - (lam - v - (type) + [ + List [ - List [ - [ - Tuple2 - k - ] - v + Tuple2 + k ] + v ] - ) - ) - (con - bytestring + ] ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds ] [ [ @@ -11846,41 +11963,41 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - (lam - ds - Address - (lam - ds - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] + ] + } + (lam + ds + Address + (lam + ds [ [ (lam @@ -11905,31 +12022,56 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ds + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + ds + ) ) ) - ) - ] + ] + ) ) - ) - ] - ) + ] + ) + ] + ww ] - ww - ] + ) ) ) ) @@ -11939,78 +12081,40 @@ ) ) ) - ) + ] ] ] - ] - (all dead (type) Bool) - } - (abs dead (type) True) - ] - (abs - dead - (type) - [ + (all dead (type) Bool) + } + (abs dead (type) True) + ] + (abs + dead + (type) [ - { (builtin trace) Bool } - (con string "L5") + [ + { (builtin trace) Bool } + (con string "L5") + ] + False ] - False - ] - ) - ] - (all dead (type) dead) - } - ) - ] - (lam - txOutRef - TxOutRef - [ - { [ TxInfo_match ww ] Bool } - (lam - ww - [ List TxInInfo ] + ) + ] + (all dead (type) dead) + } + ) + ] + (lam + txOutRef + TxOutRef + [ + { [ TxInfo_match ww ] Bool } (lam ww - [ List TxOut ] + [ List 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 [ @@ -12050,222 +12154,238 @@ ] (lam ww - [ List DCert ] - (lam - ww + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] [ - List [ - [ - Tuple2 - StakingCredential - ] - (con integer) + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ Tuple2 k ] v + ] + ] + ) + ) + (con bytestring) ] + (con integer) ] + ] + (lam + ww + [ List DCert ] (lam ww [ - Interval (con integer) + List + [ + [ + Tuple2 + StakingCredential + ] + (con integer) + ] ] (lam ww [ - List - (con bytestring) + Interval + (con integer) ] (lam ww [ List - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con data) - ] + (con bytestring) ] (lam ww - (con bytestring) - { + [ + List [ [ - { - [ - { - Maybe_match - TxInInfo - } + Tuple2 + (con + bytestring + ) + ] + (con data) + ] + ] + (lam + ww + (con bytestring) + { + [ + [ + { [ + { + Maybe_match + TxInInfo + } [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - [ - Maybe + { + fFoldableNil_cfoldMap + [ + (lam a - ] - ) - TxInInfo - ] + (type) + [ + Maybe + a + ] + ) + TxInInfo + ] + } + TxInInfo } - TxInInfo - } - { - fMonoidFirst - TxInInfo - } - ] - (lam - x - TxInInfo - [ { - [ - TxInInfo_match - x - ] - [ - Maybe - TxInInfo - ] + fMonoidFirst + TxInInfo } - (lam - ds - TxOutRef + ] + (lam + x + TxInInfo + [ + { + [ + TxInInfo_match + x + ] + [ + Maybe + TxInInfo + ] + } (lam ds - TxOut - { - [ + TxOutRef + (lam + ds + TxOut + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ - fEqTxOutRef_c - ds + [ + fEqTxOutRef_c + ds + ] + txOutRef ] - txOutRef ] - ] - (all + (all + dead + (type) + [ + Maybe + TxInInfo + ] + ) + } + (abs dead (type) [ - Maybe - TxInInfo + { + Just + TxInInfo + } + x ] ) - } + ] (abs dead (type) - [ - { - Just - TxInInfo - } - x - ] + { + Nothing + TxInInfo + } ) ] - (abs + (all dead (type) - { - Nothing - TxInInfo - } + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] - ) + ] + ) + ] + ww ] - ww ] - ] - (all - dead - (type) - Bool - ) - } - (lam - a - TxInInfo - (abs - dead - (type) - [ - { - [ - TxInInfo_match - a - ] - Bool - } - (lam - ds - TxOutRef + (all + dead + (type) + Bool + ) + } + (lam + a + TxInInfo + (abs + dead + (type) + [ + { + [ + TxInInfo_match + a + ] + Bool + } (lam ds - TxOut - [ - { - [ - TxOut_match - ds - ] - Bool - } - (lam - ds - Address + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + Bool + } (lam ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + Address + (lam + ds [ [ (lam @@ -12290,84 +12410,109 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - { [ [ - { - [ - { - Maybe_match - (con - bytestring - ) - } - ds - ] - (all - dead - (type) - Bool - ) - } (lam - ds - (con - bytestring - ) - (abs - dead + k + (type) + (lam + v (type) - j + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] ) ) + (con + bytestring + ) ] - (abs + (con + integer + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + { + [ + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) + Bool + ) + } + (lam + ds + (con + bytestring + ) + (abs + dead + (type) + j + ) + ) + ] + (abs + dead + (type) + True + ) + ] + (all dead (type) - True + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) - ) - ] + ] + ) ) - ) - ] + ] + ) ) + ] + (abs + dead + (type) + j ) ] - (abs + (all dead (type) - j + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -12377,61 +12522,23 @@ ) ) ) - ) - ] - ) - ] - (lam - txOutRef - TxOutRef + ] + ) + ] (lam - ds - (con data) - [ - { [ TxInfo_match ww ] Bool } - (lam - ww - [ List TxInInfo ] + txOutRef + TxOutRef + (lam + ds + (con data) + [ + { [ TxInfo_match ww ] Bool } (lam ww - [ List TxOut ] + [ List 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 [ @@ -12471,201 +12578,242 @@ ] (lam ww - [ List DCert ] - (lam - ww + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] [ - List [ - [ - Tuple2 - StakingCredential - ] - (con integer) + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ Tuple2 k ] v + ] + ] + ) + ) + (con bytestring) ] + (con integer) ] + ] + (lam + ww + [ List DCert ] (lam ww [ - Interval (con integer) + List + [ + [ + Tuple2 + StakingCredential + ] + (con integer) + ] ] (lam ww [ - List - (con bytestring) + Interval + (con integer) ] (lam ww [ List - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con data) - ] + (con bytestring) ] (lam ww - (con bytestring) - { + [ + List [ [ - { - [ - { - Maybe_match - TxInInfo - } + Tuple2 + (con + bytestring + ) + ] + (con data) + ] + ] + (lam + ww + (con bytestring) + { + [ + [ + { [ + { + Maybe_match + TxInInfo + } [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - [ - Maybe + { + fFoldableNil_cfoldMap + [ + (lam a - ] - ) - TxInInfo - ] + (type) + [ + Maybe + a + ] + ) + TxInInfo + ] + } + TxInInfo } - TxInInfo - } - { - fMonoidFirst - TxInInfo - } - ] - (lam - x - TxInInfo - [ { - [ - TxInInfo_match - x - ] - [ - Maybe - TxInInfo - ] + fMonoidFirst + TxInInfo } - (lam - ds - TxOutRef + ] + (lam + x + TxInInfo + [ + { + [ + TxInInfo_match + x + ] + [ + Maybe + TxInInfo + ] + } (lam ds - TxOut - { - [ + TxOutRef + (lam + ds + TxOut + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ - fEqTxOutRef_c - ds + [ + fEqTxOutRef_c + ds + ] + txOutRef ] - txOutRef ] - ] - (all + (all + dead + (type) + [ + Maybe + TxInInfo + ] + ) + } + (abs dead (type) [ - Maybe - TxInInfo + { + Just + TxInInfo + } + x ] ) - } + ] (abs dead (type) - [ - { - Just - TxInInfo - } - x - ] + { + Nothing + TxInInfo + } ) ] - (abs + (all dead (type) - { - Nothing - TxInInfo - } + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] - ) + ] + ) + ] + ww ] - ww ] - ] - (all - dead - (type) - Bool - ) - } - (lam - ds - TxInInfo - (abs - dead - (type) - True + (all + dead + (type) + Bool + ) + } + (lam + ds + TxInInfo + (abs + dead + (type) + True + ) ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L8" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L8" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -12675,55 +12823,21 @@ ) ) ) - ) - ] + ] + ) ) - ) - ] - (lam - interval - [ Interval (con integer) ] - [ - { [ TxInfo_match ww ] Bool } - (lam - ds - [ List TxInInfo ] + ] + (lam + interval + [ Interval (con integer) ] + [ + { [ TxInfo_match ww ] Bool } (lam ds - [ List TxOut ] + [ List TxInInfo ] (lam ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List [ [ Tuple2 k ] v ] - ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] + [ List TxOut ] (lam ds [ @@ -12762,165 +12876,208 @@ ] (lam ds - [ List DCert ] - (lam - ds + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] [ - List [ - [ - Tuple2 StakingCredential - ] - (con integer) + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) ] + (con integer) ] + ] + (lam + ds + [ List DCert ] (lam ds - [ Interval (con integer) ] + [ + List + [ + [ + Tuple2 + StakingCredential + ] + (con integer) + ] + ] (lam ds - [ List (con bytestring) ] + [ Interval (con integer) ] (lam ds [ - List - [ - [ - Tuple2 - (con bytestring) - ] - (con data) - ] + List (con bytestring) ] (lam ds - (con bytestring) [ - { - [ - { - Interval_match - (con integer) - } - interval - ] - Bool - } - (lam - ww + List + [ [ - LowerBound - (con integer) + Tuple2 + (con bytestring) ] + (con data) + ] + ] + (lam + ds + (con bytestring) + [ + { + [ + { + Interval_match + (con + integer + ) + } + interval + ] + Bool + } (lam ww [ - UpperBound + LowerBound (con integer) ] - [ - { - [ - { - LowerBound_match - (con - integer - ) - } - ww - ] - Bool - } - (lam - ww - [ - Extended - (con - integer - ) - ] - (lam - ww - Bool + (lam + ww + [ + UpperBound + (con + integer + ) + ] + [ + { [ { - [ - { - Interval_match - (con - integer - ) - } - ds - ] - Bool + LowerBound_match + (con + integer + ) } - (lam - ww - [ - LowerBound - (con - integer - ) - ] + ww + ] + Bool + } + (lam + ww + [ + Extended + (con + integer + ) + ] + (lam + ww + Bool + [ + { + [ + { + Interval_match + (con + integer + ) + } + ds + ] + Bool + } (lam ww [ - UpperBound + LowerBound (con integer ) ] - [ - { - [ - { - LowerBound_match + (lam + ww + [ + UpperBound + (con + integer + ) + ] + [ + { + [ + { + LowerBound_match + (con + integer + ) + } + ww + ] + Bool + } + (lam + ww + [ + Extended (con integer ) - } - ww - ] - Bool - } - (lam - ww - [ - Extended - (con - integer - ) - ] - (lam - ww - Bool - { - [ + ] + (lam + ww + Bool + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ [ [ [ - (let - (nonrec) - (termbind - (strict) - (vardecl - w - [ - Ord - (con - integer - ) - ] - ) - [ + [ + (let + (nonrec) + (termbind + (strict) + (vardecl + w + [ + Ord + (con + integer + ) + ] + ) [ [ [ @@ -12928,171 +13085,208 @@ [ [ [ - { - CConsOrd - (con - integer - ) - } - equalsInteger - ] - (lam - x - (con - integer - ) + [ + { + CConsOrd + (con + integer + ) + } + equalsInteger + ] (lam - y + x (con integer ) - { - [ + (lam + y + (con + integer + ) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsInteger + ifThenElse ) - x + Bool + } + [ + [ + (builtin + equalsInteger + ) + x + ] + y ] - y ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Ordering + ) + } + (abs dead (type) - Ordering + EQ ) - } + ] (abs dead (type) - EQ - ) - ] - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - lessThanEqualsInteger + ifThenElse ) - x + Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + x + ] + y ] - y ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Ordering + ) + } + (abs dead (type) - Ordering + LT ) - } + ] (abs dead (type) - LT + GT ) ] - (abs + (all dead (type) - GT + dead ) - ] - (all - dead - (type) - dead + } + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) + ] + (lam + x + (con + integer + ) + (lam + y + (con + integer + ) + [ + [ + [ + { + (builtin + ifThenElse ) + Bool } - ) + [ + [ + (builtin + lessThanInteger + ) + x + ] + y + ] + ] + True ] - (all - dead - (type) - dead - ) - } + False + ] ) ) ] + lessThanEqualsInteger + ] + (lam + x + (con + integer + ) (lam - x + y (con integer ) - (lam - y - (con - integer - ) + [ [ [ + { + (builtin + ifThenElse + ) + Bool + } [ - { + [ (builtin - ifThenElse + lessThanEqualsInteger ) - Bool - } - [ - [ - (builtin - lessThanInteger - ) - x - ] - y + x ] + y ] - True ] False ] - ) + True + ] ) - ] - lessThanEqualsInteger + ) ] (lam x @@ -13116,7 +13310,7 @@ [ [ (builtin - lessThanEqualsInteger + lessThanInteger ) x ] @@ -13140,29 +13334,62 @@ (con integer ) - [ + { [ [ { - (builtin - ifThenElse - ) - Bool - } - [ [ - (builtin - lessThanInteger - ) - x + Bool_match + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + x + ] + y + ] + ] + True + ] + False + ] ] + (all + dead + (type) + (con + integer + ) + ) + } + (abs + dead + (type) y - ] + ) ] - False + (abs + dead + (type) + x + ) ] - True - ] + (all + dead + (type) + dead + ) + } ) ) ] @@ -13217,13 +13444,13 @@ (abs dead (type) - y + x ) ] (abs dead (type) - x + y ) ] (all @@ -13235,278 +13462,211 @@ ) ) ] - (lam - x + ) + (lam + ww + [ + Extended (con integer ) - (lam - y - (con - integer - ) - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - lessThanEqualsInteger - ) - x - ] - y - ] - ] - True - ] - False - ] - ] - (all - dead - (type) - (con - integer - ) - ) - } - (abs - dead - (type) - x - ) - ] - (abs - dead - (type) - y - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - ] - ) - (lam - ww - [ - Extended - (con - integer - ) - ] - (lam - ww - Bool + ] (lam ww - [ - UpperBound - (con - integer - ) - ] + Bool (lam ww [ - Extended + UpperBound (con integer ) ] (lam ww - Bool + [ + Extended + (con + integer + ) + ] (lam ww - [ - UpperBound - (con - integer - ) - ] - { + Bool + (lam + ww [ + UpperBound + (con + integer + ) + ] + { [ [ - { - [ - Ordering_match + [ + { [ + Ordering_match [ [ - { - hull_ccompare - (con - integer - ) - } - w + [ + { + hull_ccompare + (con + integer + ) + } + w + ] + ww ] ww ] - ww ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match - ww - ] - (all - dead - (type) - Bool - ) - } - (abs - dead - (type) + [ { [ + Bool_match + ww + ] + (all + dead + (type) + Bool + ) + } + (abs + dead + (type) + { [ - { - [ - Bool_match - ww - ] - (all + [ + { + [ + Bool_match + ww + ] + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - [ [ [ - { - fOrdUpperBound0_c - (con - integer - ) - } - w + [ + { + fOrdUpperBound0_c + (con + integer + ) + } + w + ] + ww ] ww ] - ww - ] + ) + ] + (abs + dead + (type) + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ] - (abs - dead - (type) - [ + } + ) + ] + (abs + dead + (type) [ [ - { - fOrdUpperBound0_c - (con - integer - ) - } - w + [ + { + fOrdUpperBound0_c + (con + integer + ) + } + w + ] + ww ] ww ] - ww - ] + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (abs + dead + (type) + False ) ] (abs dead (type) - False - ) - ] - (abs - dead - (type) - [ [ [ - { - fOrdUpperBound0_c - (con - integer - ) - } - w + [ + { + fOrdUpperBound0_c + (con + integer + ) + } + w + ] + ww ] ww ] - ww - ] + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) ) ) ) - ) + ww + ] ww ] ww @@ -13517,59 +13677,58 @@ ] ww ] - ww ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L3" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L3" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] + ] + ) ) - ) - ] + ] + ) ) - ) - ] + ] + ) ) - ) - ] + ] + ) ) ) ) @@ -13579,215 +13738,192 @@ ) ) ) - ) - ] - ) - ] + ] + ) + ] + ) ) ) - ) - (let - (nonrec) - (datatypebind - (datatype - (tyvardecl ScriptPurpose (type)) + (let + (nonrec) + (datatypebind + (datatype + (tyvardecl ScriptPurpose (type)) - ScriptPurpose_match - (vardecl Certifying (fun DCert ScriptPurpose)) - (vardecl - Minting (fun (con bytestring) ScriptPurpose) - ) - (vardecl - Rewarding - (fun StakingCredential ScriptPurpose) + ScriptPurpose_match + (vardecl Certifying (fun DCert ScriptPurpose)) + (vardecl + Minting (fun (con bytestring) ScriptPurpose) + ) + (vardecl + Rewarding + (fun StakingCredential ScriptPurpose) + ) + (vardecl + Spending (fun TxOutRef ScriptPurpose) + ) ) - (vardecl Spending (fun TxOutRef ScriptPurpose)) ) - ) - (termbind - (strict) - (vardecl - wfindOwnInput - (fun - [ List TxInInfo ] - (fun ScriptPurpose [ Maybe TxInInfo ]) + (termbind + (strict) + (vardecl + wfindOwnInput + (fun + [ List TxInInfo ] + (fun ScriptPurpose [ Maybe TxInInfo ]) + ) ) - ) - (lam - ww - [ List TxInInfo ] (lam ww - ScriptPurpose - { + [ List TxInInfo ] + (lam + ww + ScriptPurpose [ [ [ [ { [ ScriptPurpose_match ww ] - (all - dead (type) [ Maybe TxInInfo ] - ) + [ Maybe TxInInfo ] } (lam default_arg0 DCert - (abs - dead (type) { Nothing TxInInfo } - ) + { Nothing TxInInfo } ) ] (lam default_arg0 (con bytestring) - (abs - dead (type) { Nothing TxInInfo } - ) + { Nothing TxInInfo } ) ] (lam default_arg0 StakingCredential - (abs dead (type) { Nothing TxInInfo }) + { Nothing TxInInfo } ) ] (lam txOutRef TxOutRef - (abs - dead - (type) + [ [ [ - [ + { { - { - fFoldableNil_cfoldMap - [ - (lam a (type) [ Maybe a ]) - TxInInfo - ] - } - TxInInfo + fFoldableNil_cfoldMap + [ + (lam a (type) [ Maybe a ]) + TxInInfo + ] } - { fMonoidFirst TxInInfo } - ] - (lam - x TxInInfo - [ - { - [ TxInInfo_match x ] - [ Maybe TxInInfo ] - } + } + { fMonoidFirst TxInInfo } + ] + (lam + x + TxInInfo + [ + { + [ TxInInfo_match x ] + [ Maybe TxInInfo ] + } + (lam + ds + TxOutRef (lam ds - TxOutRef - (lam - ds - TxOut - { + TxOut + { + [ [ - [ - { + { + [ + Bool_match [ - Bool_match [ - [ - fEqTxOutRef_c - ds - ] - txOutRef + fEqTxOutRef_c + ds ] + txOutRef ] - (all - dead - (type) - [ - Maybe TxInInfo - ] - ) - } - (abs + ] + (all dead (type) - [ - { - Just TxInInfo - } - x - ] + [ Maybe TxInInfo ] ) - ] + } (abs dead (type) - { Nothing TxInInfo } + [ + { Just TxInInfo } + x + ] ) ] - (all dead (type) dead) - } - ) + (abs + dead + (type) + { Nothing TxInInfo } + ) + ] + (all dead (type) dead) + } ) - ] - ) - ] - ww + ) + ] + ) ] - ) + ww + ] ) ] - (all dead (type) dead) - } + ) ) ) - ) - (datatypebind - (datatype - (tyvardecl ScriptContext (type)) + (datatypebind + (datatype + (tyvardecl ScriptContext (type)) - ScriptContext_match - (vardecl - ScriptContext - (fun TxInfo (fun ScriptPurpose ScriptContext)) + ScriptContext_match + (vardecl + ScriptContext + (fun + TxInfo (fun ScriptPurpose ScriptContext) + ) + ) ) ) - ) - (datatypebind - (datatype - (tyvardecl InputConstraint (fun (type) (type))) - (tyvardecl a (type)) - InputConstraint_match - (vardecl - InputConstraint - (fun a (fun TxOutRef [ InputConstraint a ])) + (datatypebind + (datatype + (tyvardecl + InputConstraint (fun (type) (type)) + ) + (tyvardecl a (type)) + InputConstraint_match + (vardecl + InputConstraint + (fun a (fun TxOutRef [ InputConstraint a ])) + ) ) ) - ) - (datatypebind - (datatype - (tyvardecl OutputConstraint (fun (type) (type))) - (tyvardecl a (type)) - OutputConstraint_match - (vardecl - OutputConstraint - (fun - a + (datatypebind + (datatype + (tyvardecl + OutputConstraint (fun (type) (type)) + ) + (tyvardecl a (type)) + OutputConstraint_match + (vardecl + OutputConstraint (fun - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] + a + (fun [ [ (lam @@ -13801,256 +13937,214 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] - [ OutputConstraint a ] + [ OutputConstraint a ] + ) ) ) ) ) - ) - (termbind - (strict) - (vardecl - wcheckScriptContext - (all - i - (type) + (termbind + (strict) + (vardecl + wcheckScriptContext (all - o + i (type) - (fun - [ (lam a (type) (fun a (con data))) o ] + (all + o + (type) (fun - [ List TxConstraint ] + [ (lam a (type) (fun a (con data))) o ] (fun - [ List [ InputConstraint i ] ] + [ List TxConstraint ] (fun - [ List [ OutputConstraint o ] ] - (fun ScriptContext Bool) + [ List [ InputConstraint i ] ] + (fun + [ List [ OutputConstraint o ] ] + (fun ScriptContext Bool) + ) ) ) ) ) ) ) - ) - (abs - i - (type) (abs - o + i (type) - (lam - w - [ (lam a (type) (fun a (con data))) o ] + (abs + o + (type) (lam - ww - [ List TxConstraint ] + w + [ (lam a (type) (fun a (con data))) o ] (lam ww - [ List [ InputConstraint i ] ] + [ List TxConstraint ] (lam ww - [ List [ OutputConstraint o ] ] + [ List [ InputConstraint i ] ] (lam - w - ScriptContext - { - [ + ww + [ List [ OutputConstraint 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 + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } [ - (lam - a - (type) - a - ) - Bool + InputConstraint + i ] } + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] + ] + (lam + w [ InputConstraint i ] - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - (lam - w - [ - InputConstraint - i - ] - [ - { - [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo + [ + { + [ + 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 @@ -14110,181 +14204,237 @@ (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 - ) - [ - { - [ - { - InputConstraint_match - i - } - w - ] - Bool - } - (lam - ww - i + [ + { + [ + { + InputConstraint_match + i + } + w + ] + Bool + } (lam ww - TxOutRef - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - TxInInfo - } + i + (lam + ww + TxOutRef + { + [ + [ + { + [ + Bool_match + [ + [ [ { - fMonoidSum - Bool + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxInInfo } - fAdditiveMonoidBool + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] ] - ] - (lam - ds - TxInInfo - [ - { - [ - TxInInfo_match - ds - ] - Bool - } - (lam - ds - TxOutRef + (lam + ds + TxInInfo + [ + { + [ + TxInInfo_match + ds + ] + Bool + } (lam ds - TxOut - [ + TxOutRef + (lam + ds + TxOut [ - fEqTxOutRef_c - ds + [ + fEqTxOutRef_c + ds + ] + ww ] - ww - ] + ) ) - ) - ] - ) + ] + ) + ] + ww ] - ww ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L0" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L0" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] + ] + ) ) ) ) @@ -14294,151 +14444,95 @@ ) ) ) - ) - ] + ] + ) ) - ) - ] - ) + ] + ) + ] + 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 - ] - } - [ - OutputConstraint - o - ] - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - (lam - w - [ - OutputConstraint - o - ] [ { - [ - ScriptContext_match - w - ] - Bool - } - (lam - ww - TxInfo - (lam - ww - ScriptPurpose + { + fFoldableNil_cfoldMap [ - { - [ - 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 - ) - ] + a + (type) + a + ) + Bool + ] + } + [ + OutputConstraint + o + ] + } + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] + ] + (lam + w + [ + OutputConstraint + 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 @@ -14498,100 +14592,131 @@ (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 - ) - [ - { - [ - { - OutputConstraint_match - o - } - w - ] - Bool - } - (lam - ww - o + [ + { + [ + { + OutputConstraint_match + o + } + w + ] + Bool + } (lam ww - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + o + (lam + ww [ [ (lam @@ -14616,14 +14741,6 @@ bytestring ) ] - (con - integer - ) - ] - ] - [ - (lam - ww [ [ (lam @@ -14648,6 +14765,14 @@ bytestring ) ] + (con + integer + ) + ] + ] + [ + (lam + ww [ [ (lam @@ -14672,82 +14797,82 @@ bytestring ) ] - (con - integer - ) - ] - ] - { - [ [ - { - [ - Bool_match - [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + { + [ + [ + { + [ + Bool_match [ [ - { - { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - TxOut - } [ { - fMonoidSum - Bool + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + TxOut } - fAdditiveMonoidBool + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] ] - ] - (lam - ds - TxOut - [ - { - [ - TxOut_match - ds - ] - Bool - } - (lam - ds - Address + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + Bool + } (lam ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + Address + (lam + ds [ [ (lam @@ -14772,437 +14897,410 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - { [ [ - { - [ - { - Maybe_match - (con - bytestring - ) - } - ds - ] - (all - dead - (type) - Bool - ) - } (lam - svh - (con - bytestring - ) - (abs - dead + k + (type) + (lam + v (type) - { + [ + List [ [ - { - [ - Bool_match + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + { + [ + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) + Bool + ) + } + (lam + svh + (con + bytestring + ) + (abs + dead + (type) + { + [ + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - lessThanInteger + ifThenElse ) + Bool + } + [ [ + (builtin + lessThanInteger + ) [ [ - valueOf - ds + [ + valueOf + ds + ] + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) ] - ] - [ [ [ - valueOf - ww + [ + valueOf + ww + ] + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) ] ] + False ] - False + True ] - True ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - lessThanEqualsInteger + ifThenElse ) + Bool + } + [ [ + (builtin + lessThanEqualsInteger + ) [ [ - valueOf - ds + [ + valueOf + ds + ] + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) ] - ] - [ [ - (builtin - addInteger - ) [ + (builtin + addInteger + ) [ [ - valueOf - ww + [ + valueOf + ww + ] + emptyByteString ] - (con - bytestring - # - ) + emptyByteString ] - (con - bytestring - # - ) ] + minAdaTxOut ] - (con - integer - 2000000 - ) ] ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - checkBinRel - equalsInteger + [ + checkBinRel + equalsInteger + ] + [ + noAdaValue + ds + ] ] [ noAdaValue - ds + ww ] ] - [ - noAdaValue - ww - ] ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - { - Maybe_match - (con - bytestring - ) - } + [ + { [ + { + Maybe_match + (con + bytestring + ) + } [ - wfindDatumHash [ - w - ww + wfindDatumHash + [ + w + ww + ] ] + ww ] - ww ] - ] - (all - dead - (type) - Bool - ) - } - (lam - a - (con - bytestring - ) - (abs - dead - (type) - [ + (all + dead + (type) + Bool + ) + } + (lam + a + (con + bytestring + ) + (abs + dead + (type) [ - equalsByteString - a + [ + equalsByteString + a + ] + svh ] - svh - ] + ) ) + ] + (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 ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) + ] + (abs + dead + (type) + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) - ) - ] - ) - ] - { - [ + ] + ) + ] + { [ - { - [ - { - Maybe_match - TxInInfo - } + [ + { [ + { + Maybe_match + TxInInfo + } [ - wfindOwnInput + [ + wfindOwnInput + ww + ] ww ] - ww ] - ] - (all - dead - (type) - [ - List - TxOut - ] - ) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { - [ - TxInInfo_match - ds - ] - [ - List - TxOut - ] - } - (lam - ds - TxOutRef + (all + dead + (type) + [ + List + TxOut + ] + ) + } + (lam + ds + TxInInfo + (abs + dead + (type) + [ + { + [ + TxInInfo_match + ds + ] + [ + List + TxOut + ] + } (lam ds - TxOut - [ - { - [ - TxOut_match - ds - ] - [ - List - TxOut - ] - } - (lam - ds - Address + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + [ + List + TxOut + ] + } (lam ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + Address + (lam + ds [ [ (lam @@ -15218,90 +15316,90 @@ Tuple2 k ] - v + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] ] - ] + ) + ) + (con + bytestring ) + ] + (con + integer ) + ] + ] + (lam + ds + [ + Maybe (con bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - [ [ [ - { + [ { - foldr - TxOut - } - [ - List - TxOut - ] - } - (lam - e - TxOut - (lam - xs + { + foldr + TxOut + } [ List TxOut ] - [ - { - [ - TxOut_match - e - ] - [ - List - TxOut - ] - } - (lam - ds - Address + } + (lam + e + TxOut + (lam + xs + [ + List + TxOut + ] + [ + { + [ + TxOut_match + e + ] + [ + List + TxOut + ] + } (lam ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + Address + (lam + ds [ [ (lam @@ -15326,240 +15424,271 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - [ - { - [ - Address_match - ds - ] + [ [ - List - TxOut + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] - } - (lam - ww - Credential - (lam - ww + (con + integer + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + [ + { [ - Maybe - StakingCredential + Address_match + ds ] [ - { - [ - Address_match - ds - ] - [ - List - TxOut - ] - } - (lam - ww - Credential - (lam - ww + List + TxOut + ] + } + (lam + ww + Credential + (lam + ww + [ + Maybe + StakingCredential + ] + [ + { [ - Maybe - StakingCredential + Address_match + ds ] - { + [ + List + TxOut + ] + } + (lam + ww + Credential + (lam + ww [ + Maybe + StakingCredential + ] + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ [ - wc + [ + wc + ww + ] ww ] ww ] ww ] - ww ] - ] - (all + (all + dead + (type) + [ + List + TxOut + ] + ) + } + (abs dead (type) [ - List - TxOut + [ + { + Cons + TxOut + } + e + ] + xs ] ) - } + ] (abs dead (type) - [ - [ - { - Cons - TxOut - } - e - ] - xs - ] + xs ) ] - (abs + (all dead (type) - xs + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] + ] + ) ) - ) - ] + ] + ) ) ) - ) - ] + ] + ) ) - ) + ] + { + Nil + TxOut + } ] - { - Nil - TxOut - } + ww ] - ww - ] + ) ) ) - ) - ] + ] + ) ) - ) - ] + ] + ) ) - ) - ] - (abs - dead - (type) - [ - { - error - [ - List - TxOut - ] - } - [ - { + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + thunk + (con + unit + ) + ) [ - Unit_match - [ + { [ - { - (builtin - trace - ) + Unit_match + [ + [ + { + (builtin + trace + ) + Unit + } + (con + string + "Lf" + ) + ] Unit - } - (con - string - "Lf" - ) + ] ] - Unit - ] + (con + unit + ) + } + unitval ] - (con - unit - ) - } - (con - unit - () ) - ] - ] + (error + [ + List + TxOut + ] + ) + ) + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ] ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "L1" + ) + ] + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "L1" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ww - ] + } + ) + ww + ] + ) ) - ) - ] + ] + ) ) ) ) @@ -15569,48 +15698,52 @@ ) ) ) - ) - ] + ] + ) ) - ) - ] - ) + ] + ) + ] + ww ] - ww ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + 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) + } + ) ) ) ) @@ -15618,43 +15751,30 @@ ) ) ) - ) - (datatypebind - (datatype - (tyvardecl ThreadToken (type)) + (datatypebind + (datatype + (tyvardecl ThreadToken (type)) - ThreadToken_match - (vardecl - ThreadToken - (fun - TxOutRef (fun (con bytestring) ThreadToken) + 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 + (datatypebind + (datatype + (tyvardecl State (fun (type) (type))) + (tyvardecl s (type)) + State_match + (vardecl + State (fun - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] + s + (fun [ [ (lam @@ -15668,162 +15788,140 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] - [ State s ] + [ State s ] + ) ) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl - TxConstraints (fun (type) (fun (type) (type))) - ) - (tyvardecl i (type)) (tyvardecl o (type)) - TxConstraints_match - (vardecl - TxConstraints - (fun - [ List TxConstraint ] + (datatypebind + (datatype + (tyvardecl + TxConstraints + (fun (type) (fun (type) (type))) + ) + (tyvardecl i (type)) (tyvardecl o (type)) + TxConstraints_match + (vardecl + TxConstraints (fun - [ List [ InputConstraint i ] ] + [ List TxConstraint ] (fun - [ List [ OutputConstraint o ] ] - [ [ TxConstraints i ] o ] + [ List [ InputConstraint i ] ] + (fun + [ List [ OutputConstraint o ] ] + [ [ TxConstraints i ] o ] + ) ) ) ) ) ) - ) - (datatypebind - (datatype (tyvardecl Void (type)) Void_match ) - ) - (datatypebind - (datatype - (tyvardecl - StateMachine (fun (type) (fun (type) (type))) - ) - (tyvardecl s (type)) (tyvardecl i (type)) - StateMachine_match - (vardecl - StateMachine - (fun + (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 - [ State s ] (fun - i - [ - Maybe + [ State s ] + (fun + i [ + Maybe [ - Tuple2 - [ [ TxConstraints Void ] Void ] + [ + Tuple2 + [ [ TxConstraints Void ] Void ] + ] + [ State s ] ] - [ State s ] ] - ] + ) ) - ) - (fun - (fun s Bool) (fun - (fun s (fun i (fun ScriptContext Bool))) + (fun s Bool) (fun - [ Maybe ThreadToken ] - [ [ StateMachine s ] i ] + (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) - } + (termbind + (strict) + (vardecl + ownHash (fun ScriptContext (con bytestring)) + ) + (lam + p + ScriptContext + [ + { [ { - [ ScriptContext_match p ] - [ - [ Tuple2 (con bytestring) ] - (con bytestring) - ] + { Tuple2_match (con bytestring) } + (con bytestring) } - (lam - ww - TxInfo - (lam - ww - ScriptPurpose + [ + { + [ ScriptContext_match p ] [ - { - [ TxInfo_match ww ] - [ - [ Tuple2 (con bytestring) ] - (con bytestring) - ] - } - (lam - ww - [ List TxInInfo ] + [ Tuple2 (con bytestring) ] + (con bytestring) + ] + } + (lam + ww + TxInfo + (lam + ww + ScriptPurpose + [ + { + [ TxInfo_match ww ] + [ + [ Tuple2 (con bytestring) ] + (con bytestring) + ] + } (lam ww - [ List TxOut ] + [ List 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 [ @@ -15868,160 +15966,183 @@ ] (lam ww - [ List DCert ] - (lam - ww + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ Tuple2 k ] + v + ] + ] + ) + ) + (con bytestring) + ] [ - List [ - [ - Tuple2 - StakingCredential - ] - (con integer) + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 k + ] + v + ] + ] + ) + ) + (con bytestring) ] + (con integer) ] + ] + (lam + ww + [ List DCert ] (lam ww [ - Interval - (con integer) + List + [ + [ + Tuple2 + StakingCredential + ] + (con integer) + ] ] (lam ww [ - List - (con bytestring) + Interval + (con integer) ] (lam ww [ List - [ - [ - Tuple2 - (con - bytestring - ) - ] - (con data) - ] - ] - (lam - ww (con bytestring ) - { + ] + (lam + ww + [ + List [ [ - { - [ - { - Maybe_match - TxInInfo - } + Tuple2 + (con + bytestring + ) + ] + (con data) + ] + ] + (lam + ww + (con + bytestring + ) + { + [ + [ + { [ + { + Maybe_match + TxInInfo + } [ - wfindOwnInput + [ + wfindOwnInput + ww + ] ww ] - ww ] - ] - (all - dead - (type) - [ + (all + dead + (type) [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con bytestring ) ] - (con - bytestring - ) - ] - ) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { - [ - TxInInfo_match - ds - ] - [ + ) + } + (lam + ds + TxInInfo + (abs + dead + (type) + [ + { [ - Tuple2 + TxInInfo_match + ds + ] + [ + [ + Tuple2 + (con + bytestring + ) + ] (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 - ] - ] - ) - ) + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds + ] + [ + [ + Tuple2 (con bytestring ) ] + (con + bytestring + ) + ] + } + (lam + ds + Address + (lam + ds [ [ (lam @@ -16046,201 +16167,217 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - [ - { - [ - Address_match - ds - ] + [ [ - [ - Tuple2 - (con - bytestring + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] ) - ] + ) (con bytestring ) ] - } - (lam - ds - Credential - (lam - ds + (con + integer + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + [ + { [ - Maybe - StakingCredential + Address_match + ds ] [ [ - { - [ - Credential_match - ds - ] - [ + Tuple2 + (con + bytestring + ) + ] + (con + bytestring + ) + ] + } + (lam + ds + Credential + (lam + ds + [ + Maybe + StakingCredential + ] + [ + [ + { [ - Tuple2 + Credential_match + ds + ] + [ + [ + Tuple2 + (con + bytestring + ) + ] (con bytestring ) ] + } + (lam + ipv (con bytestring ) - ] - } + [ + fail + (con + unit + () + ) + ] + ) + ] (lam - ipv + s (con bytestring ) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (lam - s - (con - bytestring - ) - { - [ + { [ - { - [ - { - Maybe_match - (con - bytestring - ) - } - ds - ] - (all - dead - (type) + [ + { [ + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con bytestring ) ] - (con - bytestring - ) - ] - ) - } - (lam - dh - (con - bytestring - ) - (abs - dead - (type) - [ + ) + } + (lam + dh + (con + bytestring + ) + (abs + dead + (type) [ - { + [ { - Tuple2 + { + Tuple2 + (con + bytestring + ) + } (con bytestring ) } - (con - bytestring - ) - } - s + s + ] + dh ] - dh - ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] - (abs + (all dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ] + } + ) + ] + ) ) - ) - ] + ] + ) ) ) - ) - ] + ] + ) ) - ) - ] + ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] - (abs + (all dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -16250,41 +16387,29 @@ ) ) ) - ) - ] + ] + ) ) - ) + ] ] - ] - (con bytestring) - } - (lam - a - (con bytestring) - (lam ds (con bytestring) a) - ) - ] + (con bytestring) + } + (lam + a + (con bytestring) + (lam ds (con bytestring) a) + ) + ] + ) ) - ) - (termbind - (nonstrict) - (vardecl - threadTokenValueInner - (fun - [ Maybe ThreadToken ] + (termbind + (nonstrict) + (vardecl + threadTokenValueInner (fun - (con bytestring) - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] + [ Maybe ThreadToken ] + (fun + (con bytestring) [ [ (lam @@ -16298,38 +16423,38 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] + ) ) ) - ) - (lam - m - [ Maybe ThreadToken ] - { - [ + (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) - ] + [ + { + [ { Maybe_match ThreadToken } m ] + (all + dead + (type) + (fun + (con bytestring) [ [ (lam @@ -16345,53 +16470,45 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] + ) ) - ) - } - (lam - a - ThreadToken - (abs - dead - (type) - (lam - ds - (con bytestring) - [ + } + (lam + a + ThreadToken + (abs + dead + (type) + (lam + ds + (con bytestring) [ - { - Cons - [ - [ Tuple2 (con bytestring) ] + [ + { + Cons [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ [ Tuple2 k ] v ] - ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] - } - [ - [ - { - { Tuple2 (con bytestring) - } + ] [ [ (lam @@ -16412,25 +16529,83 @@ ] (con integer) ] - } + ] + } + [ [ { - [ ThreadToken_match a ] - (con bytestring) + { + Tuple2 + (con bytestring) + } + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ Tuple2 k ] + v + ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] } - (lam - ds - TxOutRef + [ + { + [ + ThreadToken_match a + ] + (con bytestring) + } (lam - ds (con bytestring) ds + ds + TxOutRef + (lam + ds + (con bytestring) + ds + ) ) - ) + ] ] - ] - [ [ + [ + { + Cons + [ + [ + Tuple2 + (con bytestring) + ] + (con integer) + ] + } + [ + [ + { + { + Tuple2 + (con bytestring) + } + (con integer) + } + ds + ] + (con integer 1) + ] + ] { - Cons + Nil [ [ Tuple2 @@ -16439,112 +16614,79 @@ (con integer) ] } - [ - [ - { - { - Tuple2 - (con bytestring) - } - (con integer) - } - ds - ] - (con integer 1) - ] ] - { - Nil - [ - [ - Tuple2 - (con bytestring) - ] - (con integer) - ] - } ] ] - ] - { - Nil - [ - [ Tuple2 (con bytestring) ] + { + Nil [ + [ Tuple2 (con bytestring) ] [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List - [ [ Tuple2 k ] v ] - ] + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) ] - ] - } - ] + } + ] + ) ) ) - ) - ] - (abs - dead - (type) - (lam - ds - (con bytestring) - { - Nil - [ - [ Tuple2 (con bytestring) ] + ] + (abs + dead + (type) + (lam + ds + (con bytestring) + { + Nil [ + [ Tuple2 (con bytestring) ] [ - (lam - k - (type) + [ (lam - v + k (type) - [ List [ [ Tuple2 k ] v ] ] + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) ] - ] - } - ) - ) - ] - (all dead (type) dead) - } - ) - ) - (termbind - (strict) - (vardecl - isZero - (fun - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] + } ) ) - (con bytestring) ] + (all dead (type) dead) + } + ) + ) + (termbind + (strict) + (vardecl + isZero + (fun [ [ (lam @@ -16556,23 +16698,27 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] - Bool + Bool + ) ) - ) - (lam - ds - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] + (lam + ds [ [ (lam @@ -16584,17 +16730,54 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] - [ [ [ - { + [ { - fFoldableNil_cfoldMap - [ (lam a (type) a) Bool ] + { + fFoldableNil_cfoldMap + [ (lam a (type) a) Bool ] + } + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] } + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] + ] + (lam + ds [ [ Tuple2 (con bytestring) ] [ @@ -16613,37 +16796,41 @@ (con integer) ] ] - } - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] - ] - (lam - ds - [ - [ Tuple2 (con bytestring) ] [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) + { + [ + { + { + Tuple2_match (con bytestring) + } + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + } + ds + ] + [ (lam a (type) a) Bool ] + } + (lam + ds (con bytestring) - ] - (con integer) - ] - ] - [ - { - [ - { - { Tuple2_match (con bytestring) } + (lam + a [ [ (lam @@ -16661,164 +16848,139 @@ ] (con integer) ] - } - ds - ] - [ (lam a (type) a) Bool ] - } - (lam - ds - (con bytestring) - (lam - a - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - [ [ [ - { + [ { - fFoldableNil_cfoldMap - [ (lam a (type) a) Bool ] + { + fFoldableNil_cfoldMap + [ + (lam a (type) a) Bool + ] + } + [ + [ + Tuple2 + (con bytestring) + ] + (con integer) + ] } + [ + { fMonoidProduct Bool } + fMultiplicativeMonoidBool + ] + ] + (lam + ds [ [ Tuple2 (con bytestring) ] (con integer) ] - } - [ - { fMonoidProduct Bool } - fMultiplicativeMonoidBool - ] - ] - (lam - ds - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - [ - { - [ - { + [ + { + [ { - Tuple2_match - (con bytestring) + { + Tuple2_match + (con bytestring) + } + (con integer) } - (con integer) - } - ds - ] - [ (lam a (type) a) Bool ] - } - (lam - ds - (con bytestring) - (lam - a - (con integer) + ds + ] [ + (lam a (type) a) Bool + ] + } + (lam + ds + (con bytestring) + (lam + a + (con integer) [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsInteger - ) - (con - integer 0 + ifThenElse ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + (con + integer 0 + ) + ] + a ] - a ] + True ] - True + False ] - False - ] + ) ) - ) - ] - ) + ] + ) + ] + a ] - a - ] + ) ) - ) - ] - ) + ] + ) + ] + ds ] - ds - ] + ) ) - ) - (termbind - (strict) - (vardecl - build - (all + (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) - (fun + (lam + g (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 } + ] ) - [ [ { g [ List a ] } { Cons a } ] { Nil a } ] ) ) - ) - (datatypebind - (datatype - (tyvardecl Payment (type)) + (datatypebind + (datatype + (tyvardecl Payment (type)) - Payment_match - (vardecl - Payment - (fun - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] + Payment_match + (vardecl + Payment + (fun [ [ (lam @@ -16832,117 +16994,120 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] - (fun - (con bytestring) - (fun (con integer) Payment) + (fun + (con bytestring) + (fun (con integer) Payment) + ) ) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl Input (type)) + (datatypebind + (datatype + (tyvardecl Input (type)) - Input_match - (vardecl - AddSignature (fun (con bytestring) Input) + Input_match + (vardecl + AddSignature (fun (con bytestring) Input) + ) + (vardecl Cancel Input) + (vardecl Pay Input) + (vardecl ProposePayment (fun Payment Input)) ) - (vardecl Cancel Input) - (vardecl Pay Input) - (vardecl ProposePayment (fun Payment Input)) ) - ) - (datatypebind - (datatype - (tyvardecl MSState (type)) + (datatypebind + (datatype + (tyvardecl MSState (type)) - MSState_match - (vardecl - CollectingSignatures - (fun - Payment - (fun [ List (con bytestring) ] MSState) + MSState_match + (vardecl + CollectingSignatures + (fun + Payment + (fun [ List (con bytestring) ] MSState) + ) ) + (vardecl Finished MSState) + (vardecl Holding MSState) ) - (vardecl Finished MSState) - (vardecl Holding MSState) ) - ) - (datatypebind - (datatype - (tyvardecl Params (type)) + (datatypebind + (datatype + (tyvardecl Params (type)) - Params_match - (vardecl - Params - (fun - [ List (con bytestring) ] - (fun (con integer) Params) + Params_match + (vardecl + Params + (fun + [ List (con bytestring) ] + (fun (con integer) Params) + ) ) ) ) - ) - (lam - params - Params - (let - (nonrec) - (termbind - (strict) - (vardecl w [ [ StateMachine MSState ] Input ]) - [ + (lam + params + Params + (let + (nonrec) + (termbind + (strict) + (vardecl + w [ [ StateMachine MSState ] Input ] + ) [ [ [ - { { StateMachine MSState } Input } - (lam - w - [ State MSState ] + [ + { { StateMachine MSState } Input } (lam w - Input - [ - { - [ { State_match MSState } w ] - [ - Maybe + [ State MSState ] + (lam + w + Input + [ + { [ - [ - Tuple2 - [ - [ TxConstraints Void ] - Void - ] - ] - [ State MSState ] + { State_match MSState } w ] - ] - } - (lam - ww - MSState - (lam - ww [ + Maybe [ - (lam - k - (type) - (lam - v - (type) + [ + Tuple2 + [ [ - List - [ [ Tuple2 k ] v ] + TxConstraints Void ] - ) - ) - (con bytestring) + Void + ] + ] + [ State MSState ] ] + ] + } + (lam + ww + MSState + (lam + ww [ [ (lam @@ -16961,110 +17126,70 @@ ) (con bytestring) ] - (con integer) - ] - ] - { - [ [ [ - { - [ - MSState_match ww - ] - (all - dead + (lam + k + (type) + (lam + v (type) [ - Maybe + List [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - MSState - ] + [ Tuple2 k ] + v ] ] ) - } - (lam - pmt - Payment - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - paymentAmount + ) + (con bytestring) + ] + (con integer) + ] + ] + { + [ + [ + [ + { + [ + MSState_match + ww + ] + (all + dead + (type) + [ + Maybe [ [ - (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 - ) + [ + TxConstraints + Void + ] + Void ] - (con - integer - ) ] - ] - ) - [ - { [ - Payment_match - pmt + State + MSState ] + ] + ] + ) + } + (lam + pmt + Payment + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + paymentAmount [ [ (lam @@ -17118,33 +17243,69 @@ ) ] ] - } - (lam - ds - [ + ) + [ + { [ - (lam - k - (type) + Payment_match + pmt + ] + [ + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) - (con - bytestring - ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] + } + (lam + ds [ [ (lam @@ -17169,55 +17330,55 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - (con - bytestring - ) - (lam - ds - (con - integer - ) - ds - ) - ) - ) - ] - ) - (termbind - (nonstrict) - (vardecl - newValue - [ - [ - (lam - k - (type) - (lam - v - (type) + [ [ - List - [ - [ - Tuple2 - k - ] - v - ] + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] + (con + integer + ) + ] + ] + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + ds ) ) - (con - bytestring - ) - ] + ) + ] + ) + (termbind + (nonstrict) + (vardecl + newValue [ [ (lam @@ -17242,256 +17403,301 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - ) - [ + ) [ [ - unionWith - addInteger + [ + unionWith + addInteger + ] + ww ] - ww - ] - [ [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + paymentAmount ] - paymentAmount ] - ] - ) - (lam - pks - [ - List - (con - bytestring - ) - ] - (abs - dead - (type) - { - [ + ) + (lam + pks + [ + List + (con + bytestring + ) + ] + (abs + dead + (type) + { [ [ [ - { - [ - Input_match - w - ] - (all - dead - (type) + [ + { [ - Maybe + Input_match + w + ] + (all + dead + (type) [ + Maybe [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void ] - ] - [ - State - MSState + [ + State + MSState + ] ] ] - ] - ) - } - (lam - pk - (con - bytestring - ) - (abs - dead - (type) - [ - { - [ - Params_match - params - ] - [ - Maybe + ) + } + (lam + pk + (con + bytestring + ) + (abs + dead + (type) + [ + { + [ + Params_match + params + ] [ + Maybe [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void ] - ] - [ - State - MSState + [ + State + MSState + ] ] ] - ] - } - (lam - ww - [ - List - (con - bytestring - ) - ] + } (lam ww - (con - integer - ) - { - [ + [ + List + (con + bytestring + ) + ] + (lam + ww + (con + integer + ) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + (con + bytestring + ) } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + (lam + pkh (con bytestring ) - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - pkh - (con - bytestring - ) - [ [ - equalsByteString - pk + [ + equalsByteString + pk + ] + pkh ] - pkh - ] - ) + ) + ] + ww ] - ww ] - ] - (all - dead - (type) - [ - Maybe + (all + dead + (type) [ + Maybe [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void ] - ] - [ - State - MSState + [ + State + MSState + ] ] ] - ] - ) - } - (abs - dead - (type) - { - [ + ) + } + (abs + dead + (type) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + (con + bytestring + ) } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + (lam + pk (con bytestring ) - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - pk - (con - bytestring + [ + [ + equalsByteString + pk + ] + pk + ] ) + ] + pks + ] + ] + (all + dead + (type) + [ + Maybe + [ [ + Tuple2 [ - equalsByteString - pk + [ + TxConstraints + Void + ] + Void ] - pk ] - ) + [ + State + MSState + ] + ] ] - pks - ] - ] - (all + ) + } + (abs dead (type) - [ - Maybe + { + Nothing [ [ Tuple2 @@ -17508,60 +17714,17 @@ MSState ] ] - ] + } ) - } + ] (abs dead (type) - { - Nothing - [ - [ - Tuple2 - [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - MSState - ] - ] - } - ) - ] - (abs - dead - (type) - [ - { - Just - [ + [ + { + Just [ - Tuple2 [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - MSState - ] - ] - } - [ - [ - { - { Tuple2 [ [ @@ -17570,176 +17733,176 @@ ] Void ] - } + ] [ State MSState ] - } + ] + } + [ [ - [ - [ - { - { + { + { + Tuple2 + [ + [ TxConstraints Void - } + ] Void - } + ] + } + [ + State + MSState + ] + } + [ + [ [ { - 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 + [ + InputConstraint + Void + ] + } ] { Nil [ - InputConstraint + OutputConstraint Void ] } ] - { - Nil - [ - OutputConstraint - Void - ] - } ] - ] - [ [ - { - State - MSState - } [ + { + State + MSState + } [ - CollectingSignatures - pmt - ] - [ - [ - { - Cons - (con - bytestring - ) - } - pk + [ + CollectingSignatures + pmt + ] + [ + [ + { + Cons + (con + bytestring + ) + } + pk + ] + pks ] - pks ] ] + ww ] - ww ] ] - ] + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ] - (abs - dead - (type) - { - Nothing - [ + } + ) + ] + (abs + dead + (type) + { + Nothing [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void + ] + [ + State + MSState ] ] - [ - State - MSState - ] - ] - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] + ] + ) ) - ) - ] - (abs - dead - (type) - [ - { - Just - [ + ] + (abs + dead + (type) + [ + { + Just [ - Tuple2 [ - [ - TxConstraints - Void - ] - Void - ] - ] - [ - State - MSState - ] - ] - } - [ - [ - { - { Tuple2 [ [ @@ -17748,106 +17911,101 @@ ] Void ] - } + ] [ State MSState ] - } + ] + } + [ [ - [ - [ - { - { + { + { + Tuple2 + [ + [ TxConstraints Void - } + ] Void - } + ] + } + [ + State + MSState + ] + } + [ + [ [ { - 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 @@ -17872,363 +18030,377 @@ 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 + [ + InputConstraint + Void + ] + } ] { Nil [ - InputConstraint + OutputConstraint Void ] } ] - { - Nil - [ - OutputConstraint - Void - ] - } ] - ] - [ [ - { - State - MSState - } - Holding + [ + { + State + MSState + } + Holding + ] + ww ] - ww ] ] - ] - ) - ] - (abs - dead - (type) - [ - { - [ - Params_match - params - ] - [ - Maybe + ) + ] + (abs + dead + (type) + [ + { + [ + Params_match + params + ] [ + Maybe [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void ] - ] - [ - State - MSState + [ + State + MSState + ] ] ] - ] - } - (lam - ww - [ - List - (con - bytestring - ) - ] + } (lam ww - (con - integer - ) - { - [ + [ + List + (con + bytestring + ) + ] + (lam + ww + (con + integer + ) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - lessThanInteger + ifThenElse ) - (let - (nonrec) - (termbind - (strict) - (vardecl - t - [ - List - (con - bytestring - ) - ] - ) - [ + Bool + } + [ + [ + (builtin + lessThanInteger + ) + (let + (nonrec) + (termbind + (strict) + (vardecl + t + [ + List + (con + bytestring + ) + ] + ) [ [ - { + [ { - foldr - (con - bytestring - ) - } - [ - List - (con - bytestring - ) - ] - } - (lam - e - (con - bytestring - ) - (lam - xs + { + foldr + (con + bytestring + ) + } [ List (con bytestring ) ] - { + } + (lam + e + (con + bytestring + ) + (lam + xs [ + List + (con + bytestring + ) + ] + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } + (con + bytestring + ) } + [ + { + fMonoidSum + Bool + } + fAdditiveMonoidBool + ] + ] + (lam + pk (con bytestring ) - } - [ - { - fMonoidSum - Bool - } - fAdditiveMonoidBool - ] - ] - (lam - pk - (con - bytestring - ) - [ [ - equalsByteString - pk + [ + equalsByteString + pk + ] + e ] - e - ] - ) + ) + ] + pks ] - pks ] - ] - (all + (all + dead + (type) + [ + List + (con + bytestring + ) + ] + ) + } + (abs dead (type) [ - List - (con - bytestring - ) + [ + { + Cons + (con + bytestring + ) + } + e + ] + xs ] ) - } + ] (abs dead (type) - [ - [ - { - Cons - (con - bytestring - ) - } - e - ] - xs - ] + xs ) ] - (abs + (all dead (type) - xs + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) + ] + { + Nil + (con + bytestring + ) + } ] - { - Nil - (con - bytestring - ) - } + ww ] - ww - ] - ) - [ + ) [ [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) + { + fFoldableNil_cfoldMap [ (lam a (type) - (fun - a + a + ) + [ + (lam a + (type) + (fun + a + a + ) ) - ) - (con - integer - ) + (con + integer + ) + ] ] - ] + } + (con + bytestring + ) } - (con - bytestring - ) - } - [ - { - (abs - a - (type) - (lam - v - [ - Monoid - a - ] - [ + [ + { + (abs + a + (type) + (lam + v [ - { - CConsMonoid - [ - (lam - a - (type) - a - ) - a - ] - } - (lam - eta - [ - (lam - a - (type) + Monoid + a + ] + [ + [ + { + CConsMonoid + [ + (lam + a + (type) + a + ) a - ) - a - ] + ] + } (lam eta [ @@ -18239,79 +18411,74 @@ ) a ] - [ + (lam + eta + [ + (lam + a + (type) + a + ) + a + ] [ [ - { - p1Monoid - a - } - v + [ + { + p1Monoid + a + } + v + ] + eta ] eta ] - eta - ] + ) ) - ) - ] - [ - { - mempty - a - } - v + ] + [ + { + mempty + a + } + v + ] ] - ] + ) ) - ) - [ - (lam - a - (type) - (fun - a + [ + (lam a + (type) + (fun + a + a + ) ) - ) - (con - integer - ) - ] - } - [ + (con + integer + ) + ] + } [ - { - CConsMonoid - [ - (lam - a - (type) - (fun - a + [ + { + CConsMonoid + [ + (lam a + (type) + (fun + a + a + ) ) - ) - (con - integer - ) - ] - } - (lam - ds - [ - (lam - a - (type) - (fun - a - a + (con + integer ) - ) - (con - integer - ) - ] + ] + } (lam ds [ @@ -18328,124 +18495,120 @@ ) ] (lam - x - (con - integer - ) + ds [ - ds + (lam + a + (type) + (fun + a + a + ) + ) + (con + integer + ) + ] + (lam + x + (con + integer + ) [ ds - x + [ + ds + x + ] ] - ] + ) ) ) + ] + (lam + x + (con + integer + ) + x ) ] - (lam - x - (con - integer - ) - x - ) ] ] - ] - (lam - x - (con - bytestring - ) (lam - y + x (con - integer + bytestring ) - [ - [ - (builtin - addInteger - ) - y - ] + (lam + y (con integer - 1 ) - ] + [ + [ + (builtin + addInteger + ) + y + ] + (con + integer + 1 + ) + ] + ) ) - ) + ] + t ] - t + (con + integer + 0 + ) ] - (con - integer - 0 - ) - ] - ) + ) + ] + ww ] - ww ] + False ] - False + True ] - True ] - ] - (all - dead - (type) - [ - Maybe + (all + dead + (type) [ + Maybe [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void ] - ] - [ - State - MSState - ] - ] - ] - ) - } - (abs - dead - (type) - [ - { - Just - [ - [ - Tuple2 [ - [ - TxConstraints - Void - ] - Void + State + MSState ] ] - [ - State - MSState - ] ] - } + ) + } + (abs + dead + (type) [ - [ - { - { + { + Just + [ + [ Tuple2 [ [ @@ -18454,104 +18617,99 @@ ] Void ] - } + ] [ State MSState ] - } + ] + } + [ [ + { + { + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + } + [ + State + MSState + ] + } [ [ - { + [ { - 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 - [ - [ - c - [ - [ - [ - [ - MustPayToPubKeyAddress - [ - { - [ - Payment_match - pmt - ] - (con - bytestring - ) - } - (lam - ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + (lam + n + a + [ + [ + c + [ + [ + [ + [ + MustPayToPubKeyAddress + [ + { + [ + Payment_match + pmt ] + (con + bytestring + ) + } + (lam + ds [ [ (lam @@ -18576,158 +18734,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 @@ -18752,68 +18910,100 @@ 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 + { + foldr + [ + InputConstraint + Void + ] + } [ - InputConstraint - Void + List + [ + InputConstraint + Void + ] ] } - [ - List + { + Cons [ InputConstraint Void ] - ] - } + } + ] { - Cons + Nil [ InputConstraint Void @@ -18828,36 +19018,36 @@ ] } ] - { - Nil - [ - InputConstraint - Void - ] - } ] - ] - [ [ [ - { + [ { - foldr + { + foldr + [ + OutputConstraint + Void + ] + } [ - OutputConstraint - Void + List + [ + OutputConstraint + Void + ] ] } - [ - List + { + Cons [ OutputConstraint Void ] - ] - } + } + ] { - Cons + Nil [ OutputConstraint Void @@ -18872,80 +19062,33 @@ ] } ] - { - Nil - [ - OutputConstraint - Void - ] - } ] ] - ] - [ [ - { - State - MSState - } - { - [ + [ + { + State + MSState + } + { [ - { - [ - Bool_match + [ + { [ - isZero + Bool_match [ + isZero [ - { - Cons - [ - [ - Tuple2 - (con - bytestring - ) - ] + [ + { + Cons [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - } - [ - [ - { - { Tuple2 (con bytestring ) - } + ] [ [ (lam @@ -18974,19 +19117,37 @@ integer ) ] - } - (con - bytestring - # - ) - ] + ] + } [ [ { - Cons + { + Tuple2 + (con + bytestring + ) + } [ [ - Tuple2 + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con bytestring ) @@ -18996,294 +19157,328 @@ ) ] } + emptyByteString + ] + [ [ - [ - { - { + { + Cons + [ + [ Tuple2 (con bytestring ) - } + ] (con integer ) - } - (con - bytestring - # - ) - ] + ] + } [ + [ + { + { + Tuple2 + (con + bytestring + ) + } + (con + integer + ) + } + emptyByteString + ] [ [ - valueOf - newValue + [ + valueOf + newValue + ] + emptyByteString ] + emptyByteString + ] + ] + ] + { + Nil + [ + [ + Tuple2 (con bytestring - # ) ] (con - bytestring - # + integer ) ] - ] + } ] - { - Nil - [ - [ - Tuple2 - (con - bytestring - ) - ] - (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 - ) ] - ] - } + } + ] ] ] - ] - (all + (all + dead + (type) + MSState + ) + } + (abs dead (type) - MSState + Finished ) - } + ] (abs dead (type) - Finished + Holding ) ] - (abs + (all dead (type) - Holding + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ] + newValue ] - newValue ] ] - ] - ) - ] - (abs - dead - (type) - { - Nothing - [ + ) + ] + (abs + dead + (type) + { + Nothing [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void + ] + [ + State + MSState ] ] - [ - State - MSState - ] - ] - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] - ) - ] - (lam - ipv - Payment - (abs - dead - (type) - { - Nothing - [ + ] + ) + ] + (lam + ipv + Payment + (abs + dead + (type) + { + Nothing [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void + ] + [ + State + MSState ] ] - [ - State - MSState - ] - ] - } + } + ) ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) - ) - ] - (abs - dead - (type) - { - Nothing - [ + ] + (abs + dead + (type) + { + Nothing [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void + ] + [ + State + MSState ] ] - [ - State MSState - ] - ] - } - ) - ] - (abs - dead - (type) - { - [ + } + ) + ] + (abs + dead + (type) + { [ [ [ - { - [ - Input_match - w - ] - (all - dead - (type) + [ + { [ - Maybe + Input_match + w + ] + (all + dead + (type) [ + Maybe [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void ] - ] - [ - State - MSState + [ + State + MSState + ] ] ] - ] - ) - } - (lam - default_arg0 - (con - bytestring - ) - (abs - dead - (type) - { - Nothing - [ + ) + } + (lam + default_arg0 + (con + bytestring + ) + (abs + dead + (type) + { + Nothing [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] + ] + [ + State + MSState + ] + ] + } + ) + ) + ] + (abs + dead + (type) + { + Nothing + [ + [ + Tuple2 + [ + [ + TxConstraints Void ] - ] - [ - State - MSState + Void ] ] - } - ) + [ + State + MSState + ] + ] + } ) ] (abs @@ -19310,88 +19505,40 @@ } ) ] - (abs - dead - (type) - { - Nothing + (lam + pmt + Payment + (abs + dead + (type) [ - [ - Tuple2 + { [ - [ - TxConstraints - Void - ] - Void + Payment_match + pmt ] - ] - [ - State - MSState - ] - ] - } - ) - ] - (lam - pmt - Payment - (abs - dead - (type) - [ - { - [ - Payment_match - pmt - ] - [ - Maybe [ + Maybe [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void + ] + [ + State + MSState ] ] - [ - State - MSState - ] - ] - ] - } - (lam - amt - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) ] + } + (lam + amt [ [ (lam @@ -19416,89 +19563,94 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - (con - bytestring - ) - (lam - ds - (con - integer - ) - { + [ [ - [ - { + (lam + k + (type) + (lam + v + (type) [ - Bool_match + List [ [ - [ - checkBinRel - lessThanEqualsInteger - ] - amt + Tuple2 + k ] - ww + v ] ] - (all - dead - (type) + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + { + [ + [ + { [ - Maybe + Bool_match [ [ - Tuple2 [ - [ - TxConstraints - Void - ] - Void + checkBinRel + lessThanEqualsInteger ] + amt ] - [ - State - MSState - ] + ww ] ] - ) - } - (abs - dead - (type) - [ - { - Just + (all + dead + (type) [ + Maybe [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void ] - ] - [ - State - MSState + [ + State + MSState + ] ] ] - } + ) + } + (abs + dead + (type) [ - [ - { - { + { + Just + [ + [ Tuple2 [ [ @@ -19507,293 +19659,255 @@ ] Void ] - } + ] [ State MSState ] - } + ] + } + [ [ + { + { + Tuple2 + [ + [ + TxConstraints + Void + ] + Void + ] + } + [ + State + MSState + ] + } [ [ - { + [ { - TxConstraints + { + TxConstraints + Void + } Void } - Void - } + { + Nil + TxConstraint + } + ] { Nil - TxConstraint + [ + InputConstraint + Void + ] } ] { Nil [ - InputConstraint + OutputConstraint Void - ] - } - ] - { - Nil - [ - OutputConstraint - Void - ] - } + ] + } + ] ] - ] - [ [ - { - State - MSState - } [ - [ - CollectingSignatures - pmt - ] { - Nil - (con - bytestring - ) + State + MSState } + [ + [ + CollectingSignatures + pmt + ] + { + Nil + (con + bytestring + ) + } + ] ] + ww ] - ww ] ] - ] - ) - ] - (abs - dead - (type) - { - Nothing - [ + ) + ] + (abs + dead + (type) + { + Nothing [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void + ] + [ + State + MSState ] ] - [ - State - MSState - ] - ] - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) - ) - ] + ] + ) ) + ] + (all + dead (type) dead ) - ] - (all - dead (type) dead - ) - } - ) - ] - (all dead (type) dead) - } + } + ) + ] + (all dead (type) dead) + } + ) ) - ) - ] + ] + ) ) - ) - ] - (lam - ds - MSState - { - [ + ] + (lam + ds + MSState + { [ [ - { - [ MSState_match ds ] - (all dead (type) Bool) - } - (lam - default_arg0 - Payment + [ + { + [ MSState_match ds ] + (all dead (type) Bool) + } (lam - default_arg1 - [ List (con bytestring) ] - (abs dead (type) False) + default_arg0 + Payment + (lam + default_arg1 + [ + List (con bytestring) + ] + (abs dead (type) False) + ) ) - ) + ] + (abs dead (type) True) ] - (abs dead (type) True) + (abs dead (type) False) ] - (abs dead (type) False) - ] - (all dead (type) dead) - } - ) - ] - (lam - ds - MSState + (all dead (type) dead) + } + ) + ] (lam - ds Input (lam ds ScriptContext True) + ds + MSState + (lam + ds Input (lam ds ScriptContext True) + ) ) - ) + ] + { Nothing ThreadToken } ] - { Nothing ThreadToken } - ] - ) - (lam - w - MSState + ) (lam w - Input + MSState (lam w - ScriptContext - [ - { - [ - { - { StateMachine_match MSState } - Input - } - w - ] - Bool - } - (lam - ww - (fun - [ State MSState ] + Input + (lam + w + ScriptContext + [ + { + [ + { + { StateMachine_match MSState } + Input + } + w + ] + Bool + } + (lam + ww (fun - Input - [ - Maybe + [ State MSState ] + (fun + Input [ + Maybe [ - Tuple2 [ - [ TxConstraints Void ] - Void + Tuple2 + [ + [ TxConstraints Void ] + Void + ] ] + [ State MSState ] ] - [ State MSState ] ] - ] + ) ) - ) - (lam - ww - (fun MSState Bool) (lam ww - (fun - MSState - (fun - Input (fun ScriptContext Bool) - ) - ) + (fun MSState Bool) (lam ww - [ Maybe ThreadToken ] - [ + (fun + MSState + (fun + Input + (fun ScriptContext Bool) + ) + ) + (lam + ww + [ Maybe ThreadToken ] [ [ - (lam - w - MSState + [ (lam w - Input + MSState (lam - w - ScriptContext - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - vl - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - ) - [ - { - [ - ScriptContext_match - w - ] + w + Input + (lam + w + ScriptContext + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + vl [ [ (lam @@ -19847,42 +19961,78 @@ ) ] ] - } - (lam - ww - TxInfo - (lam - ww - ScriptPurpose + ) + [ + { [ - { - [ - TxInfo_match - ww - ] + ScriptContext_match + w + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ [ - [ + (lam + k + (type) (lam - k + v (type) - (lam - v - (type) + [ + List [ - List [ - [ - Tuple2 - k - ] - v + Tuple2 + k ] + v ] - ) - ) - (con - bytestring + ] ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + } + (lam + ww + TxInfo + (lam + ww + ScriptPurpose + [ + { + [ + TxInfo_match + ww ] [ [ @@ -19908,26 +20058,6 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - (lam - ww - [ - List - TxInInfo - ] - (lam - ww - [ - List - TxOut - ] - (lam - ww [ [ (lam @@ -19952,34 +20082,23 @@ bytestring ) ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] + (con + integer + ) + ] + ] + } + (lam + ww + [ + List + TxInInfo + ] + (lam + ww + [ + List + TxOut ] (lam ww @@ -20039,104 +20158,135 @@ (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 - ) - { - [ + { [ - { - [ - { - Maybe_match - TxInInfo - } + [ + { [ + { + Maybe_match + TxInInfo + } [ - wfindOwnInput + [ + wfindOwnInput + ww + ] ww ] - ww ] - ] - (all - dead - (type) - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + (all + dead + (type) [ [ (lam @@ -20161,25 +20311,6 @@ bytestring ) ] - (con - integer - ) - ] - ] - ) - } - (lam - a - TxInInfo - (abs - dead - (type) - [ - { - [ - TxInInfo_match - a - ] [ [ (lam @@ -20204,6 +20335,25 @@ bytestring ) ] + (con + integer + ) + ] + ] + ) + } + (lam + a + TxInInfo + (abs + dead + (type) + [ + { + [ + TxInInfo_match + a + ] [ [ (lam @@ -20228,47 +20378,47 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - (lam - ds - TxOutRef - (lam - ds - TxOut - [ - { - [ - TxOut_match - ds - ] + [ [ - [ + (lam + k + (type) (lam - k + v (type) - (lam - v - (type) + [ + List [ - List [ - [ - Tuple2 - k - ] - v + Tuple2 + k ] + v ] - ) - ) - (con - bytestring + ] ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + } + (lam + ds + TxOutRef + (lam + ds + TxOut + [ + { + [ + TxOut_match + ds ] [ [ @@ -20294,41 +20444,41 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - (lam - ds - Address - (lam - ds - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] + ] + } + (lam + ds + Address + (lam + ds [ [ (lam @@ -20353,60 +20503,95 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ds + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + ds + ) ) ) - ) - ] + ] + ) + ) + ] + ) + ) + ] + (abs + dead + (type) + (let + (nonrec) + (termbind + (strict) + (vardecl + thunk + (con + unit ) ) - ] - ) - ) - ] - (abs - dead - (type) - [ - { - error - [ [ - (lam - k - (type) - (lam - v - (type) + { + [ + Unit_match [ - List [ - [ - Tuple2 - k - ] - v + { + (builtin + trace + ) + Unit + } + (con + string + "S0" + ) ] + Unit ] + ] + (con + unit ) - ) - (con - bytestring - ) + } + unitval ] + ) + (error [ [ (lam @@ -20431,50 +20616,46 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - [ - { - [ - Unit_match [ [ - { - (builtin - trace + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] ) - Unit - } + ) (con - string - "S0" + bytestring ) ] - Unit + (con + integer + ) ] ] - (con - unit - ) - } - (con - unit - () ) - ] - ] + ) + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) @@ -20484,318 +20665,295 @@ ) ) ) - ) - ] + ] + ) ) + ] + ) + (termbind + (nonstrict) + (vardecl + j Bool ) - ] - ) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ + { [ - { - [ - { - Maybe_match - [ + [ + { + [ + { + Maybe_match [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void + ] + [ + State + MSState ] ] - [ - State - MSState - ] - ] - } - [ + } [ - ww [ - [ - { - State - MSState - } - w - ] + ww [ [ - [ - unionWith - addInteger - ] - vl + { + State + MSState + } + w ] [ [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) + [ + unionWith + addInteger + ] + vl ] [ [ - threadTokenValueInner - ww + fAdditiveGroupValue_cscale + (con + integer + -1 + ) ] [ - ownHash - w + [ + threadTokenValueInner + ww + ] + [ + ownHash + w + ] ] ] ] ] ] + w ] - w ] - ] - (all - dead - (type) - Bool - ) - } - (lam - ds - [ + (all + dead + (type) + Bool + ) + } + (lam + ds [ - Tuple2 [ + Tuple2 [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void + ] + [ + State + MSState ] ] - [ - State - MSState - ] - ] - (abs - dead - (type) - [ - { - [ - { + (abs + dead + (type) + [ + { + [ { - Tuple2_match - [ + { + Tuple2_match [ - TxConstraints + [ + TxConstraints + Void + ] Void ] - Void + } + [ + State + MSState ] } + ds + ] + Bool + } + (lam + newConstraints + [ [ - State - MSState + TxConstraints + Void ] - } - ds - ] - Bool - } - (lam - newConstraints - [ - [ - TxConstraints Void ] - Void - ] - (let - (nonrec) - (termbind - (nonstrict) - (vardecl - j - Bool - ) - [ - { - [ - { + (let + (nonrec) + (termbind + (nonstrict) + (vardecl + j + Bool + ) + [ + { + [ { - TxConstraints_match + { + TxConstraints_match + Void + } Void } - Void - } - newConstraints - ] - Bool - } - (lam - ww - [ - List - TxConstraint - ] + newConstraints + ] + Bool + } (lam ww [ List - [ - InputConstraint - Void - ] + TxConstraint ] (lam ww [ List [ - OutputConstraint + InputConstraint Void ] ] - { + (lam + ww [ + List [ - { - [ - Bool_match + OutputConstraint + Void + ] + ] + { + [ + [ + { [ + Bool_match [ [ [ [ - { + [ { - wcheckScriptContext + { + wcheckScriptContext + Void + } Void } - Void - } - (lam - a - Void - { - [ - Void_match - a - ] - (con - data - ) - } - ) + (lam + a + Void + { + [ + Void_match + a + ] + (con + data + ) + } + ) + ] + 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 - ) - } + } + ) ) ) - ) - ] - ) - (lam - ds - [ - State - MSState - ] - [ - { - [ - { - State_match - MSState - } - ds - ] - Bool - } - (lam - ds + ] + ) + (lam + ds + [ + State MSState + ] + [ + { + [ + { + State_match + MSState + } + ds + ] + Bool + } (lam ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + MSState + (lam + ds [ [ (lam @@ -20820,262 +20978,262 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - { - [ + { [ - { - [ - Bool_match + [ + { [ - ww - ds + Bool_match + [ + ww + ds + ] ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ - isZero - ds + Bool_match + [ + isZero + ds + ] ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + j ) - } + ] (abs dead (type) - j - ) - ] - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ - { - (builtin - trace + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S3" ) - Bool - } - (con - string - "S3" - ) + ] + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + j ) - } + ] (abs dead (type) - j + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ] - (abs - dead - (type) - [ - { - [ - { + } + ) + ] + (abs + dead + (type) + [ + { + [ { - TxConstraints_match + { + TxConstraints_match + Void + } Void } - Void - } - newConstraints - ] - Bool - } - (lam - ds - [ - List - TxConstraint - ] + newConstraints + ] + Bool + } (lam ds [ List - [ - InputConstraint - Void - ] + TxConstraint ] (lam ds [ List [ - OutputConstraint + InputConstraint Void ] ] - { + (lam + ds [ + List [ - { - [ - Bool_match + OutputConstraint + Void + ] + ] + { + [ + [ + { [ + Bool_match [ [ [ [ - { + [ { - wcheckScriptContext - Void + { + wcheckScriptContext + Void + } + MSState } - MSState - } - (lam - ds - MSState - { - [ + (lam + ds + MSState + { [ [ - { - [ - MSState_match - ds - ] - (all - dead - (type) - (con - data - ) - ) - } - (lam - arg - Payment - (lam - arg + [ + { [ - List - (con - bytestring - ) + MSState_match + ds ] - (abs + (all dead (type) + (con + data + ) + ) + } + (lam + arg + Payment + (lam + arg [ - [ - (builtin - constrData - ) - (con - integer - 1 - ) - ] + List + (con + bytestring + ) + ] + (abs + dead + (type) [ [ - { - (builtin - mkCons - ) - (con - data - ) - } + (builtin + constrData + ) + (con + integer + 1 + ) + ] + [ [ { - [ - Payment_match - arg - ] + (builtin + mkCons + ) (con data ) } - (lam - ww - [ + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + Payment_match + arg ] + (con + data + ) + } + (lam + ww [ [ (lam @@ -21088,144 +21246,151 @@ List [ [ - Tuple2 - k + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] - (con - integer - ) ] - ] - (lam - ww - (con - bytestring - ) (lam ww (con - integer + bytestring ) - [ - [ - (builtin - constrData - ) - (con - integer - 0 - ) - ] + (lam + ww + (con + integer + ) [ [ - { - (builtin - mkCons - ) - (con - data - ) - } + (builtin + constrData + ) + (con + integer + 0 + ) + ] + [ [ + { + (builtin + mkCons + ) + (con + data + ) + } [ [ - { + [ { - fToDataMap_ctoBuiltinData - (con - bytestring - ) - } - [ + { + fToDataMap_ctoBuiltinData + (con + bytestring + ) + } [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] - (con - integer - ) - ] - } - (builtin - bData - ) - ] - [ + } + (builtin + bData + ) + ] [ - { + [ { - fToDataMap_ctoBuiltinData + { + fToDataMap_ctoBuiltinData + (con + bytestring + ) + } (con - bytestring + integer ) } + (builtin + bData + ) + ] + (lam + i (con integer ) - } - (builtin - bData + [ + (builtin + iData + ) + i + ] ) ] - (lam - i - (con - integer - ) - [ - (builtin - iData - ) - i - ] - ) ] - ] - ww - ] - ] - [ - [ - { - (builtin - mkCons - ) - (con - data - ) - } - [ - (builtin - bData - ) ww ] ] @@ -21241,63 +21406,96 @@ } [ (builtin - iData + bData ) ww ] ] [ - (builtin - mkNilData - ) - (con - unit - () - ) + [ + { + (builtin + mkCons + ) + (con + data + ) + } + [ + (builtin + iData + ) + ww + ] + ] + [ + (builtin + mkNilData + ) + unitval + ] ] ] ] ] - ] + ) ) ) - ) + ] ] - ] - [ [ - { - (builtin - mkCons - ) - (con - data - ) - } [ - (builtin - listData - ) + { + (builtin + mkCons + ) + (con + data + ) + } [ - go - arg + (builtin + listData + ) + [ + go + arg + ] ] ] - ] - [ - (builtin - mkNilData - ) - (con - unit - () - ) + [ + (builtin + mkNilData + ) + unitval + ] ] ] ] - ] + ) ) ) + ] + (abs + dead + (type) + [ + [ + (builtin + constrData + ) + (con + integer + 2 + ) + ] + [ + (builtin + mkNilData + ) + unitval + ] + ] ) ] (abs @@ -21310,491 +21508,466 @@ ) (con integer - 2 + 0 ) ] [ - (builtin - mkNilData - ) - (con - unit - () - ) - ] - ] - ) - ] - (abs - dead - (type) - [ - [ - (builtin - constrData - ) - (con - integer - 0 - ) - ] - [ - (builtin - mkNilData - ) - (con - unit - () - ) + (builtin + mkNilData + ) + unitval + ] ] - ] + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } - ) + } + ) + ] + ds ] ds ] - ds - ] - [ - { - build - [ - OutputConstraint - MSState - ] - } - (abs - a - (type) - (lam - c - (fun - [ - OutputConstraint - MSState - ] + [ + { + build + [ + OutputConstraint + MSState + ] + } + (abs + a + (type) + (lam + c (fun - a - a + [ + OutputConstraint + MSState + ] + (fun + a + a + ) ) - ) - (lam - n - a - [ + (lam + n + a [ - c [ - [ - { - OutputConstraint - MSState - } - ds - ] + c [ [ - [ - unionWith - addInteger - ] + { + OutputConstraint + 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 - ) - } + } + ) ) ) - ) - ] + ] + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] + ] + ) ) ) + ] + ) + ) + ] + (abs + dead + (type) + [ + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S6" ) ] - ) + False + ] ) ] - (abs + (all dead (type) - [ - [ - { - (builtin - trace - ) - Bool - } - (con - string - "S6" - ) - ] - False - ] + dead ) - ] - (all - dead - (type) - dead + } + ) + (termbind + (nonstrict) + (vardecl + j Bool ) - } - ) - (termbind - (nonstrict) - (vardecl j Bool) - { - [ + { [ - { - [ - { - Maybe_match - ThreadToken - } - ww - ] - (all - dead - (type) - Bool - ) - } - (lam - threadToken - ThreadToken - (abs - dead - (type) - { - [ + [ + { + [ + { + Maybe_match + ThreadToken + } + ww + ] + (all + dead + (type) + Bool + ) + } + (lam + threadToken + ThreadToken + (abs + dead + (type) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ - [ - { - (builtin - ifThenElse - ) - Bool - } + [ [ - [ + { (builtin - equalsInteger + ifThenElse ) + Bool + } + [ [ + (builtin + equalsInteger + ) [ [ - valueOf - vl - ] - [ - { - [ - ThreadToken_match - threadToken - ] - (con - bytestring - ) - } - (lam - ds - TxOutRef - (lam - ds + [ + valueOf + vl + ] + [ + { + [ + ThreadToken_match + threadToken + ] (con bytestring ) + } + (lam ds + TxOutRef + (lam + ds + (con + bytestring + ) + ds + ) ) - ) + ] + ] + [ + ownHash + w ] - ] - [ - ownHash - w ] ] + (con + integer + 1 + ) ] - (con - integer - 1 - ) ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + j ) - } + ] (abs dead (type) - j - ) - ] - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ - { - (builtin - trace + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S2" ) - Bool - } - (con - string - "S2" - ) + ] + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + j ) - } + ] (abs dead (type) - j + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) + ] + (abs + dead + (type) + j ) ] - (abs + (all dead (type) - j + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - { - [ + } + ) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - ww + [ + ww + w + ] w ] w ] - w ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + j ) - } + ] (abs dead (type) - j - ) - ] - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ - { - (builtin - trace + [ + { + (builtin + trace + ) + Bool + } + (con + string + "S1" ) - Bool - } - (con - string - "S1" - ) + ] + False ] - False ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + j ) - } + ] (abs dead (type) - j + False ) ] - (abs + (all dead (type) - False + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) - ) + w + ] w ] w ] - w - ] + ) ) ) ) - ) - ] + ] + ) ) ) ) diff --git a/plutus-use-cases/test/Spec/renderCrowdfunding.txt b/plutus-use-cases/test/Spec/renderCrowdfunding.txt index 9b516e0c28..ead30cdae7 100644 --- a/plutus-use-cases/test/Spec/renderCrowdfunding.txt +++ b/plutus-use-cases/test/Spec/renderCrowdfunding.txt @@ -101,11 +101,11 @@ Balances Carried Forward: Ada: Lovelace: 100000000 ==== Slot #1, Tx #0 ==== -TxId: c351875a8d5d26a87f1cf365f007f8a543040e9d8d182d608223edd245c5ea9e +TxId: d90b088b39ea27cd845200fc4242f7aa048eaba5dd5f33ff0757ee5bb22d0ff9 Fee: Ada: Lovelace: 10 Mint: - Signatures PubKey: c0a4b02f44c212ba6c1197df5a5cf8bd1a3dceef... - Signature: 584035442e9f2f45e13e83bfa814d3a2b31e61b9... + Signature: 5840d880063030b1f1e4522db9b2951cc7ea9ec3... Inputs: ---- Input 0 ---- Destination: PaymentPubKeyHash: 557d23c0a533b4d295ac2dc14b783a7efc293bc2... (Wallet 5f5a4f5f465580a5500b9a9cede7f4e014a37ea8) @@ -124,7 +124,7 @@ Outputs: Ada: Lovelace: 97499990 ---- Output 1 ---- - Destination: Script: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b + Destination: Script: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 Value: Ada: Lovelace: 2500000 @@ -170,16 +170,16 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b + Script: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 Value: Ada: Lovelace: 2500000 ==== Slot #1, Tx #1 ==== -TxId: 2f869889c09e76fb2cbfe2a3a0d512bfc86fe515d0cee53ecea4a79d3e695029 +TxId: 3885731ef1d31f92492628bdb6982c22de9af5eb4286c4cde47c6f2f62156eea Fee: Ada: Lovelace: 10 Mint: - Signatures PubKey: 4cdc632449cde98d811f78ad2e2d15a278731bc5... - Signature: 58404581bd6283b86ac94dec77a04efc37005ca8... + Signature: 58402cff971f01ed450fd41a4b2cc1b95af29029... Inputs: ---- Input 0 ---- Destination: PaymentPubKeyHash: 2e0ad60c3207248cecd47dbde3d752e0aad141d6... (Wallet c30efb78b4e272685c1f9f0c93787fd4b6743154) @@ -198,7 +198,7 @@ Outputs: Ada: Lovelace: 89999990 ---- Output 1 ---- - Destination: Script: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b + Destination: Script: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 Value: Ada: Lovelace: 10000000 @@ -244,16 +244,16 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b + Script: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 Value: Ada: Lovelace: 12500000 ==== Slot #1, Tx #2 ==== -TxId: e9628f4a7231fbe76f221ae02309b0d44df8d902154ab1bd93e38a274d52f370 +TxId: 1dc8c21dc6a9ae5cecd57646a344745dba3d2d9929e30498c7da36f0a8ff0c78 Fee: Ada: Lovelace: 10 Mint: - Signatures PubKey: 98c77c40ccc536e0d433874dae97d4a0787b10b3... - Signature: 5840a897183b0923b6a3f0cd4a7c1738ee08956b... + Signature: 5840b90571788f8f9e7bd9283069a3d4a91bf9d4... Inputs: ---- Input 0 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) @@ -272,7 +272,7 @@ Outputs: Ada: Lovelace: 89999990 ---- Output 1 ---- - Destination: Script: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b + Destination: Script: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 Value: Ada: Lovelace: 10000000 @@ -318,50 +318,50 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b + Script: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 Value: Ada: Lovelace: 22500000 ==== Slot #2, Tx #0 ==== -TxId: 3a20125dbda70ddc4408207505e362966252b6941ec7eb334ca11f11fc96ac35 -Fee: Ada: Lovelace: 13666 +TxId: 7ba21a272ba87fb598c6ed594313b042b94ed126cfcb953dcd619953f0db1ca0 +Fee: Ada: Lovelace: 12538 Mint: - Signatures PubKey: 8d9de88fbf445b7f6c3875a14daba94caee2ffcb... - Signature: 5840aefbe451909743c6f10af0837cd5e6c61136... + Signature: 5840fe2cafd2a8fed532c63fb6a2729b9984e953... Inputs: ---- Input 0 ---- - Destination: Script: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b + Destination: Script: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 Value: Ada: Lovelace: 10000000 Source: - Tx: 2f869889c09e76fb2cbfe2a3a0d512bfc86fe515d0cee53ecea4a79d3e695029 + Tx: 1dc8c21dc6a9ae5cecd57646a344745dba3d2d9929e30498c7da36f0a8ff0c78 Output #1 - Script: 590e740100003323332223322332232323332223... + Script: 590d0c0100003323332223233223322323233322... ---- Input 1 ---- - Destination: Script: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b + Destination: Script: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 Value: - Ada: Lovelace: 2500000 + Ada: Lovelace: 10000000 Source: - Tx: c351875a8d5d26a87f1cf365f007f8a543040e9d8d182d608223edd245c5ea9e + Tx: 3885731ef1d31f92492628bdb6982c22de9af5eb4286c4cde47c6f2f62156eea Output #1 - Script: 590e740100003323332223322332232323332223... + Script: 590d0c0100003323332223233223322323233322... ---- Input 2 ---- - Destination: Script: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b + Destination: Script: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 Value: - Ada: Lovelace: 10000000 + Ada: Lovelace: 2500000 Source: - Tx: e9628f4a7231fbe76f221ae02309b0d44df8d902154ab1bd93e38a274d52f370 + Tx: d90b088b39ea27cd845200fc4242f7aa048eaba5dd5f33ff0757ee5bb22d0ff9 Output #1 - Script: 590e740100003323332223322332232323332223... + Script: 590d0c0100003323332223233223322323233322... Outputs: ---- Output 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 22486334 + Ada: Lovelace: 22487462 Balances Carried Forward: @@ -387,7 +387,7 @@ Balances Carried Forward: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 122486334 + Ada: Lovelace: 122487462 PaymentPubKeyHash: a96a668ed7be83e332c872f51da7925b4472ca98... (Wallet bdf8dbca0cadeb365480c6ec29ec746a2b85274f) Value: @@ -405,6 +405,6 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 845f884d10feb1d0e664ebcde25320391e85c179e3f53c875583bf3b + Script: 9fe341a3110281ecdbcf3d79ce1c2d95f6afa1452377e318e610b586 Value: Ada: Lovelace: 0 \ No newline at end of file diff --git a/plutus-use-cases/test/Spec/renderGuess.txt b/plutus-use-cases/test/Spec/renderGuess.txt index 67547c50dc..1fc2f846a8 100644 --- a/plutus-use-cases/test/Spec/renderGuess.txt +++ b/plutus-use-cases/test/Spec/renderGuess.txt @@ -101,11 +101,11 @@ Balances Carried Forward: Ada: Lovelace: 100000000 ==== Slot #1, Tx #0 ==== -TxId: 6b753350696782a1b24dfe7ec0549bf1e8d86cd08e5ad4d343ceca646f49f457 +TxId: fbf569fcc6703c1121cb343fe0afdb084b769d63d8582dfcb60aaba38582653e Fee: Ada: Lovelace: 10 Mint: - Signatures PubKey: 8d9de88fbf445b7f6c3875a14daba94caee2ffcb... - Signature: 5840b6ec0478f7e38365d4c5f842760b7b440b05... + Signature: 5840a14912d4e671bcb2ae5e6fe4aa6feb2df0d1... Inputs: ---- Input 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) @@ -124,7 +124,7 @@ Outputs: Ada: Lovelace: 91999990 ---- Output 1 ---- - Destination: Script: 21927cbad33338d4eae6141407bf783b198aa7e55dd9089dc73c8d1d + Destination: Script: 2bcd95dba6c486e77390ca441d700f26efb24ce8b40ebd95f0ffe72d Value: Ada: Lovelace: 8000000 @@ -170,51 +170,51 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 21927cbad33338d4eae6141407bf783b198aa7e55dd9089dc73c8d1d + Script: 2bcd95dba6c486e77390ca441d700f26efb24ce8b40ebd95f0ffe72d Value: Ada: Lovelace: 8000000 ==== Slot #2, Tx #0 ==== -TxId: f02f6bdb4e032c86578adc0c8441b15ccb1033c9cc43cc71d17d689e5d107fd3 -Fee: Ada: Lovelace: 14170 -Mint: 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 1 +TxId: 10ff378ede3ce450bc76cc4c44d98c251b1def0f0ef070a45cb046c020b39b74 +Fee: Ada: Lovelace: 13958 +Mint: 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 1 Signatures PubKey: 8d9de88fbf445b7f6c3875a14daba94caee2ffcb... - Signature: 584010f5e66630e0125bf97d894eb6b84fd0ad11... + Signature: 58406df9ef05ad950a06c3d51401abbe32752aaf... Inputs: ---- Input 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: Ada: Lovelace: 91999990 Source: - Tx: 6b753350696782a1b24dfe7ec0549bf1e8d86cd08e5ad4d343ceca646f49f457 + Tx: fbf569fcc6703c1121cb343fe0afdb084b769d63d8582dfcb60aaba38582653e Output #0 ---- Input 1 ---- - Destination: Script: 21927cbad33338d4eae6141407bf783b198aa7e55dd9089dc73c8d1d + Destination: Script: 2bcd95dba6c486e77390ca441d700f26efb24ce8b40ebd95f0ffe72d Value: Ada: Lovelace: 8000000 Source: - Tx: 6b753350696782a1b24dfe7ec0549bf1e8d86cd08e5ad4d343ceca646f49f457 + Tx: fbf569fcc6703c1121cb343fe0afdb084b769d63d8582dfcb60aaba38582653e Output #1 - Script: 59dba60100003323232332233322233322233332... + Script: 59da850100003323233223332223332223333222... Outputs: ---- Output 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 89985820 - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: - + Ada: Lovelace: 89986032 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: - ---- Output 1 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 1 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 1 Ada: Lovelace: 2000000 ---- Output 2 ---- - Destination: Script: 21927cbad33338d4eae6141407bf783b198aa7e55dd9089dc73c8d1d + Destination: Script: 2bcd95dba6c486e77390ca441d700f26efb24ce8b40ebd95f0ffe72d Value: Ada: Lovelace: 8000000 @@ -242,8 +242,8 @@ Balances Carried Forward: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 91985820 - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 1 + Ada: Lovelace: 91986032 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 1 PaymentPubKeyHash: a96a668ed7be83e332c872f51da7925b4472ca98... (Wallet bdf8dbca0cadeb365480c6ec29ec746a2b85274f) Value: @@ -261,34 +261,34 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 21927cbad33338d4eae6141407bf783b198aa7e55dd9089dc73c8d1d + Script: 2bcd95dba6c486e77390ca441d700f26efb24ce8b40ebd95f0ffe72d Value: Ada: Lovelace: 8000000 ==== Slot #3, Tx #0 ==== -TxId: ee4d350e115107d177d6f66c3ee6f1008474b306f90cc4c5519f654b7f9ce07d +TxId: ee489892ba01a05b52edb4c4fe1c3601c99fdab982029987f40e5cc9d3c493d3 Fee: Ada: Lovelace: 10 Mint: - Signatures PubKey: 8d9de88fbf445b7f6c3875a14daba94caee2ffcb... - Signature: 58408db3d868a57af927ff3d5339f3e475ddcffb... + Signature: 58403fd9943237e8d9e5c6c7b478d636213b0db3... Inputs: ---- Input 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 89985820 - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: - + Ada: Lovelace: 89986032 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: - Source: - Tx: f02f6bdb4e032c86578adc0c8441b15ccb1033c9cc43cc71d17d689e5d107fd3 + Tx: 10ff378ede3ce450bc76cc4c44d98c251b1def0f0ef070a45cb046c020b39b74 Output #0 ---- Input 1 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 1 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 1 Ada: Lovelace: 2000000 Source: - Tx: f02f6bdb4e032c86578adc0c8441b15ccb1033c9cc43cc71d17d689e5d107fd3 + Tx: 10ff378ede3ce450bc76cc4c44d98c251b1def0f0ef070a45cb046c020b39b74 Output #1 @@ -297,13 +297,13 @@ Outputs: ---- Output 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 89985810 - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 0 + Ada: Lovelace: 89986022 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 0 ---- Output 1 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 1 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 1 Ada: Lovelace: 2000000 @@ -319,7 +319,7 @@ Balances Carried Forward: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: Ada: Lovelace: 102000000 - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 1 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 1 PaymentPubKeyHash: 8952ed1aff55f5b7674b122804a3c0a96f4e2863... (Wallet 3a4778247ad35117d7c3150d194da389f3148f4a) Value: @@ -331,8 +331,8 @@ Balances Carried Forward: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 89985810 - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 0 + Ada: Lovelace: 89986022 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 0 PaymentPubKeyHash: a96a668ed7be83e332c872f51da7925b4472ca98... (Wallet bdf8dbca0cadeb365480c6ec29ec746a2b85274f) Value: @@ -350,18 +350,27 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 21927cbad33338d4eae6141407bf783b198aa7e55dd9089dc73c8d1d + Script: 2bcd95dba6c486e77390ca441d700f26efb24ce8b40ebd95f0ffe72d Value: Ada: Lovelace: 8000000 ==== Slot #4, Tx #0 ==== -TxId: 7a084925ff291d944232e98b25a0980c7349ce46f01fed961494a58ff35be4fc -Fee: Ada: Lovelace: 14170 -Mint: 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 0 +TxId: c5d2948a2aa4b4f0cb56931a5c685c2a9974bef87263eac591cd56c669cba8ae +Fee: Ada: Lovelace: 13958 +Mint: 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 0 Signatures PubKey: 98c77c40ccc536e0d433874dae97d4a0787b10b3... - Signature: 58406192d4c5813c83877ac9ec0b688e574c41a7... + Signature: 58408ea6415359396dc787edfaf25b284b0474f9... Inputs: ---- Input 0 ---- + Destination: Script: 2bcd95dba6c486e77390ca441d700f26efb24ce8b40ebd95f0ffe72d + Value: + Ada: Lovelace: 8000000 + Source: + Tx: 10ff378ede3ce450bc76cc4c44d98c251b1def0f0ef070a45cb046c020b39b74 + Output #2 + Script: 59da850100003323233223332223332223333222... + + ---- Input 1 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: Ada: Lovelace: 100000000 @@ -370,47 +379,38 @@ Inputs: Output #2 - ---- Input 1 ---- + ---- Input 2 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 1 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 1 Ada: Lovelace: 2000000 Source: - Tx: ee4d350e115107d177d6f66c3ee6f1008474b306f90cc4c5519f654b7f9ce07d + Tx: ee489892ba01a05b52edb4c4fe1c3601c99fdab982029987f40e5cc9d3c493d3 Output #1 - ---- Input 2 ---- - Destination: Script: 21927cbad33338d4eae6141407bf783b198aa7e55dd9089dc73c8d1d - Value: - Ada: Lovelace: 8000000 - Source: - Tx: f02f6bdb4e032c86578adc0c8441b15ccb1033c9cc43cc71d17d689e5d107fd3 - Output #2 - Script: 59dba60100003323232332233322233322233332... - Outputs: ---- Output 0 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - Ada: Lovelace: 100985830 - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 0 + Ada: Lovelace: 100986042 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 0 ---- Output 1 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: - + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: - Ada: Lovelace: 2000000 ---- Output 2 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 1 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 1 Ada: Lovelace: 2000000 ---- Output 3 ---- - Destination: Script: 21927cbad33338d4eae6141407bf783b198aa7e55dd9089dc73c8d1d + Destination: Script: 2bcd95dba6c486e77390ca441d700f26efb24ce8b40ebd95f0ffe72d Value: Ada: Lovelace: 5000000 @@ -426,8 +426,8 @@ Balances Carried Forward: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) Value: - Ada: Lovelace: 104985830 - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 1 + Ada: Lovelace: 104986042 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 1 PaymentPubKeyHash: 8952ed1aff55f5b7674b122804a3c0a96f4e2863... (Wallet 3a4778247ad35117d7c3150d194da389f3148f4a) Value: @@ -439,8 +439,8 @@ Balances Carried Forward: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 89985810 - 9b2c45472487bc82ae575fc57a338b1fa4f6a47e536bdd57f864c46c: guess: 0 + Ada: Lovelace: 89986022 + 1ce1229e49445ba21336a308a4b03067b87474c7d506a18c26edf4f9: guess: 0 PaymentPubKeyHash: a96a668ed7be83e332c872f51da7925b4472ca98... (Wallet bdf8dbca0cadeb365480c6ec29ec746a2b85274f) Value: @@ -458,6 +458,6 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: 21927cbad33338d4eae6141407bf783b198aa7e55dd9089dc73c8d1d + Script: 2bcd95dba6c486e77390ca441d700f26efb24ce8b40ebd95f0ffe72d Value: Ada: Lovelace: 5000000 \ No newline at end of file diff --git a/plutus-use-cases/test/Spec/renderVesting.txt b/plutus-use-cases/test/Spec/renderVesting.txt index 5e38e8e1ee..48213e2f2b 100644 --- a/plutus-use-cases/test/Spec/renderVesting.txt +++ b/plutus-use-cases/test/Spec/renderVesting.txt @@ -101,11 +101,11 @@ Balances Carried Forward: Ada: Lovelace: 100000000 ==== Slot #1, Tx #0 ==== -TxId: d333a720c1e0789eb8bbe6334b0ba5cd5e21c12b685381f7bf5ef628aed71fe0 +TxId: e36e1c8bd2906e1fc26fca72f0d8337b216cf70cf7bb82a7f69937c560bd66bc Fee: Ada: Lovelace: 10 Mint: - Signatures PubKey: 98c77c40ccc536e0d433874dae97d4a0787b10b3... - Signature: 58403205f4a6d3871e102ca23a6c46ede21cce10... + Signature: 58406ebb3d3154ed21cdcbbcd49dd38dcb729fae... Inputs: ---- Input 0 ---- Destination: PaymentPubKeyHash: 80a4f45b56b88d1139da23bc4c3c75ec6d32943c... (Wallet 7ce812d7a4770bbf58004067665c3a48f28ddd58) @@ -124,7 +124,7 @@ Outputs: Ada: Lovelace: 39999990 ---- Output 1 ---- - Destination: Script: c91d87cca7e2740ff193aef701a541087d510e44dfb0453f0fce007d + Destination: Script: f8179bebfc0232059c82c5809cc6aca696a482a77d0acbccf1151aa4 Value: Ada: Lovelace: 60000000 @@ -170,35 +170,35 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: c91d87cca7e2740ff193aef701a541087d510e44dfb0453f0fce007d + Script: f8179bebfc0232059c82c5809cc6aca696a482a77d0acbccf1151aa4 Value: Ada: Lovelace: 60000000 ==== Slot #2, Tx #0 ==== -TxId: db67cc9b7b1e5866036da716aa56e2a238d52a68c205906a276cda059691c111 -Fee: Ada: Lovelace: 5905 +TxId: ae43ef9b7e669bae3d40eaf686532d1bd8f270b3ba8192c1d37af0cfe9e20008 +Fee: Ada: Lovelace: 5673 Mint: - Signatures PubKey: 8d9de88fbf445b7f6c3875a14daba94caee2ffcb... - Signature: 584084011514a65a8509af700d2248dd22c9849f... + Signature: 584001d04193fc1e67df62c88979a8d5afd78b34... Inputs: ---- Input 0 ---- - Destination: Script: c91d87cca7e2740ff193aef701a541087d510e44dfb0453f0fce007d + Destination: Script: f8179bebfc0232059c82c5809cc6aca696a482a77d0acbccf1151aa4 Value: Ada: Lovelace: 60000000 Source: - Tx: d333a720c1e0789eb8bbe6334b0ba5cd5e21c12b685381f7bf5ef628aed71fe0 + Tx: e36e1c8bd2906e1fc26fca72f0d8337b216cf70cf7bb82a7f69937c560bd66bc Output #1 - Script: 5912a10100003323322323233223233322232333... + Script: 5911a30100003323233223232332232333222323... Outputs: ---- Output 0 ---- Destination: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 9994095 + Ada: Lovelace: 9994327 ---- Output 1 ---- - Destination: Script: c91d87cca7e2740ff193aef701a541087d510e44dfb0453f0fce007d + Destination: Script: f8179bebfc0232059c82c5809cc6aca696a482a77d0acbccf1151aa4 Value: Ada: Lovelace: 50000000 @@ -226,7 +226,7 @@ Balances Carried Forward: PaymentPubKeyHash: a2c20c77887ace1cd986193e4e75babd8993cfd5... (Wallet 872cb83b5ee40eb23bfdab1772660c822a48d491) Value: - Ada: Lovelace: 109994095 + Ada: Lovelace: 109994327 PaymentPubKeyHash: a96a668ed7be83e332c872f51da7925b4472ca98... (Wallet bdf8dbca0cadeb365480c6ec29ec746a2b85274f) Value: @@ -244,6 +244,6 @@ Balances Carried Forward: Value: Ada: Lovelace: 100000000 - Script: c91d87cca7e2740ff193aef701a541087d510e44dfb0453f0fce007d + Script: f8179bebfc0232059c82c5809cc6aca696a482a77d0acbccf1151aa4 Value: Ada: Lovelace: 50000000 \ No newline at end of file diff --git a/plutus-use-cases/test/Spec/vesting.pir b/plutus-use-cases/test/Spec/vesting.pir index d7860fecaa..7773735905 100644 --- a/plutus-use-cases/test/Spec/vesting.pir +++ b/plutus-use-cases/test/Spec/vesting.pir @@ -1,6 +1,9 @@ (program (let (nonrec) + (datatypebind + (datatype (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit)) + ) (datatypebind (datatype (tyvardecl Tuple2 (fun (type) (fun (type) (type)))) @@ -9,18 +12,14 @@ (vardecl Tuple2 (fun a (fun b [ [ Tuple2 a ] b ]))) ) ) - (datatypebind - (datatype (tyvardecl Unit (type)) Unit_match (vardecl Unit Unit)) - ) (termbind (strict) (vardecl - fail - (fun (all a (type) a) [ [ Tuple2 (con bytestring) ] (con bytestring) ]) + fail (fun (con unit) [ [ Tuple2 (con bytestring) ] (con bytestring) ]) ) (lam ds - (all a (type) a) + (con unit) (let (nonrec) (termbind @@ -41,19 +40,30 @@ ) ) ) - (datatypebind - (datatype - (tyvardecl Ordering (type)) - - Ordering_match - (vardecl EQ Ordering) (vardecl GT Ordering) (vardecl LT Ordering) - ) - ) - (termbind - (strict) - (vardecl fail (fun (all a (type) a) Ordering)) - (lam ds (all a (type) a) (error Ordering)) - ) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) + (termbind (strict) (vardecl ds (con unit)) (con unit ())) (datatypebind (datatype (tyvardecl Monoid (fun (type) (type))) @@ -277,74 +287,95 @@ ) ) (let - (rec) + (nonrec) (termbind (strict) - (vardecl - fFunctorNil_cfmap - (all - a - (type) - (all b (type) (fun (fun a b) (fun [ List a ] [ List b ]))) + (vardecl fAdditiveGroupValue (con integer)) + (con integer -1) + ) + (let + (rec) + (termbind + (strict) + (vardecl + fFunctorNil_cfmap + (all + a + (type) + (all b (type) (fun (fun a b) (fun [ List a ] [ List b ]))) + ) ) - ) - (abs - a - (type) (abs - b + a (type) - (lam - f - (fun a b) + (abs + b + (type) (lam - l - [ List a ] - { - [ + f + (fun a b) + (lam + l + [ List a ] + { [ - { [ { Nil_match a } l ] (all dead (type) [ List b ]) } - (abs dead (type) { Nil b }) - ] - (lam - x - a + [ + { + [ { Nil_match a } l ] (all dead (type) [ List b ]) + } + (abs dead (type) { Nil b }) + ] (lam - xs - [ List a ] - (abs - dead - (type) - [ - [ { Cons b } [ f x ] ] - [ [ { { fFunctorNil_cfmap a } b } f ] xs ] - ] + x + a + (lam + xs + [ List a ] + (abs + dead + (type) + [ + [ { Cons b } [ f x ] ] + [ [ { { fFunctorNil_cfmap a } b } f ] xs ] + ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) ) ) ) - ) - (let - (nonrec) - (termbind - (strict) - (vardecl - fAdditiveGroupValue_cscale - (fun - (con integer) + (let + (nonrec) + (termbind + (strict) + (vardecl + fAdditiveGroupValue_cscale (fun - [ + (con integer) + (fun [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) + [ + (lam + k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] ] [ [ @@ -353,9 +384,26 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] ] - ] + ) + ) + ) + (lam + i + (con integer) + (lam + ds [ [ (lam @@ -373,34 +421,26 @@ (con integer) ] ] - ) - ) - ) - (lam - i - (con integer) - (lam - ds - [ - [ - (lam k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ])) - (con bytestring) - ] [ [ - (lam - k (type) (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - [ - [ - { { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] + ] + } [ [ Tuple2 (con bytestring) ] [ @@ -416,42 +456,45 @@ ] ] } - [ - [ Tuple2 (con bytestring) ] + (lam + ds [ + [ Tuple2 (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) ] - (con integer) ] - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - [ - { - [ - { - { Tuple2_match (con bytestring) } + { + [ + { + { Tuple2_match (con bytestring) } + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + } + ds + ] + [ + [ Tuple2 (con bytestring) ] [ [ (lam @@ -463,181 +506,180 @@ ] (con integer) ] - } - ds - ] - [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) ] - ] - } - (lam - c - (con bytestring) + } (lam - a - [ + c + (con bytestring) + (lam + a [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) ] - (con integer) - ] - [ [ - { - { Tuple2 (con bytestring) } - [ + [ + { + { Tuple2 (con bytestring) } [ - (lam - k - (type) + [ (lam - v (type) [ List [ [ Tuple2 k ] v ] ] + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) - ] - (con integer) - ] - } - c - ] - [ - [ - { - { - fFunctorNil_cfmap - [ - [ Tuple2 (con bytestring) ] - (con integer) + (con bytestring) ] - } - [ - [ Tuple2 (con bytestring) ] (con integer) ] } - (lam - ds - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - [ + c + ] + [ + [ + { { - [ - { - { Tuple2_match (con bytestring) } - (con integer) - } - ds - ] + fFunctorNil_cfmap [ [ Tuple2 (con bytestring) ] (con integer) ] } - (lam - c - (con bytestring) - (lam - a - (con integer) + [ + [ Tuple2 (con bytestring) ] + (con integer) + ] + } + (lam + ds + [ + [ Tuple2 (con bytestring) ] + (con integer) + ] + [ + { [ - [ + { { - { Tuple2 (con bytestring) } - (con integer) + Tuple2_match (con bytestring) } - c - ] + (con integer) + } + ds + ] + [ + [ Tuple2 (con bytestring) ] + (con integer) + ] + } + (lam + c + (con bytestring) + (lam + a + (con integer) [ - [ (builtin multiplyInteger) i ] - a + [ + { + { Tuple2 (con bytestring) } + (con integer) + } + c + ] + [ + [ + (builtin multiplyInteger) i + ] + a + ] ] - ] + ) ) - ) - ] - ) + ] + ) + ] + a ] - a ] - ] + ) ) - ) - ] - ) + ] + ) + ] + ds ] - ds - ] + ) ) ) - ) - (termbind - (strict) - (vardecl - greaterThanEqualsInteger - (fun (con integer) (fun (con integer) Bool)) - ) - (lam - x - (con integer) + (termbind + (strict) + (vardecl + greaterThanEqualsInteger + (fun (con integer) (fun (con integer) Bool)) + ) (lam - y + x (con integer) - [ + (lam + y + (con integer) [ [ - { (builtin ifThenElse) Bool } - [ [ (builtin lessThanInteger) x ] y ] + [ + { (builtin ifThenElse) Bool } + [ [ (builtin lessThanInteger) x ] y ] + ] + False ] - False + True ] - True - ] + ) ) ) - ) - (termbind - (strict) - (vardecl - addInteger (fun (con integer) (fun (con integer) (con integer))) + (termbind + (strict) + (vardecl + addInteger + (fun (con integer) (fun (con integer) (con integer))) + ) + (lam + x + (con integer) + (lam y (con integer) [ [ (builtin addInteger) x ] y ]) + ) ) - (lam - x - (con integer) - (lam y (con integer) [ [ (builtin addInteger) x ] y ]) + (datatypebind + (datatype + (tyvardecl Ordering (type)) + + Ordering_match + (vardecl EQ Ordering) + (vardecl GT Ordering) + (vardecl LT Ordering) + ) ) - ) - (datatypebind - (datatype - (tyvardecl Ord (fun (type) (type))) - (tyvardecl a (type)) - Ord_match - (vardecl - CConsOrd - (fun - [ (lam a (type) (fun a (fun a Bool))) a ] + (datatypebind + (datatype + (tyvardecl Ord (fun (type) (type))) + (tyvardecl a (type)) + Ord_match + (vardecl + CConsOrd (fun - (fun a (fun a Ordering)) + [ (lam a (type) (fun a (fun a Bool))) a ] (fun - (fun a (fun a Bool)) + (fun a (fun a Ordering)) (fun (fun a (fun a Bool)) (fun @@ -645,8 +687,11 @@ (fun (fun a (fun a Bool)) (fun - (fun a (fun a a)) - (fun (fun a (fun a a)) [ Ord a ]) + (fun a (fun a Bool)) + (fun + (fun a (fun a a)) + (fun (fun a (fun a a)) [ Ord a ]) + ) ) ) ) @@ -656,29 +701,26 @@ ) ) ) - ) - (termbind - (strict) - (vardecl - compare (all a (type) (fun [ Ord a ] (fun a (fun a Ordering)))) - ) - (abs - a - (type) - (lam - v - [ Ord a ] - [ - { [ { Ord_match a } v ] (fun a (fun a Ordering)) } - (lam - v - [ (lam a (type) (fun a (fun a Bool))) a ] + (termbind + (strict) + (vardecl + compare + (all a (type) (fun [ Ord a ] (fun a (fun a Ordering)))) + ) + (abs + a + (type) + (lam + v + [ Ord a ] + [ + { [ { Ord_match a } v ] (fun a (fun a Ordering)) } (lam v - (fun a (fun a Ordering)) + [ (lam a (type) (fun a (fun a Bool))) a ] (lam v - (fun a (fun a Bool)) + (fun a (fun a Ordering)) (lam v (fun a (fun a Bool)) @@ -690,264 +732,258 @@ (fun a (fun a Bool)) (lam v - (fun a (fun a a)) - (lam v (fun a (fun a a)) v) + (fun a (fun a Bool)) + (lam + v + (fun a (fun a a)) + (lam v (fun a (fun a a)) v) + ) ) ) ) ) ) ) - ) - ] + ] + ) ) ) - ) - (termbind - (strict) - (vardecl - equalsByteString - (fun (con bytestring) (fun (con bytestring) Bool)) - ) - (lam - x - (con bytestring) + (termbind + (strict) + (vardecl + equalsByteString + (fun (con bytestring) (fun (con bytestring) Bool)) + ) (lam - y + x (con bytestring) - [ + (lam + y + (con bytestring) [ [ - { (builtin ifThenElse) Bool } - [ [ (builtin equalsByteString) x ] y ] + [ + { (builtin ifThenElse) Bool } + [ [ (builtin equalsByteString) x ] y ] + ] + True ] - True + False ] - False - ] + ) ) ) - ) - (let - (rec) - (termbind - (strict) - (vardecl - fFoldableNil_cfoldMap - (all - m - (type) + (let + (rec) + (termbind + (strict) + (vardecl + fFoldableNil_cfoldMap (all - a + m (type) - (fun [ Monoid m ] (fun (fun a m) (fun [ List a ] m))) + (all + a + (type) + (fun [ Monoid m ] (fun (fun a m) (fun [ List a ] m))) + ) ) ) - ) - (abs - m - (type) (abs - a + m (type) - (lam - dMonoid - [ Monoid m ] + (abs + a + (type) (lam - ds - (fun a m) + dMonoid + [ Monoid m ] (lam ds - [ List a ] - { - [ + (fun a m) + (lam + ds + [ List a ] + { [ - { [ { Nil_match a } ds ] (all dead (type) m) } - (abs - dead - (type) - [ - { [ { Monoid_match m } dMonoid ] m } - (lam - v - [ (lam a (type) (fun a (fun a a))) m ] - (lam v m v) - ) - ] - ) - ] - (lam - x - a - (lam - xs - [ List a ] + [ + { [ { Nil_match a } ds ] (all dead (type) m) } (abs dead (type) [ + { [ { Monoid_match m } dMonoid ] m } + (lam + v + [ (lam a (type) (fun a (fun a a))) m ] + (lam v m v) + ) + ] + ) + ] + (lam + x + a + (lam + xs + [ List a ] + (abs + dead + (type) [ [ - { - [ { Monoid_match m } dMonoid ] + [ + { + [ { Monoid_match m } dMonoid ] + [ + (lam a (type) (fun a (fun a a))) + m + ] + } + (lam + v + [ + (lam a (type) (fun a (fun a a))) + m + ] + (lam v m v) + ) + ] + [ ds x ] + ] + [ + [ [ - (lam a (type) (fun a (fun a a))) m + { { fFoldableNil_cfoldMap m } a } + dMonoid ] - } - (lam - v - [ - (lam a (type) (fun a (fun a a))) m - ] - (lam v m v) - ) - ] - [ ds x ] - ] - [ - [ - [ - { { fFoldableNil_cfoldMap m } a } - dMonoid + ds ] - ds + xs ] - xs ] - ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) ) ) ) ) - ) - (let - (nonrec) - (datatypebind - (datatype - (tyvardecl These (fun (type) (fun (type) (type)))) - (tyvardecl a (type)) (tyvardecl b (type)) - These_match - (vardecl That (fun b [ [ These a ] b ])) - (vardecl These (fun a (fun b [ [ These a ] b ]))) - (vardecl This (fun a [ [ These a ] b ])) - ) - ) (let - (rec) - (termbind - (strict) - (vardecl - foldr - (all - a - (type) + (nonrec) + (datatypebind + (datatype + (tyvardecl These (fun (type) (fun (type) (type)))) + (tyvardecl a (type)) (tyvardecl b (type)) + These_match + (vardecl That (fun b [ [ These a ] b ])) + (vardecl These (fun a (fun b [ [ These a ] b ]))) + (vardecl This (fun a [ [ These a ] b ])) + ) + ) + (let + (rec) + (termbind + (strict) + (vardecl + foldr (all - b + a (type) - (fun (fun a (fun b b)) (fun b (fun [ List a ] b))) + (all + b + (type) + (fun (fun a (fun b b)) (fun b (fun [ List a ] b))) + ) ) ) - ) - (abs - a - (type) (abs - b + a (type) - (lam - f - (fun a (fun b b)) + (abs + b + (type) (lam - acc - b + f + (fun a (fun b b)) (lam - l - [ List a ] - { - [ + acc + b + (lam + l + [ List a ] + { [ - { - [ { Nil_match a } l ] (all dead (type) b) - } - (abs dead (type) acc) - ] - (lam - x - a + [ + { + [ { Nil_match a } l ] + (all dead (type) b) + } + (abs dead (type) acc) + ] (lam - xs - [ List a ] - (abs - dead - (type) - [ - [ f x ] - [ [ [ { { foldr a } b } f ] acc ] xs ] - ] + x + a + (lam + xs + [ List a ] + (abs + dead + (type) + [ + [ f x ] + [ + [ [ { { foldr a } b } f ] acc ] xs + ] + ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) ) ) ) ) - ) - (let - (nonrec) - (datatypebind - (datatype - (tyvardecl AdditiveMonoid (fun (type) (type))) - (tyvardecl a (type)) - AdditiveMonoid_match - (vardecl - CConsAdditiveMonoid - (fun - [ (lam a (type) (fun a (fun a a))) a ] - (fun a [ AdditiveMonoid a ]) + (let + (nonrec) + (datatypebind + (datatype + (tyvardecl AdditiveMonoid (fun (type) (type))) + (tyvardecl a (type)) + AdditiveMonoid_match + (vardecl + CConsAdditiveMonoid + (fun + [ (lam a (type) (fun a (fun a a))) a ] + (fun a [ AdditiveMonoid a ]) + ) ) ) ) - ) - (termbind - (strict) - (vardecl - union - (all - k - (type) + (termbind + (strict) + (vardecl + union (all - v + k (type) (all - r + v (type) - (fun - [ (lam a (type) (fun a (fun a Bool))) k ] + (all + r + (type) (fun - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - k - ] - v - ] + [ (lam a (type) (fun a (fun a Bool))) k ] (fun [ [ @@ -960,53 +996,58 @@ ) k ] - r + v ] - [ + (fun [ - (lam + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) k - (type) + ] + r + ] + [ + [ (lam - v (type) [ List [ [ Tuple2 k ] v ] ] + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - k + k + ] + [ [ These v ] r ] ] - [ [ These v ] r ] - ] + ) ) ) ) ) ) ) - ) - (abs - k - (type) (abs - v + k (type) (abs - r + v (type) - (lam - dEq - [ (lam a (type) (fun a (fun a Bool))) k ] + (abs + r + (type) (lam - ds - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - k - ] - v - ] + dEq + [ (lam a (type) (fun a (fun a Bool))) k ] (lam ds [ @@ -1020,208 +1061,219 @@ ) k ] - r + v ] - [ + (lam + ds [ [ - { - { - foldr - [ [ Tuple2 k ] [ [ These v ] r ] ] - } - [ - List - [ [ Tuple2 k ] [ [ These v ] r ] ] - ] - } - { - Cons - [ [ Tuple2 k ] [ [ These v ] r ] ] - } + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + k ] + r + ] + [ [ [ { { - fFunctorNil_cfmap - [ [ Tuple2 k ] r ] + foldr + [ [ Tuple2 k ] [ [ These v ] r ] ] } + [ + List + [ [ Tuple2 k ] [ [ These v ] r ] ] + ] + } + { + Cons [ [ Tuple2 k ] [ [ These v ] r ] ] } - (lam - ds - [ [ Tuple2 k ] r ] - [ + ] + [ + [ + { { - [ { { Tuple2_match k } r } ds ] - [ - [ Tuple2 k ] [ [ These v ] r ] - ] + fFunctorNil_cfmap + [ [ Tuple2 k ] r ] } - (lam - c - k - (lam - a - r + [ [ Tuple2 k ] [ [ These v ] r ] ] + } + (lam + ds + [ [ Tuple2 k ] r ] + [ + { + [ + { { Tuple2_match k } r } ds + ] [ + [ Tuple2 k ] + [ [ These v ] r ] + ] + } + (lam + c + k + (lam + a + r [ - { - { Tuple2 k } - [ [ These v ] r ] - } - c + [ + { + { Tuple2 k } + [ [ These v ] r ] + } + c + ] + [ { { That v } r } a ] ] - [ { { That v } r } a ] - ] + ) ) - ) - ] - ) - ] - [ + ] + ) + ] [ [ - { - { foldr [ [ Tuple2 k ] r ] } - [ List [ [ Tuple2 k ] r ] ] - } - (lam - e - [ [ Tuple2 k ] r ] - (lam - xs + [ + { + { foldr [ [ Tuple2 k ] r ] } [ List [ [ Tuple2 k ] r ] ] - [ - { - [ - { { Tuple2_match k } r } - e - ] - [ - List [ [ Tuple2 k ] r ] - ] - } - (lam - c - k + } + (lam + e + [ [ Tuple2 k ] r ] + (lam + xs + [ List [ [ Tuple2 k ] r ] ] + [ + { + [ + { + { Tuple2_match k } r + } + e + ] + [ + List + [ [ Tuple2 k ] r ] + ] + } (lam - ds - r - { - [ + c + k + (lam + ds + r + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - a - ) - Bool - ] - } - [ - [ - Tuple2 - k - ] - v - ] - } - (let - (nonrec) - (termbind - (strict) - (vardecl - v + { + fFoldableNil_cfoldMap [ - AdditiveMonoid + (lam + a + (type) + a + ) Bool ] - ) + } [ [ - { - CConsAdditiveMonoid - Bool - } - (lam - l + Tuple2 + k + ] + v + ] + } + (let + (nonrec) + (termbind + (strict) + (vardecl + v + [ + AdditiveMonoid Bool + ] + ) + [ + [ + { + CConsAdditiveMonoid + Bool + } (lam - r + l Bool - { - [ + (lam + r + Bool + { [ - { - [ - Bool_match - l - ] - (all + [ + { + [ + Bool_match + l + ] + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool + True ) - } + ] (abs dead (type) - True + r ) ] - (abs + (all dead (type) - r + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) + ] + False ] - False - ] - ) - [ + ) [ - { - CConsMonoid - [ - (lam - a - (type) - a - ) - Bool - ] - } - (lam - eta - [ - (lam - a - (type) - a - ) - Bool - ] + [ + { + CConsMonoid + [ + (lam + a + (type) + a + ) + Bool + ] + } (lam eta [ @@ -1232,428 +1284,431 @@ ) Bool ] - [ + (lam + eta + [ + (lam + a + (type) + a + ) + Bool + ] [ [ - { - [ - { - AdditiveMonoid_match - Bool - } - v - ] - [ - (lam - a - (type) - (fun + [ + { + [ + { + AdditiveMonoid_match + Bool + } + v + ] + [ + (lam a + (type) (fun a - a + (fun + a + a + ) ) ) - ) - Bool - ] - } - (lam - v - [ - (lam - a - (type) - (fun + Bool + ] + } + (lam + v + [ + (lam a + (type) (fun a - a + (fun + a + a + ) ) ) + Bool + ] + (lam + v + Bool + v ) - Bool - ] - (lam - v - Bool - v ) - ) + ] + eta ] eta ] - eta - ] + ) ) - ) - ] - [ - { - [ - { - AdditiveMonoid_match - Bool - } + ] + [ + { + [ + { + AdditiveMonoid_match + Bool + } + v + ] + Bool + } + (lam v - ] - Bool - } - (lam - v - [ - (lam - a - (type) - (fun + [ + (lam a + (type) (fun a - a + (fun + a + a + ) ) ) - ) - Bool - ] - (lam - v - Bool - v + Bool + ] + (lam + v + Bool + v + ) ) - ) + ] ] - ] - ) - ] - (lam - ds - [ - [ - Tuple2 - k - ] - v + ) ] - [ - { + (lam + ds + [ [ - { + Tuple2 + k + ] + v + ] + [ + { + [ { - Tuple2_match - k + { + Tuple2_match + k + } + v } - v - } - ds - ] - Bool - } - (lam - c - k + ds + ] + Bool + } (lam - ds - v - [ + c + k + (lam + ds + v [ - dEq + [ + dEq + c + ] c ] - c - ] + ) ) - ) - ] - ) + ] + ) + ] + ds ] - ds ] - ] - (all - dead - (type) - [ - List + (all + dead + (type) [ + List [ - Tuple2 k + [ + Tuple2 + k + ] + r ] - r ] - ] + ) + } + (abs + dead (type) xs ) - } + ] (abs - dead (type) xs - ) - ] - (abs - dead - (type) - [ + dead + (type) [ - { - Cons - [ + [ + { + Cons [ - Tuple2 k + [ + Tuple2 + k + ] + r ] - r - ] - } - e + } + e + ] + xs ] - xs - ] + ) + ] + (all + dead (type) dead ) - ] - (all dead (type) dead) - } + } + ) ) - ) - ] + ] + ) ) - ) + ] + { Nil [ [ Tuple2 k ] r ] } ] - { Nil [ [ Tuple2 k ] r ] } + ds ] - ds ] ] - ] - [ [ - { + [ { - fFunctorNil_cfmap [ [ Tuple2 k ] v ] - } - [ [ Tuple2 k ] [ [ These v ] r ] ] - } - (lam - ds - [ [ Tuple2 k ] v ] - [ { - [ { { Tuple2_match k } v } ds ] - [ [ Tuple2 k ] [ [ These v ] r ] ] + fFunctorNil_cfmap + [ [ Tuple2 k ] v ] } - (lam - c - k + [ [ Tuple2 k ] [ [ These v ] r ] ] + } + (lam + ds + [ [ Tuple2 k ] v ] + [ + { + [ { { Tuple2_match k } v } ds ] + [ + [ Tuple2 k ] [ [ These v ] r ] + ] + } (lam - i - v - (let - (rec) - (termbind - (strict) - (vardecl - go - (fun + c + k + (lam + i + v + (let + (rec) + (termbind + (strict) + (vardecl + go + (fun + [ + List + [ [ Tuple2 k ] r ] + ] + [ [ These v ] r ] + ) + ) + (lam + ds [ List [ [ Tuple2 k ] r ] ] - [ [ These v ] r ] - ) - ) - (lam - ds - [ - List [ [ Tuple2 k ] r ] - ] - { - [ + { [ - { - [ - { - Nil_match + [ + { + [ + { + Nil_match + [ + [ + Tuple2 k + ] + r + ] + } + ds + ] + (all + dead + (type) [ - [ Tuple2 k ] + [ These v ] r ] - } - ds - ] - (all + ) + } + (abs dead (type) [ - [ These v ] r + { + { This v } r + } + i ] ) - } - (abs - dead - (type) - [ - { { This v } r } - i - ] - ) - ] - (lam - ds - [ [ Tuple2 k ] r ] + ] (lam - xs - [ - List + ds + [ [ Tuple2 k ] r ] + (lam + xs [ - [ Tuple2 k ] r + List + [ + [ Tuple2 k ] + r + ] ] - ] - (abs - dead - (type) - [ - { - [ - { + (abs + dead + (type) + [ + { + [ { - Tuple2_match - k + { + Tuple2_match + k + } + r } - r - } - ds - ] - [ - [ - These v + ds ] - r - ] - } - (lam - c - k - (lam - i - r - { + [ [ + These + v + ] + r + ] + } + (lam + c + k + (lam + i + r + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ - dEq + [ + dEq + c + ] c ] - c ] - ] - (all + (all + dead + (type) + [ + [ + These + v + ] + r + ] + ) + } + (abs dead (type) [ [ - These - v + { + { + These + v + } + r + } + i ] - r + i ] ) - } + ] (abs dead (type) [ - [ - { - { - These - v - } - r - } - i - ] - i + go + xs ] ) ] - (abs + (all dead (type) - [ - go - xs - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] + ] + ) ) ) - ) - ] - (all dead (type) dead) - } + ] + (all dead (type) dead) + } + ) ) - ) - [ [ - { - { Tuple2 k } - [ [ These v ] r ] - } - c + [ + { + { Tuple2 k } + [ [ These v ] r ] + } + c + ] + [ go ds ] ] - [ go ds ] - ] + ) ) ) - ) - ] - ) + ] + ) + ] + ds ] - ds ] - ] + ) ) ) ) ) ) ) - ) - (termbind - (strict) - (vardecl - unionVal - (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] + (termbind + (strict) + (vardecl + unionVal (fun [ [ @@ -1676,14 +1731,27 @@ (con integer) ] ] - [ + (fun [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] ] [ [ @@ -1694,35 +1762,21 @@ ) (con bytestring) ] - [ [ These (con integer) ] (con integer) ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ [ These (con integer) ] (con integer) ] + ] ] - ] + ) ) ) - ) - (lam - ds - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] (lam ds [ @@ -1746,16 +1800,55 @@ (con integer) ] ] - [ + (lam + ds + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] + ] [ - { + [ { - fFunctorNil_cfmap - [ - [ Tuple2 (con bytestring) ] + { + fFunctorNil_cfmap [ + [ Tuple2 (con bytestring) ] [ - These + [ + These + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] [ [ (lam @@ -1772,48 +1865,48 @@ (con integer) ] ] + ] + } + [ + [ Tuple2 (con bytestring) ] + [ [ - [ + (lam + k + (type) (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) + v (type) [ List [ [ Tuple2 k ] v ] ] ) - (con bytestring) - ] - (con integer) + ) + (con bytestring) ] + [ [ These (con integer) ] (con integer) ] ] ] } - [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - [ [ These (con integer) ] (con integer) ] - ] - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] + (lam + ds [ + [ Tuple2 (con bytestring) ] [ - These + [ + These + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] [ [ (lam @@ -1830,29 +1923,33 @@ (con integer) ] ] - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] ] - ] - [ - { - [ - { - { Tuple2_match (con bytestring) } - [ + [ + { + [ + { + { Tuple2_match (con bytestring) } [ - These + [ + These + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] [ [ (lam @@ -1869,70 +1966,11 @@ (con integer) ] ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] - } - ds - ] - [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - [ - [ These (con integer) ] (con integer) - ] + } + ds ] - ] - } - (lam - c - (con bytestring) - (lam - a [ - [ - These - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - ] + [ Tuple2 (con bytestring) ] [ [ (lam @@ -1946,13 +1984,21 @@ ) (con bytestring) ] - (con integer) + [ + [ These (con integer) ] + (con integer) + ] ] ] - [ + } + (lam + c + (con bytestring) + (lam + a [ - { - { Tuple2 (con bytestring) } + [ + These [ [ (lam @@ -1966,22 +2012,82 @@ ) (con bytestring) ] - [ - [ These (con integer) ] - (con integer) - ] + (con integer) ] - } - c + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] [ [ - [ - { + { + { Tuple2 (con bytestring) } + [ [ - { + (lam + k + (type) + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] + ] + } + c + ] + [ + [ + [ + { + [ { - These_match + { + These_match + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ Tuple2 k ] + v + ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + } [ [ (lam @@ -2003,202 +2109,169 @@ (con integer) ] } + a + ] + [ [ - [ + (lam + k + (type) (lam - k + v (type) - (lam - v - (type) - [ - List - [ [ Tuple2 k ] v ] - ] - ) + [ + List + [ [ Tuple2 k ] v ] + ] ) - (con bytestring) - ] + ) + (con bytestring) + ] + [ + [ These (con integer) ] (con integer) ] - } - a - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ [ Tuple2 k ] v ] - ] - ) - ) - (con bytestring) - ] - [ - [ These (con integer) ] - (con integer) ] - ] - } - (lam - b - [ + } + (lam + b [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List - [ [ Tuple2 k ] v ] - ] + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) - ] - [ [ - { + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ + Tuple2 + (con bytestring) + ] + (con integer) + ] + } [ [ Tuple2 (con bytestring) ] - (con integer) + [ + [ + These + (con integer) + ] + (con integer) + ] ] } - [ - [ - Tuple2 - (con bytestring) - ] + (lam + ds [ [ - These (con integer) + Tuple2 + (con bytestring) ] (con integer) ] - ] - } - (lam - ds - [ [ - Tuple2 - (con bytestring) - ] - (con integer) - ] - [ - { - [ - { + { + [ { - Tuple2_match - (con bytestring) + { + Tuple2_match + (con + bytestring + ) + } + (con integer) } - (con integer) - } - ds - ] - [ - [ - Tuple2 - (con bytestring) + ds ] [ [ - These + Tuple2 + (con bytestring) + ] + [ + [ + These + (con integer) + ] (con integer) ] - (con integer) ] - ] - } - (lam - c - (con bytestring) + } (lam - a - (con integer) - [ + c + (con bytestring) + (lam + a + (con integer) [ - { + [ { - Tuple2 - (con - bytestring - ) - } - [ + { + Tuple2 + (con + bytestring + ) + } [ - These + [ + These + (con + integer + ) + ] (con integer ) ] - (con - integer - ) - ] - } - c - ] - [ - { + } + c + ] + [ { - That + { + That + (con + integer + ) + } (con integer ) } - (con integer) - } - a + a + ] ] - ] + ) ) - ) - ] - ) + ] + ) + ] + b ] - b - ] - ) - ] - (lam - a - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List [ [ Tuple2 k ] v ] - ] - ) - ) - (con bytestring) - ] - (con integer) + ) ] (lam - b + a [ [ (lam @@ -2217,151 +2290,199 @@ ] (con integer) ] - [ + (lam + b [ [ - { + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + [ + [ + [ { { - union - (con bytestring) + { + union + (con bytestring) + } + (con integer) } (con integer) } - (con integer) - } - equalsByteString + equalsByteString + ] + a ] - a + b ] - b - ] + ) ) - ) - ] - (lam - a - [ + ] + (lam + a [ - (lam - k - (type) + [ (lam - v + k (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - [ + (lam + v + (type) + [ + List [ [ Tuple2 k ] v ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] [ - { + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ + Tuple2 + (con bytestring) + ] + (con integer) + ] + } [ [ Tuple2 (con bytestring) ] - (con integer) + [ + [ These (con integer) ] + (con integer) + ] ] } - [ - [ Tuple2 (con bytestring) ] + (lam + ds [ - [ These (con integer) ] + [ + Tuple2 (con bytestring) + ] (con integer) ] - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - [ - { - [ - { + [ + { + [ { - Tuple2_match - (con bytestring) + { + Tuple2_match + (con bytestring) + } + (con integer) } - (con integer) - } - ds - ] - [ - [ - Tuple2 - (con bytestring) + ds ] [ [ - These (con integer) + Tuple2 + (con bytestring) + ] + [ + [ + These + (con integer) + ] + (con integer) ] - (con integer) ] - ] - } - (lam - c - (con bytestring) + } (lam - a - (con integer) - [ + c + (con bytestring) + (lam + a + (con integer) [ - { + [ { - Tuple2 - (con bytestring) - } - [ + { + Tuple2 + (con + bytestring + ) + } [ - These + [ + These + (con + integer + ) + ] (con integer) ] - (con integer) - ] - } - c - ] - [ - { + } + c + ] + [ { - This + { + This + (con integer) + } (con integer) } - (con integer) - } - a + a + ] ] - ] + ) ) - ) - ] - ) + ] + ) + ] + a ] - a - ] - ) + ) + ] ] - ] + ) ) - ) - ] - ) - ] - [ + ] + ) + ] [ [ - { + [ { - { union (con bytestring) } + { + { union (con bytestring) } + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + } [ [ (lam @@ -2378,58 +2499,24 @@ (con integer) ] } - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - (con integer) - ] - } - equalsByteString + equalsByteString + ] + ds ] ds ] - ds ] - ] + ) ) ) - ) - (termbind - (strict) - (vardecl - unionWith - (fun - (fun (con integer) (fun (con integer) (con integer))) + (termbind + (strict) + (vardecl + unionWith (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] + (fun + (con integer) (fun (con integer) (con integer)) + ) (fun [ [ @@ -2452,14 +2539,29 @@ (con integer) ] ] - [ + (fun [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] [ [ @@ -2470,41 +2572,29 @@ ) (con bytestring) ] - (con integer) - ] - ] - ) - ) - ) - ) - (lam - f - (fun (con integer) (fun (con integer) (con integer))) - (lam - ls - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] + ) + ) + ) + (lam + f + (fun (con integer) (fun (con integer) (con integer))) (lam - rs + ls [ [ (lam @@ -2526,11 +2616,56 @@ (con integer) ] ] - [ + (lam + rs [ - { + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] + ] + [ + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ Tuple2 (con bytestring) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] + ] + ] + } [ [ Tuple2 (con bytestring) ] [ @@ -2546,52 +2681,60 @@ ) (con bytestring) ] - [ - [ These (con integer) ] (con integer) - ] + (con integer) ] ] } - [ - [ Tuple2 (con bytestring) ] + (lam + ds [ + [ Tuple2 (con bytestring) ] [ - (lam - k - (type) + [ (lam - v (type) [ List [ [ Tuple2 k ] v ] ] + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + [ + [ These (con integer) ] (con integer) + ] ] - (con integer) ] - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] - [ [ These (con integer) ] (con integer) ] - ] - ] - [ - { - [ - { - { Tuple2_match (con bytestring) } + { + [ + { + { Tuple2_match (con bytestring) } + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] + ] + } + ds + ] + [ + [ Tuple2 (con bytestring) ] [ [ (lam @@ -2605,85 +2748,80 @@ ) (con bytestring) ] - [ - [ These (con integer) ] - (con integer) - ] - ] - } - ds - ] - [ - [ Tuple2 (con bytestring) ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) + (con integer) ] - (con integer) ] - ] - } - (lam - c - (con bytestring) + } (lam - a - [ + c + (con bytestring) + (lam + a [ - (lam - k - (type) + [ (lam - v + k (type) - [ List [ [ Tuple2 k ] v ] ] + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) ) - ) - (con bytestring) - ] - [ - [ These (con integer) ] - (con integer) + (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] ] - ] - [ [ - { - { Tuple2 (con bytestring) } - [ + [ + { + { Tuple2 (con bytestring) } [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List [ [ Tuple2 k ] v ] - ] + (lam + v + (type) + [ + List + [ [ Tuple2 k ] v ] + ] + ) ) - ) - (con bytestring) + (con bytestring) + ] + (con integer) ] - (con integer) - ] - } - c - ] - [ + } + c + ] [ - { + [ { - fFunctorNil_cfmap + { + fFunctorNil_cfmap + [ + [ + Tuple2 (con bytestring) + ] + [ + [ These (con integer) ] + (con integer) + ] + ] + } + [ + [ Tuple2 (con bytestring) ] + (con integer) + ] + } + (lam + ds [ [ Tuple2 (con bytestring) ] [ @@ -2691,214 +2829,181 @@ (con integer) ] ] - } - [ - [ Tuple2 (con bytestring) ] - (con integer) - ] - } - (lam - ds - [ - [ Tuple2 (con bytestring) ] [ - [ These (con integer) ] - (con integer) - ] - ] - [ - { - [ - { + { + [ { - Tuple2_match - (con bytestring) + { + Tuple2_match + (con bytestring) + } + [ + [ + These + (con integer) + ] + (con integer) + ] } + ds + ] + [ + [ + Tuple2 + (con bytestring) + ] + (con integer) + ] + } + (lam + c + (con bytestring) + (lam + a [ [ These (con integer) ] (con integer) ] - } - ds - ] - [ - [ - Tuple2 (con bytestring) - ] - (con integer) - ] - } - (lam - c - (con bytestring) - (lam - a - [ - [ These (con integer) ] - (con integer) - ] - [ [ - { + [ { - Tuple2 - (con bytestring) + { + Tuple2 + (con bytestring) + } + (con integer) } - (con integer) - } - c - ] - [ + c + ] [ [ - { - [ - { + [ + { + [ { - These_match + { + These_match + (con + integer + ) + } (con integer ) } - (con - integer - ) - } - a - ] - (con integer) - } - (lam - b - (con integer) - [ + a + ] + (con integer) + } + (lam + b + (con integer) [ - f - (con - integer 0 - ) + [ + f + (con + integer + 0 + ) + ] + b ] + ) + ] + (lam + a + (con integer) + (lam b - ] + (con integer) + [ [ f a ] b ] + ) ) ] (lam a (con integer) - (lam - b - (con integer) - [ [ f a ] b ] - ) + [ + [ f a ] + (con integer 0) + ] ) ] - (lam - a - (con integer) - [ - [ f a ] - (con integer 0) - ] - ) ] - ] + ) ) - ) - ] - ) + ] + ) + ] + a ] - a ] - ] + ) ) - ) - ] - ) + ] + ) + ] + [ [ unionVal ls ] rs ] ] - [ [ unionVal ls ] rs ] - ] + ) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl Extended (fun (type) (type))) - (tyvardecl a (type)) - Extended_match - (vardecl Finite (fun a [ Extended a ])) - (vardecl NegInf [ Extended a ]) - (vardecl PosInf [ Extended a ]) + (datatypebind + (datatype + (tyvardecl Extended (fun (type) (type))) + (tyvardecl a (type)) + Extended_match + (vardecl Finite (fun a [ Extended a ])) + (vardecl NegInf [ Extended a ]) + (vardecl PosInf [ Extended a ]) + ) ) - ) - (datatypebind - (datatype - (tyvardecl LowerBound (fun (type) (type))) - (tyvardecl a (type)) - LowerBound_match - (vardecl - LowerBound - (fun [ Extended a ] (fun Bool [ LowerBound a ])) + (datatypebind + (datatype + (tyvardecl LowerBound (fun (type) (type))) + (tyvardecl a (type)) + LowerBound_match + (vardecl + LowerBound + (fun [ Extended a ] (fun Bool [ LowerBound a ])) + ) ) ) - ) - (datatypebind - (datatype - (tyvardecl UpperBound (fun (type) (type))) - (tyvardecl a (type)) - UpperBound_match - (vardecl - UpperBound - (fun [ Extended a ] (fun Bool [ UpperBound a ])) + (datatypebind + (datatype + (tyvardecl UpperBound (fun (type) (type))) + (tyvardecl a (type)) + UpperBound_match + (vardecl + UpperBound + (fun [ Extended a ] (fun Bool [ UpperBound a ])) + ) ) ) - ) - (datatypebind - (datatype - (tyvardecl Interval (fun (type) (type))) - (tyvardecl a (type)) - Interval_match - (vardecl - Interval - (fun - [ LowerBound a ] - (fun [ UpperBound a ] [ Interval a ]) + (datatypebind + (datatype + (tyvardecl Interval (fun (type) (type))) + (tyvardecl a (type)) + Interval_match + (vardecl + Interval + (fun + [ LowerBound a ] + (fun [ UpperBound a ] [ Interval a ]) + ) ) ) ) - ) - (termbind - (strict) - (vardecl - wremainingFrom - (fun - (con integer) + (termbind + (strict) + (vardecl + wremainingFrom (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) - ] - ] + (con integer) (fun - [ Interval (con integer) ] [ [ (lam @@ -2920,24 +3025,40 @@ (con integer) ] ] + (fun + [ Interval (con integer) ] + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + ) ) ) ) - ) - (lam - ww - (con integer) (lam ww - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] + (con integer) + (lam + ww [ [ (lam @@ -2947,28 +3068,26 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam v (type) [ List [ [ Tuple2 k ] v ] ]) + ) + (con bytestring) + ] + (con integer) + ] ] - ] - (lam - w - [ Interval (con integer) ] - [ - [ [ unionWith addInteger ] ww ] + (lam + w + [ Interval (con integer) ] [ - { - [ { Interval_match (con integer) } w ] - [ - [ - (lam - k - (type) - (lam - v (type) [ List [ [ Tuple2 k ] v ] ] - ) - ) - (con bytestring) - ] + [ [ unionWith addInteger ] ww ] + [ + { + [ { Interval_match (con integer) } w ] [ [ (lam @@ -2980,33 +3099,34 @@ ) (con bytestring) ] - (con integer) - ] - ] - } - (lam - ww - [ LowerBound (con integer) ] - (lam - ww - [ UpperBound (con integer) ] - [ - { - [ - { LowerBound_match (con integer) } ww - ] + [ [ - [ + (lam + k + (type) (lam - k + v (type) - (lam - v - (type) - [ List [ [ Tuple2 k ] v ] ] - ) + [ List [ [ Tuple2 k ] v ] ] ) - (con bytestring) + ) + (con bytestring) + ] + (con integer) + ] + ] + } + (lam + ww + [ LowerBound (con integer) ] + (lam + ww + [ UpperBound (con integer) ] + [ + { + [ + { LowerBound_match (con integer) } + ww ] [ [ @@ -3021,37 +3141,51 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] - } - (lam - ww - [ Extended (con integer) ] + } (lam ww - Bool - { - [ + [ Extended (con integer) ] + (lam + ww + Bool + { [ [ - { - [ - Ordering_match + [ + { [ + Ordering_match [ - (let - (nonrec) - (termbind - (strict) - (vardecl - dOrd - [ - Ord - (con integer) - ] - ) - [ + [ + (let + (nonrec) + (termbind + (strict) + (vardecl + dOrd + [ + Ord + (con + integer + ) + ] + ) [ [ [ @@ -3059,165 +3193,202 @@ [ [ [ - { - CConsOrd - (con - integer - ) - } - (lam - x - (con - integer - ) + [ + { + CConsOrd + (con + integer + ) + } (lam - y + x (con integer ) - [ + (lam + y + (con + integer + ) [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsInteger + ifThenElse ) - x + Bool + } + [ + [ + (builtin + equalsInteger + ) + x + ] + y ] - y ] + True ] - True + False ] - False - ] + ) ) - ) - ] - (lam - x - (con - integer - ) + ] (lam - y + x (con integer ) - { - [ + (lam + y + (con + integer + ) + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsInteger + ifThenElse ) - x + Bool + } + [ + [ + (builtin + equalsInteger + ) + x + ] + y ] - y ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Ordering + ) + } + (abs dead (type) - Ordering + EQ ) - } + ] (abs dead (type) - EQ - ) - ] - (abs - dead - (type) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - lessThanEqualsInteger + ifThenElse ) - x + Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + x + ] + y ] - y ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + Ordering + ) + } + (abs dead (type) - Ordering + LT ) - } + ] (abs dead (type) - LT + GT ) ] - (abs + (all dead (type) - GT + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ) + ] + (lam + x + (con + integer + ) + (lam + y + (con + integer + ) + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + lessThanInteger + ) + x + ] + y + ] + ] + True + ] + False + ] ) ) ] @@ -3243,7 +3414,7 @@ [ [ (builtin - lessThanInteger + lessThanEqualsInteger ) x ] @@ -3286,50 +3457,83 @@ y ] ] - True + False ] - False + True ] ) ) ] + greaterThanEqualsInteger + ] + (lam + x + (con + integer + ) (lam - x + y (con integer ) - (lam - y - (con - integer - ) + { [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } + { [ + Bool_match [ - (builtin - lessThanEqualsInteger - ) - x + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + lessThanEqualsInteger + ) + x + ] + y + ] + ] + True + ] + False ] - y ] - ] - False + (all + dead + (type) + (con + integer + ) + ) + } + (abs + dead + (type) + y + ) ] - True + (abs + dead + (type) + x + ) ] - ) + (all + dead + (type) + dead + ) + } ) - ] - greaterThanEqualsInteger + ) ] (lam x @@ -3382,13 +3586,13 @@ (abs dead (type) - y + x ) ] (abs dead (type) - x + y ) ] (all @@ -3400,1835 +3604,1617 @@ ) ) ] - (lam - x + ) + (lam + ds + [ + Extended (con integer) - (lam - y + ] + (lam + ds + [ + Extended (con integer ) - { - [ - [ - { + ] + (let + (nonrec) + (termbind + (strict) + (vardecl + fail + (fun + (con + unit + ) + Ordering + ) + ) + (lam + ds + (con + unit + ) + { + [ [ - Bool_match [ - [ + { [ { - (builtin - ifThenElse + Extended_match + (con + integer ) - Bool } - [ - [ - (builtin - lessThanEqualsInteger - ) - x - ] - y - ] + ds ] - True - ] - False - ] - ] - (all - dead - (type) - (con - integer - ) - ) - } - (abs - dead - (type) - x - ) - ] - (abs - dead - (type) - y - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - ] - ) - (lam - ds - [ - Extended - (con integer) - ] - (lam - ds - [ - Extended - (con integer) - ] - (let - (nonrec) - (termbind - (strict) - (vardecl - fail - (fun - (all - a - (type) - a - ) - Ordering - ) - ) - (lam - ds - (all - a - (type) - a - ) - { - [ - [ - [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - { - [ + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - l - (con - integer - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + l + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - r - (con - integer - ) - (abs - dead - (type) + [ + { [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + (con + integer + ) + (abs + dead + (type) [ [ - { - compare - (con - integer - ) - } - dOrd + [ + { + compare + (con + integer + ) + } + dOrd + ] + l ] - l + r ] - r - ] + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (error + Ordering + ) ) ] - (abs + (all dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) + GT + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { [ - fail - (abs - e - (type) - (error - e + { + Extended_match + (con + integer ) - ) + } + ds ] + (all + dead + (type) + Ordering + ) + } + (lam + l + (con + integer + ) + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + (con + integer + ) + (abs + dead + (type) + [ + [ + [ + { + compare + (con + integer + ) + } + dOrd + ] + l + ] + r + ] + ) + ) + ] + (abs + dead + (type) + (error + Ordering + ) + ) + ] + (abs + dead + (type) + (error + Ordering + ) + ) + ] + (all + dead + (type) + dead + ) + } + ) ) ] (abs dead (type) - GT + (error + Ordering + ) ) ] - (all + (abs dead (type) - dead - ) - } - ) - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - l - (con - integer - ) - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - r - (con - integer - ) - (abs - dead - (type) - [ - [ - [ - { - compare - (con - integer - ) - } - dOrd - ] - l - ] - r - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + GT ) ] - (abs + (all dead (type) - GT + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (abs + dead + (type) + LT ) ] - (abs + (all dead (type) - LT + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - (termbind - (strict) - (vardecl - fail - (fun - (all - a - (type) - a - ) - Ordering + } ) ) - (lam - ds - (all - a - (type) - a + (termbind + (strict) + (vardecl + fail + (fun + (con + unit + ) + Ordering + ) ) - { - [ + (lam + ds + (con + unit + ) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - l - (con - integer - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + l + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - r - (con - integer - ) - (abs - dead - (type) + [ + { [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + (con + integer + ) + (abs + dead + (type) [ [ - { - compare - (con - integer - ) - } - dOrd + [ + { + compare + (con + integer + ) + } + dOrd + ] + l ] - l + r ] - r - ] + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (error + Ordering + ) ) ] - (abs + (all dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (type) + GT ) ] - (abs + (all dead (type) - GT + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - l - (con - integer - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + l + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - r - (con - integer - ) - (abs - dead - (type) + [ + { [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + (con + integer + ) + (abs + dead + (type) [ [ - { - compare - (con - integer - ) - } - dOrd + [ + { + compare + (con + integer + ) + } + dOrd + ] + l ] - l + r ] - r - ] + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (error + Ordering + ) ) ] - (abs + (all dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + GT ) ] - (abs + (all dead (type) - GT + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (abs + dead + (type) + LT ) ] - (abs + (all dead (type) - LT + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - (termbind - (strict) - (vardecl - fail - (fun - (all - a - (type) - a - ) - Ordering + } ) ) - (lam - ds - (all - a - (type) - a + (termbind + (strict) + (vardecl + fail + (fun + (con + unit + ) + Ordering + ) ) - { - [ + (lam + ds + (con + unit + ) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - l - (con - integer - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + l + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - r - (con - integer - ) - (abs - dead - (type) + [ + { [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + (con + integer + ) + (abs + dead + (type) [ [ - { - compare - (con - integer - ) - } - dOrd + [ + { + compare + (con + integer + ) + } + dOrd + ] + l ] - l + r ] - r - ] + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (error + Ordering + ) ) ] - (abs + (all dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + GT ) ] - (abs + (all dead (type) - GT + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - l - (con - integer - ) - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - r - (con - integer - ) - (abs - dead - (type) + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + l + (con + integer + ) + (abs + dead + (type) + { + [ + [ + [ + { [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + (con + integer + ) + (abs + dead + (type) [ [ - { - compare - (con - integer - ) - } - dOrd + [ + { + compare + (con + integer + ) + } + dOrd + ] + l ] - l + r ] - r - ] + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (error + Ordering + ) ) ] - (abs + (all dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + GT ) ] - (abs + (all dead (type) - GT + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (abs + dead + (type) + LT ) ] - (abs + (all dead (type) - LT + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - (termbind - (strict) - (vardecl - fail - (fun - (all - a - (type) - a - ) - Ordering + } ) ) - (lam - ds - (all - a - (type) - a + (termbind + (strict) + (vardecl + fail + (fun + (con + unit + ) + Ordering + ) ) - { - [ + (lam + ds + (con + unit + ) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - l - (con - integer - ) - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - r - (con - integer - ) - (abs - dead - (type) + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + l + (con + integer + ) + (abs + dead + (type) + { + [ + [ + [ + { [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + (con + integer + ) + (abs + dead + (type) [ [ - { - compare - (con - integer - ) - } - dOrd + [ + { + compare + (con + integer + ) + } + dOrd + ] + l ] - l + r ] - r - ] + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (error + Ordering + ) ) ] - (abs + (all dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + GT ) ] - (abs + (all dead (type) - GT + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] - (abs - dead - (type) - { - [ + ] + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - l - (con - integer - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + l + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - r - (con - integer - ) - (abs - dead - (type) + [ + { [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + r + (con + integer + ) + (abs + dead + (type) [ [ - { - compare - (con - integer - ) - } - dOrd + [ + { + compare + (con + integer + ) + } + dOrd + ] + l ] - l + r ] - r - ] + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + (error + Ordering + ) ) ] - (abs + (all dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ) + ] + (abs + dead + (type) + (error + Ordering ) ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + GT ) ] - (abs + (all dead (type) - GT + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (abs + dead + (type) + LT ) ] - (abs + (all dead (type) - LT + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - { - [ + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - { - [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) + [ + { [ - fail - (abs - e - (type) - (error - e + { + Extended_match + (con + integer ) - ) + } + ds ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) + [ + { [ - fail - (abs - e - (type) - (error - e + { + Extended_match + (con + integer + ) + } + ds + ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + [ + fail + (con + unit + () ) - ) - ] + ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + EQ ) ] - (abs + (all dead (type) - EQ + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) + ] + (abs + dead + (type) + GT ) ] (abs dead (type) - GT - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) + [ + { [ - fail - (abs - e - (type) - (error - e + { + Extended_match + (con + integer ) - ) + } + ds ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) + [ + { [ - fail - (abs - e - (type) - (error - e + { + Extended_match + (con + integer ) - ) + } + ds ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + EQ ) ] - (abs + (all dead (type) - EQ + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) + } + ) + ] + (all + dead + (type) + dead + ) + } + ) + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match + (con + integer + ) + } + ds ] (all dead (type) - dead + Ordering ) } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + LT + ) + ) + ] + (abs + dead + (type) + EQ ) ] - (all + (abs dead (type) - dead + LT ) - } - ) + ] + (all + dead + (type) + dead + ) + } ) ] (abs @@ -5262,395 +5248,298 @@ (abs dead (type) - LT - ) - ) - ] - (abs - dead - (type) - EQ - ) - ] - (abs - dead - (type) - LT - ) - ] - (all - dead - (type) - dead - ) - } - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - { - [ + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) + [ + { [ - fail - (abs - e - (type) - (error - e + { + Extended_match + (con + integer ) - ) + } + ds ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) + [ + { [ - fail - (abs - e - (type) - (error - e + { + Extended_match + (con + integer ) - ) + } + ds ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + EQ ) ] - (abs + (all dead (type) - EQ + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ] - (all - dead - (type) - dead - ) - } - ) - ) - ] - (abs - dead - (type) - GT - ) - ] - (abs - dead - (type) - { - [ - [ - [ - { - [ - { - Extended_match - (con - integer - ) - } - ds + } + ) ] (all dead (type) - Ordering + dead ) } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) + ) + ) + ] + (abs + dead + (type) + GT + ) + ] + (abs + dead + (type) + { + [ + [ + [ + { [ - fail - (abs - e - (type) - (error - e + { + Extended_match + (con + integer ) - ) + } + ds ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ds - ] - (all - dead - (type) - Ordering - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) + [ + { [ - fail - (abs - e - (type) - (error - e + { + Extended_match + (con + integer ) - ) + } + ds ] + (all + dead + (type) + Ordering + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] (abs dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + EQ ) ] - (abs + (all dead (type) - EQ + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) ) - ) - [ - { - Finite - (con integer) - } - ww + [ + { + Finite + (con integer) + } + ww + ] ] + ww ] - ww ] - ] - (all - dead - (type) - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ Tuple2 k ] v - ] - ] - ) - ) - (con bytestring) - ] + (all + dead + (type) [ [ (lam @@ -5670,46 +5559,43 @@ ) (con bytestring) ] - (con integer) - ] - ] - ) - } - (abs - dead - (type) - { - [ - [ - { - [ Bool_match ww ] - (all - dead - (type) - [ - [ - (lam - k - (type) - (lam - v - (type) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ [ - List - [ - [ - Tuple2 - k - ] - v - ] + Tuple2 k ] - ) - ) - (con - bytestring - ) - ] + v + ] + ] + ) + ) + (con bytestring) + ] + (con integer) + ] + ] + ) + } + (abs + dead + (type) + { + [ + [ + { + [ Bool_match ww ] + (all + dead + (type) [ [ (lam @@ -5734,49 +5620,51 @@ bytestring ) ] - (con integer) - ] - ] - ) - } - (abs - dead - (type) - [ - { - [ - { - UpperBound_match - (con - integer - ) - } - ww - ] - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] + ] + ) + } + (abs + dead + (type) + [ + { + [ + { + UpperBound_match + (con + integer + ) + } + ww + ] [ [ (lam @@ -5801,62 +5689,64 @@ bytestring ) ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + } + (lam + ww + [ + Extended (con integer ) ] - ] - } - (lam - ww - [ - Extended - (con integer) - ] - (lam - ww - Bool - { - [ + (lam + ww + Bool + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ww - ] - (all - dead - (type) + [ + { [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + { + Extended_match (con - bytestring + integer ) - ] + } + ww + ] + (all + dead + (type) [ [ (lam @@ -5881,62 +5771,62 @@ bytestring ) ] - (con - integer - ) - ] - ] - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - { - [ [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ww - ] - (all - dead + (lam + k + (type) + (lam + v (type) [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match (con - bytestring + integer ) - ] + } + ww + ] + (all + dead + (type) [ [ (lam @@ -5961,32 +5851,65 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - [ + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww ] - ww - ] + ) ) + ] + (abs + dead + (type) + [ + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww + ] ) ] (abs @@ -5995,98 +5918,53 @@ [ [ fAdditiveGroupValue_cscale - (con - integer - -1 - ) + fAdditiveGroupValue ] ww ] ) ] - (abs + (all dead (type) - [ - [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) - ] - ww - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) + ] + (abs + dead + (type) + [ + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww + ] ) ] (abs dead (type) - [ - [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) - ] - ww - ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ww - ] - (all - dead - (type) + [ + { [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + { + Extended_match (con - bytestring + integer ) - ] + } + ww + ] + (all + dead + (type) [ [ (lam @@ -6111,32 +5989,65 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - [ + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww ] - ww - ] + ) ) + ] + (abs + dead + (type) + [ + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww + ] ) ] (abs @@ -6145,84 +6056,44 @@ [ [ fAdditiveGroupValue_cscale - (con - integer - -1 - ) + fAdditiveGroupValue ] ww ] ) ] - (abs + (all dead (type) - [ - [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) - ] - ww - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) - ) - ] - ) - ] - (abs - dead - (type) - [ - { - [ - { - UpperBound_match - (con integer) - } - ww ] - [ + ) + ] + (abs + dead + (type) + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] + { + UpperBound_match + (con + integer ) - ) - (con - bytestring - ) + } + ww ] [ [ @@ -6248,60 +6119,62 @@ bytestring ) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - } - (lam - ww - [ - Extended - (con integer) - ] + } (lam ww - Bool - { - [ + [ + Extended + (con integer) + ] + (lam + ww + Bool + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ww - ] - (all - dead - (type) + [ + { [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + { + Extended_match (con - bytestring + integer ) - ] + } + ww + ] + (all + dead + (type) [ [ (lam @@ -6326,62 +6199,62 @@ bytestring ) ] - (con - integer - ) - ] - ] - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - { - [ [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ww - ] - (all - dead + (lam + k + (type) + (lam + v (type) [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match (con - bytestring + integer ) - ] + } + ww + ] + (all + dead + (type) [ [ (lam @@ -6406,32 +6279,65 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - [ + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww ] - ww - ] + ) ) + ] + (abs + dead + (type) + [ + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww + ] ) ] (abs @@ -6440,98 +6346,53 @@ [ [ fAdditiveGroupValue_cscale - (con - integer - -1 - ) + fAdditiveGroupValue ] ww ] ) ] - (abs + (all dead (type) - [ - [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) - ] - ww - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) + ] + (abs + dead + (type) + [ + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww + ] ) ] (abs dead (type) - [ - [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) - ] - ww - ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ww - ] - (all - dead - (type) + [ + { [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + { + Extended_match (con - bytestring + integer ) - ] + } + ww + ] + (all + dead + (type) [ [ (lam @@ -6556,32 +6417,65 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - [ + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww ] - ww - ] + ) ) + ] + (abs + dead + (type) + [ + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww + ] ) ] (abs @@ -6590,66 +6484,106 @@ [ [ fAdditiveGroupValue_cscale - (con - integer - -1 - ) + fAdditiveGroupValue ] ww ] ) ] - (abs + (all dead (type) - [ - [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) - ] - ww - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) + ] + (all + dead + (type) + dead ) + } + ) + ) + ] + ) + ] + (all dead (type) dead) + } + ) + ] + (abs + dead + (type) + [ + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + { + Nil + [ + [ + Tuple2 + (con bytestring) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 k + ] + v + ] ] - (all - dead - (type) - dead - ) - } + ) ) - ) + (con bytestring) + ] + (con integer) ] - ) - ] - (all dead (type) dead) - } + ] + } + ] ) ] (abs dead (type) [ - [ - fAdditiveGroupValue_cscale - (con integer -1) - ] { - Nil + [ + { + UpperBound_match + (con integer) + } + ww + ] [ [ - Tuple2 + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ Tuple2 k ] v + ] + ] + ) + ) (con bytestring) ] [ @@ -6675,106 +6609,29 @@ ] ] } - ] - ) - ] - (abs - dead - (type) - [ - { - [ - { - UpperBound_match - (con integer) - } - 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 - [ Extended (con integer) ] (lam ww - Bool - { - [ + [ Extended (con integer) ] + (lam + ww + Bool + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ww - ] - (all - dead - (type) + [ + { [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + { + Extended_match (con - bytestring + integer ) - ] + } + ww + ] + (all + dead + (type) [ [ (lam @@ -6799,60 +6656,60 @@ bytestring ) ] - (con - integer - ) - ] - ] - ) - } - (lam - default_arg0 - (con integer) - (abs - dead - (type) - { - [ [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ww - ] - (all - dead + (lam + k + (type) + (lam + v (type) [ + List [ - (lam + [ + Tuple2 k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + ) + } + (lam + default_arg0 + (con integer) + (abs + dead + (type) + { + [ + [ + [ + { + [ + { + Extended_match (con - bytestring + integer ) - ] + } + ww + ] + (all + dead + (type) [ [ (lam @@ -6877,32 +6734,65 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - ) - } - (lam - default_arg0 - (con - integer - ) - (abs - dead - (type) - [ + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww ] - ww - ] + ) ) + ] + (abs + dead + (type) + [ + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww + ] ) ] (abs @@ -6911,97 +6801,53 @@ [ [ fAdditiveGroupValue_cscale - (con - integer - -1 - ) + fAdditiveGroupValue ] ww ] ) ] - (abs + (all dead (type) - [ - [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) - ] - ww - ] + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) + ] + (abs + dead + (type) + [ + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww + ] ) ] (abs dead (type) - [ - [ - fAdditiveGroupValue_cscale - (con - integer -1 - ) - ] - ww - ] - ) - ] - (abs - dead - (type) - { - [ + { [ [ - { - [ - { - Extended_match - (con - integer - ) - } - ww - ] - (all - dead - (type) + [ + { [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + { + Extended_match (con - bytestring + integer ) - ] + } + ww + ] + (all + dead + (type) [ [ (lam @@ -7026,32 +6872,65 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + ) + } + (lam + default_arg0 + (con + integer + ) + (abs + dead + (type) + [ + [ + fAdditiveGroupValue_cscale + fAdditiveGroupValue + ] + ww ] - ] - ) - } - (lam - default_arg0 - (con - integer + ) ) - (abs - dead - (type) + ] + (abs + dead + (type) + [ [ - [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) - ] - ww + fAdditiveGroupValue_cscale + fAdditiveGroupValue ] - ) + ww + ] ) ] (abs @@ -7060,205 +6939,107 @@ [ [ fAdditiveGroupValue_cscale - (con - integer - -1 - ) + fAdditiveGroupValue ] ww ] ) ] - (abs + (all dead (type) - [ - [ - fAdditiveGroupValue_cscale - (con - integer - -1 - ) - ] - ww - ] + dead ) - ] - (all - dead (type) dead - ) - } - ) - ] - (all dead (type) dead) - } + } + ) + ] + (all dead (type) dead) + } + ) ) - ) - ] - ) - ] - (all dead (type) dead) - } + ] + ) + ] + (all dead (type) dead) + } + ) ) - ) - ] + ] + ) ) - ) + ] ] - ] + ) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl Credential (type)) - - Credential_match - (vardecl - PubKeyCredential (fun (con bytestring) Credential) - ) - (vardecl - ScriptCredential (fun (con bytestring) Credential) - ) + (typebind + (tyvardecl DCert (type)) (all a (type) (fun a a)) ) - ) - (datatypebind - (datatype - (tyvardecl StakingCredential (type)) + (datatypebind + (datatype + (tyvardecl TxOutRef (type)) - StakingCredential_match - (vardecl StakingHash (fun Credential StakingCredential)) - (vardecl - StakingPtr - (fun - (con integer) - (fun - (con integer) - (fun (con integer) StakingCredential) - ) + TxOutRef_match + (vardecl + TxOutRef + (fun (con bytestring) (fun (con integer) TxOutRef)) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl DCert (type)) - - DCert_match - (vardecl - DCertDelegDeRegKey (fun StakingCredential DCert) - ) - (vardecl - DCertDelegDelegate - (fun StakingCredential (fun (con bytestring) DCert)) - ) - (vardecl DCertDelegRegKey (fun StakingCredential DCert)) - (vardecl DCertGenesis DCert) - (vardecl DCertMir DCert) - (vardecl - DCertPoolRegister - (fun (con bytestring) (fun (con bytestring) DCert)) - ) - (vardecl - DCertPoolRetire - (fun (con bytestring) (fun (con integer) DCert)) - ) - ) - ) - (datatypebind - (datatype - (tyvardecl TxOutRef (type)) - - TxOutRef_match - (vardecl - TxOutRef - (fun (con bytestring) (fun (con integer) TxOutRef)) - ) + (typebind + (tyvardecl StakingCredential (type)) + (all a (type) (fun a a)) ) - ) - (datatypebind - (datatype - (tyvardecl ScriptPurpose (type)) + (datatypebind + (datatype + (tyvardecl ScriptPurpose (type)) - ScriptPurpose_match - (vardecl Certifying (fun DCert ScriptPurpose)) - (vardecl Minting (fun (con bytestring) ScriptPurpose)) - (vardecl - Rewarding (fun StakingCredential ScriptPurpose) + ScriptPurpose_match + (vardecl Certifying (fun DCert ScriptPurpose)) + (vardecl Minting (fun (con bytestring) ScriptPurpose)) + (vardecl + Rewarding (fun StakingCredential ScriptPurpose) + ) + (vardecl Spending (fun TxOutRef ScriptPurpose)) ) - (vardecl Spending (fun TxOutRef ScriptPurpose)) ) - ) - (datatypebind - (datatype - (tyvardecl Address (type)) + (datatypebind + (datatype + (tyvardecl Credential (type)) - Address_match - (vardecl - Address - (fun - Credential (fun [ Maybe StakingCredential ] Address) + Credential_match + (vardecl + PubKeyCredential (fun (con bytestring) Credential) + ) + (vardecl + ScriptCredential (fun (con bytestring) Credential) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl TxOut (type)) + (datatypebind + (datatype + (tyvardecl Address (type)) - TxOut_match - (vardecl - TxOut - (fun + Address_match + (vardecl Address (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] - (con integer) - ] - ] - (fun [ Maybe (con bytestring) ] TxOut) + Credential + (fun [ Maybe StakingCredential ] Address) ) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl TxInInfo (type)) - - TxInInfo_match - (vardecl TxInInfo (fun TxOutRef (fun TxOut TxInInfo))) - ) - ) - (datatypebind - (datatype - (tyvardecl TxInfo (type)) + (datatypebind + (datatype + (tyvardecl TxOut (type)) - TxInfo_match - (vardecl - TxInfo - (fun - [ List TxInInfo ] + TxOut_match + (vardecl + TxOut (fun - [ List TxOut ] + Address (fun [ [ @@ -7283,6 +7064,31 @@ (con integer) ] ] + (fun [ Maybe (con bytestring) ] TxOut) + ) + ) + ) + ) + ) + (datatypebind + (datatype + (tyvardecl TxInInfo (type)) + + TxInInfo_match + (vardecl TxInInfo (fun TxOutRef (fun TxOut TxInInfo))) + ) + ) + (datatypebind + (datatype + (tyvardecl TxInfo (type)) + + TxInfo_match + (vardecl + TxInfo + (fun + [ List TxInInfo ] + (fun + [ List TxOut ] (fun [ [ @@ -7310,28 +7116,57 @@ ] ] (fun - [ List DCert ] - (fun + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] [ - List [ - [ Tuple2 StakingCredential ] - (con integer) + (lam + k + (type) + (lam + v + (type) + [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) ] + (con integer) ] + ] + (fun + [ List DCert ] (fun - [ Interval (con integer) ] + [ + List + [ + [ Tuple2 StakingCredential ] + (con integer) + ] + ] (fun - [ List (con bytestring) ] + [ Interval (con integer) ] (fun - [ - List + [ List (con bytestring) ] + (fun [ - [ Tuple2 (con bytestring) ] - (con data) + List + [ + [ Tuple2 (con bytestring) ] + (con data) + ] ] - ] - (fun (con bytestring) TxInfo) + (fun (con bytestring) TxInfo) + ) ) ) ) @@ -7343,37 +7178,27 @@ ) ) ) - ) - (datatypebind - (datatype - (tyvardecl ScriptContext (type)) + (datatypebind + (datatype + (tyvardecl ScriptContext (type)) - ScriptContext_match - (vardecl - ScriptContext - (fun TxInfo (fun ScriptPurpose ScriptContext)) + ScriptContext_match + (vardecl + ScriptContext + (fun TxInfo (fun ScriptPurpose ScriptContext)) + ) ) ) - ) - (datatypebind - (datatype - (tyvardecl VestingTranche (type)) + (datatypebind + (datatype + (tyvardecl VestingTranche (type)) - VestingTranche_match - (vardecl - VestingTranche - (fun - (con integer) + VestingTranche_match + (vardecl + VestingTranche (fun - [ - [ - (lam - k - (type) - (lam v (type) [ List [ [ Tuple2 k ] v ] ]) - ) - (con bytestring) - ] + (con integer) + (fun [ [ (lam @@ -7383,117 +7208,86 @@ ) (con bytestring) ] - (con integer) + [ + [ + (lam + k + (type) + (lam + v (type) [ List [ [ Tuple2 k ] v ] ] + ) + ) + (con bytestring) + ] + (con integer) + ] ] - ] - VestingTranche + VestingTranche + ) ) ) ) ) - ) - (datatypebind - (datatype - (tyvardecl VestingParams (type)) + (datatypebind + (datatype + (tyvardecl VestingParams (type)) - VestingParams_match - (vardecl - VestingParams - (fun - VestingTranche + VestingParams_match + (vardecl + VestingParams (fun VestingTranche - (fun (con bytestring) VestingParams) + (fun + VestingTranche + (fun (con bytestring) VestingParams) + ) ) ) ) ) - ) - (lam - w - VestingParams (lam w - Unit + VestingParams (lam w Unit (lam w - ScriptContext - [ - { [ VestingParams_match w ] Bool } - (lam - ww - VestingTranche + Unit + (lam + w + ScriptContext + [ + { [ VestingParams_match w ] Bool } (lam ww VestingTranche (lam ww - (con bytestring) - [ - { [ Unit_match w ] Bool } + VestingTranche + (lam + ww + (con bytestring) [ { [ Unit_match w ] Bool } [ - { [ ScriptContext_match w ] Bool } - (lam - ww - TxInfo + { [ Unit_match w ] Bool } + [ + { [ 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 ] + [ List 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 [ @@ -7541,93 +7335,119 @@ ] (lam ww - [ List DCert ] - (lam - ww + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 k + ] + v + ] + ] + ) + ) + (con bytestring) + ] [ - List [ - [ - Tuple2 - StakingCredential - ] - (con integer) + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con bytestring) ] + (con integer) ] + ] + (lam + ww + [ List DCert ] (lam ww [ - Interval - (con integer) + List + [ + [ + Tuple2 + StakingCredential + ] + (con integer) + ] ] (lam ww [ - List - (con - bytestring - ) + Interval + (con integer) ] (lam ww [ List + (con + bytestring + ) + ] + (lam + ww [ + List [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con - bytestring + data ) ] - (con data) ] - ] - (lam - ww - (con - bytestring - ) - [ - (lam - ww - ScriptPurpose - { - [ + (lam + ww + (con + bytestring + ) + [ + (lam + ww + ScriptPurpose + { [ - { - [ - Bool_match + [ + { [ - (let - (nonrec) - (termbind - (strict) - (vardecl - l - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + Bool_match + [ + (let + (nonrec) + (termbind + (strict) + (vardecl + l [ [ (lam @@ -7643,27 +7463,105 @@ Tuple2 k ] - v + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + ) + [ + [ + [ + { + { + foldr + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) ] ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - ) - [ - [ - [ - { - { - foldr + } [ [ (lam @@ -7718,26 +7616,16 @@ ] ] } + [ + unionWith + addInteger + ] + ] + { + Nil [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + Tuple2 (con bytestring ) @@ -7772,83 +7660,15 @@ ] ] } - [ - unionWith - addInteger - ] ] - { - Nil - [ - [ - Tuple2 - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - (con - integer - ) - ] - ] - } - ] - [ [ - { + [ { - map - [ - [ - Tuple2 - (con - bytestring - ) - ] + { + map [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + Tuple2 (con bytestring ) @@ -7877,37 +7697,37 @@ bytestring ) ] - (con - integer - ) - ] - ] - ] - } - [ - [ - (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 - ) - ] + ] + ] + } [ [ (lam @@ -7932,81 +7752,81 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - { - (abs - b - (type) - (lam - ds [ [ - Tuple2 - (con - bytestring + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) ) - ] - b - ] - [ - { - [ - { - { - Tuple2_match - (con - bytestring - ) - } - b - } - ds - ] - b - } - (lam - ds (con bytestring ) - (lam - b - b - b - ) + ] + (con + integer ) ] - ) - ) - [ - [ + ] + } + { + (abs + b + (type) (lam - k - (type) - (lam - v - (type) + ds + [ [ - List + Tuple2 + (con + bytestring + ) + ] + b + ] + [ + { [ - [ - Tuple2 - k - ] - v + { + { + Tuple2_match + (con + bytestring + ) + } + b + } + ds ] - ] - ) - ) - (con - bytestring + b + } + (lam + ds + (con + bytestring + ) + (lam + b + b + b + ) + ) + ] ) - ] + ) [ [ (lam @@ -8031,48 +7851,71 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - } - ] - [ - (let - (nonrec) - (termbind - (strict) - (vardecl - w - (con - bytestring + } + ] + [ + (let + (nonrec) + (termbind + (strict) + (vardecl + w + (con + bytestring + ) ) - ) - [ - { - [ - { + [ + { + [ { - Tuple2_match + { + Tuple2_match + (con + bytestring + ) + } (con bytestring ) } - (con - bytestring - ) - } - { - [ + { [ - { - [ - { - Maybe_match - TxInInfo - } - { + [ + { + [ + { + Maybe_match + TxInInfo + } [ [ [ @@ -8082,26 +7925,18 @@ ScriptPurpose_match ww ] - (all - dead - (type) - [ - Maybe - TxInInfo - ] - ) + [ + Maybe + TxInInfo + ] } (lam default_arg0 DCert - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) + { + Nothing + TxInInfo + } ) ] (lam @@ -8109,171 +7944,81 @@ (con bytestring ) - (abs - dead - (type) - { - Nothing - TxInInfo - } - ) - ) - ] - (lam - default_arg0 - StakingCredential - (abs - dead - (type) { Nothing TxInInfo } ) + ] + (lam + default_arg0 + StakingCredential + { + Nothing + TxInInfo + } ) ] (lam txOutRef TxOutRef - (abs - dead - (type) + [ [ [ - [ + { { - { - fFoldableNil_cfoldMap - [ - (lam + fFoldableNil_cfoldMap + [ + (lam + a + (type) + [ + Maybe a - (type) - [ - Maybe - a - ] - ) - TxInInfo - ] - } - TxInInfo + ] + ) + TxInInfo + ] } + TxInInfo + } + { + fMonoidFirst + TxInInfo + } + ] + (lam + x + TxInInfo + [ { - fMonoidFirst - TxInInfo + [ + TxInInfo_match + x + ] + [ + Maybe + TxInInfo + ] } - ] - (lam - x - TxInInfo - [ - { - [ - TxInInfo_match - x - ] - [ - Maybe - TxInInfo - ] - } + (lam + ds + TxOutRef (lam ds - TxOutRef - (lam - ds - TxOut - { + TxOut + { + [ [ - [ - { - [ - Bool_match - { - [ - [ - { - [ - Bool_match - [ - [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ - [ - (builtin - equalsByteString - ) - [ - { - [ - TxOutRef_match - ds - ] - (con - bytestring - ) - } - (lam - ds - (con - bytestring - ) - (lam - ds - (con - integer - ) - ds - ) - ) - ] - ] - [ - { - [ - TxOutRef_match - txOutRef - ] - (con - bytestring - ) - } - (lam - ds - (con - bytestring - ) - (lam - ds - (con - integer - ) - ds - ) - ) - ] - ] - ] - True - ] - False - ] - ] - (all - dead - (type) - Bool - ) - } - (abs - dead - (type) + { + [ + Bool_match + { + [ + [ + { + [ + Bool_match [ [ [ @@ -8286,7 +8031,7 @@ [ [ (builtin - equalsInteger + equalsByteString ) [ { @@ -8295,7 +8040,7 @@ ds ] (con - integer + bytestring ) } (lam @@ -8320,7 +8065,7 @@ txOutRef ] (con - integer + bytestring ) } (lam @@ -8343,167 +8088,215 @@ ] False ] + ] + (all + dead + (type) + Bool ) - ] + } (abs dead (type) - False + [ + [ + [ + { + (builtin + ifThenElse + ) + Bool + } + [ + [ + (builtin + equalsInteger + ) + [ + { + [ + TxOutRef_match + ds + ] + (con + integer + ) + } + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + ds + ) + ) + ] + ] + [ + { + [ + TxOutRef_match + txOutRef + ] + (con + integer + ) + } + (lam + ds + (con + bytestring + ) + (lam + ds + (con + integer + ) + ds + ) + ) + ] + ] + ] + True + ] + False + ] ) ] - (all + (abs dead (type) - dead + False ) - } - ] - (all - dead - (type) - [ - Maybe - TxInInfo ] - ) - } - (abs + (all + dead + (type) + dead + ) + } + ] + (all dead (type) [ - { - Just - TxInInfo - } - x + Maybe + TxInInfo ] ) - ] + } (abs dead (type) - { - Nothing - TxInInfo - } + [ + { + Just + TxInInfo + } + x + ] ) ] - (all + (abs dead (type) - dead + { + Nothing + TxInInfo + } ) - } - ) + ] + (all + dead + (type) + dead + ) + } ) - ] - ) - ] - ww + ) + ] + ) ] - ) + ww + ] ) ] - (all - dead - (type) - dead - ) - } - ] - (all - dead - (type) - [ + ] + (all + dead + (type) [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con bytestring ) ] - (con - bytestring - ) - ] - ) - } - (lam - ds - TxInInfo - (abs - dead - (type) - [ - { - [ - TxInInfo_match - ds - ] - [ + ) + } + (lam + ds + TxInInfo + (abs + dead + (type) + [ + { [ - Tuple2 + TxInInfo_match + ds + ] + [ + [ + Tuple2 + (con + bytestring + ) + ] (con bytestring ) ] - (con - bytestring - ) - ] - } - (lam - ds - TxOutRef + } (lam ds - TxOut - [ - { - [ - TxOut_match - ds - ] - [ + TxOutRef + (lam + ds + TxOut + [ + { [ - Tuple2 - (con - bytestring - ) + TxOut_match + ds ] - (con - bytestring - ) - ] - } - (lam - ds - Address - (lam - ds [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + Tuple2 (con bytestring ) ] + (con + bytestring + ) + ] + } + (lam + ds + Address + (lam + ds [ [ (lam @@ -8528,305 +8321,250 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - [ - { + [ [ - Address_match - ds + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) ] - [ + (con + integer + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + [ + { + [ + Address_match + ds + ] [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con bytestring ) ] - (con - bytestring - ) - ] - } - (lam - ds - Credential + } (lam ds - [ - Maybe - StakingCredential - ] - [ + Credential + (lam + ds [ - { - [ - Credential_match - ds - ] - [ + Maybe + StakingCredential + ] + [ + [ + { [ - Tuple2 + Credential_match + ds + ] + [ + [ + Tuple2 + (con + bytestring + ) + ] (con bytestring ) ] + } + (lam + ipv (con bytestring ) - ] - } + [ + fail + (con + unit + () + ) + ] + ) + ] (lam - ipv + s (con bytestring ) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (lam - s - (con - bytestring - ) - { - [ + { [ - { - [ - { - Maybe_match - (con - bytestring - ) - } - ds - ] - (all - dead - (type) + [ + { [ + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) [ - Tuple2 + [ + Tuple2 + (con + bytestring + ) + ] (con bytestring ) ] - (con - bytestring - ) - ] - ) - } - (lam - dh - (con - bytestring - ) - (abs - dead - (type) - [ + ) + } + (lam + dh + (con + bytestring + ) + (abs + dead + (type) [ - { + [ { - Tuple2 + { + Tuple2 + (con + bytestring + ) + } (con bytestring ) } - (con - bytestring - ) - } - s + s + ] + dh ] - dh - ] + ) ) + ] + (abs + dead + (type) + [ + fail + (con + unit + () + ) + ] ) ] - (abs + (all dead (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ] + } + ) + ] + ) ) - ) - ] - ) - ) - ) - ] - ) - ) - ] - ) - ) - ] - (abs - dead - (type) - [ - fail - (abs - e - (type) - (error - e - ) - ) - ] - ) - ] - (all - dead - (type) - dead - ) - } - ] - (con - bytestring - ) - } - (lam - a - (con - bytestring - ) - (lam - ds - (con - bytestring - ) - a - ) - ) - ] - ) - (lam - ww - [ - List - TxOut - ] - [ - [ - [ - { - { - foldr - TxOut - } - [ - List - [ - [ - Tuple2 - (con - bytestring - ) - ] - [ - [ - (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 - ) - ] + fail (con - integer + unit + () ) ] - ] + ) ] - ] - } + (all + dead + (type) + dead + ) + } + ] + (con + bytestring + ) + } + (lam + a + (con + bytestring + ) (lam - e - TxOut - (lam - xs + ds + (con + bytestring + ) + a + ) + ) + ] + ) + (lam + ww + [ + List + TxOut + ] + [ + [ + [ + { + { + foldr + TxOut + } [ List [ @@ -8891,17 +8629,41 @@ ] ] ] - [ - { - [ - TxOut_match - e - ] + } + (lam + e + TxOut + (lam + xs + [ + List [ - List + [ + Tuple2 + (con + bytestring + ) + ] [ [ - Tuple2 + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) (con bytestring ) @@ -8930,6 +8692,28 @@ bytestring ) ] + (con + integer + ) + ] + ] + ] + ] + [ + { + [ + TxOut_match + e + ] + [ + List + [ + [ + Tuple2 + (con + bytestring + ) + ] [ [ (lam @@ -8954,43 +8738,43 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] ] ] - ] - } - (lam - ds - Address + } (lam ds - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + Address + (lam + ds [ [ (lam @@ -9015,64 +8799,64 @@ bytestring ) ] - (con - integer - ) - ] - ] - (lam - ds - [ - Maybe - (con - bytestring - ) - ] - { [ [ - { - [ - { - Maybe_match - (con - bytestring - ) - } - ds - ] - (all - dead + (lam + k + (type) + (lam + v (type) [ - List + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + (lam + ds + [ + Maybe + (con + bytestring + ) + ] + { + [ + [ + { + [ + { + Maybe_match + (con + bytestring + ) + } + ds + ] + (all + dead + (type) [ - [ - Tuple2 - (con - bytestring - ) - ] + List [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + Tuple2 (con bytestring ) @@ -9101,38 +8885,6 @@ bytestring ) ] - (con - integer - ) - ] - ] - ] - ] - ) - } - (lam - ds - (con - bytestring - ) - (abs - dead - (type) - [ - { - [ - Address_match - ds - ] - [ - List - [ - [ - Tuple2 - (con - bytestring - ) - ] [ [ (lam @@ -9157,6 +8909,38 @@ bytestring ) ] + (con + integer + ) + ] + ] + ] + ] + ) + } + (lam + ds + (con + bytestring + ) + (abs + dead + (type) + [ + { + [ + Address_match + ds + ] + [ + List + [ + [ + Tuple2 + (con + bytestring + ) + ] [ [ (lam @@ -9181,59 +8965,59 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] ] ] - ] - } - (lam - ds - Credential + } (lam ds - [ - Maybe - StakingCredential - ] - [ + Credential + (lam + ds [ - { - [ - Credential_match - ds - ] - [ - List + Maybe + StakingCredential + ] + [ + [ + { [ - [ - Tuple2 - (con - bytestring - ) - ] + Credential_match + ds + ] + [ + List [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + Tuple2 (con bytestring ) @@ -9262,133 +9046,86 @@ bytestring ) ] - (con - integer - ) - ] - ] - ] - ] - } - (lam - ipv - (con - bytestring - ) - xs - ) - ] - (lam - s - (con - bytestring - ) - { - [ - [ - { - [ - Bool_match [ [ - [ - { - (builtin - ifThenElse - ) - Bool - } - [ + (lam + k + (type) + (lam + v + (type) [ - (builtin - equalsByteString - ) - s + List + [ + [ + Tuple2 + k + ] + v + ] ] - w - ] - ] - True + ) + ) + (con + bytestring + ) ] - False + (con + integer + ) ] ] - (all - dead - (type) - [ - List - [ - [ - Tuple2 - (con - bytestring - ) - ] - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] + ] + ] + } + (lam + ipv + (con + bytestring + ) + xs + ) + ] + (lam + s + (con + bytestring + ) + { + [ + [ + { + [ + Bool_match + [ + [ [ + { + (builtin + ifThenElse + ) + Bool + } [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] + [ + (builtin + equalsByteString ) - ) - (con - bytestring - ) + s + ] + w ] - (con - integer - ) ] + True ] + False ] ] - ) - } - (abs - dead - (type) - [ - [ - { - Cons + (all + dead + (type) + [ + List [ [ Tuple2 @@ -9450,16 +9187,23 @@ ] ] ] - } + ] + ) + } + (abs + dead + (type) + [ [ - [ - { - { + { + Cons + [ + [ Tuple2 (con bytestring ) - } + ] [ [ (lam @@ -9513,84 +9257,124 @@ ) ] ] - } + ] + } + [ + [ + { + { + Tuple2 + (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 + ) + ] + ] + } + ds + ] ds ] - ds ] + xs ] - xs - ] + ) + ] + (abs + dead + (type) + xs ) ] - (abs + (all dead (type) - xs + dead ) - ] - (all - dead - (type) - dead - ) - } - ) - ] + } + ) + ] + ) ) - ) - ] + ] + ) ) + ] + (abs + dead + (type) + xs ) ] - (abs + (all dead (type) - xs + dead ) - ] - (all - dead - (type) - dead - ) - } + } + ) ) ) - ) - ] - ) - ) - ] - { - Nil - [ - [ - Tuple2 - (con - bytestring + ] ) - ] + ) + ] + { + Nil [ [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) + Tuple2 (con bytestring ) @@ -9619,49 +9403,49 @@ bytestring ) ] - (con - integer - ) - ] - ] - ] - } - ] - ww - ] - ) - ) - ww - ] - ] - ] - ) - (lam - r - [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] + ] + ] + } + ] + ww + ] + ) + ) + ww + ] + ] ] + ) + (lam + r [ [ (lam @@ -9686,26 +9470,105 @@ bytestring ) ] - (con - integer - ) + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) + ] ] - ] - [ [ [ - { + [ { - fFoldableNil_cfoldMap + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } [ - (lam - a - (type) - a - ) - Bool + [ + Tuple2 + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + [ + [ + These + (con + integer + ) + ] + (con + integer + ) + ] + ] ] } + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] + ] + (lam + ds [ [ Tuple2 @@ -9750,177 +9613,152 @@ ] ] ] - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - (lam - ds - [ - [ - Tuple2 - (con - bytestring - ) - ] [ - [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) - ] - [ + { [ - These - (con - integer - ) - ] - (con - integer - ) - ] - ] - ] - [ - { - [ - { { - Tuple2_match - (con - bytestring - ) - } - [ + { + Tuple2_match + (con + bytestring + ) + } [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) - (con - bytestring - ) - ] - [ + (con + bytestring + ) + ] [ - These + [ + These + (con + integer + ) + ] (con integer ) ] - (con - integer - ) ] - ] - } + } + ds + ] + [ + (lam + a + (type) + a + ) + Bool + ] + } + (lam ds - ] - [ - (lam - a - (type) - a + (con + bytestring ) - Bool - ] - } - (lam - ds - (con - bytestring - ) - (lam - a - [ - [ - (lam - k - (type) + (lam + a + [ + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) - (con - bytestring - ) - ] - [ + (con + bytestring + ) + ] [ - These + [ + These + (con + integer + ) + ] (con integer ) ] - (con - integer - ) ] - ] - [ [ [ - { + [ { - fFoldableNil_cfoldMap + { + fFoldableNil_cfoldMap + [ + (lam + a + (type) + a + ) + Bool + ] + } [ - (lam - a - (type) - a - ) - Bool + [ + Tuple2 + (con + bytestring + ) + ] + [ + [ + These + (con + integer + ) + ] + (con + integer + ) + ] ] } + [ + { + fMonoidProduct + Bool + } + fMultiplicativeMonoidBool + ] + ] + (lam + ds [ [ Tuple2 @@ -9940,122 +9778,112 @@ ) ] ] - } - [ - { - fMonoidProduct - Bool - } - fMultiplicativeMonoidBool - ] - ] - (lam - ds - [ - [ - Tuple2 - (con - bytestring - ) - ] [ - [ - These - (con - integer - ) - ] - (con - integer - ) - ] - ] - [ - { - [ - { + { + [ { - Tuple2_match - (con - bytestring - ) - } - [ + { + Tuple2_match + (con + bytestring + ) + } [ - These + [ + These + (con + integer + ) + ] (con integer ) ] - (con - integer - ) - ] - } + } + ds + ] + [ + (lam + a + (type) + a + ) + Bool + ] + } + (lam ds - ] - [ + (con + bytestring + ) (lam a - (type) - a - ) - Bool - ] - } - (lam - ds - (con - bytestring - ) - (lam - a - [ [ - These + [ + These + (con + integer + ) + ] (con integer ) ] - (con - integer - ) - ] - [ [ [ - { - [ - { + [ + { + [ { - These_match + { + These_match + (con + integer + ) + } (con integer ) } - (con - integer - ) - } - a - ] - Bool - } + a + ] + Bool + } + (lam + b + (con + integer + ) + [ + [ + greaterThanEqualsInteger + (con + integer + 0 + ) + ] + b + ] + ) + ] (lam - b + a (con integer ) - [ + (lam + b + (con + integer + ) [ - greaterThanEqualsInteger - (con - integer - 0 - ) + [ + greaterThanEqualsInteger + a + ] + b ] - b - ] + ) ) ] (lam @@ -10063,89 +9891,45 @@ (con integer ) - (lam - b + [ + [ + greaterThanEqualsInteger + a + ] (con integer + 0 ) - [ - [ - greaterThanEqualsInteger - a - ] - b - ] - ) + ] ) ] - (lam - a - (con - integer - ) - [ - [ - greaterThanEqualsInteger - a - ] - (con - integer - 0 - ) - ] - ) - ] - ) - ) - ] - ) + ) + ) + ] + ) + ] + a ] - a - ] + ) ) - ) - ] - ) - ] - [ + ] + ) + ] [ - unionVal - l + [ + unionVal + l + ] + r ] - r ] - ] + ) ) - ) - [ - { - [ - VestingTranche_match - ww - ] - [ + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + VestingTranche_match + ww ] [ [ @@ -10171,43 +9955,43 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - (lam - ww - (con - integer - ) - (lam - ww - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] + ] + } + (lam + ww + (con + integer + ) + (lam + ww [ [ (lam @@ -10232,57 +10016,57 @@ bytestring ) ] - (con - integer - ) - ] - ] - [ - [ [ - unionWith - addInteger + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] + (con + integer + ) ] + ] + [ [ + [ + unionWith + addInteger + ] [ [ - wremainingFrom + [ + wremainingFrom + ww + ] ww ] ww ] - ww ] - ] - [ - { - [ - VestingTranche_match - ww - ] - [ + [ + { [ - (lam - k - (type) - (lam - v - (type) - [ - List - [ - [ - Tuple2 - k - ] - v - ] - ] - ) - ) - (con - bytestring - ) + VestingTranche_match + ww ] [ [ @@ -10308,43 +10092,43 @@ bytestring ) ] - (con - integer - ) - ] - ] - } - (lam - ww - (con - integer - ) - (lam - ww - [ [ - (lam - k - (type) + [ (lam - v + k (type) - [ - List + (lam + v + (type) [ + List [ - Tuple2 - k + [ + Tuple2 + k + ] + v ] - v ] - ] + ) ) - ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] + ] + } + (lam + ww + (con + integer + ) + (lam + ww [ [ (lam @@ -10364,215 +10148,240 @@ ] ] ) - ) + ) + (con + bytestring + ) + ] + [ + [ + (lam + k + (type) + (lam + v + (type) + [ + List + [ + [ + Tuple2 + k + ] + v + ] + ] + ) + ) + (con + bytestring + ) + ] (con - bytestring + integer ) ] - (con - integer - ) ] - ] - [ [ [ - wremainingFrom + [ + wremainingFrom + ww + ] ww ] ww ] - ww - ] + ) ) - ) + ] ] - ] + ) ) - ) + ] ] ] - ] - (all + (all + dead + (type) + Bool + ) + } + (abs dead (type) - Bool - ) - } - (abs - dead - (type) - { - [ + { [ - { - [ - { - Maybe_match - (con - bytestring - ) - } + [ + { [ + { + Maybe_match + (con + bytestring + ) + } [ [ - { + [ { - fFoldableNil_cfoldMap - [ - (lam - a - (type) - [ - Maybe + { + fFoldableNil_cfoldMap + [ + (lam a - ] - ) - (con - bytestring - ) - ] + (type) + [ + Maybe + a + ] + ) + (con + bytestring + ) + ] + } + (con + bytestring + ) } + { + fMonoidFirst + (con + bytestring + ) + } + ] + (lam + x (con bytestring ) - } - { - fMonoidFirst - (con - bytestring - ) - } - ] - (lam - x - (con - bytestring - ) - { - [ + { [ - { - [ - Bool_match + [ + { [ + Bool_match [ [ - { - (builtin - ifThenElse - ) - Bool - } [ - [ + { (builtin - equalsByteString + ifThenElse ) - ww + Bool + } + [ + [ + (builtin + equalsByteString + ) + ww + ] + x ] - x ] + True ] - True + False ] - False ] - ] - (all + (all + dead + (type) + [ + Maybe + (con + bytestring + ) + ] + ) + } + (abs dead (type) [ - Maybe - (con - bytestring - ) + { + Just + (con + bytestring + ) + } + x ] ) - } + ] (abs dead (type) - [ - { - Just - (con - bytestring - ) - } - x - ] + { + Nothing + (con + bytestring + ) + } ) ] - (abs + (all dead (type) - { - Nothing - (con - bytestring - ) - } + dead ) - ] - (all - dead - (type) - dead - ) - } - ) + } + ) + ] + ww ] - ww ] - ] - (all - dead - (type) - Bool - ) - } - (lam - ds - (con - bytestring - ) - (abs - dead - (type) - True + (all + dead + (type) + Bool + ) + } + (lam + ds + (con + bytestring + ) + (abs + dead + (type) + True + ) ) + ] + (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 - ) - } - ) - ww - ] + } + ) + ww + ] + ) ) ) ) @@ -10582,17 +10391,17 @@ ) ) ) - ) - ] + ] + ) ) - ) + ] ] ] - ] + ) ) ) - ) - ] + ] + ) ) ) )