Skip to content

Instantly share code, notes, and snippets.

@thealmarty

thealmarty/Default.dump-simpl Secret

Created November 1, 2022 18:19
Show Gist options
  • Save thealmarty/c44e2e1d4a09fc276ec3b219d39bdb36 to your computer and use it in GitHub Desktop.
Save thealmarty/c44e2e1d4a09fc276ec3b219d39bdb36 to your computer and use it in GitHub Desktop.
Download ZIP
on mpj/remove-immediate-unlifting, with line `type DefaultMachineParameters = MachineParameters CekMachineCosts CekValue DefaultUni DefaultFun` removed
Raw
Default.dump-simpl
This file has been truncated, but you can view the full file.
==================== Tidy Core ====================
Result size of Tidy Core
= {terms: 30,961, types: 43,153, coercions: 24,818, joins: 15/363}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning3 = 1
-- RHS size: {terms: 6, types: 1, coercions: 2, joins: 0/0}
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
= case $w$cfromInteger
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning3
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:2>
}
-- RHS size: {terms: 5, types: 5, coercions: 0, joins: 0/0}
lvl_rs0J = \ ds1_ioGk -> case ds1_ioGk of { () -> [] }
-- RHS size: {terms: 5, types: 3, coercions: 0, joins: 0/0}
lvl1_rs0K = \ ds1_ioFq -> case ds1_ioFq of { () -> [] }
-- RHS size: {terms: 5, types: 4, coercions: 0, joins: 0/0}
lvl2_rs0L = \ ds1_ioE5 ds2_ioE6 -> (ds1_ioE5, ds2_ioE6)
-- RHS size: {terms: 19, types: 12, coercions: 3, joins: 0/1}
eta12_rs0M
= \ x_iovP ->
let {
cs_sp85
= toLazyByteString
((\ @r_ioy3 w1_ioy4 w2_ioy5 ->
case w2_ioy5 of { BufferRange ww1_ioyw ww2_ioyx ->
$wbuildStep
(((encodeData x_iovP) `cast` <Co:1>) TkEnd)
w1_ioy4
ww1_ioyw
ww2_ioyx
})
`cast` <Co:2>) } in
toStrict_goLen0 cs_sp85 cs_sp85
-- RHS size: {terms: 3, types: 5, coercions: 3, joins: 0/0}
lvl3_rs0N
= MakeKnownFailure (id `cast` <Co:3>) KnownTypeEvaluationFailure
-- RHS size: {terms: 8, types: 5, coercions: 0, joins: 0/0}
lvl4_rs0O
= \ ds1_iotr ->
case ds1_iotr of {
__DEFAULT -> EvaluationFailure;
B b_iott -> $WEvaluationSuccess b_iott
}
-- RHS size: {terms: 8, types: 5, coercions: 0, joins: 0/0}
lvl5_rs0P
= \ ds1_iosq ->
case ds1_iosq of {
__DEFAULT -> EvaluationFailure;
I i_ioss -> $WEvaluationSuccess i_ioss
}
-- RHS size: {terms: 8, types: 8, coercions: 0, joins: 0/0}
lvl6_rs0Q
= \ ds1_iorq ->
case ds1_iorq of {
__DEFAULT -> EvaluationFailure;
List ds2_iors -> $WEvaluationSuccess ds2_iors
}
-- RHS size: {terms: 8, types: 14, coercions: 0, joins: 0/0}
lvl7_rs0R
= \ ds1_ioqp ->
case ds1_ioqp of {
__DEFAULT -> EvaluationFailure;
Map es_ioqr -> $WEvaluationSuccess es_ioqr
}
-- RHS size: {terms: 10, types: 16, coercions: 0, joins: 0/0}
lvl8_rs0S
= \ ds1_iopn ->
case ds1_iopn of {
__DEFAULT -> EvaluationFailure;
Constr i_iopp ds2_iopq -> EvaluationSuccess (i_iopp, ds2_iopq)
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl9_rs0T = 8
-- RHS size: {terms: 6, types: 1, coercions: 2, joins: 0/0}
lvl10_rs0U
= case $w$cfromInteger lvl9_rs0T of ww_imCq { __DEFAULT ->
(I# ww_imCq) `cast` <Co:2>
}
-- RHS size: {terms: 6, types: 1, coercions: 0, joins: 0/0}
lvl11_rs0V
= case $w$cfromInteger
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning3
of v_B2
{ __DEFAULT ->
I# v_B2
}
-- RHS size: {terms: 26, types: 13, coercions: 4, joins: 0/0}
lvl12_rs0W
= case lvl11_rs0V of { I# v1_B2 ->
case addIntC# 9223372036854775807# v1_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# 1# (># v1_B2 0#) of {
__DEFAULT -> case overflowError of wild_00 { };
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
lvl13_rs0X = \ ds1_ionS -> B ds1_ionS
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl14_rs0Y = 0
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl15_rs0Z = IS 1#
-- RHS size: {terms: 6, types: 1, coercions: 2, joins: 0/0}
lvl16_rs10
= case $w$cfromInteger lvl15_rs0Z of ww_imCq { __DEFAULT ->
(I# ww_imCq) `cast` <Co:2>
}
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
lvl17_rs11 = \ ds1_iomR -> I ds1_iomR
-- RHS size: {terms: 6, types: 1, coercions: 2, joins: 0/0}
lvl18_rs12
= case $w$cfromInteger lvl14_rs0Y of ww_imCq { __DEFAULT ->
(I# ww_imCq) `cast` <Co:2>
}
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
lvl19_rs13 = \ ds1_iolL -> List ds1_iolL
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
lvl20_rs14 = \ ds1_iojF -> Map ds1_iojF
-- RHS size: {terms: 5, types: 3, coercions: 0, joins: 0/0}
lvl21_rs15 = \ ds1_iohS ds2_iohT -> Constr ds1_iohS ds2_iohT
-- RHS size: {terms: 18, types: 73, coercions: 0, joins: 0/0}
lvl22_rs16
= \ d_iogk xConstr_iogl xMap_iogm xList_iogn xI_iogo xB_iogp ->
case d_iogk of {
Constr ds1_iogr ds2_iogs -> xConstr_iogl;
Map ds1_iogu -> xMap_iogm;
List ds1_iogw -> xList_iogn;
I ds1_iogy -> xI_iogo;
B ds1_iogA -> xB_iogp
}
-- RHS size: {terms: 2, types: 1, coercions: 0, joins: 0/0}
lvl23_rs17 = EvaluationSuccess False
-- RHS size: {terms: 2, types: 1, coercions: 0, joins: 0/0}
lvl24_rs18 = EvaluationSuccess True
-- RHS size: {terms: 8, types: 30, coercions: 3, joins: 0/0}
lvl25_rs19
= \ text_io52 a_io53 ->
(a_io53, (\ ds1_io54 -> : text_io52 ds1_io54) `cast` <Co:3>)
-- RHS size: {terms: 6, types: 14, coercions: 0, joins: 0/0}
lvl26_rs1a = \ ds1_io48 a_io49 -> case ds1_io48 of { () -> a_io49 }
-- RHS size: {terms: 9, types: 26, coercions: 0, joins: 0/0}
lvl27_rs1b
= \ b_io37 x_io38 y_io39 ->
case b_io37 of {
False -> y_io39;
True -> x_io38
}
-- RHS size: {terms: 22, types: 84, coercions: 13, joins: 0/0}
lvl28_rs1c
= \ e1_io0X eta13_io0Y ->
case e1_io0X of wild1_io11
{ SomeException @e2_io16 $dException1_io19 e3_io1a ->
case sameTypeRep
(($p1Exception $dException1_io19) `cast` <Co:3>)
$fExceptionUnicodeException10
of {
False -> raiseIO# wild1_io11 eta13_io0Y;
True ->
case unsafeEqualityProof of { UnsafeRefl co5_io1l ->
(# eta13_io0Y, Left (e3_io1a `cast` <Co:10>) #)
}
}
}
-- RHS size: {terms: 33, types: 65, coercions: 0, joins: 0/0}
eta1_rs1d
= \ x_io0P ->
runRW#
(\ s_spHp ->
case catch#
(\ s1_io0S ->
case seq#
(case x_io0P of { BS ww1_ipEv ww2_ipEw ww3_ipEx ->
$wdecodeUtf8With strictDecode ww1_ipEv ww2_ipEw ww3_ipEx
})
s1_io0S
of
{ (# ipv_io0U, ipv1_io0V #) ->
(# ipv_io0U, Right ipv1_io0V #)
})
lvl28_rs1c
s_spHp
of
{ (# ipv_io1p, ipv1_io1q #) ->
case lazy ipv1_io1q of {
Left ds2_ipHj -> EvaluationFailure;
Right y_ipHl -> $WEvaluationSuccess y_ipHl
}
})
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl29_rs1e = IS -9223372036854775808#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl30_rs1f = IS 9223372036854775807#
-- RHS size: {terms: 5, types: 4, coercions: 0, joins: 0/0}
lvl31_rs1g
= _EvaluationFailureVia
$fEqKnownTypeError
KnownTypeEvaluationFailure
$fChoiceTagged
$fApplicativeIdentity
-- RHS size: {terms: 2, types: 0, coercions: 10, joins: 0/0}
lvl32_rs1h = lvl31_rs1g (() `cast` <Co:10>)
-- RHS size: {terms: 6, types: 6, coercions: 11, joins: 0/0}
lvl33_rs1i
= case lvl32_rs1h `cast` <Co:8> of dt_X1 { __DEFAULT ->
MakeKnownFailure (id `cast` <Co:3>) dt_X1
}
-- RHS size: {terms: 8, types: 5, coercions: 1, joins: 0/0}
$j_rs1j
= case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl33_rs1i
}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl34_rs1k = "index"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl35_rs1l = unpackCString# lvl34_rs1k
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl36_rs1m = I# 35#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl37_rs1n = I# 1231#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl38_rs1o = I# 24#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl39_rs1p = "./Data/ByteString.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl40_rs1q = unpackCString# lvl39_rs1p
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl41_rs1r = "Data.ByteString"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl42_rs1s = unpackCString# lvl41_rs1r
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl43_rs1t = "bytestring-0.11.3.1-3QerDoAWNKDFzx4R63X18a"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl44_rs1u = unpackCString# lvl43_rs1t
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl45_rs1v
= SrcLoc
lvl44_rs1u
lvl42_rs1s
lvl40_rs1q
lvl37_rs1n
lvl38_rs1o
lvl37_rs1n
lvl36_rs1m
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl46_rs1w = "moduleError"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl47_rs1x = unpackCString# lvl46_rs1w
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl48_rs1y = I# 1232#
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl49_rs1z
= SrcLoc
lvl44_rs1u
lvl42_rs1s
lvl40_rs1q
lvl48_rs1y
lvl38_rs1o
lvl48_rs1y
lvl36_rs1m
-- RHS size: {terms: 9, types: 8, coercions: 1, joins: 0/0}
lvl50_rs1A
= \ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl33_rs1i
}
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
$j1_rs1B = BuiltinExpectArgument lvl50_rs1A
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl51_rs1C = \ _ -> $j1_rs1B
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
$j2_rs1D = BuiltinExpectArgument lvl51_rs1C
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl52_rs1E = BS __NULL FinalPtr 0#
-- RHS size: {terms: 89, types: 20, coercions: 0, joins: 0/1}
eta2_rs1F
= \ w_sqRY w1_sqRZ w2_sqS0 ->
case w_sqRY of { I# ww1_sqS3 ->
case w1_sqRZ of { I# ww3_sqS7 ->
case w2_sqS0 of ww4_sqSa { BS ww5_sqSb ww6_sqSc ww7_sqSd ->
case <=# ww1_sqS3 0# of {
__DEFAULT ->
case >=# ww1_sqS3 ww7_sqSd of {
__DEFAULT ->
case <=# ww3_sqS7 0# of {
__DEFAULT ->
let { dt5_soYI = -# ww7_sqSd ww1_sqS3 } in
case >=# ww3_sqS7 dt5_soYI of {
__DEFAULT -> BS (plusAddr# ww5_sqSb ww1_sqS3) ww6_sqSc ww3_sqS7;
1# -> BS (plusAddr# ww5_sqSb ww1_sqS3) ww6_sqSc dt5_soYI
};
1# -> lvl52_rs1E
};
1# ->
case <=# ww3_sqS7 0# of {
__DEFAULT ->
case >=# ww3_sqS7 0# of {
__DEFAULT -> BS __NULL FinalPtr ww3_sqS7;
1# -> lvl52_rs1E
};
1# -> lvl52_rs1E
}
};
1# ->
case <=# ww3_sqS7 0# of {
__DEFAULT ->
case >=# ww3_sqS7 ww7_sqSd of {
__DEFAULT -> BS ww5_sqSb ww6_sqSc ww3_sqS7;
1# -> ww4_sqSa
};
1# -> lvl52_rs1E
}
}
}
}
}
-- RHS size: {terms: 70, types: 92, coercions: 0, joins: 0/3}
$weta12_rs1G
= \ w_sqSj ww_sqSn ww1_sqSo ww2_sqSp ->
runRW#
(\ s_in6Q ->
let { x_soVM = +# ww2_sqSp 1# } in
case <# x_soVM 0# of {
__DEFAULT ->
case newPinnedByteArray# x_soVM s_in6Q of
{ (# ipv_in6Z, ipv1_in70 #) ->
let { ipv2_soVL = mutableByteArrayContents# ipv1_in70 } in
let { ipv3_soVK = PlainPtr ipv1_in70 } in
case keepAlive#
ipv3_soVK
ipv_in6Z
(\ s1_in7Q ->
case integerToWord# w_sqSj of wild3_in7R { __DEFAULT ->
case writeWord8OffAddr#
ipv2_soVL 0# (wordToWord8# wild3_in7R) s1_in7Q
of s2_in7S
{ __DEFAULT ->
case {__ffi_static_ccall_unsafe bytestring-0.11.3.1-3QerDoAWNKDFzx4R63X18a:memcpy :: Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State#
RealWorld,
Addr# #)}_in7T
(plusAddr# ipv2_soVL 1#) ww_sqSn (int2Word# ww2_sqSp) s2_in7S
of
{ (# ds4_in7V, ds5_in7W #) ->
case touch# ww1_sqSo ds4_in7V of s'_in7Y { __DEFAULT ->
(# s'_in7Y, () #)
}
}
}
})
of
{ (# ipv4_in80, ipv5_in81 #) ->
lazy (BS ipv2_soVL ipv3_soVK x_soVM)
}
};
1# -> case mallocPlainForeignPtrBytes2 of wild_00 { }
})
-- RHS size: {terms: 10, types: 6, coercions: 0, joins: 0/0}
eta3_rs1H
= \ w_sqSj w1_sqSk ->
case w1_sqSk of { BS ww1_sqSn ww2_sqSo ww3_sqSp ->
$weta12_rs1G w_sqSj ww1_sqSn ww2_sqSo ww3_sqSp
}
-- RHS size: {terms: 24, types: 9, coercions: 0, joins: 0/0}
lvl53_rs1I
= \ ds1_imW3 ds2_imW4 ->
case integerEq# ds2_imW4 $fToBuiltinMeaninguniDefaultFun5 of {
__DEFAULT ->
case integerEq# ds2_imW4 lvl14_rs0Y of {
__DEFAULT ->
case integerMod ds1_imW3 ds2_imW4 of dt_X0 { __DEFAULT ->
EvaluationSuccess dt_X0
};
1# -> case divZeroError of wild_00 { }
};
1# -> EvaluationFailure
}
-- RHS size: {terms: 24, types: 9, coercions: 0, joins: 0/0}
lvl54_rs1J
= \ ds1_imUc ds2_imUd ->
case integerEq# ds2_imUd $fToBuiltinMeaninguniDefaultFun5 of {
__DEFAULT ->
case integerEq# ds2_imUd lvl14_rs0Y of {
__DEFAULT ->
case integerRem ds1_imUc ds2_imUd of dt_X0 { __DEFAULT ->
EvaluationSuccess dt_X0
};
1# -> case divZeroError of wild_00 { }
};
1# -> EvaluationFailure
}
-- RHS size: {terms: 24, types: 9, coercions: 0, joins: 0/0}
lvl55_rs1K
= \ ds1_imSl ds2_imSm ->
case integerEq# ds2_imSm $fToBuiltinMeaninguniDefaultFun5 of {
__DEFAULT ->
case integerEq# ds2_imSm lvl14_rs0Y of {
__DEFAULT ->
case integerQuot ds1_imSl ds2_imSm of dt_X0 { __DEFAULT ->
EvaluationSuccess dt_X0
};
1# -> case divZeroError of wild_00 { }
};
1# -> EvaluationFailure
}
-- RHS size: {terms: 24, types: 9, coercions: 0, joins: 0/0}
lvl56_rs1L
= \ ds1_imQt ds2_imQu ->
case integerEq# ds2_imQu $fToBuiltinMeaninguniDefaultFun5 of {
__DEFAULT ->
case integerEq# ds2_imQu lvl14_rs0Y of {
__DEFAULT ->
case integerDiv ds1_imQt ds2_imQu of dt_X0 { __DEFAULT ->
EvaluationSuccess dt_X0
};
1# -> case divZeroError of wild_00 { }
};
1# -> EvaluationFailure
}
-- RHS size: {terms: 16, types: 27, coercions: 0, joins: 0/0}
$dTypeable71_rs1M
= case $wmkTrCon
2425420386821241239##
17732826515465785584##
$trModule
$tcInteger1
0#
krep$*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 16, types: 31, coercions: 0, joins: 0/0}
$dTypeable64_rs1N
= case $wmkTrCon
2856790361152880158##
2830023125680336973##
$trModule
$tcEvaluationResult1
0#
krep$*Arr*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
$dTypeable72_rs1O = mkTrApp $dTypeable64_rs1N $dTypeable71_rs1M
-- RHS size: {terms: 16, types: 27, coercions: 0, joins: 0/0}
$dTypeable63_rs1P
= case $wmkTrCon
14182099612280475667##
2734577064602454082##
$trModule
$tcBool1
0#
krep$*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
$dTypeable65_rs1Q = mkTrApp $dTypeable64_rs1N $dTypeable63_rs1P
-- RHS size: {terms: 16, types: 27, coercions: 0, joins: 0/0}
$dTypeable62_rs1R
= case $wmkTrCon
544112076587123352##
16845753559367426238##
$trModule
$fDataByteString24
0#
krep$*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
$dTypeable70_rs1S = mkTrApp $dTypeable64_rs1N $dTypeable62_rs1R
-- RHS size: {terms: 16, types: 27, coercions: 0, joins: 0/0}
$dTypeable61_rs1T
= case $wmkTrCon
2052113150978616866##
10393726928463219846##
$trModule
$tcWord7
0#
krep$*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 16, types: 27, coercions: 0, joins: 0/0}
$dTypeable60_rs1U
= case $wmkTrCon
5193196903533114208##
8143820745237564347##
$trModule
$tcInt1
0#
krep$*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
loc19_rs1V = I# 98#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
loc18_rs1W = I# 1093#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
loc17_rs1X = I# 90#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
loc15_rs1Y = "plutus-core/src/PlutusCore/Default/Builtins.hs"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
loc1_rs1Z = unpackCString# loc15_rs1Y
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
loc14_rs20 = "PlutusCore.Default.Builtins"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
loc2_rs21 = unpackCString# loc14_rs20
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$trModule4 = "plutus-core-1.1.1.0-inplace"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
loc13_rs22 = unpackCString# $trModule4
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
$dIP8_rs23
= SrcLoc
loc13_rs22
loc2_rs21
loc1_rs1Z
loc18_rs1W
loc17_rs1X
loc18_rs1W
loc19_rs1V
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl57_rs24 = PushCallStack lvl35_rs1l $dIP8_rs23 EmptyCallStack
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl58_rs25 = PushCallStack lvl47_rs1x lvl49_rs1z lvl57_rs24
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl59_rs26 = "index too large: "#
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl60_rs27 = ", length = "#
-- RHS size: {terms: 25, types: 25, coercions: 4, joins: 0/0}
$wlvl_rs28
= \ w_sqSU ww_sqSY ->
moduleError
(lvl58_rs25 `cast` <Co:4>)
lvl35_rs1l
(unpackAppendCString#
lvl59_rs26
(case $witos ww_sqSY [] of { (# ww2_ipv7, ww3_ipv8 #) ->
++_$s++
(unpackAppendCString#
lvl60_rs27
(case $witos w_sqSU [] of { (# ww5_X2, ww6_X3 #) ->
: ww5_X2 ww6_X3
}))
ww2_ipv7
ww3_ipv8
}))
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl61_rs29 = PushCallStack lvl47_rs1x lvl45_rs1v lvl57_rs24
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
lvl62_rs2a = "negative index: "#
-- RHS size: {terms: 14, types: 13, coercions: 4, joins: 0/0}
$wlvl1_rs2b
= \ ww_sqT4 ->
moduleError
(lvl61_rs29 `cast` <Co:4>)
lvl35_rs1l
(unpackAppendCString#
lvl62_rs2a
(case $witos ww_sqT4 [] of { (# ww2_ipv7, ww3_ipv8 #) ->
: ww2_ipv7 ww3_ipv8
}))
-- RHS size: {terms: 56, types: 31, coercions: 0, joins: 0/0}
$weta1_rs2c
= \ w_sqT7 ww_sqTb ->
case >=# ww_sqTb 0# of {
__DEFAULT -> EvaluationFailure;
1# ->
case w_sqT7 of { BS dt_inna dt1_innb dt2_innc ->
case <# ww_sqTb dt2_innc of {
__DEFAULT -> EvaluationFailure;
1# ->
case <# ww_sqTb 0# of {
__DEFAULT ->
case >=# ww_sqTb dt2_innc of {
__DEFAULT ->
case readWord8OffAddr# (plusAddr# dt_inna ww_sqTb) 0# realWorld# of
{ (# ipv_inno, ipv1_innp #) ->
case touch# dt1_innb ipv_inno of { __DEFAULT ->
EvaluationSuccess (IS (word2Int# (word8ToWord# ipv1_innp)))
}
};
1# -> case $wlvl_rs28 dt2_innc ww_sqTb of wild_00 { }
};
1# -> case $wlvl1_rs2b ww_sqTb of wild_00 { }
}
}
}
}
-- RHS size: {terms: 8, types: 4, coercions: 0, joins: 0/0}
eta4_rs2d
= \ w_sqT7 w1_sqT8 ->
case w1_sqT8 of { I# ww1_sqTb -> $weta1_rs2c w_sqT7 ww1_sqTb }
-- RHS size: {terms: 16, types: 35, coercions: 0, joins: 0/0}
$dTypeable59_rs2e
= case $wmkTrCon
7054527252960433936##
12338287609587208028##
$trModule
$tcEmitter1
0#
krep$*Arr*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 3, types: 6, coercions: 0, joins: 0/0}
$dTypeable66_rs2f = mkTrApp $dTypeable59_rs2e $dTypeable65_rs1Q
-- RHS size: {terms: 16, types: 27, coercions: 0, joins: 0/0}
$dTypeable58_rs2g
= case $wmkTrCon
17350018728143179269##
6253322143937030233##
$trModule
$tcText1
0#
krep$*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
$dTypeable67_rs2h = mkTrApp $dTypeable64_rs1N $dTypeable58_rs2g
-- RHS size: {terms: 48, types: 93, coercions: 0, joins: 0/0}
$dTypeable49_rs2i
= case $wmkTrCon
16277905407886699876##
12502576999761269576##
tr$ModuleGHCPrim
$tcTYPE2
0#
$tcTYPE1
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
case $wmkTrCon
14004444201245551331##
431173301984293859##
tr$ModuleGHCPrim
$tc'BoxedRep2
0#
$tc'BoxedRep1
[]
of
{ (# ww2_X8, ww3_X9, ww4_Xa, ww5_Xb, ww6_Xc #) ->
case $wmkTrCon
778906143002568405##
17009100032422489261##
tr$ModuleGHCPrim
$tc'Lifted2
0#
$tc'Lifted1
[]
of
{ (# ww14_Xk, ww15_Xl, ww16_Xm, ww17_Xn, ww18_Xo #) ->
mkTrApp_$smkTrApp1
(mkTrApp_$smkTrApp1
(TrTyCon ww14_Xk ww15_Xl ww16_Xm ww17_Xn ww18_Xo)
ww2_X8
ww3_X9
ww4_Xa
ww5_Xb
ww6_Xc)
ww8_imwr
ww9_imws
ww10_imwt
ww11_imwu
ww12_imwv
}
}
}
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl63_rs2j = SomeTypeRep $dTypeable49_rs2i
-- RHS size: {terms: 3, types: 2, coercions: 0, joins: 0/0}
lvl64_rs2k = : lvl63_rs2j []
-- RHS size: {terms: 16, types: 46, coercions: 0, joins: 0/0}
$dTypeable50_rs2l
= case $wmkTrCon
16768171408447719559##
4259142839156598800##
$trModule
$tc'TyNameRep2
1#
$tc'TyNameRep1
lvl64_rs2k
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 16, types: 46, coercions: 0, joins: 0/0}
$dTypeable51_rs2m
= case $wmkTrCon
18130634105234004856##
11348928152034416239##
$trModule
$tcTyVarRep2
1#
$tcTyVarRep1
lvl64_rs2k
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 32, types: 75, coercions: 0, joins: 0/0}
$dTypeable48_rs2n
= case $wmkTrCon
585234218174261266##
5035390288744782104##
$trModule
$tcSomeConstant2
0#
$tcSomeConstant1
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
case $wmkTrCon
59100348872011681##
5603654411282095566##
$trModule
$tcDefaultUni1
0#
krep$*Arr*
[]
of
{ (# ww2_X8, ww3_X9, ww4_Xa, ww5_Xb, ww6_Xc #) ->
mkTrApp_$smkTrApp1
(TrTyCon ww2_X8 ww3_X9 ww4_Xa ww5_Xb ww6_Xc)
ww8_imwr
ww9_imws
ww10_imwt
ww11_imwu
ww12_imwv
}
}
-- RHS size: {terms: 16, types: 35, coercions: 0, joins: 0/0}
$dTypeable47_rs2o
= case $wmkTrCon
3966139188614386852##
2108306554504130472##
$trModule
$tc(,)1
0#
krep$*->*->*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 16, types: 31, coercions: 0, joins: 0/0}
$dTypeable45_rs2p
= case $wmkTrCon
15300440589168157478##
15016221815972113379##
$trModule
$tc[]1
0#
krep$*Arr*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 16, types: 27, coercions: 0, joins: 0/0}
$dTypeable44_rs2q
= case $wmkTrCon
3821534198431050951##
17251074009255710062##
$trModule
$fDataData36
0#
krep$*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 3, types: 4, coercions: 0, joins: 0/0}
$dTypeable46_rs2r = mkTrApp $dTypeable45_rs2p $dTypeable44_rs2q
-- RHS size: {terms: 3, types: 5, coercions: 0, joins: 0/0}
$dTypeable69_rs2s = mkTrApp $dTypeable64_rs1N $dTypeable46_rs2r
-- RHS size: {terms: 7, types: 18, coercions: 0, joins: 0/0}
$dTypeable73_rs2t
= mkTrApp
$dTypeable64_rs1N
(mkTrApp
(mkTrApp $dTypeable47_rs2o $dTypeable71_rs1M) $dTypeable46_rs2r)
-- RHS size: {terms: 9, types: 23, coercions: 0, joins: 0/0}
$dTypeable68_rs2u
= mkTrApp
$dTypeable64_rs1N
(mkTrApp
$dTypeable45_rs2p
(mkTrApp
(mkTrApp $dTypeable47_rs2o $dTypeable44_rs2q) $dTypeable44_rs2q))
-- RHS size: {terms: 16, types: 27, coercions: 0, joins: 0/0}
$dTypeable42_rs2v
= case $wmkTrCon
2684808367141291271##
14290630168515401665##
$trModule
$tc()1
0#
krep$*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
TrTyCon ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv
}
-- RHS size: {terms: 19, types: 42, coercions: 0, joins: 0/0}
$dTypeable38_rs2w
= case $wmkTrCon
3966139188614386852##
2108306554504130472##
$trModule
$tc(,)1
0#
krep$*->*->*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
mkTrApp
(mkTrApp_$smkTrApp1
$dTypeable44_rs2q ww8_imwr ww9_imws ww10_imwt ww11_imwu ww12_imwv)
$dTypeable44_rs2q
}
-- RHS size: {terms: 3, types: 6, coercions: 0, joins: 0/0}
$dTypeable40_rs2x = mkTrApp $dTypeable45_rs2p $dTypeable38_rs2w
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl65_rs2y = unpackCString# $fToBuiltinMeaninguniDefaultFun2
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl66_rs2z = I# 0#
-- RHS size: {terms: 3, types: 0, coercions: 2, joins: 0/0}
lvl67_rs2A = Name lvl65_rs2y (lvl66_rs2z `cast` <Co:2>)
-- RHS size: {terms: 3, types: 3, coercions: 2, joins: 0/0}
lvl68_rs2B = TyVar () (lvl67_rs2A `cast` <Co:2>)
-- RHS size: {terms: 3, types: 17, coercions: 0, joins: 0/0}
$s$fKnownTypeAstTYPEuniEmitter_$ctoTypeAst
= \ @proxy_ipaQ _ -> lvl68_rs2B
-- RHS size: {terms: 1, types: 4, coercions: 4, joins: 0/0}
lvl69_rs2C = DefaultUniProtoList @~<Co:4>
-- RHS size: {terms: 2, types: 6, coercions: 0, joins: 0/0}
lvl70_rs2D = SomeTypeIn lvl69_rs2C
-- RHS size: {terms: 3, types: 3, coercions: 0, joins: 0/0}
lvl71_rs2E = TyBuiltin () lvl70_rs2D
-- RHS size: {terms: 4, types: 3, coercions: 0, joins: 0/0}
lvl72_rs2F = TyApp () lvl71_rs2E lvl68_rs2B
-- RHS size: {terms: 3, types: 17, coercions: 0, joins: 0/0}
$s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst
= \ @proxy_ipaF _ -> lvl72_rs2F
-- RHS size: {terms: 3, types: 16, coercions: 0, joins: 0/0}
$s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst1
= \ @proxy_ipaF _ -> lvl68_rs2B
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl73_rs2G = unpackCString# $fToBuiltinMeaninguniDefaultFun4
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl74_rs2H = I# 1#
-- RHS size: {terms: 3, types: 0, coercions: 2, joins: 0/0}
lvl75_rs2I = Name lvl73_rs2G (lvl74_rs2H `cast` <Co:2>)
-- RHS size: {terms: 3, types: 3, coercions: 2, joins: 0/0}
lvl76_rs2J = TyVar () (lvl75_rs2I `cast` <Co:2>)
-- RHS size: {terms: 3, types: 16, coercions: 0, joins: 0/0}
$s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst2
= \ @proxy_ipaF _ -> lvl76_rs2J
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$stypeNatTypeRep_$dKnownNat = 0
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$stypeSymbolTypeRep3 = "a"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$stypeSymbolTypeRep_$dKnownSymbol
= unpackCString# $stypeSymbolTypeRep3
-- RHS size: {terms: 1, types: 5, coercions: 5, joins: 0/0}
$dContains9_rs2K = DefaultUniProtoPair @~<Co:5>
-- RHS size: {terms: 1, types: 3, coercions: 3, joins: 0/0}
$dContains1_rs2L = DefaultUniData @~<Co:3>
-- RHS size: {terms: 3, types: 15, coercions: 7, joins: 0/0}
$dContains10_rs2M
= DefaultUniApply @~<Co:7> $dContains9_rs2K $dContains1_rs2L
-- RHS size: {terms: 3, types: 13, coercions: 6, joins: 0/0}
$dContains2_rs2N
= DefaultUniApply @~<Co:6> $dContains10_rs2M $dContains1_rs2L
-- RHS size: {terms: 3, types: 15, coercions: 7, joins: 0/0}
$dContains12_rs2O
= DefaultUniApply @~<Co:7> lvl69_rs2C $dContains2_rs2N
-- RHS size: {terms: 3, types: 11, coercions: 5, joins: 0/0}
$dContains11_rs2P
= DefaultUniApply @~<Co:5> lvl69_rs2C $dContains1_rs2L
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$stypeNatTypeRep_$dKnownNat1 = 1
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
$stypeSymbolTypeRep1 = "b"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
$stypeSymbolTypeRep_$dKnownSymbol1
= unpackCString# $stypeSymbolTypeRep1
-- RHS size: {terms: 25, types: 81, coercions: 14, joins: 0/0}
$dTypeable52_rs2Q
= case $wtypeSymbolTypeRep
($stypeSymbolTypeRep_$dKnownSymbol1 `cast` <Co:7>)
of
{ (# ww1_ipaY, ww2_ipaZ, ww3_ipb0, ww4_ipb1, ww5_ipb2 #) ->
case $wtypeNatTypeRep ($stypeNatTypeRep_$dKnownNat1 `cast` <Co:7>)
of
{ (# ww8_ipbL, ww9_ipbM, ww10_ipbN, ww11_ipbO, ww12_ipbP #) ->
mkTrApp
$dTypeable51_rs2m
(mkTrApp
(mkTrApp
$dTypeable50_rs2l
(TrTyCon ww1_ipaY ww2_ipaZ ww3_ipb0 ww4_ipb1 ww5_ipb2))
(TrTyCon ww8_ipbL ww9_ipbM ww10_ipbN ww11_ipbO ww12_ipbP))
}
}
-- RHS size: {terms: 25, types: 81, coercions: 14, joins: 0/0}
$dTypeable53_rs2R
= case $wtypeSymbolTypeRep
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
of
{ (# ww1_ipaY, ww2_ipaZ, ww3_ipb0, ww4_ipb1, ww5_ipb2 #) ->
case $wtypeNatTypeRep ($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
of
{ (# ww8_ipbL, ww9_ipbM, ww10_ipbN, ww11_ipbO, ww12_ipbP #) ->
mkTrApp
$dTypeable51_rs2m
(mkTrApp
(mkTrApp
$dTypeable50_rs2l
(TrTyCon ww1_ipaY ww2_ipaZ ww3_ipb0 ww4_ipb1 ww5_ipb2))
(TrTyCon ww8_ipbL ww9_ipbM ww10_ipbN ww11_ipbO ww12_ipbP))
}
}
-- RHS size: {terms: 7, types: 53, coercions: 0, joins: 0/0}
$dTypeable54_rs2S
= mkTrApp
$dTypeable48_rs2n
(mkTrApp
(mkTrApp $dTypeable47_rs2o $dTypeable53_rs2R) $dTypeable52_rs2Q)
-- RHS size: {terms: 3, types: 11, coercions: 0, joins: 0/0}
$dTypeable55_rs2T = mkTrApp $dTypeable45_rs2p $dTypeable53_rs2R
-- RHS size: {terms: 3, types: 14, coercions: 0, joins: 0/0}
$dTypeable56_rs2U = mkTrApp $dTypeable48_rs2n $dTypeable55_rs2T
-- RHS size: {terms: 3, types: 13, coercions: 0, joins: 0/0}
$dTypeable57_rs2V = mkTrApp $dTypeable48_rs2n $dTypeable53_rs2R
-- RHS size: {terms: 9, types: 24, coercions: 62, joins: 0/0}
$s$fClosedDefaultUni_$cbring_$d(%,,,,,,,%)
= ($fExMemoryUsageInteger_$cmemoryUsage `cast` <Co:8>,
$fExMemoryUsageByteString_$cmemoryUsage `cast` <Co:8>,
$fExMemoryUsageText_$cmemoryUsage `cast` <Co:8>,
$fExMemoryUsage()_$cmemoryUsage `cast` <Co:8>,
$fExMemoryUsageBool_$cmemoryUsage `cast` <Co:8>,
$fExMemoryUsage[] `cast` <Co:4>, $fExMemoryUsage(,) `cast` <Co:4>,
$fExMemoryUsageData1 `cast` <Co:14>)
-- RHS size: {terms: 1, types: 3, coercions: 3, joins: 0/0}
$dContains17_rs2W = DefaultUniInteger @~<Co:3>
-- RHS size: {terms: 3, types: 15, coercions: 7, joins: 0/0}
$dContains18_rs2X
= DefaultUniApply @~<Co:7> $dContains9_rs2K $dContains17_rs2W
-- RHS size: {terms: 3, types: 15, coercions: 7, joins: 0/0}
$dContains3_rs2Y
= DefaultUniApply @~<Co:7> $dContains18_rs2X $dContains11_rs2P
-- RHS size: {terms: 1, types: 4, coercions: 1, joins: 0/0}
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning5
= Eq# @~<Co:1>
-- RHS size: {terms: 19, types: 58, coercions: 51, joins: 0/0}
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
= \ eta_imBh ->
case eta_imBh of {
VCon c_imBs ->
case c_imBs `cast` <Co:4> of { ValueOf uni1_sr4A x_sr4B ->
$w$cbring
($s$fClosedDefaultUni_$cbring_$d(%,,,,,,,%) `cast` <Co:38>)
uni1_sr4A
(\ irred1_imBI -> (irred1_imBI `cast` <Co:3>) x_sr4B)
};
VDelay ds_imBN ds1_imBO ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>;
VLamAbs ds_imBU ds1_imBV ds2_imBW ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>;
VBuiltin ds_imBY ds1_imBZ ds2_imC0 ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2 `cast` <Co:2>
}
-- RHS size: {terms: 49, types: 103, coercions: 0, joins: 0/0}
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning4
= case $wmkTrCon
241987649896308679##
12716304694425085339##
$trModule
$tcCekValue2
0#
$tcCekValue1
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
case $wmkTrCon
59100348872011681##
5603654411282095566##
$trModule
$tcDefaultUni1
0#
krep$*Arr*
[]
of
{ (# ww2_Xm, ww3_Xn, ww4_Xo, ww5_Xp, ww6_Xq #) ->
case $wmkTrCon
13698703424827112458##
9991697076368678106##
$trModule
$fToBuiltinMeaninguniDefaultFun7
0#
krep$*
[]
of
{ (# ww14_Xs, ww15_Xt, ww16_Xu, ww17_Xv, ww18_Xw #) ->
mkTrApp
(mkTrApp_$smkTrApp1
(TrTyCon ww2_Xm ww3_Xn ww4_Xo ww5_Xp ww6_Xq)
ww8_imwr
ww9_imws
ww10_imwt
ww11_imwu
ww12_imwv)
(TrTyCon ww14_Xs ww15_Xt ww16_Xu ww17_Xv ww18_Xw)
}
}
}
-- RHS size: {terms: 3, types: 11, coercions: 0, joins: 0/0}
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
= ($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning5,
$fHasConstantCekValue)
-- RHS size: {terms: 71, types: 210, coercions: 14, joins: 0/0}
$dTypeable43_rs2Z
= case $wmkTrCon
6273565628229328665##
11908190706173562661##
$trModule
$tcOpaque1
0#
krep$*->*->*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
case $wmkTrCon
18130634105234004856##
11348928152034416239##
$trModule
$tcTyVarRep2
1#
$tcTyVarRep1
lvl64_rs2k
of
{ (# ww2_Xm, ww3_Xn, ww4_Xo, ww5_Xp, ww6_Xq #) ->
case $wmkTrCon
16768171408447719559##
4259142839156598800##
$trModule
$tc'TyNameRep2
1#
$tc'TyNameRep1
lvl64_rs2k
of
{ (# ww14_Xs, ww15_Xt, ww16_Xu, ww17_Xv, ww18_Xw #) ->
case $wtypeSymbolTypeRep
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
of
{ (# ww19_ipaY, ww20_ipaZ, ww21_ipb0, ww22_ipb1, ww23_ipb2 #) ->
case $wtypeNatTypeRep ($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
of
{ (# ww25_ipbL, ww26_ipbM, ww27_ipbN, ww28_ipbO, ww29_ipbP #) ->
mkTrApp
(mkTrApp_$smkTrApp1
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning4
ww8_imwr
ww9_imws
ww10_imwt
ww11_imwu
ww12_imwv)
(mkTrApp_$smkTrApp1
(mkTrApp
(mkTrApp_$smkTrApp1
(TrTyCon ww19_ipaY ww20_ipaZ ww21_ipb0 ww22_ipb1 ww23_ipb2)
ww14_Xs
ww15_Xt
ww16_Xu
ww17_Xv
ww18_Xw)
(TrTyCon ww25_ipbL ww26_ipbM ww27_ipbN ww28_ipbO ww29_ipbP))
ww2_Xm
ww3_Xn
ww4_Xo
ww5_Xp
ww6_Xq)
}
}
}
}
}
-- RHS size: {terms: 17, types: 39, coercions: 0, joins: 0/0}
$dTypeable74_rs30
= case $wmkTrCon
6273565628229328665##
11908190706173562661##
$trModule
$tcOpaque1
0#
krep$*->*->*
[]
of
{ (# ww8_imwr, ww9_imws, ww10_imwt, ww11_imwu, ww12_imwv #) ->
mkTrApp_$smkTrApp1
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning4
ww8_imwr
ww9_imws
ww10_imwt
ww11_imwu
ww12_imwv
}
-- RHS size: {terms: 3, types: 14, coercions: 0, joins: 0/0}
$dTypeable75_rs31 = mkTrApp $dTypeable74_rs30 $dTypeable53_rs2R
-- RHS size: {terms: 3, types: 16, coercions: 0, joins: 0/0}
$dTypeable76_rs32 = mkTrApp $dTypeable59_rs2e $dTypeable75_rs31
-- RHS size: {terms: 3, types: 15, coercions: 0, joins: 0/0}
$dTypeable77_rs33 = mkTrApp $dTypeable64_rs1N $dTypeable75_rs31
-- RHS size: {terms: 3, types: 14, coercions: 0, joins: 0/0}
$dTypeable78_rs34 = mkTrApp $dTypeable74_rs30 $dTypeable52_rs2Q
-- RHS size: {terms: 3, types: 15, coercions: 0, joins: 0/0}
$dTypeable79_rs35 = mkTrApp $dTypeable64_rs1N $dTypeable78_rs34
-- RHS size: {terms: 5, types: 31, coercions: 0, joins: 0/0}
$dTypeable80_rs36
= mkTrApp
$dTypeable64_rs1N (mkTrApp $dTypeable74_rs30 $dTypeable55_rs2T)
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dReadKnownIn18_rs37
= $fReadKnownInDefaultUnitermData
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dMakeKnownIn30_rs38
= $fMakeKnownInDefaultUnitermData
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 2, types: 0, coercions: 2, joins: 0/0}
lvl77_rs39
= KnownTypeUnliftingError ($fHasConstantCekValue4 `cast` <Co:2>)
-- RHS size: {terms: 3, types: 5, coercions: 3, joins: 0/0}
lvl78_rs3a = MakeKnownFailure (id `cast` <Co:3>) lvl77_rs39
-- RHS size: {terms: 88, types: 180, coercions: 72, joins: 0/1}
lvl79_rs3b
= \ cost1_ioru ->
case paramUnListData cost1_ioru of
{ CostingFun cpu_iorx mem_iory ->
case runOneArgumentModel cpu_iorx of runCpu_iorA { __DEFAULT ->
case runOneArgumentModel mem_iory of runMem_iorB { __DEFAULT ->
BuiltinExpectArgument
(\ v_iorC ->
case v_iorC of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sr4O x_sr4P ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct_sr4O `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct_sr4O)
`cast` <Co:2>)))
};
Just ds1_iorU ->
case ds1_iorU of { Refl co8_iorX ->
let {
mem2_sp7h
= case $wsizeData (x_sr4P `cast` <Co:3>) of ww_imwz { __DEFAULT ->
(I# ww_imwz) `cast` <Co:5>
} } in
case (runCpu_iorA mem2_sp7h) `cast` <Co:1> of { I# dt1_ios6 ->
case (runMem_iorB mem2_sp7h) `cast` <Co:1> of { I# dt3_ios9 ->
BuiltinResult
(ExBudget dt1_ios6 dt3_ios9)
(case x_sr4P `cast` <Co:3> of {
__DEFAULT -> lvl3_rs0N;
List ds2_iosf ->
case ds2_iosf of dt4_iosh { __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co13_iosn ->
MakeKnownSuccess
(VCon
((ValueOf ($dContains11_rs2P `cast` <Co:9>) dt4_iosh)
`cast` <Co:13>))
}
}
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 3, types: 4, coercions: 22, joins: 0/0}
$dMakeKnownIn35_rs3c
= $fMakeKnownInDefaultUniterm[]
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
($dContains11_rs2P `cast` <Co:7>)
-- RHS size: {terms: 2, types: 6, coercions: 0, joins: 0/0}
$dMakeKnownIn36_rs3d
= $fMakeKnownInunivalEvaluationResult $dMakeKnownIn35_rs3c
-- RHS size: {terms: 4, types: 8, coercions: 28, joins: 0/0}
lvl80_rs3e
= TypeSchemeResult
@~<Co:2>
($dTypeable69_rs2s `cast` <Co:6>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst1
`cast` <Co:9>)
($dMakeKnownIn36_rs3d `cast` <Co:11>)
-- RHS size: {terms: 6, types: 15, coercions: 35, joins: 0/0}
lvl81_rs3f
= TypeSchemeArrow
@~<Co:6>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl80_rs3e
-- RHS size: {terms: 4, types: 13, coercions: 19, joins: 0/0}
lvl82_rs3g
= BuiltinMeaning lvl81_rs3f (lvl6_rs0Q `cast` <Co:19>) lvl79_rs3b
-- RHS size: {terms: 88, types: 192, coercions: 74, joins: 0/1}
lvl83_rs3h
= \ cost1_ioqt ->
case paramUnMapData cost1_ioqt of { CostingFun cpu_ioqw mem_ioqx ->
case runOneArgumentModel cpu_ioqw of runCpu_ioqz { __DEFAULT ->
case runOneArgumentModel mem_ioqx of runMem_ioqA { __DEFAULT ->
BuiltinExpectArgument
(\ v_ioqB ->
case v_ioqB of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sr57 x_sr58 ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct_sr57 `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct_sr57)
`cast` <Co:2>)))
};
Just ds1_ioqT ->
case ds1_ioqT of { Refl co8_ioqW ->
let {
mem2_sp77
= case $wsizeData (x_sr58 `cast` <Co:3>) of ww_imwz { __DEFAULT ->
(I# ww_imwz) `cast` <Co:5>
} } in
case (runCpu_ioqz mem2_sp77) `cast` <Co:1> of { I# dt1_ior5 ->
case (runMem_ioqA mem2_sp77) `cast` <Co:1> of { I# dt3_ior8 ->
BuiltinResult
(ExBudget dt1_ior5 dt3_ior8)
(case x_sr58 `cast` <Co:3> of {
__DEFAULT -> lvl3_rs0N;
Map es_iore ->
case es_iore of dt4_iorg { __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co13_iorm ->
MakeKnownSuccess
(VCon
((ValueOf ($dContains12_rs2O `cast` <Co:11>) dt4_iorg)
`cast` <Co:13>))
}
}
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 3, types: 6, coercions: 24, joins: 0/0}
$dMakeKnownIn33_rs3i
= $fMakeKnownInDefaultUniterm[]
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
($dContains12_rs2O `cast` <Co:9>)
-- RHS size: {terms: 2, types: 8, coercions: 0, joins: 0/0}
$dMakeKnownIn34_rs3j
= $fMakeKnownInunivalEvaluationResult $dMakeKnownIn33_rs3i
-- RHS size: {terms: 4, types: 10, coercions: 34, joins: 0/0}
lvl84_rs3k
= TypeSchemeResult
@~<Co:2>
($dTypeable68_rs2u `cast` <Co:8>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst2
`cast` <Co:11>)
($dMakeKnownIn34_rs3j `cast` <Co:13>)
-- RHS size: {terms: 6, types: 17, coercions: 35, joins: 0/0}
lvl85_rs3l
= TypeSchemeArrow
@~<Co:6>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl84_rs3k
-- RHS size: {terms: 4, types: 15, coercions: 23, joins: 0/0}
lvl86_rs3m
= BuiltinMeaning lvl85_rs3l (lvl7_rs0R `cast` <Co:23>) lvl83_rs3h
-- RHS size: {terms: 87, types: 190, coercions: 74, joins: 0/1}
lvl87_rs3n
= \ cost1_iops ->
case paramUnConstrData cost1_iops of
{ CostingFun cpu_iopv mem_iopw ->
case runOneArgumentModel cpu_iopv of runCpu_iopy { __DEFAULT ->
case runOneArgumentModel mem_iopw of runMem_iopz { __DEFAULT ->
BuiltinExpectArgument
(\ v_iopA ->
case v_iopA of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sr5q x_sr5r ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct_sr5q `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct_sr5q)
`cast` <Co:2>)))
};
Just ds1_iopS ->
case ds1_iopS of { Refl co8_iopV ->
let {
mem2_sp6X
= case $wsizeData (x_sr5r `cast` <Co:3>) of ww_imwz { __DEFAULT ->
(I# ww_imwz) `cast` <Co:5>
} } in
case (runCpu_iopy mem2_sp6X) `cast` <Co:1> of { I# dt1_ioq4 ->
case (runMem_iopz mem2_sp6X) `cast` <Co:1> of { I# dt3_ioq7 ->
BuiltinResult
(ExBudget dt1_ioq4 dt3_ioq7)
(case x_sr5r `cast` <Co:3> of {
__DEFAULT -> lvl3_rs0N;
Constr i_ioqd ds2_ioqe ->
case unsafeEqualityProof of { UnsafeRefl co13_ioql ->
MakeKnownSuccess
(VCon
((ValueOf ($dContains3_rs2Y `cast` <Co:11>) (i_ioqd, ds2_ioqe))
`cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 3, types: 6, coercions: 24, joins: 0/0}
$dMakeKnownIn31_rs3o
= $fMakeKnownInDefaultUniterm(,)
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
($dContains3_rs2Y `cast` <Co:9>)
-- RHS size: {terms: 2, types: 8, coercions: 0, joins: 0/0}
$dMakeKnownIn32_rs3p
= $fMakeKnownInunivalEvaluationResult $dMakeKnownIn31_rs3o
-- RHS size: {terms: 4, types: 10, coercions: 34, joins: 0/0}
lvl88_rs3q
= TypeSchemeResult
@~<Co:2>
($dTypeable73_rs2t `cast` <Co:8>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst3
`cast` <Co:11>)
($dMakeKnownIn32_rs3p `cast` <Co:13>)
-- RHS size: {terms: 6, types: 17, coercions: 35, joins: 0/0}
lvl89_rs3r
= TypeSchemeArrow
@~<Co:6>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl88_rs3q
-- RHS size: {terms: 4, types: 15, coercions: 23, joins: 0/0}
lvl90_rs3s
= BuiltinMeaning lvl89_rs3r (lvl8_rs0S `cast` <Co:23>) lvl87_rs3n
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dMakeKnownIn21_rs3t
= $fMakeKnownInDefaultUnitermByteString
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 1, types: 3, coercions: 3, joins: 0/0}
lvl91_rs3u = DefaultUniByteString @~<Co:3>
-- RHS size: {terms: 84, types: 175, coercions: 71, joins: 0/1}
lvl92_rs3v
= \ cost1_ioDa ->
case paramSerialiseData cost1_ioDa of
{ CostingFun cpu_ioDd mem_ioDe ->
case runOneArgumentModel cpu_ioDd of runCpu_ioDg { __DEFAULT ->
case runOneArgumentModel mem_ioDe of runMem_ioDh { __DEFAULT ->
BuiltinExpectArgument
(\ v_ioDi ->
case v_ioDi of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sr5L x_sr5M ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct_sr5L `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct_sr5L)
`cast` <Co:2>)))
};
Just ds1_ioDA ->
case ds1_ioDA of { Refl co8_ioDD ->
let {
mem2_sp81
= case $wsizeData (x_sr5M `cast` <Co:3>) of ww_imwz { __DEFAULT ->
(I# ww_imwz) `cast` <Co:5>
} } in
case (runCpu_ioDg mem2_sp81) `cast` <Co:1> of { I# dt1_ioDM ->
case (runMem_ioDh mem2_sp81) `cast` <Co:1> of { I# dt3_ioDP ->
BuiltinResult
(ExBudget dt1_ioDM dt3_ioDP)
(case eta12_rs0M (x_sr5M `cast` <Co:3>) of vx_ioDV
{ BS ipv_ioDW ipv1_ioDX ipv2_ioDY ->
case unsafeEqualityProof of { UnsafeRefl co11_ioE1 ->
MakeKnownSuccess
(VCon
((ValueOf (lvl91_rs3u `cast` <Co:8>) vx_ioDV) `cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 6, coercions: 22, joins: 0/0}
lvl93_rs3w
= TypeSchemeResult
@~<Co:2>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
-- RHS size: {terms: 6, types: 13, coercions: 35, joins: 0/0}
lvl94_rs3x
= TypeSchemeArrow
@~<Co:6>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl93_rs3w
-- RHS size: {terms: 4, types: 11, coercions: 15, joins: 0/0}
lvl95_rs3y
= BuiltinMeaning lvl94_rs3x (eta12_rs0M `cast` <Co:15>) lvl92_rs3v
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dMakeKnownIn18_rs3z
= $fMakeKnownInDefaultUnitermBool
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 9, types: 8, coercions: 1, joins: 0/0}
lvl96_rs3A
= \ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
}
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl97_rs3B = BuiltinExpectArgument lvl96_rs3A
-- RHS size: {terms: 1, types: 3, coercions: 3, joins: 0/0}
lvl98_rs3C = DefaultUniBool @~<Co:3>
-- RHS size: {terms: 129, types: 274, coercions: 118, joins: 0/2}
lvl99_rs3D
= \ cost1_iouv ->
case paramEqualsData cost1_iouv of
{ CostingFun cpu_iouy mem_iouz ->
case runTwoArgumentModel cpu_iouy of runCpu_iouB { __DEFAULT ->
case runTwoArgumentModel mem_iouz of runMem_iouC { __DEFAULT ->
BuiltinExpectArgument
(\ v_iouD ->
case v_iouD of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sr64 x_sr65 ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct_sr64 `cast` <Co:8>)
of {
Nothing ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct_sr64)
`cast` <Co:2>)))
});
Just ds1_iouV ->
case ds1_iouV of { Refl co8_iouY ->
BuiltinExpectArgument
(\ v1_iov7 ->
case v1_iov7 of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_Xu ->
case val1_Xu `cast` <Co:8> of { ValueOf uniAct1_sr6a x1_sr6b ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct1_sr6a `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct1_sr6a)
`cast` <Co:2>)))
};
Just ds2_iovp ->
case ds2_iovp of { Refl co11_iovs ->
let {
mem2_sp7O
= case $wsizeData (x_sr65 `cast` <Co:3>) of ww_imwz
{ __DEFAULT ->
(I# ww_imwz) `cast` <Co:5>
} } in
let {
mem3_sp7R
= case $wsizeData (x1_sr6b `cast` <Co:3>) of ww_imwz
{ __DEFAULT ->
(I# ww_imwz) `cast` <Co:5>
} } in
case (runCpu_iouB mem2_sp7O mem3_sp7R) `cast` <Co:1> of
{ I# dt1_iovB ->
case (runMem_iouC mem2_sp7O mem3_sp7R) `cast` <Co:1> of
{ I# dt3_iovE ->
BuiltinResult
(ExBudget dt1_iovB dt3_iovE)
(case $fEqData_$c== (x_sr65 `cast` <Co:3>) (x1_sr6b `cast` <Co:3>)
of vx_iovK
{ __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_iovM ->
MakeKnownSuccess
(VCon
((ValueOf (lvl98_rs3C `cast` <Co:8>) vx_iovK)
`cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 6, coercions: 22, joins: 0/0}
lvl100_rs3E
= TypeSchemeResult
@~<Co:2>
($dTypeable63_rs1P `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniBool_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn18_rs3z `cast` <Co:9>)
-- RHS size: {terms: 6, types: 13, coercions: 35, joins: 0/0}
lvl101_rs3F
= TypeSchemeArrow
@~<Co:6>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl100_rs3E
-- RHS size: {terms: 6, types: 21, coercions: 39, joins: 0/0}
lvl102_rs3G
= TypeSchemeArrow
@~<Co:10>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl101_rs3F
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl103_rs3H
= BuiltinMeaning
lvl102_rs3G ($fEqData_$c== `cast` <Co:30>) lvl99_rs3D
-- RHS size: {terms: 88, types: 177, coercions: 71, joins: 0/1}
lvl104_rs3I
= \ cost1_iotv ->
case paramUnBData cost1_iotv of { CostingFun cpu_ioty mem_iotz ->
case runOneArgumentModel cpu_ioty of runCpu_iotB { __DEFAULT ->
case runOneArgumentModel mem_iotz of runMem_iotC { __DEFAULT ->
BuiltinExpectArgument
(\ v_iotD ->
case v_iotD of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sr6r x_sr6s ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct_sr6r `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct_sr6r)
`cast` <Co:2>)))
};
Just ds1_iotV ->
case ds1_iotV of { Refl co8_iotY ->
let {
mem2_sp7B
= case $wsizeData (x_sr6s `cast` <Co:3>) of ww_imwz { __DEFAULT ->
(I# ww_imwz) `cast` <Co:5>
} } in
case (runCpu_iotB mem2_sp7B) `cast` <Co:1> of { I# dt1_iou7 ->
case (runMem_iotC mem2_sp7B) `cast` <Co:1> of { I# dt3_ioua ->
BuiltinResult
(ExBudget dt1_iou7 dt3_ioua)
(case x_sr6s `cast` <Co:3> of {
__DEFAULT -> lvl3_rs0N;
B b_ioug ->
case b_ioug of dt4_ioui { BS ipv_iouj ipv1_iouk ipv2_ioul ->
case unsafeEqualityProof of { UnsafeRefl co13_ious ->
MakeKnownSuccess
(VCon
((ValueOf (lvl91_rs3u `cast` <Co:8>) dt4_ioui) `cast` <Co:13>))
}
}
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 2, types: 5, coercions: 0, joins: 0/0}
$dMakeKnownIn22_rs3J
= $fMakeKnownInunivalEvaluationResult $dMakeKnownIn21_rs3t
-- RHS size: {terms: 4, types: 7, coercions: 25, joins: 0/0}
lvl105_rs3K
= TypeSchemeResult
@~<Co:2>
($dTypeable70_rs1S `cast` <Co:5>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst
`cast` <Co:8>)
($dMakeKnownIn22_rs3J `cast` <Co:10>)
-- RHS size: {terms: 6, types: 14, coercions: 35, joins: 0/0}
lvl106_rs3L
= TypeSchemeArrow
@~<Co:6>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl105_rs3K
-- RHS size: {terms: 4, types: 12, coercions: 17, joins: 0/0}
lvl107_rs3M
= BuiltinMeaning lvl106_rs3L (lvl4_rs0O `cast` <Co:17>) lvl104_rs3I
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dMakeKnownIn16_rs3N
= $fMakeKnownInDefaultUnitermInteger
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 2, types: 5, coercions: 0, joins: 0/0}
$dMakeKnownIn17_rs3O
= $fMakeKnownInunivalEvaluationResult $dMakeKnownIn16_rs3N
-- RHS size: {terms: 88, types: 174, coercions: 71, joins: 0/1}
lvl108_rs3P
= \ cost1_iosu ->
case paramUnIData cost1_iosu of { CostingFun cpu_iosx mem_iosy ->
case runOneArgumentModel cpu_iosx of runCpu_iosA { __DEFAULT ->
case runOneArgumentModel mem_iosy of runMem_iosB { __DEFAULT ->
BuiltinExpectArgument
(\ v_iosC ->
case v_iosC of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sr6M x_sr6N ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct_sr6M `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct_sr6M)
`cast` <Co:2>)))
};
Just ds1_iosU ->
case ds1_iosU of { Refl co8_iosX ->
let {
mem2_sp7r
= case $wsizeData (x_sr6N `cast` <Co:3>) of ww_imwz { __DEFAULT ->
(I# ww_imwz) `cast` <Co:5>
} } in
case (runCpu_iosA mem2_sp7r) `cast` <Co:1> of { I# dt1_iot6 ->
case (runMem_iosB mem2_sp7r) `cast` <Co:1> of { I# dt3_iot9 ->
BuiltinResult
(ExBudget dt1_iot6 dt3_iot9)
(case x_sr6N `cast` <Co:3> of {
__DEFAULT -> lvl3_rs0N;
I i_iotf ->
case i_iotf of dt4_ioth { __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co13_iotn ->
MakeKnownSuccess
(VCon
((ValueOf ($dContains17_rs2W `cast` <Co:8>) dt4_ioth)
`cast` <Co:13>))
}
}
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 7, coercions: 25, joins: 0/0}
lvl109_rs3Q
= TypeSchemeResult
@~<Co:2>
($dTypeable72_rs1O `cast` <Co:5>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst6
`cast` <Co:8>)
($dMakeKnownIn17_rs3O `cast` <Co:10>)
-- RHS size: {terms: 6, types: 14, coercions: 35, joins: 0/0}
lvl110_rs3R
= TypeSchemeArrow
@~<Co:6>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl109_rs3Q
-- RHS size: {terms: 4, types: 12, coercions: 17, joins: 0/0}
lvl111_rs3S
= BuiltinMeaning lvl110_rs3R (lvl5_rs0P `cast` <Co:17>) lvl108_rs3P
-- RHS size: {terms: 2, types: 13, coercions: 10, joins: 0/0}
$dMakeKnownIn14_rs3T
= $fMakeKnownInunivalOpaque
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning5
`cast` <Co:10>)
-- RHS size: {terms: 2, types: 17, coercions: 0, joins: 0/0}
$dMakeKnownIn15_rs3U
= $fMakeKnownInunivalEvaluationResult $dMakeKnownIn14_rs3T
-- RHS size: {terms: 2, types: 13, coercions: 15, joins: 0/0}
$dReadKnownIn16_rs3V
= $fReadKnownInunivalSomeConstant
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 2, types: 13, coercions: 15, joins: 0/0}
$dMakeKnownIn28_rs3W
= $fMakeKnownInunivalSomeConstant
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 99, types: 309, coercions: 141, joins: 0/2}
lvl112_rs3X
= \ cost1_iobn ->
case paramMkCons cost1_iobn of { CostingFun cpu_iobq mem_iobr ->
case runTwoArgumentModel cpu_iobq of runCpu_iobt { __DEFAULT ->
case runTwoArgumentModel mem_iobr of runMem_iobu { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectArgument
(\ v_iobv ->
case v_iobv of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:4> of { ValueOf uni1_sr7h x_sr7i ->
BuiltinExpectArgument
(\ v1_iobG ->
case v1_iobG of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_XA ->
case val1_XA `cast` <Co:4> of { ValueOf uni2_sr7d x1_sr7e ->
let {
mem2_sp5f
= $w$cbring
($s$fClosedDefaultUni_$cbring_$d(%,,,,,,,%) `cast` <Co:38>)
uni1_sr7h
(\ irred1_imID -> (irred1_imID `cast` <Co:3>) x_sr7i) } in
let {
mem3_sp5h
= $w$cbring
($s$fClosedDefaultUni_$cbring_$d(%,,,,,,,%) `cast` <Co:38>)
uni2_sr7d
(\ irred1_imIw -> (irred1_imIw `cast` <Co:3>) x1_sr7e) } in
case (runCpu_iobt mem2_sp5f mem3_sp5h) `cast` <Co:1> of
{ I# dt1_iobP ->
case (runMem_iobu mem2_sp5f mem3_sp5h) `cast` <Co:1> of
{ I# dt3_iobS ->
BuiltinResult
(ExBudget dt1_iobP dt3_iobS)
(case uni2_sr7d of wild6_ioc5 {
__DEFAULT -> lvl3_rs0N;
DefaultUniApply @k_ioc6 @k1_ioc7 @f_ioc8 @a1_ioc9 co9_ioca ds1_iocb
uniA1_iocc ->
case ds1_iocb of {
__DEFAULT -> lvl3_rs0N;
DefaultUniProtoList co10_iocf ->
case $fGCompareTYPEDefaultUni_$cgeq uni1_sr7h uniA1_iocc of {
Nothing -> lvl3_rs0N;
Just ds2_iocj ->
case ds2_iocj of { Refl co11_iocm ->
case unsafeEqualityProof of { UnsafeRefl co12_iocp ->
MakeKnownSuccess
(VCon
((ValueOf
wild6_ioc5
((: x_sr7i (x1_sr7e `cast` <Co:38>))
`cast` <Co:5>))
`cast` <Co:5>))
}
}
}
}
})
}
}
}
})
}
}))
}
}
}
-- RHS size: {terms: 4, types: 19, coercions: 59, joins: 0/0}
lvl113_rs3Y
= TypeSchemeResult
@~<Co:2>
($dTypeable80_rs36 `cast` <Co:17>)
($s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst
`cast` <Co:20>)
($dMakeKnownIn15_rs3U `cast` <Co:20>)
-- RHS size: {terms: 6, types: 46, coercions: 83, joins: 0/0}
lvl114_rs3Z
= TypeSchemeArrow
@~<Co:16>
($dTypeable56_rs2U `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniSomeConstant_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn28_rs3W `cast` <Co:17>)
($dReadKnownIn16_rs3V `cast` <Co:17>)
lvl113_rs3Y
-- RHS size: {terms: 2, types: 12, coercions: 15, joins: 0/0}
$dReadKnownIn17_rs40
= $fReadKnownInunivalSomeConstant
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 2, types: 12, coercions: 15, joins: 0/0}
$dMakeKnownIn29_rs41
= $fMakeKnownInunivalSomeConstant
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 6, types: 72, coercions: 92, joins: 0/0}
lvl115_rs42
= TypeSchemeArrow
@~<Co:29>
($dTypeable57_rs2V `cast` <Co:14>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniSomeConstant_$ctoTypeAst
`cast` <Co:17>)
($dMakeKnownIn29_rs41 `cast` <Co:16>)
($dReadKnownIn17_rs40 `cast` <Co:16>)
lvl114_rs3Z
-- RHS size: {terms: 39, types: 228, coercions: 137, joins: 0/0}
consPlc_rs43
= \ @a_ioaP ds1_ioaQ ds2_ioaR ->
case ds1_ioaQ `cast` <Co:8> of { ValueOf uniA_ioaU x_ioaV ->
case ds2_ioaR `cast` <Co:9> of { ValueOf uniListA_ioaY xs_ioaZ ->
case uniListA_ioaY of wild3_iob1 {
__DEFAULT -> EvaluationFailure;
DefaultUniApply @k_iob2 @k1_iob3 @f_iob4 @a1_iob5 co5_iob6 ds3_iob7
uniA1_iob8 ->
case ds3_iob7 of {
__DEFAULT -> EvaluationFailure;
DefaultUniProtoList co6_iobb ->
case $fGCompareTYPEDefaultUni_$cgeq uniA_ioaU uniA1_iob8 of {
Nothing -> EvaluationFailure;
Just ds4_iobe ->
case ds4_iobe of { Refl co7_iobh ->
case unsafeEqualityProof of { UnsafeRefl co8_iobk ->
EvaluationSuccess
((VCon
((ValueOf
(wild3_iob1 `cast` <Co:53>) (: x_ioaV (xs_ioaZ `cast` <Co:38>)))
`cast` <Co:22>))
`cast` <Co:7>)
}
}
}
}
}
}
}
-- RHS size: {terms: 5, types: 50, coercions: 17, joins: 0/0}
lvl116_rs44
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl115_rs42
-- RHS size: {terms: 4, types: 55, coercions: 117, joins: 0/0}
lvl117_rs45
= BuiltinMeaning
lvl116_rs44 (consPlc_rs43 `cast` <Co:117>) lvl112_rs3X
-- RHS size: {terms: 2, types: 5, coercions: 0, joins: 0/0}
$dMakeKnownIn19_rs46
= $fMakeKnownInunivalEvaluationResult $dMakeKnownIn18_rs3z
-- RHS size: {terms: 3, types: 5, coercions: 8, joins: 0/0}
lvl118_rs47 = ValueOf (lvl98_rs3C `cast` <Co:8>) True
-- RHS size: {terms: 3, types: 5, coercions: 8, joins: 0/0}
lvl119_rs48 = ValueOf (lvl98_rs3C `cast` <Co:8>) False
-- RHS size: {terms: 76, types: 229, coercions: 108, joins: 0/1}
lvl120_rs49
= \ cost1_iofo ->
case paramNullList cost1_iofo of { CostingFun cpu_iofr mem_iofs ->
case runOneArgumentModel cpu_iofr of runCpu_iofu { __DEFAULT ->
case runOneArgumentModel mem_iofs of runMem_iofv { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectArgument
(\ v_iofw ->
case v_iofw of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:4> of { ValueOf uni1_sr7P x_sr7Q ->
let {
mem2_sp5z
= $w$cbring
($s$fClosedDefaultUni_$cbring_$d(%,,,,,,,%) `cast` <Co:38>)
uni1_sr7P
(\ irred1_imIw -> (irred1_imIw `cast` <Co:3>) x_sr7Q) } in
case (runCpu_iofu mem2_sp5z) `cast` <Co:1> of { I# dt1_iofF ->
case (runMem_iofv mem2_sp5z) `cast` <Co:1> of { I# dt3_iofI ->
BuiltinResult
(ExBudget dt1_iofF dt3_iofI)
(case uni1_sr7P of {
__DEFAULT -> lvl3_rs0N;
DefaultUniApply @k_iog2 @k1_iog3 @f_iog4 @a1_iog5 co8_iog6 ds1_iog7
uniA_iog8 ->
case ds1_iog7 of {
__DEFAULT -> lvl3_rs0N;
DefaultUniProtoList co9_iogb ->
case x_sr7Q `cast` <Co:34> of {
[] ->
case unsafeEqualityProof of { UnsafeRefl co11_iofY ->
MakeKnownSuccess (VCon (lvl118_rs47 `cast` <Co:13>))
};
: ds2_iogf ds3_iogg ->
case unsafeEqualityProof of { UnsafeRefl co11_iofY ->
MakeKnownSuccess (VCon (lvl119_rs48 `cast` <Co:13>))
}
}
}
})
}
}
}
}))
}
}
}
-- RHS size: {terms: 4, types: 7, coercions: 25, joins: 0/0}
lvl121_rs4a
= TypeSchemeResult
@~<Co:2>
($dTypeable65_rs1Q `cast` <Co:5>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst4
`cast` <Co:8>)
($dMakeKnownIn19_rs46 `cast` <Co:10>)
-- RHS size: {terms: 6, types: 34, coercions: 83, joins: 0/0}
lvl122_rs4b
= TypeSchemeArrow
@~<Co:16>
($dTypeable56_rs2U `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniSomeConstant_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn28_rs3W `cast` <Co:17>)
($dReadKnownIn16_rs3V `cast` <Co:17>)
lvl121_rs4a
-- RHS size: {terms: 21, types: 87, coercions: 43, joins: 0/0}
nullPlc_rs4c
= \ @a_iof3 ds1_iof4 ->
case ds1_iof4 `cast` <Co:9> of { ValueOf uniListA_iof7 xs_iof8 ->
case uniListA_iof7 of {
__DEFAULT -> EvaluationFailure;
DefaultUniApply @k_iofb @k1_iofc @f_iofd @a1_iofe co5_ioff ds2_iofg
uniA_iofh ->
case ds2_iofg of {
__DEFAULT -> EvaluationFailure;
DefaultUniProtoList co6_iofk ->
case xs_iof8 `cast` <Co:34> of {
[] -> lvl24_rs18;
: ds3_ioMX ds4_ioMY -> lvl23_rs17
}
}
}
}
-- RHS size: {terms: 5, types: 25, coercions: 17, joins: 0/0}
lvl123_rs4d
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl122_rs4b
-- RHS size: {terms: 4, types: 30, coercions: 37, joins: 0/0}
lvl124_rs4e
= BuiltinMeaning
lvl123_rs4d (nullPlc_rs4c `cast` <Co:37>) lvl120_rs49
-- RHS size: {terms: 76, types: 271, coercions: 92, joins: 0/1}
lvl125_rs4f
= \ cost1_ioec ->
case paramTailList cost1_ioec of { CostingFun cpu_ioef mem_ioeg ->
case runOneArgumentModel cpu_ioef of runCpu_ioei { __DEFAULT ->
case runOneArgumentModel mem_ioeg of runMem_ioej { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectArgument
(\ v_ioek ->
case v_ioek of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:4> of { ValueOf uni1_sr8f x_sr8g ->
let {
mem2_sp5t
= $w$cbring
($s$fClosedDefaultUni_$cbring_$d(%,,,,,,,%) `cast` <Co:38>)
uni1_sr8f
(\ irred1_imIw -> (irred1_imIw `cast` <Co:3>) x_sr8g) } in
case (runCpu_ioei mem2_sp5t) `cast` <Co:1> of { I# dt1_ioet ->
case (runMem_ioej mem2_sp5t) `cast` <Co:1> of { I# dt3_ioew ->
BuiltinResult
(ExBudget dt1_ioet dt3_ioew)
(case uni1_sr8f of wild4_ioeF {
__DEFAULT -> lvl3_rs0N;
DefaultUniApply @k_ioeG @k1_ioeH @f_ioeI @a1_ioeJ co8_ioeK ds1_ioeL
uniA_ioeM ->
case ds1_ioeL of {
__DEFAULT -> lvl3_rs0N;
DefaultUniProtoList co9_ioeP ->
case x_sr8g `cast` <Co:34> of {
[] -> lvl3_rs0N;
: ds2_ioeT xs'_ioeU ->
case unsafeEqualityProof of { UnsafeRefl co10_ioeX ->
case xs'_ioeU of dt4_XE { __DEFAULT ->
MakeKnownSuccess
(VCon
((ValueOf wild4_ioeF (dt4_XE `cast` <Co:5>)) `cast` <Co:5>))
}
}
}
}
})
}
}
}
}))
}
}
}
-- RHS size: {terms: 31, types: 218, coercions: 121, joins: 0/0}
tailPlc_rs4g
= \ @a_iodM ds1_iodN ->
case ds1_iodN `cast` <Co:9> of { ValueOf uniListA_iodQ xs_iodR ->
case uniListA_iodQ of wild2_iodT {
__DEFAULT -> EvaluationFailure;
DefaultUniApply @k_iodU @k1_iodV @f_iodW @a1_iodX co5_iodY ds2_iodZ
uniA_ioe0 ->
case ds2_iodZ of {
__DEFAULT -> EvaluationFailure;
DefaultUniProtoList co6_ioe3 ->
case xs_iodR `cast` <Co:34> of {
[] -> EvaluationFailure;
: ds3_ioe6 xs'_ioe7 ->
case unsafeEqualityProof of { UnsafeRefl co7_ioea ->
case xs'_ioe7 of dt_XE { __DEFAULT ->
EvaluationSuccess
((VCon
((ValueOf (wild2_iodT `cast` <Co:49>) dt_XE) `cast` <Co:22>))
`cast` <Co:7>)
}
}
}
}
}
}
-- RHS size: {terms: 5, types: 37, coercions: 17, joins: 0/0}
lvl126_rs4h
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl114_rs3Z
-- RHS size: {terms: 4, types: 42, coercions: 61, joins: 0/0}
lvl127_rs4i
= BuiltinMeaning
lvl126_rs4h (tailPlc_rs4g `cast` <Co:61>) lvl125_rs4f
-- RHS size: {terms: 2, types: 12, coercions: 10, joins: 0/0}
$dMakeKnownIn9_rs4j
= $fMakeKnownInunivalOpaque
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning5
`cast` <Co:10>)
-- RHS size: {terms: 2, types: 16, coercions: 0, joins: 0/0}
$dMakeKnownIn11_rs4k
= $fMakeKnownInunivalEvaluationResult $dMakeKnownIn9_rs4j
-- RHS size: {terms: 76, types: 261, coercions: 107, joins: 0/1}
lvl128_rs4l
= \ cost1_iocV ->
case paramHeadList cost1_iocV of { CostingFun cpu_iocY mem_iocZ ->
case runOneArgumentModel cpu_iocY of runCpu_iod1 { __DEFAULT ->
case runOneArgumentModel mem_iocZ of runMem_iod2 { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectArgument
(\ v_iod3 ->
case v_iod3 of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:4> of { ValueOf uni1_sr8F x_sr8G ->
let {
mem2_sp5n
= $w$cbring
($s$fClosedDefaultUni_$cbring_$d(%,,,,,,,%) `cast` <Co:38>)
uni1_sr8F
(\ irred1_imIw -> (irred1_imIw `cast` <Co:3>) x_sr8G) } in
case (runCpu_iod1 mem2_sp5n) `cast` <Co:1> of { I# dt1_iodc ->
case (runMem_iod2 mem2_sp5n) `cast` <Co:1> of { I# dt3_iodf ->
BuiltinResult
(ExBudget dt1_iodc dt3_iodf)
(case uni1_sr8F of {
__DEFAULT -> lvl3_rs0N;
DefaultUniApply @k_iodp @k1_iodq @f_iodr @a1_iods co8_iodt ds1_iodu
uniA_iodv ->
case ds1_iodu of {
__DEFAULT -> lvl3_rs0N;
DefaultUniProtoList co9_iody ->
case x_sr8G `cast` <Co:34> of {
[] -> lvl3_rs0N;
: x1_iodC ds2_iodD ->
case unsafeEqualityProof of { UnsafeRefl co10_iodG ->
case x1_iodC of dt4_XG { __DEFAULT ->
MakeKnownSuccess
(VCon
((ValueOf (uniA_iodv `cast` <Co:15>) (dt4_XG `cast` <Co:5>))
`cast` <Co:5>))
}
}
}
}
})
}
}
}
}))
}
}
}
-- RHS size: {terms: 4, types: 18, coercions: 56, joins: 0/0}
lvl129_rs4m
= TypeSchemeResult
@~<Co:2>
($dTypeable77_rs33 `cast` <Co:16>)
($s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst1
`cast` <Co:19>)
($dMakeKnownIn11_rs4k `cast` <Co:19>)
-- RHS size: {terms: 6, types: 45, coercions: 83, joins: 0/0}
lvl130_rs4n
= TypeSchemeArrow
@~<Co:16>
($dTypeable56_rs2U `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniSomeConstant_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn28_rs3W `cast` <Co:17>)
($dReadKnownIn16_rs3V `cast` <Co:17>)
lvl129_rs4m
-- RHS size: {terms: 31, types: 202, coercions: 92, joins: 0/0}
headPlc_rs4o
= \ @a_iocv ds1_iocw ->
case ds1_iocw `cast` <Co:9> of { ValueOf uniListA_iocz xs_iocA ->
case uniListA_iocz of {
__DEFAULT -> EvaluationFailure;
DefaultUniApply @k_iocD @k1_iocE @f_iocF @a1_iocG co5_iocH ds2_iocI
uniA_iocJ ->
case ds2_iocI of {
__DEFAULT -> EvaluationFailure;
DefaultUniProtoList co6_iocM ->
case xs_iocA `cast` <Co:34> of {
[] -> EvaluationFailure;
: x_iocP ds3_iocQ ->
case unsafeEqualityProof of { UnsafeRefl co7_iocT ->
case x_iocP of dt_XG { __DEFAULT ->
EvaluationSuccess
((VCon ((ValueOf (uniA_iocJ `cast` <Co:22>) dt_XG) `cast` <Co:21>))
`cast` <Co:6>)
}
}
}
}
}
}
-- RHS size: {terms: 5, types: 36, coercions: 17, joins: 0/0}
lvl131_rs4p
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl130_rs4n
-- RHS size: {terms: 4, types: 41, coercions: 59, joins: 0/0}
lvl132_rs4q
= BuiltinMeaning
lvl131_rs4p (headPlc_rs4o `cast` <Co:59>) lvl128_rs4l
-- RHS size: {terms: 2, types: 12, coercions: 10, joins: 0/0}
$dMakeKnownIn12_rs4r
= $fMakeKnownInunivalOpaque
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning5
`cast` <Co:10>)
-- RHS size: {terms: 2, types: 16, coercions: 0, joins: 0/0}
$dMakeKnownIn13_rs4s
= $fMakeKnownInunivalEvaluationResult $dMakeKnownIn12_rs4r
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl133_rs4t = \ _ -> lvl97_rs3B
-- RHS size: {terms: 2, types: 3, coercions: 0, joins: 0/0}
lvl134_rs4u = BuiltinExpectArgument lvl133_rs4t
-- RHS size: {terms: 82, types: 157, coercions: 81, joins: 0/3}
lvl135_rs4v
= \ cost1_io9R ->
case paramChooseList cost1_io9R of
{ CostingFun cpu_io9U mem_io9V ->
case runThreeArgumentModel cpu_io9U of runCpu_io9X { __DEFAULT ->
case runThreeArgumentModel mem_io9V of runMem_io9Y { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectForce
(BuiltinExpectArgument
(\ v_io9Z ->
case v_io9Z of {
__DEFAULT -> lvl134_rs4u;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:4> of { ValueOf uni1_sr99 x_sr9a ->
BuiltinExpectArgument
(\ v1_ioa9 ->
BuiltinExpectArgument
(\ v2_ioac ->
let {
mem2_sp57
= $w$cbring
($s$fClosedDefaultUni_$cbring_$d(%,,,,,,,%) `cast` <Co:38>)
uni1_sr99
(\ irred1_imIw -> (irred1_imIw `cast` <Co:3>) x_sr9a) } in
let {
mem3_sp56
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v1_ioa9 } in
let {
mem4_sp59
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v2_ioac } in
case (runCpu_io9X mem2_sp57 mem3_sp56 mem4_sp59) `cast` <Co:1> of
{ I# dt1_ioag ->
case (runMem_io9Y mem2_sp57 mem3_sp56 mem4_sp59) `cast` <Co:1> of
{ I# dt3_ioaj ->
BuiltinResult
(ExBudget dt1_ioag dt3_ioaj)
(case uni1_sr99 of {
__DEFAULT -> lvl3_rs0N;
DefaultUniApply @k_ioat @k1_ioau @f_ioav @a1_ioaw co10_ioax
ds1_ioay uniA_ioaz ->
case ds1_ioay of {
__DEFAULT -> lvl3_rs0N;
DefaultUniProtoList co11_ioaC ->
case x_sr9a `cast` <Co:34> of {
[] ->
case v1_ioa9 of nt_ioaG { __DEFAULT ->
MakeKnownSuccess nt_ioaG
};
: ds2_ioaI ds3_ioaJ ->
case v2_ioac of nt_ioaL { __DEFAULT ->
MakeKnownSuccess nt_ioaL
}
}
}
})
}
}))
}
})))
}
}
}
-- RHS size: {terms: 4, types: 18, coercions: 56, joins: 0/0}
lvl136_rs4w
= TypeSchemeResult
@~<Co:2>
($dTypeable79_rs35 `cast` <Co:16>)
($s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst2
`cast` <Co:19>)
($dMakeKnownIn13_rs4s `cast` <Co:19>)
-- RHS size: {terms: 2, types: 12, coercions: 10, joins: 0/0}
$dReadKnownIn9_rs4x
= $fReadKnownInunivalOpaque
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning5
`cast` <Co:10>)
-- RHS size: {terms: 6, types: 50, coercions: 86, joins: 0/0}
lvl137_rs4y
= TypeSchemeArrow
@~<Co:17>
($dTypeable78_rs34 `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniOpaque_$ctoTypeAst2
`cast` <Co:18>)
($dMakeKnownIn12_rs4r `cast` <Co:18>)
($dReadKnownIn9_rs4x `cast` <Co:18>)
lvl136_rs4w
-- RHS size: {terms: 6, types: 80, coercions: 101, joins: 0/0}
lvl138_rs4z
= TypeSchemeArrow
@~<Co:32>
($dTypeable78_rs34 `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniOpaque_$ctoTypeAst2
`cast` <Co:18>)
($dMakeKnownIn12_rs4r `cast` <Co:18>)
($dReadKnownIn9_rs4x `cast` <Co:18>)
lvl137_rs4y
-- RHS size: {terms: 6, types: 105, coercions: 113, joins: 0/0}
lvl139_rs4A
= TypeSchemeArrow
@~<Co:46>
($dTypeable56_rs2U `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniSomeConstant_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn28_rs3W `cast` <Co:17>)
($dReadKnownIn16_rs3V `cast` <Co:17>)
lvl138_rs4z
-- RHS size: {terms: 5, types: 66, coercions: 17, joins: 0/0}
lvl140_rs4B
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol1 `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat1 `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl139_rs4A
-- RHS size: {terms: 26, types: 93, coercions: 43, joins: 0/0}
choosePlc_rs4C
= \ @a_io9p @b_io9q ds1_io9r a1_io9s b1_io9t ->
case ds1_io9r `cast` <Co:9> of { ValueOf uniListA_io9w xs_io9x ->
case uniListA_io9w of {
__DEFAULT -> EvaluationFailure;
DefaultUniApply @k_io9A @k1_io9B @f_io9C @a2_io9D co5_io9E ds2_io9F
uniA_io9G ->
case ds2_io9F of {
__DEFAULT -> EvaluationFailure;
DefaultUniProtoList co6_io9J ->
case xs_io9x `cast` <Co:34> of {
[] -> $WEvaluationSuccess a1_io9s;
: ds3_io9N ds4_io9O -> $WEvaluationSuccess b1_io9t
}
}
}
}
-- RHS size: {terms: 5, types: 66, coercions: 17, joins: 0/0}
lvl141_rs4D
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl140_rs4B
-- RHS size: {terms: 4, types: 83, coercions: 194, joins: 0/0}
lvl142_rs4E
= BuiltinMeaning
lvl141_rs4D (choosePlc_rs4C `cast` <Co:194>) lvl135_rs4v
-- RHS size: {terms: 2, types: 21, coercions: 15, joins: 0/0}
$dReadKnownIn15_rs4F
= $fReadKnownInunivalSomeConstant
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 2, types: 21, coercions: 15, joins: 0/0}
$dMakeKnownIn27_rs4G
= $fMakeKnownInunivalSomeConstant
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 80, types: 341, coercions: 170, joins: 0/1}
lvl143_rs4H
= \ cost1_io8p ->
case paramSndPair cost1_io8p of { CostingFun cpu_io8s mem_io8t ->
case runOneArgumentModel cpu_io8s of runCpu_io8v { __DEFAULT ->
case runOneArgumentModel mem_io8t of runMem_io8w { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectForce
(BuiltinExpectArgument
(\ v_io8x ->
case v_io8x of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:4> of { ValueOf uni1_sr9H x_sr9I ->
let {
mem2_sp4Z
= $w$cbring
($s$fClosedDefaultUni_$cbring_$d(%,,,,,,,%) `cast` <Co:38>)
uni1_sr9H
(\ irred1_imIp -> (irred1_imIp `cast` <Co:3>) x_sr9I) } in
case (runCpu_io8v mem2_sp4Z) `cast` <Co:1> of { I# dt1_io8G ->
case (runMem_io8w mem2_sp4Z) `cast` <Co:1> of { I# dt3_io8J ->
BuiltinResult
(ExBudget dt1_io8G dt3_io8J)
(case uni1_sr9H of {
__DEFAULT -> lvl3_rs0N;
DefaultUniApply @k_io8T @k1_io8U @f_io8V @a1_io8W co8_io8X ds1_io8Y
uniB_io8Z ->
case ds1_io8Y of {
__DEFAULT -> lvl3_rs0N;
DefaultUniApply @k2_io92 @k3_io93 @f1_io94 @a2_io95 co9_io96
ds2_io97 uniA_io98 ->
case ds2_io97 of {
__DEFAULT -> lvl3_rs0N;
DefaultUniProtoPair co10_io9b ->
case x_sr9I `cast` <Co:77> of { (ds3_sr9P, y_sr9Q) ->
case unsafeEqualityProof of { UnsafeRefl co11_io9e ->
case y_sr9Q of dt4_XK { __DEFAULT ->
MakeKnownSuccess
(VCon
((ValueOf
(uniB_io8Z `cast` <Co:35>) (dt4_XK `cast` <Co:5>))
`cast` <Co:5>))
}
}
}
}
}
})
}
}
}
})))
}
}
}
-- RHS size: {terms: 6, types: 61, coercions: 119, joins: 0/0}
lvl144_rs4I
= TypeSchemeArrow
@~<Co:24>
($dTypeable54_rs2S `cast` <Co:23>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniSomeConstant_$ctoTypeAst2
`cast` <Co:26>)
($dMakeKnownIn27_rs4G `cast` <Co:23>)
($dReadKnownIn15_rs4F `cast` <Co:23>)
lvl136_rs4w
-- RHS size: {terms: 5, types: 44, coercions: 17, joins: 0/0}
lvl145_rs4J
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol1 `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat1 `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl144_rs4I
-- RHS size: {terms: 35, types: 288, coercions: 156, joins: 0/0}
sndPlc_rs4K
= \ @a_io7P @b_io7Q ds1_io7R ->
case ds1_io7R `cast` <Co:10> of { ValueOf uniPairAB_io7U xy_io7V ->
case uniPairAB_io7U of {
__DEFAULT -> EvaluationFailure;
DefaultUniApply @k_io7Y @k1_io7Z @f_io80 @a1_io81 co5_io82 ds2_io83
uniB_io84 ->
case ds2_io83 of {
__DEFAULT -> EvaluationFailure;
DefaultUniApply @k2_io87 @k3_io88 @f1_io89 @a2_io8a co6_io8b
ds3_io8c uniA_io8d ->
case ds3_io8c of {
__DEFAULT -> EvaluationFailure;
DefaultUniProtoPair co7_io8g ->
case xy_io7V `cast` <Co:77> of { (ds4_sra1, y_sra2) ->
case unsafeEqualityProof of { UnsafeRefl co8_io8j ->
case y_sra2 of dt_XK { __DEFAULT ->
EvaluationSuccess
((VCon ((ValueOf (uniB_io84 `cast` <Co:42>) dt_XK) `cast` <Co:21>))
`cast` <Co:6>)
}
}
}
}
}
}
}
-- RHS size: {terms: 5, types: 44, coercions: 17, joins: 0/0}
lvl146_rs4L
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl145_rs4J
-- RHS size: {terms: 4, types: 57, coercions: 75, joins: 0/0}
lvl147_rs4M
= BuiltinMeaning
lvl146_rs4L (sndPlc_rs4K `cast` <Co:75>) lvl143_rs4H
-- RHS size: {terms: 80, types: 301, coercions: 150, joins: 0/1}
lvl148_rs4N
= \ cost1_io6P ->
case paramFstPair cost1_io6P of { CostingFun cpu_io6S mem_io6T ->
case runOneArgumentModel cpu_io6S of runCpu_io6V { __DEFAULT ->
case runOneArgumentModel mem_io6T of runMem_io6W { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectForce
(BuiltinExpectArgument
(\ v_io6X ->
case v_io6X of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:4> of { ValueOf uni1_srad x_srae ->
let {
mem2_sp4T
= $w$cbring
($s$fClosedDefaultUni_$cbring_$d(%,,,,,,,%) `cast` <Co:38>)
uni1_srad
(\ irred1_imIp -> (irred1_imIp `cast` <Co:3>) x_srae) } in
case (runCpu_io6V mem2_sp4T) `cast` <Co:1> of { I# dt1_io76 ->
case (runMem_io6W mem2_sp4T) `cast` <Co:1> of { I# dt3_io79 ->
BuiltinResult
(ExBudget dt1_io76 dt3_io79)
(case uni1_srad of {
__DEFAULT -> lvl3_rs0N;
DefaultUniApply @k_io7j @k1_io7k @f_io7l @a1_io7m co8_io7n ds1_io7o
uniB_io7p ->
case ds1_io7o of {
__DEFAULT -> lvl3_rs0N;
DefaultUniApply @k2_io7s @k3_io7t @f1_io7u @a2_io7v co9_io7w
ds2_io7x uniA_io7y ->
case ds2_io7x of {
__DEFAULT -> lvl3_rs0N;
DefaultUniProtoPair co10_io7B ->
case x_srae `cast` <Co:77> of { (x1_sral, ds3_sram) ->
case unsafeEqualityProof of { UnsafeRefl co11_io7E ->
case x1_sral of dt4_XM { __DEFAULT ->
MakeKnownSuccess
(VCon
((ValueOf
(uniA_io7y `cast` <Co:15>) (dt4_XM `cast` <Co:5>))
`cast` <Co:5>))
}
}
}
}
}
})
}
}
}
})))
}
}
}
-- RHS size: {terms: 6, types: 61, coercions: 119, joins: 0/0}
lvl149_rs4O
= TypeSchemeArrow
@~<Co:24>
($dTypeable54_rs2S `cast` <Co:23>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniSomeConstant_$ctoTypeAst2
`cast` <Co:26>)
($dMakeKnownIn27_rs4G `cast` <Co:23>)
($dReadKnownIn15_rs4F `cast` <Co:23>)
lvl129_rs4m
-- RHS size: {terms: 5, types: 44, coercions: 17, joins: 0/0}
lvl150_rs4P
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol1 `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat1 `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl149_rs4O
-- RHS size: {terms: 35, types: 238, coercions: 136, joins: 0/0}
fstPlc_rs4Q
= \ @a_io6e @b_io6f ds1_io6g ->
case ds1_io6g `cast` <Co:10> of { ValueOf uniPairAB_io6j xy_io6k ->
case uniPairAB_io6j of {
__DEFAULT -> EvaluationFailure;
DefaultUniApply @k_io6n @k1_io6o @f_io6p @a1_io6q co5_io6r ds2_io6s
uniB_io6t ->
case ds2_io6s of {
__DEFAULT -> EvaluationFailure;
DefaultUniApply @k2_io6w @k3_io6x @f1_io6y @a2_io6z co6_io6A
ds3_io6B uniA_io6C ->
case ds3_io6B of {
__DEFAULT -> EvaluationFailure;
DefaultUniProtoPair co7_io6F ->
case xy_io6k `cast` <Co:77> of { (x_srax, ds4_sray) ->
case unsafeEqualityProof of { UnsafeRefl co8_io6I ->
case x_srax of dt_XM { __DEFAULT ->
EvaluationSuccess
((VCon ((ValueOf (uniA_io6C `cast` <Co:22>) dt_XM) `cast` <Co:21>))
`cast` <Co:6>)
}
}
}
}
}
}
}
-- RHS size: {terms: 5, types: 44, coercions: 17, joins: 0/0}
lvl151_rs4R
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl150_rs4P
-- RHS size: {terms: 4, types: 57, coercions: 75, joins: 0/0}
lvl152_rs4S
= BuiltinMeaning
lvl151_rs4R (fstPlc_rs4Q `cast` <Co:75>) lvl148_rs4N
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dMakeKnownIn25_rs4T
= $fMakeKnownInDefaultUnitermText
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dReadKnownIn14_rs4U
= $fReadKnownInDefaultUnitermText
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
Rec {
-- RHS size: {terms: 51, types: 22, coercions: 6, joins: 0/0}
$wgo1_rs4V
= \ w_sqTt ww_sqTx ->
case w_sqTt of {
[] -> (I# ww_sqTx) `cast` <Co:5>;
: y_ipv1 ys_ipv2 ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# x#_io5O ->
case addIntC# x#_io5O ww_sqTx of { (# r#_io5R, ds3_io5S #) ->
case ds3_io5S of {
__DEFAULT ->
case andI# (># x#_io5O 0#) (># ww_sqTx 0#) of {
__DEFAULT ->
case andI# (<# x#_io5O 0#) (<# ww_sqTx 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo1_rs4V ys_ipv2 -9223372036854775808#
};
1# -> $wgo1_rs4V ys_ipv2 9223372036854775807#
};
0# -> $wgo1_rs4V ys_ipv2 r#_io5R
}
}
}
}
end Rec }
-- RHS size: {terms: 160, types: 127, coercions: 54, joins: 0/4}
lvl153_rs4W
= \ cost1_io55 ->
case paramTrace cost1_io55 of { CostingFun cpu_io58 mem_io59 ->
case runTwoArgumentModel cpu_io58 of runCpu_io5b { __DEFAULT ->
case runTwoArgumentModel mem_io59 of runMem_io5c { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectArgument
(\ v_io5d ->
case v_io5d of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sraP x_sraQ ->
case uniAct_sraP `cast` <Co:8> of wild2_ipY9 {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniString `cast` <Co:8>)
(wild2_ipY9 `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniString co_ipYa ->
case x_sraQ `cast` <Co:3> of wild4_sraU
{ Text dt_sraV dt1_sraW dt2_sraX ->
BuiltinExpectArgument
(\ v1_io5X ->
let {
mem2_sp4M
= case lvl18_rs12 `cast` <Co:1> of { I# ww1_sqTx ->
let { end_ipDN = +# dt1_sraW dt2_sraX } in
letrec {
$wunfold_sqTF
= \ ww2_sqTD ->
case >=# ww2_sqTD end_ipDN of {
__DEFAULT ->
case indexWord16Array# dt_sraV ww2_sqTD of r#_ipDX
{ __DEFAULT ->
case geWord16# r#_ipDX 55296##16 of {
__DEFAULT ->
: (C# (chr# (word2Int# (word16ToWord# r#_ipDX))))
($wunfold_sqTF (+# ww2_sqTD 1#));
1# ->
case leWord16# r#_ipDX 56319##16 of {
__DEFAULT ->
: (C#
(chr#
(word2Int# (word16ToWord# r#_ipDX))))
($wunfold_sqTF (+# ww2_sqTD 1#));
1# ->
case indexWord16Array# dt_sraV (+# ww2_sqTD 1#)
of r#1_ipE1
{ __DEFAULT ->
: (C#
(chr#
(+#
9216#
(+#
(uncheckedIShiftL#
(-#
(word2Int#
(word16ToWord# r#_ipDX))
55296#)
10#)
(word2Int#
(word16ToWord# r#1_ipE1))))))
($wunfold_sqTF (+# ww2_sqTD 2#))
}
}
}
};
1# -> []
}; } in
$wgo1_rs4V ($wunfold_sqTF dt1_sraW) ww1_sqTx
} } in
let {
mem3_sp4P
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v1_io5X } in
case (runCpu_io5b mem2_sp4M mem3_sp4P) `cast` <Co:1> of
{ I# dt5_io61 ->
case (runMem_io5c mem2_sp4M mem3_sp4P) `cast` <Co:1> of
{ I# dt3_io64 ->
BuiltinResult
(ExBudget dt5_io61 dt3_io64)
(case v1_io5X of dt7_io69 { __DEFAULT ->
MakeKnownSuccessWithLogs
((\ ds1_io6a -> : wild4_sraU ds1_io6a) `cast` <Co:3>) dt7_io69
})
}
})
}
}
}
}))
}
}
}
-- RHS size: {terms: 2, types: 16, coercions: 0, joins: 0/0}
$dMakeKnownIn10_rs4X
= $fMakeKnownInunivalEmitter $dMakeKnownIn9_rs4j
-- RHS size: {terms: 4, types: 18, coercions: 58, joins: 0/0}
lvl154_rs4Y
= TypeSchemeResult
@~<Co:2>
($dTypeable76_rs32 `cast` <Co:17>)
($s$fKnownTypeAstTYPEuniEmitter_$ctoTypeAst `cast` <Co:20>)
($dMakeKnownIn10_rs4X `cast` <Co:19>)
-- RHS size: {terms: 2, types: 12, coercions: 10, joins: 0/0}
$dReadKnownIn8_rs4Z
= $fReadKnownInunivalOpaque
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning5
`cast` <Co:10>)
-- RHS size: {terms: 6, types: 50, coercions: 86, joins: 0/0}
lvl155_rs50
= TypeSchemeArrow
@~<Co:17>
($dTypeable75_rs31 `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniOpaque_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn9_rs4j `cast` <Co:18>)
($dReadKnownIn8_rs4Z `cast` <Co:18>)
lvl154_rs4Y
-- RHS size: {terms: 6, types: 55, coercions: 50, joins: 0/0}
lvl156_rs51
= TypeSchemeArrow
@~<Co:21>
($dTypeable58_rs2g `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniText_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn25_rs4T `cast` <Co:9>)
($dReadKnownIn14_rs4U `cast` <Co:9>)
lvl155_rs50
-- RHS size: {terms: 5, types: 41, coercions: 17, joins: 0/0}
lvl157_rs52
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
lvl156_rs51
-- RHS size: {terms: 4, types: 38, coercions: 150, joins: 0/0}
lvl158_rs53
= BuiltinMeaning
lvl157_rs52 (lvl25_rs19 `cast` <Co:150>) lvl153_rs4W
-- RHS size: {terms: 162, types: 164, coercions: 73, joins: 0/3}
lvl159_rs54
= \ cost1_inYG ->
case paramEncodeUtf8 cost1_inYG of
{ CostingFun cpu_inYJ mem_inYK ->
case runOneArgumentModel cpu_inYJ of runCpu_inYM { __DEFAULT ->
case runOneArgumentModel mem_inYK of runMem_inYN { __DEFAULT ->
BuiltinExpectArgument
(\ v_inYO ->
case v_inYO of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srbi x_srbj ->
case uniAct_srbi `cast` <Co:8> of wild2_ipY9 {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniString `cast` <Co:8>)
(wild2_ipY9 `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniString co_ipYa ->
case x_srbj `cast` <Co:3> of { Text dt_srbo dt1_srbp dt2_srbq ->
let {
mem2_sp3s
= case lvl18_rs12 `cast` <Co:1> of { I# ww1_sqTL ->
let { end_ipDN = +# dt1_srbp dt2_srbq } in
letrec {
$wunfold_sqTT
= \ ww2_sqTR ->
case >=# ww2_sqTR end_ipDN of {
__DEFAULT ->
case indexWord16Array# dt_srbo ww2_sqTR of r#_ipDX
{ __DEFAULT ->
case geWord16# r#_ipDX 55296##16 of {
__DEFAULT ->
: (C# (chr# (word2Int# (word16ToWord# r#_ipDX))))
($wunfold_sqTT (+# ww2_sqTR 1#));
1# ->
case leWord16# r#_ipDX 56319##16 of {
__DEFAULT ->
: (C# (chr# (word2Int# (word16ToWord# r#_ipDX))))
($wunfold_sqTT (+# ww2_sqTR 1#));
1# ->
case indexWord16Array# dt_srbo (+# ww2_sqTR 1#)
of r#1_ipE1
{ __DEFAULT ->
: (C#
(chr#
(+#
9216#
(+#
(uncheckedIShiftL#
(-#
(word2Int# (word16ToWord# r#_ipDX))
55296#)
10#)
(word2Int# (word16ToWord# r#1_ipE1))))))
($wunfold_sqTT (+# ww2_sqTR 2#))
}
}
}
};
1# -> []
}; } in
$wgo1_rs4V ($wunfold_sqTT dt1_srbp) ww1_sqTL
} } in
case (runCpu_inYM mem2_sp3s) `cast` <Co:1> of { I# dt5_inZy ->
case (runMem_inYN mem2_sp3s) `cast` <Co:1> of { I# dt3_inZB ->
BuiltinResult
(ExBudget dt5_inZy dt3_inZB)
(case $wencodeUtf8 dt_srbo dt1_srbp dt2_srbq of vx_inZH
{ BS ipv_inZI ipv1_inZJ ipv2_inZK ->
case unsafeEqualityProof of { UnsafeRefl co11_inZN ->
MakeKnownSuccess
(VCon
((ValueOf (lvl91_rs3u `cast` <Co:8>) vx_inZH) `cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 13, coercions: 35, joins: 0/0}
lvl160_rs55
= TypeSchemeArrow
@~<Co:6>
($dTypeable58_rs2g `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniText_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn25_rs4T `cast` <Co:9>)
($dReadKnownIn14_rs4U `cast` <Co:9>)
lvl93_rs3w
-- RHS size: {terms: 4, types: 11, coercions: 15, joins: 0/0}
lvl161_rs56
= BuiltinMeaning
lvl160_rs55 (encodeUtf8 `cast` <Co:15>) lvl159_rs54
-- RHS size: {terms: 309, types: 359, coercions: 140, joins: 0/6}
lvl162_rs57
= \ cost1_inWv ->
case paramEqualsString cost1_inWv of
{ CostingFun cpu_inWy mem_inWz ->
case runTwoArgumentModel cpu_inWy of runCpu_inWB { __DEFAULT ->
case runTwoArgumentModel mem_inWz of runMem_inWC { __DEFAULT ->
BuiltinExpectArgument
(\ v_inWD ->
case v_inWD of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srbL x_srbM ->
case uniAct_srbL `cast` <Co:8> of wild2_ipY9 {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniString `cast` <Co:8>)
(wild2_ipY9 `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniString co_ipYa ->
case x_srbM `cast` <Co:3> of { Text dt_src4 dt1_src5 dt2_src6 ->
BuiltinExpectArgument
(\ v1_inXn ->
case v1_inXn of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult (ExBudget dt5_ipUl dt5_ipUl) lvl78_rs3a
};
VCon val1_XS ->
case val1_XS `cast` <Co:8> of { ValueOf uniAct1_srbR x1_srbS ->
case uniAct1_srbR `cast` <Co:8> of wild7_XT {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult
(ExBudget dt5_ipUl dt5_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniString `cast` <Co:8>)
(wild7_XT `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniString co1_XU ->
case x1_srbS `cast` <Co:3> of { Text dt4_srbX dt5_srbY dt6_srbZ ->
let {
mem2_sp3f
= case lvl18_rs12 `cast` <Co:1> of { I# ww1_sqUc ->
let { end_ipDN = +# dt1_src5 dt2_src6 } in
letrec {
$wunfold_sqUk
= \ ww2_sqUi ->
case >=# ww2_sqUi end_ipDN of {
__DEFAULT ->
case indexWord16Array# dt_src4 ww2_sqUi of r#_ipDX
{ __DEFAULT ->
case geWord16# r#_ipDX 55296##16 of {
__DEFAULT ->
: (C#
(chr#
(word2Int# (word16ToWord# r#_ipDX))))
($wunfold_sqUk (+# ww2_sqUi 1#));
1# ->
case leWord16# r#_ipDX 56319##16 of {
__DEFAULT ->
: (C#
(chr#
(word2Int#
(word16ToWord# r#_ipDX))))
($wunfold_sqUk (+# ww2_sqUi 1#));
1# ->
case indexWord16Array#
dt_src4 (+# ww2_sqUi 1#)
of r#1_ipE1
{ __DEFAULT ->
: (C#
(chr#
(+#
9216#
(+#
(uncheckedIShiftL#
(-#
(word2Int#
(word16ToWord#
r#_ipDX))
55296#)
10#)
(word2Int#
(word16ToWord#
r#1_ipE1))))))
($wunfold_sqUk (+# ww2_sqUi 2#))
}
}
}
};
1# -> []
}; } in
$wgo1_rs4V ($wunfold_sqUk dt1_src5) ww1_sqUc
} } in
let {
mem3_sp3i
= case lvl18_rs12 `cast` <Co:1> of { I# ww1_sqTZ ->
let { end_ipDN = +# dt5_srbY dt6_srbZ } in
letrec {
$wunfold_sqU7
= \ ww2_sqU5 ->
case >=# ww2_sqU5 end_ipDN of {
__DEFAULT ->
case indexWord16Array# dt4_srbX ww2_sqU5
of r#_ipDX
{ __DEFAULT ->
case geWord16# r#_ipDX 55296##16 of {
__DEFAULT ->
: (C#
(chr#
(word2Int# (word16ToWord# r#_ipDX))))
($wunfold_sqU7 (+# ww2_sqU5 1#));
1# ->
case leWord16# r#_ipDX 56319##16 of {
__DEFAULT ->
: (C#
(chr#
(word2Int#
(word16ToWord# r#_ipDX))))
($wunfold_sqU7 (+# ww2_sqU5 1#));
1# ->
case indexWord16Array#
dt4_srbX (+# ww2_sqU5 1#)
of r#1_ipE1
{ __DEFAULT ->
: (C#
(chr#
(+#
9216#
(+#
(uncheckedIShiftL#
(-#
(word2Int#
(word16ToWord#
r#_ipDX))
55296#)
10#)
(word2Int#
(word16ToWord#
r#1_ipE1))))))
($wunfold_sqU7 (+# ww2_sqU5 2#))
}
}
}
};
1# -> []
}; } in
$wgo1_rs4V ($wunfold_sqU7 dt5_srbY) ww1_sqTZ
} } in
case (runCpu_inWB mem2_sp3f mem3_sp3i) `cast` <Co:1> of
{ I# dt8_inY7 ->
case (runMem_inWC mem2_sp3f mem3_sp3i) `cast` <Co:1> of
{ I# dt3_inYa ->
BuiltinResult
(ExBudget dt8_inY7 dt3_inYa)
(case ==# dt2_src6 dt6_srbZ of {
__DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_inYt ->
MakeKnownSuccess (VCon (lvl119_rs48 `cast` <Co:13>))
};
1# ->
case {__ffi_static_ccall_unsafe text-1.2.5.0-B336hruu8LkEc19BqHCzAw:_hs_text_memcmp :: ByteArray#
-> Word#
-> ByteArray#
-> Word#
-> Word#
-> State#
RealWorld
-> (# State#
RealWorld,
Int32# #)}_inYx
dt_src4
(int2Word# dt1_src5)
dt4_srbX
(int2Word# dt5_srbY)
(int2Word# dt2_src6)
realWorld#
of
{ (# ds2_inYB, ds3_inYC #) ->
case int32ToInt# ds3_inYC of {
__DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_inYt ->
MakeKnownSuccess (VCon (lvl119_rs48 `cast` <Co:13>))
};
0# ->
case unsafeEqualityProof of { UnsafeRefl co14_inYt ->
MakeKnownSuccess (VCon (lvl118_rs47 `cast` <Co:13>))
}
}
}
})
}
}
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 13, coercions: 35, joins: 0/0}
lvl163_rs58
= TypeSchemeArrow
@~<Co:6>
($dTypeable58_rs2g `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniText_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn25_rs4T `cast` <Co:9>)
($dReadKnownIn14_rs4U `cast` <Co:9>)
lvl100_rs3E
-- RHS size: {terms: 6, types: 21, coercions: 39, joins: 0/0}
lvl164_rs59
= TypeSchemeArrow
@~<Co:10>
($dTypeable58_rs2g `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniText_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn25_rs4T `cast` <Co:9>)
($dReadKnownIn14_rs4U `cast` <Co:9>)
lvl163_rs58
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl165_rs5a
= BuiltinMeaning
lvl164_rs59 ($fEqText_$c== `cast` <Co:30>) lvl162_rs57
-- RHS size: {terms: 1, types: 3, coercions: 3, joins: 0/0}
lvl166_rs5b = DefaultUniString @~<Co:3>
-- RHS size: {terms: 288, types: 261, coercions: 122, joins: 0/6}
lvl167_rs5c
= \ cost1_inPn ->
case paramAppendString cost1_inPn of
{ CostingFun cpu_inPq mem_inPr ->
case runTwoArgumentModel cpu_inPq of runCpu_inPt { __DEFAULT ->
case runTwoArgumentModel mem_inPr of runMem_inPu { __DEFAULT ->
BuiltinExpectArgument
(\ v_inPv ->
case v_inPv of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srcD x_srcE ->
case uniAct_srcD `cast` <Co:8> of wild2_ipY9 {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniString `cast` <Co:8>)
(wild2_ipY9 `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniString co_ipYa ->
case x_srcE `cast` <Co:3> of { Text dt_srcW dt1_srcX dt2_srcY ->
BuiltinExpectArgument
(\ v1_inQf ->
case v1_inQf of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult (ExBudget dt5_ipUl dt5_ipUl) lvl78_rs3a
};
VCon val1_XU ->
case val1_XU `cast` <Co:8> of { ValueOf uniAct1_srcJ x1_srcK ->
case uniAct1_srcJ `cast` <Co:8> of wild7_XV {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult
(ExBudget dt5_ipUl dt5_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniString `cast` <Co:8>)
(wild7_XV `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniString co1_XW ->
case x1_srcK `cast` <Co:3> of { Text dt4_srcP dt5_srcQ dt6_srcR ->
let {
mem2_sp2Z
= case lvl18_rs12 `cast` <Co:1> of { I# ww1_sqUD ->
let { end_ipDN = +# dt1_srcX dt2_srcY } in
letrec {
$wunfold_sqUL
= \ ww2_sqUJ ->
case >=# ww2_sqUJ end_ipDN of {
__DEFAULT ->
case indexWord16Array# dt_srcW ww2_sqUJ of r#_ipDX
{ __DEFAULT ->
case geWord16# r#_ipDX 55296##16 of {
__DEFAULT ->
: (C#
(chr#
(word2Int# (word16ToWord# r#_ipDX))))
($wunfold_sqUL (+# ww2_sqUJ 1#));
1# ->
case leWord16# r#_ipDX 56319##16 of {
__DEFAULT ->
: (C#
(chr#
(word2Int#
(word16ToWord# r#_ipDX))))
($wunfold_sqUL (+# ww2_sqUJ 1#));
1# ->
case indexWord16Array#
dt_srcW (+# ww2_sqUJ 1#)
of r#1_ipE1
{ __DEFAULT ->
: (C#
(chr#
(+#
9216#
(+#
(uncheckedIShiftL#
(-#
(word2Int#
(word16ToWord#
r#_ipDX))
55296#)
10#)
(word2Int#
(word16ToWord#
r#1_ipE1))))))
($wunfold_sqUL (+# ww2_sqUJ 2#))
}
}
}
};
1# -> []
}; } in
$wgo1_rs4V ($wunfold_sqUL dt1_srcX) ww1_sqUD
} } in
let {
mem3_sp32
= case lvl18_rs12 `cast` <Co:1> of { I# ww1_sqUq ->
let { end_ipDN = +# dt5_srcQ dt6_srcR } in
letrec {
$wunfold_sqUy
= \ ww2_sqUw ->
case >=# ww2_sqUw end_ipDN of {
__DEFAULT ->
case indexWord16Array# dt4_srcP ww2_sqUw
of r#_ipDX
{ __DEFAULT ->
case geWord16# r#_ipDX 55296##16 of {
__DEFAULT ->
: (C#
(chr#
(word2Int# (word16ToWord# r#_ipDX))))
($wunfold_sqUy (+# ww2_sqUw 1#));
1# ->
case leWord16# r#_ipDX 56319##16 of {
__DEFAULT ->
: (C#
(chr#
(word2Int#
(word16ToWord# r#_ipDX))))
($wunfold_sqUy (+# ww2_sqUw 1#));
1# ->
case indexWord16Array#
dt4_srcP (+# ww2_sqUw 1#)
of r#1_ipE1
{ __DEFAULT ->
: (C#
(chr#
(+#
9216#
(+#
(uncheckedIShiftL#
(-#
(word2Int#
(word16ToWord#
r#_ipDX))
55296#)
10#)
(word2Int#
(word16ToWord#
r#1_ipE1))))))
($wunfold_sqUy (+# ww2_sqUw 2#))
}
}
}
};
1# -> []
}; } in
$wgo1_rs4V ($wunfold_sqUy dt5_srcQ) ww1_sqUq
} } in
case (runCpu_inPt mem2_sp2Z mem3_sp32) `cast` <Co:1> of
{ I# dt8_inQZ ->
case (runMem_inPu mem2_sp2Z mem3_sp32) `cast` <Co:1> of
{ I# dt3_inR2 ->
BuiltinResult
(ExBudget dt8_inQZ dt3_inR2)
(case $wappend
dt_srcW dt1_srcX dt2_srcY dt4_srcP dt5_srcQ dt6_srcR
of
{ (# ww9_iqdA, ww10_iqdB, ww11_iqdC #) ->
case unsafeEqualityProof of { UnsafeRefl co14_inWs ->
MakeKnownSuccess
(VCon
((ValueOf
(lvl166_rs5b `cast` <Co:8>)
(Text ww9_iqdA ww10_iqdB ww11_iqdC))
`cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 6, coercions: 22, joins: 0/0}
lvl168_rs5d
= TypeSchemeResult
@~<Co:2>
($dTypeable58_rs2g `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniText_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn25_rs4T `cast` <Co:9>)
-- RHS size: {terms: 6, types: 13, coercions: 35, joins: 0/0}
lvl169_rs5e
= TypeSchemeArrow
@~<Co:6>
($dTypeable58_rs2g `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniText_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn25_rs4T `cast` <Co:9>)
($dReadKnownIn14_rs4U `cast` <Co:9>)
lvl168_rs5d
-- RHS size: {terms: 6, types: 21, coercions: 39, joins: 0/0}
lvl170_rs5f
= TypeSchemeArrow
@~<Co:10>
($dTypeable58_rs2g `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniText_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn25_rs4T `cast` <Co:9>)
($dReadKnownIn14_rs4U `cast` <Co:9>)
lvl169_rs5e
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl171_rs5g
= BuiltinMeaning lvl170_rs5f (append `cast` <Co:30>) lvl167_rs5c
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dReadKnownIn11_rs5h
= $fReadKnownInDefaultUnitermByteString
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 320, types: 230, coercions: 102, joins: 0/1}
lvl172_rs5i
= \ cost1_io1t ->
case paramDecodeUtf8 cost1_io1t of
{ CostingFun cpu_io1w mem_io1x ->
case runOneArgumentModel cpu_io1w of runCpu_io1z { __DEFAULT ->
case runOneArgumentModel mem_io1x of runMem_io1A { __DEFAULT ->
BuiltinExpectArgument
(\ v_io1B ->
case v_io1B of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srdq x_srdr ->
case uniAct_srdq `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co_ipYf ->
case x_srdr `cast` <Co:3> of wild5_srdt
{ BS dt_srdu dt1_srdv dt2_srdw ->
let {
mem2_sp3E
= case lvl10_rs0U `cast` <Co:1> of { I# x1_io23 ->
case x1_io23 of wild6_io27 {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srdw) of ww_imCq { __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_io2f ->
case subIntC# ww_imCq y#_io2f of { (# r#_io2q, ds2_io2r #) ->
case ds2_io2r of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_io2f 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_io2f 0#) of {
__DEFAULT -> case overflowError of wild10_00 { };
1# ->
case wild6_io27 of wild10_io2D {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_io2D
of wild11_io2E
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_io2E v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_io2E 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_io2E 0#) (<# v2_B2 0#)
of {
__DEFAULT ->
case overflowError of wild14_00 { };
1# ->
(I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild6_io27 of wild10_io2C
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_io2C v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_io2C 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_io2C 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_io2q of wild9_io2B {
__DEFAULT ->
case quotInt# wild9_io2B wild6_io27 of wild10_io2C
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_io2C v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_io2C 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_io2C 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild6_io27 of wild10_io2D {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_io2D
of wild11_io2E
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_io2E v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_io2E 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_io2E 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild7_00 { }
}
} } in
case (runCpu_io1z (mem2_sp3E `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt5_io2J ->
case (runMem_io1A (mem2_sp3E `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt3_io2M ->
BuiltinResult
(ExBudget dt5_io2J dt3_io2M)
(case eta1_rs1d wild5_srdt of {
EvaluationSuccess x1_io2S ->
case unsafeEqualityProof of { UnsafeRefl co13_io2Z ->
MakeKnownSuccess
(VCon
((ValueOf (lvl166_rs5b `cast` <Co:8>) x1_io2S) `cast` <Co:13>))
};
EvaluationFailure -> lvl3_rs0N
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 2, types: 5, coercions: 0, joins: 0/0}
$dMakeKnownIn26_rs5j
= $fMakeKnownInunivalEvaluationResult $dMakeKnownIn25_rs4T
-- RHS size: {terms: 4, types: 7, coercions: 25, joins: 0/0}
lvl173_rs5k
= TypeSchemeResult
@~<Co:2>
($dTypeable67_rs2h `cast` <Co:5>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniEvaluationResult_$ctoTypeAst5
`cast` <Co:8>)
($dMakeKnownIn26_rs5j `cast` <Co:10>)
-- RHS size: {terms: 6, types: 14, coercions: 35, joins: 0/0}
lvl174_rs5l
= TypeSchemeArrow
@~<Co:6>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl173_rs5k
-- RHS size: {terms: 4, types: 12, coercions: 17, joins: 0/0}
lvl175_rs5m
= BuiltinMeaning lvl174_rs5l (eta1_rs1d `cast` <Co:17>) lvl172_rs5i
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dReadKnownIn13_rs5n
= $fReadKnownInDefaultUnitermInt
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dMakeKnownIn24_rs5o
= $fMakeKnownInDefaultUnitermInt
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 371, types: 303, coercions: 160, joins: 0/1}
lvl176_rs5p
= \ cost1_ino2 ->
case paramIndexByteString cost1_ino2 of
{ CostingFun cpu_ino5 mem_ino6 ->
case runTwoArgumentModel cpu_ino5 of runCpu_ino8 { __DEFAULT ->
case runTwoArgumentModel mem_ino6 of runMem_ino9 { __DEFAULT ->
BuiltinExpectArgument
(\ v_inoa ->
case v_inoa of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srdS x_srdT ->
case uniAct_srdS `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniByteString co_ipYf ->
case x_srdT `cast` <Co:3> of wild5_sre1
{ BS dt_sre2 dt1_sre3 dt2_sre4 ->
BuiltinExpectArgument
(\ v1_inpi ->
case v1_inpi of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult (ExBudget dt5_ipUl dt5_ipUl) lvl78_rs3a
};
VCon val1_XY ->
case val1_XY `cast` <Co:8> of { ValueOf uniAct1_srdY x1_srdZ ->
case uniAct1_srdY `cast` <Co:8> of wild7_ipYj {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult
(ExBudget dt5_ipUl dt5_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild7_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_ipYk ->
case integerLe# lvl29_rs1e (x1_srdZ `cast` <Co:3>) of {
__DEFAULT -> $j_rs1j;
1# ->
case integerLe# (x1_srdZ `cast` <Co:3>) lvl30_rs1f of {
__DEFAULT -> $j_rs1j;
1# ->
let {
mem2_soZ5
= case lvl10_rs0U `cast` <Co:1> of { I# x2_inoD ->
case x2_inoD of wild11_inoH {
__DEFAULT ->
case $w$cfromInteger (IS dt2_sre4) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inoP ->
case subIntC# ww_imCq y#_inoP of
{ (# r#_inp0, ds2_inp1 #) ->
case ds2_inp1 of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_inoP 0#)
of {
__DEFAULT ->
case andI#
(<=# ww_imCq 0#) (># y#_inoP 0#)
of {
__DEFAULT ->
case overflowError of wild14_00 { };
1# ->
case wild11_inoH of wild14_inpd {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild14_inpd
of wild15_inpe
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_inpe v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_inpe 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_inpe 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild17_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807# wild11_inoH
of wild14_inpc
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_inpc v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_inpc 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_inpc 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inp0 of wild14_inpb {
__DEFAULT ->
case quotInt# wild14_inpb wild11_inoH
of wild15_inpc
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_inpc v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_inpc 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_inpc 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild17_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild11_inoH of wild15_inpd {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild15_inpd
of wild16_inpe
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild16_inpe v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild16_inpe 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild16_inpe 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild18_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild12_00 { }
}
} } in
case (runCpu_ino8
(mem2_soZ5 `cast` <Co:2>)
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt5_inpP ->
case (runMem_ino9
(mem2_soZ5 `cast` <Co:2>)
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_inpS ->
BuiltinResult
(ExBudget dt5_inpP dt3_inpS)
(case integerToInt# (x1_srdZ `cast` <Co:3>) of wild10_inpX
{ __DEFAULT ->
case $weta1_rs2c wild5_sre1 wild10_inpX of {
EvaluationSuccess x2_inpZ ->
case unsafeEqualityProof of { UnsafeRefl co15_inq6 ->
MakeKnownSuccess
(VCon
((ValueOf
($dContains17_rs2W `cast` <Co:8>) x2_inpZ)
`cast` <Co:13>))
};
EvaluationFailure -> lvl3_rs0N
}
})
}
}
}
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 14, coercions: 35, joins: 0/0}
lvl177_rs5q
= TypeSchemeArrow
@~<Co:6>
($dTypeable60_rs1U `cast` <Co:4>)
($fKnownTypeAstTYPEDefaultUniInt_$ctoTypeAst `cast` <Co:7>)
($dMakeKnownIn24_rs5o `cast` <Co:9>)
($dReadKnownIn13_rs5n `cast` <Co:9>)
lvl109_rs3Q
-- RHS size: {terms: 6, types: 22, coercions: 39, joins: 0/0}
lvl178_rs5r
= TypeSchemeArrow
@~<Co:10>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl177_rs5q
-- RHS size: {terms: 4, types: 16, coercions: 33, joins: 0/0}
lvl179_rs5s
= BuiltinMeaning lvl178_rs5r (eta4_rs2d `cast` <Co:33>) lvl176_rs5p
-- RHS size: {terms: 3, types: 5, coercions: 8, joins: 0/0}
lvl180_rs5t = ValueOf (lvl91_rs3u `cast` <Co:8>) lvl52_rs1E
-- RHS size: {terms: 540, types: 808, coercions: 354, joins: 0/2}
lvl181_rs5u
= \ cost1_iniM ->
case paramSliceByteString cost1_iniM of
{ CostingFun cpu_iniP mem_iniQ ->
case runThreeArgumentModel cpu_iniP of runCpu_iniS { __DEFAULT ->
case runThreeArgumentModel mem_iniQ of runMem_iniT { __DEFAULT ->
BuiltinExpectArgument
(\ v_iniU ->
case v_iniU of {
__DEFAULT -> lvl134_rs4u;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sreo x_srep ->
case uniAct_sreo `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
}));
DefaultUniInteger co_ipYk ->
case integerLe# lvl29_rs1e (x_srep `cast` <Co:3>) of {
__DEFAULT -> $j2_rs1D;
1# ->
case integerLe# (x_srep `cast` <Co:3>) lvl30_rs1f of {
__DEFAULT -> $j2_rs1D;
1# ->
BuiltinExpectArgument
(\ v1_inju ->
case v1_inju of {
__DEFAULT -> lvl97_rs3B;
VCon val1_X10 ->
case val1_X10 `cast` <Co:8> of { ValueOf uniAct1_srew x1_srex ->
case uniAct1_srew `cast` <Co:8> of wild8_X11 {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild8_X11 `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co1_X12 ->
case integerLe# lvl29_rs1e (x1_srex `cast` <Co:3>) of {
__DEFAULT -> $j1_rs1B;
1# ->
case integerLe# (x1_srex `cast` <Co:3>) lvl30_rs1f of {
__DEFAULT -> $j1_rs1B;
1# ->
BuiltinExpectArgument
(\ v2_ink2 ->
case v2_ink2 of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of
{ I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val2_X14 ->
case val2_X14 `cast` <Co:8> of
{ ValueOf uniAct2_sreC x2_sreD ->
case uniAct2_sreC `cast` <Co:8>
of wild13_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of
{ I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn
`cast` <Co:6>)
($WDefaultUniByteString
`cast` <Co:8>)
(wild13_ipYe
`cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co2_ipYf ->
case x2_sreD `cast` <Co:3>
of wild14_sreF
{ BS dt_sreG dt1_sreH dt2_sreI ->
let {
mem3_soYx
= case lvl10_rs0U `cast` <Co:1> of
{ I# x3_inku ->
case x3_inku of wild16_inky {
__DEFAULT ->
case $w$cfromInteger
(IS dt2_sreI)
of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inkG ->
case subIntC# ww_imCq y#_inkG
of
{ (# r#_inkR, ds2_inkS #) ->
case ds2_inkS of {
__DEFAULT ->
case andI#
(>=# ww_imCq 0#)
(<# y#_inkG 0#)
of {
__DEFAULT ->
case andI#
(<=#
ww_imCq 0#)
(>#
y#_inkG 0#)
of {
__DEFAULT ->
case overflowError
of wild19_00 {
};
1# ->
case wild16_inky
of wild19_inl4 {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild19_inl4
of wild20_inl5
{ __DEFAULT ->
case lvl11_rs0V
of
{ I# v5_B2 ->
case addIntC#
wild20_inl5
v5_B2
of
{ (# r#1_iooV,
ds1_iooW #) ->
case ds1_iooW
of {
__DEFAULT ->
case andI#
(>#
wild20_inl5
0#)
(>#
v5_B2
0#)
of {
__DEFAULT ->
case andI#
(<#
wild20_inl5
0#)
(<#
v5_B2
0#)
of {
__DEFAULT ->
case overflowError
of wild22_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I#
r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# ->
lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807#
wild16_inky
of wild19_inl3
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild19_inl3
v5_B2
of
{ (# r#1_iooV,
ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild19_inl3
0#)
(>#
v5_B2
0#)
of {
__DEFAULT ->
case andI#
(<#
wild19_inl3
0#)
(<#
v5_B2
0#)
of {
__DEFAULT ->
case overflowError
of wild21_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inkR
of wild19_inl2 {
__DEFAULT ->
case quotInt#
wild19_inl2
wild16_inky
of wild20_inl3
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild20_inl3
v5_B2
of
{ (# r#1_iooV,
ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild20_inl3
0#)
(>#
v5_B2
0#)
of {
__DEFAULT ->
case andI#
(<#
wild20_inl3
0#)
(<#
v5_B2
0#)
of {
__DEFAULT ->
case overflowError
of wild22_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild16_inky
of wild20_inl4 {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild20_inl4
of wild21_inl5
{ __DEFAULT ->
case lvl11_rs0V
of
{ I# v5_B2 ->
case addIntC#
wild21_inl5
v5_B2
of
{ (# r#1_iooV,
ds1_iooW #) ->
case ds1_iooW
of {
__DEFAULT ->
case andI#
(>#
wild21_inl5
0#)
(>#
v5_B2
0#)
of {
__DEFAULT ->
case andI#
(<#
wild21_inl5
0#)
(<#
v5_B2
0#)
of {
__DEFAULT ->
case overflowError
of wild23_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# ->
case divZeroError
of wild17_00 {
}
}
} } in
case (runCpu_iniS
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>)
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>)
(mem3_soYx `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt5_inla ->
case (runMem_iniT
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>)
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>)
(mem3_soYx `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_inld ->
BuiltinResult
(ExBudget dt5_inla dt3_inld)
(case integerToInt#
(x_srep `cast` <Co:3>)
of wild15_inlj
{ __DEFAULT ->
case integerToInt#
(x1_srex `cast` <Co:3>)
of wild16_inlk
{ __DEFAULT ->
case <=# wild15_inlj 0# of {
__DEFAULT ->
case >=# wild15_inlj dt2_sreI
of {
__DEFAULT ->
case <=# wild16_inlk 0# of {
__DEFAULT ->
let {
dt7_soYI
= -#
dt2_sreI
wild15_inlj } in
case >=#
wild16_inlk
dt7_soYI
of {
__DEFAULT ->
case unsafeEqualityProof
of
{ UnsafeRefl co15_inlr ->
MakeKnownSuccess
(VCon
((ValueOf
(lvl91_rs3u
`cast` <Co:8>)
(BS
(plusAddr#
dt_sreG
wild15_inlj)
dt1_sreH
wild16_inlk))
`cast` <Co:13>))
};
1# ->
case unsafeEqualityProof
of
{ UnsafeRefl co15_inlr ->
MakeKnownSuccess
(VCon
((ValueOf
(lvl91_rs3u
`cast` <Co:8>)
(BS
(plusAddr#
dt_sreG
wild15_inlj)
dt1_sreH
dt7_soYI))
`cast` <Co:13>))
}
};
1# ->
case unsafeEqualityProof
of
{ UnsafeRefl co15_inlr ->
MakeKnownSuccess
(VCon
(lvl180_rs5t
`cast` <Co:13>))
}
};
1# ->
case <=# wild16_inlk 0# of {
__DEFAULT ->
case >=# wild16_inlk 0#
of {
__DEFAULT ->
case unsafeEqualityProof
of
{ UnsafeRefl co15_inlr ->
MakeKnownSuccess
(VCon
((ValueOf
(lvl91_rs3u
`cast` <Co:8>)
(BS
__NULL
FinalPtr
wild16_inlk))
`cast` <Co:13>))
};
1# ->
case unsafeEqualityProof
of
{ UnsafeRefl co15_inlr ->
MakeKnownSuccess
(VCon
(lvl180_rs5t
`cast` <Co:13>))
}
};
1# ->
case unsafeEqualityProof
of
{ UnsafeRefl co15_inlr ->
MakeKnownSuccess
(VCon
(lvl180_rs5t
`cast` <Co:13>))
}
}
};
1# ->
case <=# wild16_inlk 0# of {
__DEFAULT ->
case >=#
wild16_inlk dt2_sreI
of {
__DEFAULT ->
case unsafeEqualityProof
of
{ UnsafeRefl co15_inlr ->
MakeKnownSuccess
(VCon
((ValueOf
(lvl91_rs3u
`cast` <Co:8>)
(BS
dt_sreG
dt1_sreH
wild16_inlk))
`cast` <Co:13>))
};
1# ->
case unsafeEqualityProof
of
{ UnsafeRefl co15_inlr ->
MakeKnownSuccess
(VCon
((ValueOf
(lvl91_rs3u
`cast` <Co:8>)
wild14_sreF)
`cast` <Co:13>))
}
};
1# ->
case unsafeEqualityProof of
{ UnsafeRefl co15_inlr ->
MakeKnownSuccess
(VCon
(lvl180_rs5t
`cast` <Co:13>))
}
}
}
}
})
}
}
}
}
}
})
}
}
}
}
})
}
}
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 13, coercions: 35, joins: 0/0}
lvl182_rs5v
= TypeSchemeArrow
@~<Co:6>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl93_rs3w
-- RHS size: {terms: 6, types: 21, coercions: 39, joins: 0/0}
lvl183_rs5w
= TypeSchemeArrow
@~<Co:10>
($dTypeable60_rs1U `cast` <Co:4>)
($fKnownTypeAstTYPEDefaultUniInt_$ctoTypeAst `cast` <Co:7>)
($dMakeKnownIn24_rs5o `cast` <Co:9>)
($dReadKnownIn13_rs5n `cast` <Co:9>)
lvl182_rs5v
-- RHS size: {terms: 6, types: 29, coercions: 43, joins: 0/0}
lvl184_rs5x
= TypeSchemeArrow
@~<Co:14>
($dTypeable60_rs1U `cast` <Co:4>)
($fKnownTypeAstTYPEDefaultUniInt_$ctoTypeAst `cast` <Co:7>)
($dMakeKnownIn24_rs5o `cast` <Co:9>)
($dReadKnownIn13_rs5n `cast` <Co:9>)
lvl183_rs5w
-- RHS size: {terms: 4, types: 19, coercions: 49, joins: 0/0}
lvl185_rs5y
= BuiltinMeaning lvl184_rs5x (eta2_rs1F `cast` <Co:49>) lvl181_rs5u
-- RHS size: {terms: 315, types: 227, coercions: 102, joins: 0/1}
lvl186_rs5z
= \ cost1_inlu ->
case paramLengthOfByteString cost1_inlu of
{ CostingFun cpu_inlx mem_inly ->
case runOneArgumentModel cpu_inlx of runCpu_inlA { __DEFAULT ->
case runOneArgumentModel mem_inly of runMem_inlB { __DEFAULT ->
BuiltinExpectArgument
(\ v_inlC ->
case v_inlC of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srfl x_srfm ->
case uniAct_srfl `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co_ipYf ->
case x_srfm `cast` <Co:3> of { BS dt_srfp dt1_srfq dt2_srfr ->
let {
mem2_soYP
= case lvl10_rs0U `cast` <Co:1> of { I# x1_inm4 ->
case x1_inm4 of wild6_inm8 {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srfr) of ww_imCq { __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inmg ->
case subIntC# ww_imCq y#_inmg of { (# r#_inmr, ds2_inms #) ->
case ds2_inms of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_inmg 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_inmg 0#) of {
__DEFAULT -> case overflowError of wild10_00 { };
1# ->
case wild6_inm8 of wild10_inmE {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_inmE
of wild11_inmF
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_inmF v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_inmF 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_inmF 0#) (<# v2_B2 0#)
of {
__DEFAULT ->
case overflowError of wild14_00 { };
1# ->
(I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild6_inm8 of wild10_inmD
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_inmD v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_inmD 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_inmD 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inmr of wild9_inmC {
__DEFAULT ->
case quotInt# wild9_inmC wild6_inm8 of wild10_inmD
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_inmD v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_inmD 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_inmD 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild6_inm8 of wild10_inmE {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_inmE
of wild11_inmF
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_inmF v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_inmF 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_inmF 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild7_00 { }
}
} } in
case (runCpu_inlA (mem2_soYP `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt5_inmK ->
case (runMem_inlB (mem2_soYP `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt3_inmN ->
BuiltinResult
(ExBudget dt5_inmK dt3_inmN)
(case unsafeEqualityProof of { UnsafeRefl co13_inn1 ->
MakeKnownSuccess
(VCon
((ValueOf ($dContains17_rs2W `cast` <Co:8>) (IS dt2_srfr))
`cast` <Co:13>))
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 6, coercions: 22, joins: 0/0}
lvl187_rs5A
= TypeSchemeResult
@~<Co:2>
($dTypeable60_rs1U `cast` <Co:4>)
($fKnownTypeAstTYPEDefaultUniInt_$ctoTypeAst `cast` <Co:7>)
($dMakeKnownIn24_rs5o `cast` <Co:9>)
-- RHS size: {terms: 6, types: 13, coercions: 35, joins: 0/0}
lvl188_rs5B
= TypeSchemeArrow
@~<Co:6>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl187_rs5A
-- RHS size: {terms: 4, types: 11, coercions: 15, joins: 0/0}
lvl189_rs5C
= BuiltinMeaning lvl188_rs5B (length `cast` <Co:15>) lvl186_rs5z
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dReadKnownIn10_rs5D
= $fReadKnownInDefaultUnitermInteger
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 6, types: 21, coercions: 39, joins: 0/0}
lvl190_rs5E
= TypeSchemeArrow
@~<Co:10>
($dTypeable71_rs1M `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniInteger_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn16_rs3N `cast` <Co:9>)
($dReadKnownIn10_rs5D `cast` <Co:9>)
lvl182_rs5v
-- RHS size: {terms: 6, types: 1, coercions: 0, joins: 0/0}
lvl191_rs5F
= case $w$cfromInteger lvl15_rs0Z of v_B2 { __DEFAULT -> I# v_B2 }
-- RHS size: {terms: 429, types: 313, coercions: 186, joins: 0/3}
lvl192_rs5G
= \ cost1_in84 ->
case paramConsByteString cost1_in84 of
{ CostingFun cpu_in5U mem_in5V ->
case runTwoArgumentModel cpu_in5U of runCpu_in5X { __DEFAULT ->
case runTwoArgumentModel mem_in5V of runMem_in5Y { __DEFAULT ->
BuiltinExpectArgument
(\ v_in86 ->
case v_in86 of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srfR x_srfS ->
case uniAct_srfR `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_in8A ->
case v1_in8A of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X15 ->
case val1_X15 `cast` <Co:8> of { ValueOf uniAct1_srfX x1_srfY ->
case uniAct1_srfX `cast` <Co:8> of wild6_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild6_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co1_ipYf ->
case x1_srfY `cast` <Co:3> of { BS dt_srg1 dt1_srg2 dt2_srg3 ->
let {
mem2_soXU
= case integerEq# (x_srfS `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srfS `cast` <Co:3>) of {
IS i1_imB5 ->
case <=# i1_imB5 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imB5))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl191_rs5F `cast` <Co:5>
};
IP b_imB8 ->
case uncheckedIShiftRL# (sizeofByteArray# b_imB8) 3#
of wild10_imBa {
__DEFAULT ->
let {
i1_imBb
= minusWord# (int2Word# wild10_imBa) 1## } in
case indexWordArray# b_imB8 (word2Int# i1_imBb)
of wild11_imBc
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_imBb 6#)
(clz# wild11_imBc))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl191_rs5F `cast` <Co:5>
};
IN ds1_ipUC -> lvl191_rs5F `cast` <Co:5>
};
1# -> lvl11_rs0V `cast` <Co:5>
} } in
let {
mem3_soXW
= case lvl10_rs0U `cast` <Co:1> of { I# x3_in65 ->
case x3_in65 of wild9_in67 {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srg3) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_in6f ->
case subIntC# ww_imCq y#_in6f of
{ (# r#_in6q, ds2_in6r #) ->
case ds2_in6r of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_in6f 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_in6f 0#) of {
__DEFAULT ->
case overflowError of wild12_00 { };
1# ->
case wild9_in67 of wild12_in6D {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild12_in6D
of wild13_in6E
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_in6E v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild13_in6E 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_in6E 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild15_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild9_in67
of wild12_in6C
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild12_in6C v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild12_in6C 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild12_in6C 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild14_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_in6q of wild12_in6B {
__DEFAULT ->
case quotInt# wild12_in6B wild9_in67
of wild13_in6C
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_in6C v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild13_in6C 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_in6C 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild15_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild9_in67 of wild13_in6D {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild13_in6D
of wild14_in6E
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_in6E v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_in6E 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_in6E 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild10_00 { }
}
} } in
case (runCpu_in5X mem2_soXU (mem3_soXW `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt5_imMv ->
case (runMem_in5Y mem2_soXU (mem3_soXW `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt7_imMx ->
BuiltinResult
(ExBudget dt5_imMv dt7_imMx)
(case $weta12_rs1G
(x_srfS `cast` <Co:3>) dt_srg1 dt1_srg2 dt2_srg3
of vx_in9e
{ BS ipv2_in9f ipv3_in9g ipv4_in9h ->
case unsafeEqualityProof of { UnsafeRefl co14_in9k ->
MakeKnownSuccess
(VCon
((ValueOf (lvl91_rs3u `cast` <Co:8>) vx_in9e)
`cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl193_rs5H
= BuiltinMeaning lvl190_rs5E (eta3_rs1H `cast` <Co:30>) lvl192_rs5G
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
lvl194_rs5I
= $fMakeKnownInDefaultUnitermWord8
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
lvl195_rs5J
= $fReadKnownInDefaultUnitermWord8
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 6, types: 21, coercions: 39, joins: 0/0}
lvl196_rs5K
= TypeSchemeArrow
@~<Co:10>
($dTypeable61_rs1T `cast` <Co:4>)
($fKnownTypeAstTYPEDefaultUniWord8_$ctoTypeAst `cast` <Co:7>)
(lvl194_rs5I `cast` <Co:9>)
(lvl195_rs5J `cast` <Co:9>)
lvl182_rs5v
-- RHS size: {terms: 418, types: 396, coercions: 154, joins: 0/4}
lvl197_rs5L
= \ cost1_in9o ->
case paramConsByteString cost1_in9o of
{ CostingFun cpu_in5U mem_in5V ->
case runTwoArgumentModel cpu_in5U of runCpu_in5X { __DEFAULT ->
case runTwoArgumentModel mem_in5V of runMem_in5Y { __DEFAULT ->
BuiltinExpectArgument
(\ v_in9q ->
case v_in9q of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srgw x_srgx ->
case uniAct_srgw `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
case $fReadKnownInDefaultUnitermWord8_$stoIntegralSized
(x_srgx `cast` <Co:3>)
of {
Nothing -> $j1_rs1B;
Just w8_inh2 ->
BuiltinExpectArgument
(\ v1_inh5 ->
case v1_inh5 of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X15 ->
case val1_X15 `cast` <Co:8> of { ValueOf uniAct1_srgC x1_srgD ->
case uniAct1_srgC `cast` <Co:8> of wild7_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild7_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co1_ipYf ->
case x1_srgD `cast` <Co:3> of { BS dt_srgG dt1_srgH dt2_srgI ->
let {
mem2_soY8
= case lvl10_rs0U `cast` <Co:1> of { I# x3_in65 ->
case x3_in65 of wild10_in67 {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srgI) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_in6f ->
case subIntC# ww_imCq y#_in6f of
{ (# r#_in6q, ds2_in6r #) ->
case ds2_in6r of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_in6f 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_in6f 0#)
of {
__DEFAULT ->
case overflowError of wild13_00 { };
1# ->
case wild10_in67 of wild13_in6D {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild13_in6D
of wild14_in6E
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_in6E v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_in6E 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_in6E 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild10_in67
of wild13_in6C
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_in6C v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild13_in6C 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_in6C 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild15_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_in6q of wild13_in6B {
__DEFAULT ->
case quotInt# wild13_in6B wild10_in67
of wild14_in6C
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_in6C v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_in6C 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_in6C 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild10_in67 of wild14_in6D {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild14_in6D
of wild15_in6E
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_in6E v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_in6E 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_in6E 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild17_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild11_00 { }
}
} } in
case (runCpu_in5X
($fExMemoryUsageWord2 `cast` <Co:2>)
(mem2_soY8 `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt5_imMv ->
case (runMem_in5Y
($fExMemoryUsageWord2 `cast` <Co:2>)
(mem2_soY8 `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt7_imMx ->
BuiltinResult
(ExBudget dt5_imMv dt7_imMx)
(runRW#
(\ s_inhG ->
let { x2_soVZ = +# dt2_srgI 1# } in
case <# x2_soVZ 0# of {
__DEFAULT ->
case newPinnedByteArray# x2_soVZ s_inhG of
{ (# ipv2_inhP, ipv3_inhQ #) ->
let {
ipv4_soVY
= mutableByteArrayContents# ipv3_inhQ } in
let { ipv5_soVX = PlainPtr ipv3_inhQ } in
case keepAlive#
ipv5_soVX
ipv2_inhP
(\ s1_inhT ->
case w8_inh2 of { W8# x3_inhV ->
case writeWord8OffAddr#
ipv4_soVY 0# x3_inhV s1_inhT
of s2_inhX
{ __DEFAULT ->
case {__ffi_static_ccall_unsafe bytestring-0.11.3.1-3QerDoAWNKDFzx4R63X18a:memcpy :: Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State#
RealWorld,
Addr# #)}_inhY
(plusAddr# ipv4_soVY 1#)
dt_srgG
(int2Word# dt2_srgI)
s2_inhX
of
{ (# ds4_ini0, ds5_ini1 #) ->
case touch# dt1_srgH ds4_ini0 of s'_ini3
{ __DEFAULT ->
(# s'_ini3, () #)
}
}
}
})
of
{ (# ipv6_ini5, ipv7_ini6 #) ->
case lazy (BS ipv4_soVY ipv5_soVX x2_soVZ)
of vx_ini8
{ BS ipv8_ini9 ipv9_inia ipv10_inib ->
case unsafeEqualityProof of
{ UnsafeRefl co12_inie ->
MakeKnownSuccess
(VCon
((ValueOf (lvl91_rs3u `cast` <Co:8>) vx_ini8)
`cast` <Co:13>))
}
}
}
};
1# -> case mallocPlainForeignPtrBytes2 of wild9_00 { }
}))
}
}
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl198_rs5M
= BuiltinMeaning lvl196_rs5K (cons `cast` <Co:30>) lvl197_rs5L
-- RHS size: {terms: 2, types: 6, coercions: 0, joins: 0/0}
$dMakeKnownIn20_rs5N
= $fMakeKnownInunivalEmitter $dMakeKnownIn19_rs46
-- RHS size: {terms: 893, types: 568, coercions: 281, joins: 0/3}
lvl199_rs5O
= \ cost1_inLm ->
case paramVerifySchnorrSecp256k1Signature cost1_inLm of
{ CostingFun cpu_inLp mem_inLq ->
case runThreeArgumentModel cpu_inLp of runCpu_inLs { __DEFAULT ->
case runThreeArgumentModel mem_inLq of runMem_inLt { __DEFAULT ->
BuiltinExpectArgument
(\ v_inLu ->
case v_inLu of {
__DEFAULT -> lvl134_rs4u;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srh1 x_srh2 ->
case uniAct_srh1 `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
}));
DefaultUniByteString co_ipYf ->
case x_srh2 `cast` <Co:3> of { BS dt_srht dt1_srhu dt2_srhv ->
BuiltinExpectArgument
(\ v1_inMD ->
case v1_inMD of {
__DEFAULT -> lvl97_rs3B;
VCon val1_X14 ->
case val1_X14 `cast` <Co:8> of { ValueOf uniAct1_srh9 x1_srha ->
case uniAct1_srh9 `cast` <Co:8> of wild7_X15 {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult
(ExBudget dt5_ipUl dt5_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild7_X15 `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniByteString co1_X16 ->
case x1_srha `cast` <Co:3> of wild8_srhn
{ BS dt4_srho dt5_srhp dt6_srhq ->
BuiltinExpectArgument
(\ v2_inNL ->
case v2_inNL of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt8_ipUl ->
BuiltinResult (ExBudget dt8_ipUl dt8_ipUl) lvl78_rs3a
};
VCon val2_X18 ->
case val2_X18 `cast` <Co:8> of
{ ValueOf uniAct2_srhf x2_srhg ->
case uniAct2_srhf `cast` <Co:8> of wild11_X19 {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt8_ipUl ->
BuiltinResult
(ExBudget dt8_ipUl dt8_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild11_X19 `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co2_X1a ->
case x2_srhg `cast` <Co:3> of wild12_srhi
{ BS dt7_srhj dt8_srhk dt9_srhl ->
let {
mem2_sp2v
= case lvl10_rs0U `cast` <Co:1> of { I# x3_inLY ->
case x3_inLY of wild14_inM2 {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srhv) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inMa ->
case subIntC# ww_imCq y#_inMa of
{ (# r#_inMl, ds2_inMm #) ->
case ds2_inMm of {
__DEFAULT ->
case andI#
(>=# ww_imCq 0#) (<# y#_inMa 0#)
of {
__DEFAULT ->
case andI#
(<=# ww_imCq 0#)
(># y#_inMa 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
case wild14_inM2 of wild17_inMy {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild17_inMy
of wild18_inMz
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inMz v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inMz 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inMz
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807#
wild14_inM2
of wild17_inMx
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild17_inMx v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild17_inMx 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild17_inMx 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild19_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inMl of wild17_inMw {
__DEFAULT ->
case quotInt# wild17_inMw wild14_inM2
of wild18_inMx
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild18_inMx v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild18_inMx 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild18_inMx 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild14_inM2 of wild18_inMy {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild18_inMy
of wild19_inMz
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild19_inMz v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild19_inMz 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild19_inMz 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild21_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild15_00 { }
}
} } in
let {
mem3_sp2s
= case lvl10_rs0U `cast` <Co:1> of { I# x3_inN6 ->
case x3_inN6 of wild14_inNa {
__DEFAULT ->
case $w$cfromInteger (IS dt6_srhq) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inNi ->
case subIntC# ww_imCq y#_inNi of
{ (# r#_inNt, ds2_inNu #) ->
case ds2_inNu of {
__DEFAULT ->
case andI#
(>=# ww_imCq 0#) (<# y#_inNi 0#)
of {
__DEFAULT ->
case andI#
(<=# ww_imCq 0#)
(># y#_inNi 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
case wild14_inNa of wild17_inNG {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild17_inNG
of wild18_inNH
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inNH v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inNH 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inNH
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807#
wild14_inNa
of wild17_inNF
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild17_inNF v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild17_inNF 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild17_inNF 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild19_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inNt of wild17_inNE {
__DEFAULT ->
case quotInt# wild17_inNE wild14_inNa
of wild18_inNF
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild18_inNF v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild18_inNF 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild18_inNF 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild14_inNa of wild18_inNG {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild18_inNG
of wild19_inNH
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild19_inNH v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild19_inNH 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild19_inNH 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild21_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild15_00 { }
}
} } in
let {
mem4_sp2y
= case lvl10_rs0U `cast` <Co:1> of { I# x3_inOd ->
case x3_inOd of wild14_inOh {
__DEFAULT ->
case $w$cfromInteger (IS dt9_srhl) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inOp ->
case subIntC# ww_imCq y#_inOp of
{ (# r#_inOA, ds2_inOB #) ->
case ds2_inOB of {
__DEFAULT ->
case andI#
(>=# ww_imCq 0#) (<# y#_inOp 0#)
of {
__DEFAULT ->
case andI#
(<=# ww_imCq 0#)
(># y#_inOp 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
case wild14_inOh of wild17_inON {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild17_inON
of wild18_inOO
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inOO v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inOO 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inOO
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807#
wild14_inOh
of wild17_inOM
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild17_inOM v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild17_inOM 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild17_inOM 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild19_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inOA of wild17_inOL {
__DEFAULT ->
case quotInt# wild17_inOL wild14_inOh
of wild18_inOM
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild18_inOM v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild18_inOM 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild18_inOM 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild14_inOh of wild18_inON {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild18_inON
of wild19_inOO
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild19_inOO v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild19_inOO 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild19_inOO 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild21_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild15_00 { }
}
} } in
case (runCpu_inLs
(mem2_sp2v `cast` <Co:2>)
(mem3_sp2s `cast` <Co:2>)
(mem4_sp2y `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt11_inOT ->
case (runMem_inLt
(mem2_sp2v `cast` <Co:2>)
(mem3_sp2s `cast` <Co:2>)
(mem4_sp2y `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_inOW ->
BuiltinResult
(ExBudget dt11_inOT dt3_inOW)
(case ($wverifySchnorrSecp256k1Signature
dt_srht
dt1_srhu
dt2_srhv
wild8_srhn
wild12_srhi)
`cast` <Co:17>
of
{ (x3_inP3, logs_inP4) ->
case x3_inP3 of {
EvaluationSuccess x4_inP9 ->
case unsafeEqualityProof of
{ UnsafeRefl co21_inPg ->
case logs_inP4 `cast` <Co:2> of nt_sqFM
{ __DEFAULT ->
MakeKnownSuccessWithLogs
(nt_sqFM `cast` <Co:3>)
(VCon
((ValueOf
($WDefaultUniBool `cast` <Co:7>)
(x4_inP9 `cast` <Co:5>))
`cast` <Co:5>))
}
};
EvaluationFailure ->
MakeKnownFailure
((\ x4_inPj ->
(logs_inP4 `cast` <Co:2>) x4_inPj)
`cast` <Co:3>)
KnownTypeEvaluationFailure
}
})
}
}
}
}
}
})
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 8, coercions: 30, joins: 0/0}
lvl200_rs5P
= TypeSchemeResult
@~<Co:2>
($dTypeable66_rs2f `cast` <Co:7>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniEmitter_$ctoTypeAst
`cast` <Co:10>)
($dMakeKnownIn20_rs5N `cast` <Co:11>)
-- RHS size: {terms: 6, types: 15, coercions: 35, joins: 0/0}
lvl201_rs5Q
= TypeSchemeArrow
@~<Co:6>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl200_rs5P
-- RHS size: {terms: 6, types: 23, coercions: 39, joins: 0/0}
lvl202_rs5R
= TypeSchemeArrow
@~<Co:10>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl201_rs5Q
-- RHS size: {terms: 6, types: 31, coercions: 43, joins: 0/0}
lvl203_rs5S
= TypeSchemeArrow
@~<Co:14>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl202_rs5R
-- RHS size: {terms: 4, types: 21, coercions: 57, joins: 0/0}
lvl204_rs5T
= BuiltinMeaning
lvl203_rs5S
(verifySchnorrSecp256k1Signature `cast` <Co:57>)
lvl199_rs5O
-- RHS size: {terms: 893, types: 568, coercions: 281, joins: 0/3}
lvl205_rs5U
= \ cost1_inHm ->
case paramVerifyEcdsaSecp256k1Signature cost1_inHm of
{ CostingFun cpu_inHp mem_inHq ->
case runThreeArgumentModel cpu_inHp of runCpu_inHs { __DEFAULT ->
case runThreeArgumentModel mem_inHq of runMem_inHt { __DEFAULT ->
BuiltinExpectArgument
(\ v_inHu ->
case v_inHu of {
__DEFAULT -> lvl134_rs4u;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srhV x_srhW ->
case uniAct_srhV `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
}));
DefaultUniByteString co_ipYf ->
case x_srhW `cast` <Co:3> of { BS dt_srin dt1_srio dt2_srip ->
BuiltinExpectArgument
(\ v1_inID ->
case v1_inID of {
__DEFAULT -> lvl97_rs3B;
VCon val1_X16 ->
case val1_X16 `cast` <Co:8> of { ValueOf uniAct1_sri3 x1_sri4 ->
case uniAct1_sri3 `cast` <Co:8> of wild7_X17 {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult
(ExBudget dt5_ipUl dt5_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild7_X17 `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniByteString co1_X18 ->
case x1_sri4 `cast` <Co:3> of wild8_srih
{ BS dt4_srii dt5_srij dt6_srik ->
BuiltinExpectArgument
(\ v2_inJL ->
case v2_inJL of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt8_ipUl ->
BuiltinResult (ExBudget dt8_ipUl dt8_ipUl) lvl78_rs3a
};
VCon val2_X1a ->
case val2_X1a `cast` <Co:8> of
{ ValueOf uniAct2_sri9 x2_sria ->
case uniAct2_sri9 `cast` <Co:8> of wild11_X1b {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt8_ipUl ->
BuiltinResult
(ExBudget dt8_ipUl dt8_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild11_X1b `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co2_X1c ->
case x2_sria `cast` <Co:3> of wild12_sric
{ BS dt7_srid dt8_srie dt9_srif ->
let {
mem2_sp1V
= case lvl10_rs0U `cast` <Co:1> of { I# x3_inHY ->
case x3_inHY of wild14_inI2 {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srip) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inIa ->
case subIntC# ww_imCq y#_inIa of
{ (# r#_inIl, ds2_inIm #) ->
case ds2_inIm of {
__DEFAULT ->
case andI#
(>=# ww_imCq 0#) (<# y#_inIa 0#)
of {
__DEFAULT ->
case andI#
(<=# ww_imCq 0#)
(># y#_inIa 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
case wild14_inI2 of wild17_inIy {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild17_inIy
of wild18_inIz
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inIz v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inIz 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inIz
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807#
wild14_inI2
of wild17_inIx
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild17_inIx v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild17_inIx 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild17_inIx 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild19_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inIl of wild17_inIw {
__DEFAULT ->
case quotInt# wild17_inIw wild14_inI2
of wild18_inIx
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild18_inIx v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild18_inIx 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild18_inIx 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild14_inI2 of wild18_inIy {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild18_inIy
of wild19_inIz
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild19_inIz v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild19_inIz 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild19_inIz 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild21_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild15_00 { }
}
} } in
let {
mem3_sp1S
= case lvl10_rs0U `cast` <Co:1> of { I# x3_inJ6 ->
case x3_inJ6 of wild14_inJa {
__DEFAULT ->
case $w$cfromInteger (IS dt6_srik) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inJi ->
case subIntC# ww_imCq y#_inJi of
{ (# r#_inJt, ds2_inJu #) ->
case ds2_inJu of {
__DEFAULT ->
case andI#
(>=# ww_imCq 0#) (<# y#_inJi 0#)
of {
__DEFAULT ->
case andI#
(<=# ww_imCq 0#)
(># y#_inJi 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
case wild14_inJa of wild17_inJG {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild17_inJG
of wild18_inJH
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inJH v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inJH 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inJH
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807#
wild14_inJa
of wild17_inJF
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild17_inJF v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild17_inJF 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild17_inJF 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild19_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inJt of wild17_inJE {
__DEFAULT ->
case quotInt# wild17_inJE wild14_inJa
of wild18_inJF
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild18_inJF v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild18_inJF 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild18_inJF 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild14_inJa of wild18_inJG {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild18_inJG
of wild19_inJH
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild19_inJH v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild19_inJH 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild19_inJH 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild21_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild15_00 { }
}
} } in
let {
mem4_sp1Y
= case lvl10_rs0U `cast` <Co:1> of { I# x3_inKd ->
case x3_inKd of wild14_inKh {
__DEFAULT ->
case $w$cfromInteger (IS dt9_srif) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inKp ->
case subIntC# ww_imCq y#_inKp of
{ (# r#_inKA, ds2_inKB #) ->
case ds2_inKB of {
__DEFAULT ->
case andI#
(>=# ww_imCq 0#) (<# y#_inKp 0#)
of {
__DEFAULT ->
case andI#
(<=# ww_imCq 0#)
(># y#_inKp 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
case wild14_inKh of wild17_inKN {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild17_inKN
of wild18_inKO
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inKO v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inKO 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inKO
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807#
wild14_inKh
of wild17_inKM
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild17_inKM v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild17_inKM 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild17_inKM 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild19_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inKA of wild17_inKL {
__DEFAULT ->
case quotInt# wild17_inKL wild14_inKh
of wild18_inKM
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild18_inKM v5_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild18_inKM 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild18_inKM 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild14_inKh of wild18_inKN {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild18_inKN
of wild19_inKO
{ __DEFAULT ->
case lvl11_rs0V of { I# v5_B2 ->
case addIntC# wild19_inKO v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild19_inKO 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild19_inKO 0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild21_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild15_00 { }
}
} } in
case (runCpu_inHs
(mem2_sp1V `cast` <Co:2>)
(mem3_sp1S `cast` <Co:2>)
(mem4_sp1Y `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt11_inKT ->
case (runMem_inHt
(mem2_sp1V `cast` <Co:2>)
(mem3_sp1S `cast` <Co:2>)
(mem4_sp1Y `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_inKW ->
BuiltinResult
(ExBudget dt11_inKT dt3_inKW)
(case ($wverifyEcdsaSecp256k1Signature
dt_srin
dt1_srio
dt2_srip
wild8_srih
wild12_sric)
`cast` <Co:17>
of
{ (x3_inL3, logs_inL4) ->
case x3_inL3 of {
EvaluationSuccess x4_inL9 ->
case unsafeEqualityProof of
{ UnsafeRefl co21_inLg ->
case logs_inL4 `cast` <Co:2> of nt_sqFZ
{ __DEFAULT ->
MakeKnownSuccessWithLogs
(nt_sqFZ `cast` <Co:3>)
(VCon
((ValueOf
($WDefaultUniBool `cast` <Co:7>)
(x4_inL9 `cast` <Co:5>))
`cast` <Co:5>))
}
};
EvaluationFailure ->
MakeKnownFailure
((\ x4_inLj ->
(logs_inL4 `cast` <Co:2>) x4_inLj)
`cast` <Co:3>)
KnownTypeEvaluationFailure
}
})
}
}
}
}
}
})
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 21, coercions: 57, joins: 0/0}
lvl206_rs5V
= BuiltinMeaning
lvl203_rs5S
(verifyEcdsaSecp256k1Signature `cast` <Co:57>)
lvl205_rs5U
-- RHS size: {terms: 23, types: 69, coercions: 27, joins: 0/0}
$j3_rs5W
= \ x_inGS logs_inGT ->
case x_inGS of {
EvaluationSuccess x1_inGY ->
case unsafeEqualityProof of { UnsafeRefl co21_inH5 ->
case logs_inGT `cast` <Co:2> of nt_sqGc { __DEFAULT ->
MakeKnownSuccessWithLogs
(nt_sqGc `cast` <Co:3>)
(VCon
((ValueOf ($WDefaultUniBool `cast` <Co:7>) (x1_inGY `cast` <Co:5>))
`cast` <Co:5>))
}
};
EvaluationFailure ->
MakeKnownFailure
((\ x1_inH8 -> (logs_inGT `cast` <Co:2>) x1_inH8) `cast` <Co:3>)
KnownTypeEvaluationFailure
}
-- RHS size: {terms: 321, types: 231, coercions: 102, joins: 0/1}
lvl207_rs5X
= \ cost1_inBx ->
case paramBlake2b_256 cost1_inBx of
{ CostingFun cpu_inBA mem_inBB ->
case runOneArgumentModel cpu_inBA of runCpu_inBD { __DEFAULT ->
case runOneArgumentModel mem_inBB of runMem_inBE { __DEFAULT ->
BuiltinExpectArgument
(\ v_inBF ->
case v_inBF of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srjI x_srjJ ->
case uniAct_srjI `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co_ipYf ->
case x_srjJ `cast` <Co:3> of { BS dt_srjM dt1_srjN dt2_srjO ->
let {
mem2_sp0Y
= case lvl10_rs0U `cast` <Co:1> of { I# x1_inC7 ->
case x1_inC7 of wild6_inCb {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srjO) of ww_imCq { __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inCj ->
case subIntC# ww_imCq y#_inCj of { (# r#_inCu, ds2_inCv #) ->
case ds2_inCv of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_inCj 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_inCj 0#) of {
__DEFAULT -> case overflowError of wild10_00 { };
1# ->
case wild6_inCb of wild10_inCH {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_inCH
of wild11_inCI
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_inCI v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_inCI 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_inCI 0#) (<# v2_B2 0#)
of {
__DEFAULT ->
case overflowError of wild14_00 { };
1# ->
(I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild6_inCb of wild10_inCG
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_inCG v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_inCG 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_inCG 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inCu of wild9_inCF {
__DEFAULT ->
case quotInt# wild9_inCF wild6_inCb of wild10_inCG
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_inCG v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_inCG 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_inCG 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild6_inCb of wild10_inCH {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_inCH
of wild11_inCI
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_inCI v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_inCI 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_inCI 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild7_00 { }
}
} } in
case (runCpu_inBD (mem2_sp0Y `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt5_inCN ->
case (runMem_inBE (mem2_sp0Y `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt3_inCQ ->
BuiltinResult
(ExBudget dt5_inCN dt3_inCQ)
(case $wblake2b_libsodium 32# dt_srjM dt1_srjN dt2_srjO of vx_inD1
{ BS ipv_inD2 ipv1_inD3 ipv2_inD4 ->
case unsafeEqualityProof of { UnsafeRefl co11_inD7 ->
MakeKnownSuccess
(VCon
((ValueOf (lvl91_rs3u `cast` <Co:8>) vx_inD1) `cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 11, coercions: 15, joins: 0/0}
lvl208_rs5Y
= BuiltinMeaning
lvl182_rs5v (blake2b_256 `cast` <Co:15>) lvl207_rs5X
-- RHS size: {terms: 318, types: 233, coercions: 102, joins: 0/1}
lvl209_rs5Z
= \ cost1_inzZ ->
case paramSha3_256 cost1_inzZ of { CostingFun cpu_inA2 mem_inA3 ->
case runOneArgumentModel cpu_inA2 of runCpu_inA5 { __DEFAULT ->
case runOneArgumentModel mem_inA3 of runMem_inA6 { __DEFAULT ->
BuiltinExpectArgument
(\ v_inA7 ->
case v_inA7 of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srk7 x_srk8 ->
case uniAct_srk7 `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co_ipYf ->
case x_srk8 `cast` <Co:3> of wild5_srka
{ BS dt_srkb dt1_srkc dt2_srkd ->
let {
mem2_sp0M
= case lvl10_rs0U `cast` <Co:1> of { I# x1_inAz ->
case x1_inAz of wild6_inAD {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srkd) of ww_imCq { __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inAL ->
case subIntC# ww_imCq y#_inAL of { (# r#_inAW, ds2_inAX #) ->
case ds2_inAX of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_inAL 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_inAL 0#) of {
__DEFAULT -> case overflowError of wild10_00 { };
1# ->
case wild6_inAD of wild10_inB9 {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_inB9
of wild11_inBa
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_inBa v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_inBa 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_inBa 0#) (<# v2_B2 0#)
of {
__DEFAULT ->
case overflowError of wild14_00 { };
1# ->
(I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild6_inAD of wild10_inB8
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_inB8 v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_inB8 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_inB8 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inAW of wild9_inB7 {
__DEFAULT ->
case quotInt# wild9_inB7 wild6_inAD of wild10_inB8
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_inB8 v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_inB8 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_inB8 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild6_inAD of wild10_inB9 {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_inB9
of wild11_inBa
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_inBa v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_inBa 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_inBa 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild7_00 { }
}
} } in
case (runCpu_inA5 (mem2_sp0M `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt5_inBf ->
case (runMem_inA6 (mem2_sp0M `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt3_inBi ->
BuiltinResult
(ExBudget dt5_inBf dt3_inBi)
(case $w$cdigest wild5_srka of vx_inBo
{ BS ipv_inBp ipv1_inBq ipv2_inBr ->
case unsafeEqualityProof of { UnsafeRefl co11_inBu ->
MakeKnownSuccess
(VCon
((ValueOf (lvl91_rs3u `cast` <Co:8>) vx_inBo) `cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 13, coercions: 15, joins: 0/0}
lvl210_rs60
= BuiltinMeaning
lvl182_rs5v ($w$cdigest `cast` <Co:15>) lvl209_rs5Z
-- RHS size: {terms: 320, types: 231, coercions: 102, joins: 0/1}
lvl211_rs61
= \ cost1_inyq ->
case paramSha2_256 cost1_inyq of { CostingFun cpu_inyt mem_inyu ->
case runOneArgumentModel cpu_inyt of runCpu_inyw { __DEFAULT ->
case runOneArgumentModel mem_inyu of runMem_inyx { __DEFAULT ->
BuiltinExpectArgument
(\ v_inyy ->
case v_inyy of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srkr x_srks ->
case uniAct_srkr `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co_ipYf ->
case x_srks `cast` <Co:3> of { BS dt_srkv dt1_srkw dt2_srkx ->
let {
mem2_sp0A
= case lvl10_rs0U `cast` <Co:1> of { I# x1_inz0 ->
case x1_inz0 of wild6_inz4 {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srkx) of ww_imCq { __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inzc ->
case subIntC# ww_imCq y#_inzc of { (# r#_inzn, ds2_inzo #) ->
case ds2_inzo of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_inzc 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_inzc 0#) of {
__DEFAULT -> case overflowError of wild10_00 { };
1# ->
case wild6_inz4 of wild10_inzA {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_inzA
of wild11_inzB
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_inzB v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_inzB 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_inzB 0#) (<# v2_B2 0#)
of {
__DEFAULT ->
case overflowError of wild14_00 { };
1# ->
(I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild6_inz4 of wild10_inzz
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_inzz v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_inzz 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_inzz 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inzn of wild9_inzy {
__DEFAULT ->
case quotInt# wild9_inzy wild6_inz4 of wild10_inzz
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_inzz v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_inzz 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_inzz 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild6_inz4 of wild10_inzA {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_inzA
of wild11_inzB
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_inzB v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_inzB 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_inzB 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild7_00 { }
}
} } in
case (runCpu_inyw (mem2_sp0A `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt5_inzG ->
case (runMem_inyx (mem2_sp0A `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt3_inzJ ->
BuiltinResult
(ExBudget dt5_inzG dt3_inzJ)
(case $wsha256_libsodium dt_srkv dt1_srkw dt2_srkx of vx_inzP
{ BS ipv_inzQ ipv1_inzR ipv2_inzS ->
case unsafeEqualityProof of { UnsafeRefl co11_inzV ->
MakeKnownSuccess
(VCon
((ValueOf (lvl91_rs3u `cast` <Co:8>) vx_inzP) `cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 11, coercions: 15, joins: 0/0}
lvl212_rs62
= BuiltinMeaning
lvl182_rs5v (sha256_libsodium `cast` <Co:15>) lvl211_rs61
-- RHS size: {terms: 606, types: 431, coercions: 185, joins: 0/2}
lvl213_rs63
= \ cost1_invL ->
case paramLessThanEqualsByteString cost1_invL of
{ CostingFun cpu_invO mem_invP ->
case runTwoArgumentModel cpu_invO of runCpu_invR { __DEFAULT ->
case runTwoArgumentModel mem_invP of runMem_invS { __DEFAULT ->
BuiltinExpectArgument
(\ v_invT ->
case v_invT of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srkS x_srkT ->
case uniAct_srkS `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniByteString co_ipYf ->
case x_srkT `cast` <Co:3> of { BS dt_srl7 dt1_srl8 dt2_srl9 ->
BuiltinExpectArgument
(\ v1_inx1 ->
case v1_inx1 of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult (ExBudget dt5_ipUl dt5_ipUl) lvl78_rs3a
};
VCon val1_X1g ->
case val1_X1g `cast` <Co:8> of { ValueOf uniAct1_srkY x1_srkZ ->
case uniAct1_srkY `cast` <Co:8> of wild7_X1h {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult
(ExBudget dt5_ipUl dt5_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild7_X1h `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co1_X1i ->
case x1_srkZ `cast` <Co:3> of { BS dt4_srl2 dt5_srl3 dt6_srl4 ->
let {
mem2_sp0f
= case lvl10_rs0U `cast` <Co:1> of { I# x2_inwm ->
case x2_inwm of wild10_inwq {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srl9) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inwy ->
case subIntC# ww_imCq y#_inwy of
{ (# r#_inwJ, ds2_inwK #) ->
case ds2_inwK of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_inwy 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_inwy 0#) of {
__DEFAULT ->
case overflowError of wild13_00 { };
1# ->
case wild10_inwq of wild13_inwW {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild13_inwW
of wild14_inwX
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_inwX v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_inwX 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_inwX 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild10_inwq
of wild13_inwV
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_inwV v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild13_inwV 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_inwV 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild15_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inwJ of wild13_inwU {
__DEFAULT ->
case quotInt# wild13_inwU wild10_inwq
of wild14_inwV
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_inwV v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild14_inwV 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_inwV 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild16_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild10_inwq of wild14_inwW {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild14_inwW
of wild15_inwX
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_inwX v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_inwX 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_inwX 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild11_00 { }
}
} } in
let {
mem3_sp0i
= case lvl10_rs0U `cast` <Co:1> of { I# x2_inxt ->
case x2_inxt of wild10_inxx {
__DEFAULT ->
case $w$cfromInteger (IS dt6_srl4) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inxF ->
case subIntC# ww_imCq y#_inxF of
{ (# r#_inxQ, ds2_inxR #) ->
case ds2_inxR of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_inxF 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_inxF 0#) of {
__DEFAULT ->
case overflowError of wild13_00 { };
1# ->
case wild10_inxx of wild13_iny3 {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild13_iny3
of wild14_iny4
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_iny4 v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_iny4 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_iny4 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild10_inxx
of wild13_iny2
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_iny2 v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild13_iny2 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_iny2 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild15_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inxQ of wild13_iny1 {
__DEFAULT ->
case quotInt# wild13_iny1 wild10_inxx
of wild14_iny2
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_iny2 v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild14_iny2 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_iny2 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild16_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild10_inxx of wild14_iny3 {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild14_iny3
of wild15_iny4
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_iny4 v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_iny4 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_iny4 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild11_00 { }
}
} } in
case (runCpu_invR
(mem2_sp0f `cast` <Co:2>) (mem3_sp0i `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt8_iny9 ->
case (runMem_invS
(mem2_sp0f `cast` <Co:2>) (mem3_sp0i `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_inyc ->
BuiltinResult
(ExBudget dt8_iny9 dt3_inyc)
(case $wcompareBytes
dt_srl7 dt1_srl8 dt2_srl9 dt4_srl2 dt5_srl3 dt6_srl4
of {
__DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_inyl ->
MakeKnownSuccess (VCon (lvl118_rs47 `cast` <Co:13>))
};
GT ->
case unsafeEqualityProof of { UnsafeRefl co14_inyl ->
MakeKnownSuccess (VCon (lvl119_rs48 `cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 13, coercions: 35, joins: 0/0}
lvl214_rs64
= TypeSchemeArrow
@~<Co:6>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl100_rs3E
-- RHS size: {terms: 6, types: 21, coercions: 39, joins: 0/0}
lvl215_rs65
= TypeSchemeArrow
@~<Co:10>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl214_rs64
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl216_rs66
= BuiltinMeaning
lvl215_rs65 ($fOrdByteString_$c<= `cast` <Co:30>) lvl213_rs63
-- RHS size: {terms: 606, types: 431, coercions: 185, joins: 0/2}
lvl217_rs67
= \ cost1_int6 ->
case paramLessThanByteString cost1_int6 of
{ CostingFun cpu_int9 mem_inta ->
case runTwoArgumentModel cpu_int9 of runCpu_intc { __DEFAULT ->
case runTwoArgumentModel mem_inta of runMem_intd { __DEFAULT ->
BuiltinExpectArgument
(\ v_inte ->
case v_inte of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srlE x_srlF ->
case uniAct_srlE `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniByteString co_ipYf ->
case x_srlF `cast` <Co:3> of { BS dt_srlT dt1_srlU dt2_srlV ->
BuiltinExpectArgument
(\ v1_inum ->
case v1_inum of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult (ExBudget dt5_ipUl dt5_ipUl) lvl78_rs3a
};
VCon val1_X1i ->
case val1_X1i `cast` <Co:8> of { ValueOf uniAct1_srlK x1_srlL ->
case uniAct1_srlK `cast` <Co:8> of wild7_X1j {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult
(ExBudget dt5_ipUl dt5_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild7_X1j `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co1_X1k ->
case x1_srlL `cast` <Co:3> of { BS dt4_srlO dt5_srlP dt6_srlQ ->
let {
mem2_soZR
= case lvl10_rs0U `cast` <Co:1> of { I# x2_intH ->
case x2_intH of wild10_intL {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srlV) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_intT ->
case subIntC# ww_imCq y#_intT of
{ (# r#_inu4, ds2_inu5 #) ->
case ds2_inu5 of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_intT 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_intT 0#) of {
__DEFAULT ->
case overflowError of wild13_00 { };
1# ->
case wild10_intL of wild13_inuh {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild13_inuh
of wild14_inui
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_inui v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_inui 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_inui 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild10_intL
of wild13_inug
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_inug v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild13_inug 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_inug 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild15_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inu4 of wild13_inuf {
__DEFAULT ->
case quotInt# wild13_inuf wild10_intL
of wild14_inug
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_inug v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild14_inug 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_inug 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild16_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild10_intL of wild14_inuh {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild14_inuh
of wild15_inui
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_inui v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_inui 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_inui 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild11_00 { }
}
} } in
let {
mem3_soZU
= case lvl10_rs0U `cast` <Co:1> of { I# x2_inuO ->
case x2_inuO of wild10_inuS {
__DEFAULT ->
case $w$cfromInteger (IS dt6_srlQ) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inv0 ->
case subIntC# ww_imCq y#_inv0 of
{ (# r#_invb, ds2_invc #) ->
case ds2_invc of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_inv0 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_inv0 0#) of {
__DEFAULT ->
case overflowError of wild13_00 { };
1# ->
case wild10_inuS of wild13_invo {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild13_invo
of wild14_invp
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_invp v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_invp 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_invp 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild10_inuS
of wild13_invn
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_invn v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild13_invn 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_invn 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild15_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_invb of wild13_invm {
__DEFAULT ->
case quotInt# wild13_invm wild10_inuS
of wild14_invn
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_invn v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild14_invn 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_invn 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild16_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild10_inuS of wild14_invo {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild14_invo
of wild15_invp
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_invp v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_invp 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_invp 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild11_00 { }
}
} } in
case (runCpu_intc
(mem2_soZR `cast` <Co:2>) (mem3_soZU `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt8_invu ->
case (runMem_intd
(mem2_soZR `cast` <Co:2>) (mem3_soZU `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_invx ->
BuiltinResult
(ExBudget dt8_invu dt3_invx)
(case $wcompareBytes
dt_srlT dt1_srlU dt2_srlV dt4_srlO dt5_srlP dt6_srlQ
of {
__DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_invG ->
MakeKnownSuccess (VCon (lvl119_rs48 `cast` <Co:13>))
};
LT ->
case unsafeEqualityProof of { UnsafeRefl co14_invG ->
MakeKnownSuccess (VCon (lvl118_rs47 `cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl218_rs68
= BuiltinMeaning
lvl215_rs65 ($fOrdByteString_$c< `cast` <Co:30>) lvl217_rs67
-- RHS size: {terms: 634, types: 535, coercions: 211, joins: 0/2}
lvl219_rs69
= \ cost1_inq9 ->
case paramEqualsByteString cost1_inq9 of
{ CostingFun cpu_inqc mem_inqd ->
case runTwoArgumentModel cpu_inqc of runCpu_inqf { __DEFAULT ->
case runTwoArgumentModel mem_inqd of runMem_inqg { __DEFAULT ->
BuiltinExpectArgument
(\ v_inqh ->
case v_inqh of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srmq x_srmr ->
case uniAct_srmq `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniByteString co_ipYf ->
case x_srmr `cast` <Co:3> of { BS dt_srmF dt1_srmG dt2_srmH ->
BuiltinExpectArgument
(\ v1_inrp ->
case v1_inrp of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult (ExBudget dt5_ipUl dt5_ipUl) lvl78_rs3a
};
VCon val1_X1k ->
case val1_X1k `cast` <Co:8> of { ValueOf uniAct1_srmw x1_srmx ->
case uniAct1_srmw `cast` <Co:8> of wild7_X1l {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult
(ExBudget dt5_ipUl dt5_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild7_X1l `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co1_X1m ->
case x1_srmx `cast` <Co:3> of { BS dt4_srmA dt5_srmB dt6_srmC ->
let {
mem2_soZt
= case lvl10_rs0U `cast` <Co:1> of { I# x2_inqK ->
case x2_inqK of wild10_inqO {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srmH) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inqW ->
case subIntC# ww_imCq y#_inqW of
{ (# r#_inr7, ds2_inr8 #) ->
case ds2_inr8 of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_inqW 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_inqW 0#) of {
__DEFAULT ->
case overflowError of wild13_00 { };
1# ->
case wild10_inqO of wild13_inrk {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild13_inrk
of wild14_inrl
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_inrl v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_inrl 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_inrl 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild10_inqO
of wild13_inrj
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_inrj v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild13_inrj 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_inrj 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild15_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inr7 of wild13_inri {
__DEFAULT ->
case quotInt# wild13_inri wild10_inqO
of wild14_inrj
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_inrj v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild14_inrj 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_inrj 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild16_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild10_inqO of wild14_inrk {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild14_inrk
of wild15_inrl
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_inrl v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_inrl 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_inrl 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild11_00 { }
}
} } in
let {
mem3_soZw
= case lvl10_rs0U `cast` <Co:1> of { I# x2_inrR ->
case x2_inrR of wild10_inrV {
__DEFAULT ->
case $w$cfromInteger (IS dt6_srmC) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_ins3 ->
case subIntC# ww_imCq y#_ins3 of
{ (# r#_inse, ds2_insf #) ->
case ds2_insf of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_ins3 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_ins3 0#) of {
__DEFAULT ->
case overflowError of wild13_00 { };
1# ->
case wild10_inrV of wild13_insr {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild13_insr
of wild14_inss
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_inss v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_inss 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_inss 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild10_inrV
of wild13_insq
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_insq v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild13_insq 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_insq 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild15_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inse of wild13_insp {
__DEFAULT ->
case quotInt# wild13_insp wild10_inrV
of wild14_insq
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_insq v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild14_insq 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_insq 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild16_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild10_inrV of wild14_insr {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild14_insr
of wild15_inss
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_inss v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_inss 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_inss 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild11_00 { }
}
} } in
case (runCpu_inqf
(mem2_soZt `cast` <Co:2>) (mem3_soZw `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt8_insx ->
case (runMem_inqg
(mem2_soZt `cast` <Co:2>) (mem3_soZw `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_insA ->
BuiltinResult
(ExBudget dt8_insx dt3_insA)
(case /=# dt2_srmH dt6_srmC of {
__DEFAULT ->
case eqAddr# dt_srmF dt4_srmA of {
__DEFAULT ->
case $wcompareBytes
dt_srmF
dt1_srmG
dt2_srmH
dt4_srmA
dt5_srmB
dt6_srmC
of lwild2_insY {
__DEFAULT ->
case dataToTag# lwild2_insY of { __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_insT ->
MakeKnownSuccess (VCon (lvl119_rs48 `cast` <Co:13>))
}
};
EQ ->
case unsafeEqualityProof of { UnsafeRefl co14_insT ->
MakeKnownSuccess (VCon (lvl118_rs47 `cast` <Co:13>))
}
};
1# ->
case unsafeEqualityProof of { UnsafeRefl co14_insT ->
MakeKnownSuccess (VCon (lvl118_rs47 `cast` <Co:13>))
}
};
1# ->
case unsafeEqualityProof of { UnsafeRefl co14_insT ->
MakeKnownSuccess (VCon (lvl119_rs48 `cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl220_rs6a
= BuiltinMeaning lvl215_rs65 (eq `cast` <Co:30>) lvl219_rs69
-- RHS size: {terms: 601, types: 389, coercions: 180, joins: 0/2}
lvl221_rs6b
= \ cost1_in37 ->
case paramAppendByteString cost1_in37 of
{ CostingFun cpu_in3a mem_in3b ->
case runTwoArgumentModel cpu_in3a of runCpu_in3d { __DEFAULT ->
case runTwoArgumentModel mem_in3b of runMem_in3e { __DEFAULT ->
BuiltinExpectArgument
(\ v_in3f ->
case v_in3f of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srng x_srnh ->
case uniAct_srng `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniByteString co_ipYf ->
case x_srnh `cast` <Co:3> of { BS dt_srnv dt1_srnw dt2_srnx ->
BuiltinExpectArgument
(\ v1_in4n ->
case v1_in4n of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult (ExBudget dt5_ipUl dt5_ipUl) lvl78_rs3a
};
VCon val1_X1m ->
case val1_X1m `cast` <Co:8> of { ValueOf uniAct1_srnm x1_srnn ->
case uniAct1_srnm `cast` <Co:8> of wild7_X1n {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult
(ExBudget dt5_ipUl dt5_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild7_X1n `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co1_X1o ->
case x1_srnn `cast` <Co:3> of { BS dt4_srnq dt5_srnr dt6_srns ->
let {
mem2_soVf
= case lvl10_rs0U `cast` <Co:1> of { I# x2_in3I ->
case x2_in3I of wild10_in3M {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srnx) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_in3U ->
case subIntC# ww_imCq y#_in3U of
{ (# r#_in45, ds2_in46 #) ->
case ds2_in46 of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_in3U 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_in3U 0#) of {
__DEFAULT ->
case overflowError of wild13_00 { };
1# ->
case wild10_in3M of wild13_in4i {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild13_in4i
of wild14_in4j
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_in4j v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_in4j 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_in4j 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild10_in3M
of wild13_in4h
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_in4h v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild13_in4h 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_in4h 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild15_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_in45 of wild13_in4g {
__DEFAULT ->
case quotInt# wild13_in4g wild10_in3M
of wild14_in4h
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_in4h v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild14_in4h 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_in4h 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild16_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild10_in3M of wild14_in4i {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild14_in4i
of wild15_in4j
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_in4j v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_in4j 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_in4j 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild11_00 { }
}
} } in
let {
mem3_soVi
= case lvl10_rs0U `cast` <Co:1> of { I# x2_in4P ->
case x2_in4P of wild10_in4T {
__DEFAULT ->
case $w$cfromInteger (IS dt6_srns) of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_in51 ->
case subIntC# ww_imCq y#_in51 of
{ (# r#_in5c, ds2_in5d #) ->
case ds2_in5d of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_in51 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_in51 0#) of {
__DEFAULT ->
case overflowError of wild13_00 { };
1# ->
case wild10_in4T of wild13_in5p {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild13_in5p
of wild14_in5q
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_in5q v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild14_in5q 0#)
(># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_in5q 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild16_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild10_in4T
of wild13_in5o
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild13_in5o v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild13_in5o 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild13_in5o 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild15_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_in5c of wild13_in5n {
__DEFAULT ->
case quotInt# wild13_in5n wild10_in4T
of wild14_in5o
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild14_in5o v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild14_in5o 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild14_in5o 0#) (<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild16_00 { };
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild10_in4T of wild14_in5p {
__DEFAULT ->
case quotInt#
-9223372036854775808# wild14_in5p
of wild15_in5q
{ __DEFAULT ->
case lvl11_rs0V of { I# v3_B2 ->
case addIntC# wild15_in5q v3_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(># wild15_in5q 0#) (># v3_B2 0#)
of {
__DEFAULT ->
case andI#
(<# wild15_in5q 0#)
(<# v3_B2 0#)
of {
__DEFAULT ->
case overflowError of wild17_00 {
};
1# ->
(I# -9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I# 9223372036854775807#)
`cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild11_00 { }
}
} } in
case (runCpu_in3d
(mem2_soVf `cast` <Co:2>) (mem3_soVi `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt8_in5v ->
case (runMem_in3e
(mem2_soVf `cast` <Co:2>) (mem3_soVi `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_in5y ->
BuiltinResult
(ExBudget dt8_in5v dt3_in5y)
(case $w$c<> dt_srnv dt1_srnw dt2_srnx dt4_srnq dt5_srnr dt6_srns
of vx_in5E
{ BS ipv_in5F ipv1_in5G ipv2_in5H ->
case unsafeEqualityProof of { UnsafeRefl co14_in5K ->
MakeKnownSuccess
(VCon
((ValueOf (lvl91_rs3u `cast` <Co:8>) vx_in5E)
`cast` <Co:13>))
}
})
}
}
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 21, coercions: 39, joins: 0/0}
lvl222_rs6c
= TypeSchemeArrow
@~<Co:10>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl182_rs5v
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl223_rs6d
= BuiltinMeaning
lvl222_rs6c ($fMonoidByteString_$c<> `cast` <Co:30>) lvl221_rs6b
-- RHS size: {terms: 261, types: 236, coercions: 168, joins: 0/4}
lvl224_rs6e
= \ cost1_in1n ->
case paramLessThanEqualsInteger cost1_in1n of
{ CostingFun cpu_in1q mem_in1r ->
case runTwoArgumentModel cpu_in1q of runCpu_in1t { __DEFAULT ->
case runTwoArgumentModel mem_in1r of runMem_in1u { __DEFAULT ->
BuiltinExpectArgument
(\ v_in1v ->
case v_in1v of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srnZ x_sro0 ->
case uniAct_srnZ `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_in2a ->
case v1_in2a of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1o ->
case val1_X1o `cast` <Co:8> of { ValueOf uniAct1_sro5 x1_sro6 ->
case uniAct1_sro5 `cast` <Co:8> of wild6_X1p {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild6_X1p `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_X1q ->
let {
mem2_soUX
= case integerEq# (x_sro0 `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_sro0 `cast` <Co:3>) of {
IS i1_in22 ->
case <=# i1_in22 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_in22))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_in25 ->
case uncheckedIShiftRL# (sizeofByteArray# b_in25) 3#
of wild9_in27 {
__DEFAULT ->
let {
i1_soV6
= minusWord# (int2Word# wild9_in27) 1## } in
case indexWordArray# b_in25 (word2Int# i1_soV6)
of wild10_in29
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soV6 6#)
(clz# wild10_in29))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJr -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_soV0
= case integerEq# (x1_sro6 `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x1_sro6 `cast` <Co:3>) of {
IS i1_in2G ->
case <=# i1_in2G 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_in2G))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_in2J ->
case uncheckedIShiftRL# (sizeofByteArray# b_in2J) 3#
of wild9_in2L {
__DEFAULT ->
let {
i1_soV4
= minusWord# (int2Word# wild9_in2L) 1## } in
case indexWordArray# b_in2J (word2Int# i1_soV4)
of wild10_in2N
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soV4 6#)
(clz# wild10_in2N))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJp -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
case (runCpu_in1t mem2_soUX mem3_soV0) `cast` <Co:1> of
{ I# dt1_in2P ->
case (runMem_in1u mem2_soUX mem3_soV0) `cast` <Co:1> of
{ I# dt3_in2S ->
BuiltinResult
(ExBudget dt1_in2P dt3_in2S)
(case integerLe# (x_sro0 `cast` <Co:3>) (x1_sro6 `cast` <Co:3>)
of wild7_in30
{ __DEFAULT ->
case tagToEnum# wild7_in30 of vx_in31 { __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_in33 ->
MakeKnownSuccess
(VCon
((ValueOf (lvl98_rs3C `cast` <Co:8>) vx_in31)
`cast` <Co:13>))
}
}
})
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 13, coercions: 35, joins: 0/0}
lvl225_rs6f
= TypeSchemeArrow
@~<Co:6>
($dTypeable71_rs1M `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniInteger_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn16_rs3N `cast` <Co:9>)
($dReadKnownIn10_rs5D `cast` <Co:9>)
lvl100_rs3E
-- RHS size: {terms: 6, types: 21, coercions: 39, joins: 0/0}
lvl226_rs6g
= TypeSchemeArrow
@~<Co:10>
($dTypeable71_rs1M `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniInteger_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn16_rs3N `cast` <Co:9>)
($dReadKnownIn10_rs5D `cast` <Co:9>)
lvl225_rs6f
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl227_rs6h
= BuiltinMeaning lvl226_rs6g (integerLe `cast` <Co:30>) lvl224_rs6e
-- RHS size: {terms: 261, types: 236, coercions: 168, joins: 0/4}
lvl228_rs6i
= \ cost1_imZE ->
case paramLessThanInteger cost1_imZE of
{ CostingFun cpu_imZH mem_imZI ->
case runTwoArgumentModel cpu_imZH of runCpu_imZK { __DEFAULT ->
case runTwoArgumentModel mem_imZI of runMem_imZL { __DEFAULT ->
BuiltinExpectArgument
(\ v_imZM ->
case v_imZM of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sroo x_srop ->
case uniAct_sroo `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_in0r ->
case v1_in0r of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1q ->
case val1_X1q `cast` <Co:8> of { ValueOf uniAct1_srou x1_srov ->
case uniAct1_srou `cast` <Co:8> of wild6_X1r {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild6_X1r `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_X1s ->
let {
mem2_soUF
= case integerEq# (x_srop `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srop `cast` <Co:3>) of {
IS i1_in0j ->
case <=# i1_in0j 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_in0j))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_in0m ->
case uncheckedIShiftRL# (sizeofByteArray# b_in0m) 3#
of wild9_in0o {
__DEFAULT ->
let {
i1_soUO
= minusWord# (int2Word# wild9_in0o) 1## } in
case indexWordArray# b_in0m (word2Int# i1_soUO)
of wild10_in0q
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soUO 6#)
(clz# wild10_in0q))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJn -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_soUI
= case integerEq# (x1_srov `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x1_srov `cast` <Co:3>) of {
IS i1_in0X ->
case <=# i1_in0X 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_in0X))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_in10 ->
case uncheckedIShiftRL# (sizeofByteArray# b_in10) 3#
of wild9_in12 {
__DEFAULT ->
let {
i1_soUM
= minusWord# (int2Word# wild9_in12) 1## } in
case indexWordArray# b_in10 (word2Int# i1_soUM)
of wild10_in14
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soUM 6#)
(clz# wild10_in14))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJl -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
case (runCpu_imZK mem2_soUF mem3_soUI) `cast` <Co:1> of
{ I# dt1_in16 ->
case (runMem_imZL mem2_soUF mem3_soUI) `cast` <Co:1> of
{ I# dt3_in19 ->
BuiltinResult
(ExBudget dt1_in16 dt3_in19)
(case integerLt# (x_srop `cast` <Co:3>) (x1_srov `cast` <Co:3>)
of wild7_in1h
{ __DEFAULT ->
case tagToEnum# wild7_in1h of vx_in1i { __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_in1k ->
MakeKnownSuccess
(VCon
((ValueOf (lvl98_rs3C `cast` <Co:8>) vx_in1i)
`cast` <Co:13>))
}
}
})
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl229_rs6j
= BuiltinMeaning lvl226_rs6g (integerLt `cast` <Co:30>) lvl228_rs6i
-- RHS size: {terms: 261, types: 236, coercions: 168, joins: 0/4}
lvl230_rs6k
= \ cost1_imXV ->
case paramEqualsInteger cost1_imXV of
{ CostingFun cpu_imXY mem_imXZ ->
case runTwoArgumentModel cpu_imXY of runCpu_imY1 { __DEFAULT ->
case runTwoArgumentModel mem_imXZ of runMem_imY2 { __DEFAULT ->
BuiltinExpectArgument
(\ v_imY3 ->
case v_imY3 of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sroN x_sroO ->
case uniAct_sroN `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_imYI ->
case v1_imYI of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1s ->
case val1_X1s `cast` <Co:8> of { ValueOf uniAct1_sroT x1_sroU ->
case uniAct1_sroT `cast` <Co:8> of wild6_X1t {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild6_X1t `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_X1u ->
let {
mem2_soUn
= case integerEq# (x_sroO `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_sroO `cast` <Co:3>) of {
IS i1_imYA ->
case <=# i1_imYA 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imYA))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imYD ->
case uncheckedIShiftRL# (sizeofByteArray# b_imYD) 3#
of wild9_imYF {
__DEFAULT ->
let {
i1_soUw
= minusWord# (int2Word# wild9_imYF) 1## } in
case indexWordArray# b_imYD (word2Int# i1_soUw)
of wild10_imYH
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soUw 6#)
(clz# wild10_imYH))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJj -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_soUq
= case integerEq# (x1_sroU `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x1_sroU `cast` <Co:3>) of {
IS i1_imZe ->
case <=# i1_imZe 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imZe))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imZh ->
case uncheckedIShiftRL# (sizeofByteArray# b_imZh) 3#
of wild9_imZj {
__DEFAULT ->
let {
i1_soUu
= minusWord# (int2Word# wild9_imZj) 1## } in
case indexWordArray# b_imZh (word2Int# i1_soUu)
of wild10_imZl
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soUu 6#)
(clz# wild10_imZl))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJh -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
case (runCpu_imY1 mem2_soUn mem3_soUq) `cast` <Co:1> of
{ I# dt1_imZn ->
case (runMem_imY2 mem2_soUn mem3_soUq) `cast` <Co:1> of
{ I# dt3_imZq ->
BuiltinResult
(ExBudget dt1_imZn dt3_imZq)
(case integerEq# (x_sroO `cast` <Co:3>) (x1_sroU `cast` <Co:3>)
of wild7_imZy
{ __DEFAULT ->
case tagToEnum# wild7_imZy of vx_imZz { __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_imZB ->
MakeKnownSuccess
(VCon
((ValueOf (lvl98_rs3C `cast` <Co:8>) vx_imZz)
`cast` <Co:13>))
}
}
})
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl231_rs6l
= BuiltinMeaning lvl226_rs6g (integerEq `cast` <Co:30>) lvl230_rs6k
-- RHS size: {terms: 272, types: 238, coercions: 174, joins: 0/4}
lvl232_rs6m
= \ cost1_imW8 ->
case paramModInteger cost1_imW8 of
{ CostingFun cpu_imWb mem_imWc ->
case runTwoArgumentModel cpu_imWb of runCpu_imWe { __DEFAULT ->
case runTwoArgumentModel mem_imWc of runMem_imWf { __DEFAULT ->
BuiltinExpectArgument
(\ v_imWg ->
case v_imWg of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srpc x_srpd ->
case uniAct_srpc `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_imWV ->
case v1_imWV of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1u ->
case val1_X1u `cast` <Co:8> of { ValueOf uniAct1_srpi x1_srpj ->
case uniAct1_srpi `cast` <Co:8> of wild6_X1v {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild6_X1v `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_X1w ->
let {
mem2_soU3
= case integerEq# (x_srpd `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srpd `cast` <Co:3>) of {
IS i1_imWN ->
case <=# i1_imWN 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imWN))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imWQ ->
case uncheckedIShiftRL# (sizeofByteArray# b_imWQ) 3#
of wild9_imWS {
__DEFAULT ->
let {
i1_soUe
= minusWord# (int2Word# wild9_imWS) 1## } in
case indexWordArray# b_imWQ (word2Int# i1_soUe)
of wild10_imWU
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soUe 6#)
(clz# wild10_imWU))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJf -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_soU6
= case integerEq# (x1_srpj `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x1_srpj `cast` <Co:3>) of {
IS i1_imXr ->
case <=# i1_imXr 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imXr))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imXu ->
case uncheckedIShiftRL# (sizeofByteArray# b_imXu) 3#
of wild9_imXw {
__DEFAULT ->
let {
i1_soUc
= minusWord# (int2Word# wild9_imXw) 1## } in
case indexWordArray# b_imXu (word2Int# i1_soUc)
of wild10_imXy
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soUc 6#)
(clz# wild10_imXy))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJd -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
case (runCpu_imWe mem2_soU3 mem3_soU6) `cast` <Co:1> of
{ I# dt1_imXA ->
case (runMem_imWf mem2_soU3 mem3_soU6) `cast` <Co:1> of
{ I# dt3_imXD ->
BuiltinResult
(ExBudget dt1_imXA dt3_imXD)
(case integerEq#
(x1_srpj `cast` <Co:3>) $fToBuiltinMeaninguniDefaultFun5
of {
__DEFAULT ->
case integerEq# (x1_srpj `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerMod
(x_srpd `cast` <Co:3>) (x1_srpj `cast` <Co:3>)
of dt4_imXL
{ __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co16_imXR ->
MakeKnownSuccess
(VCon
((ValueOf
($dContains17_rs2W `cast` <Co:8>) dt4_imXL)
`cast` <Co:13>))
}
};
1# -> case divZeroError of wild9_00 { }
};
1# -> lvl3_rs0N
})
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 14, coercions: 35, joins: 0/0}
lvl233_rs6n
= TypeSchemeArrow
@~<Co:6>
($dTypeable71_rs1M `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniInteger_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn16_rs3N `cast` <Co:9>)
($dReadKnownIn10_rs5D `cast` <Co:9>)
lvl109_rs3Q
-- RHS size: {terms: 6, types: 22, coercions: 39, joins: 0/0}
lvl234_rs6o
= TypeSchemeArrow
@~<Co:10>
($dTypeable71_rs1M `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniInteger_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn16_rs3N `cast` <Co:9>)
($dReadKnownIn10_rs5D `cast` <Co:9>)
lvl233_rs6n
-- RHS size: {terms: 4, types: 16, coercions: 33, joins: 0/0}
lvl235_rs6p
= BuiltinMeaning
lvl234_rs6o (lvl53_rs1I `cast` <Co:33>) lvl232_rs6m
-- RHS size: {terms: 272, types: 238, coercions: 174, joins: 0/4}
lvl236_rs6q
= \ cost1_imUh ->
case paramRemainderInteger cost1_imUh of
{ CostingFun cpu_imUk mem_imUl ->
case runTwoArgumentModel cpu_imUk of runCpu_imUn { __DEFAULT ->
case runTwoArgumentModel mem_imUl of runMem_imUo { __DEFAULT ->
BuiltinExpectArgument
(\ v_imUp ->
case v_imUp of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srpB x_srpC ->
case uniAct_srpB `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_imV4 ->
case v1_imV4 of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1w ->
case val1_X1w `cast` <Co:8> of { ValueOf uniAct1_srpH x1_srpI ->
case uniAct1_srpH `cast` <Co:8> of wild6_X1x {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild6_X1x `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_X1y ->
let {
mem2_soTJ
= case integerEq# (x_srpC `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srpC `cast` <Co:3>) of {
IS i1_imUW ->
case <=# i1_imUW 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imUW))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imUZ ->
case uncheckedIShiftRL# (sizeofByteArray# b_imUZ) 3#
of wild9_imV1 {
__DEFAULT ->
let {
i1_soTU
= minusWord# (int2Word# wild9_imV1) 1## } in
case indexWordArray# b_imUZ (word2Int# i1_soTU)
of wild10_imV3
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soTU 6#)
(clz# wild10_imV3))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJb -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_soTM
= case integerEq# (x1_srpI `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x1_srpI `cast` <Co:3>) of {
IS i1_imVA ->
case <=# i1_imVA 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imVA))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imVD ->
case uncheckedIShiftRL# (sizeofByteArray# b_imVD) 3#
of wild9_imVF {
__DEFAULT ->
let {
i1_soTS
= minusWord# (int2Word# wild9_imVF) 1## } in
case indexWordArray# b_imVD (word2Int# i1_soTS)
of wild10_imVH
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soTS 6#)
(clz# wild10_imVH))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJ9 -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
case (runCpu_imUn mem2_soTJ mem3_soTM) `cast` <Co:1> of
{ I# dt1_imVJ ->
case (runMem_imUo mem2_soTJ mem3_soTM) `cast` <Co:1> of
{ I# dt3_imVM ->
BuiltinResult
(ExBudget dt1_imVJ dt3_imVM)
(case integerEq#
(x1_srpI `cast` <Co:3>) $fToBuiltinMeaninguniDefaultFun5
of {
__DEFAULT ->
case integerEq# (x1_srpI `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerRem
(x_srpC `cast` <Co:3>) (x1_srpI `cast` <Co:3>)
of dt4_imVU
{ __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co16_imW0 ->
MakeKnownSuccess
(VCon
((ValueOf
($dContains17_rs2W `cast` <Co:8>) dt4_imVU)
`cast` <Co:13>))
}
};
1# -> case divZeroError of wild9_00 { }
};
1# -> lvl3_rs0N
})
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 16, coercions: 33, joins: 0/0}
lvl237_rs6r
= BuiltinMeaning
lvl234_rs6o (lvl54_rs1J `cast` <Co:33>) lvl236_rs6q
-- RHS size: {terms: 272, types: 238, coercions: 174, joins: 0/4}
lvl238_rs6s
= \ cost1_imSq ->
case paramQuotientInteger cost1_imSq of
{ CostingFun cpu_imSt mem_imSu ->
case runTwoArgumentModel cpu_imSt of runCpu_imSw { __DEFAULT ->
case runTwoArgumentModel mem_imSu of runMem_imSx { __DEFAULT ->
BuiltinExpectArgument
(\ v_imSy ->
case v_imSy of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srq0 x_srq1 ->
case uniAct_srq0 `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_imTd ->
case v1_imTd of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1y ->
case val1_X1y `cast` <Co:8> of { ValueOf uniAct1_srq6 x1_srq7 ->
case uniAct1_srq6 `cast` <Co:8> of wild6_X1z {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild6_X1z `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_X1A ->
let {
mem2_soTp
= case integerEq# (x_srq1 `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srq1 `cast` <Co:3>) of {
IS i1_imT5 ->
case <=# i1_imT5 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imT5))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imT8 ->
case uncheckedIShiftRL# (sizeofByteArray# b_imT8) 3#
of wild9_imTa {
__DEFAULT ->
let {
i1_soTA
= minusWord# (int2Word# wild9_imTa) 1## } in
case indexWordArray# b_imT8 (word2Int# i1_soTA)
of wild10_imTc
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soTA 6#)
(clz# wild10_imTc))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJ7 -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_soTs
= case integerEq# (x1_srq7 `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x1_srq7 `cast` <Co:3>) of {
IS i1_imTJ ->
case <=# i1_imTJ 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imTJ))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imTM ->
case uncheckedIShiftRL# (sizeofByteArray# b_imTM) 3#
of wild9_imTO {
__DEFAULT ->
let {
i1_soTy
= minusWord# (int2Word# wild9_imTO) 1## } in
case indexWordArray# b_imTM (word2Int# i1_soTy)
of wild10_imTQ
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soTy 6#)
(clz# wild10_imTQ))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJ5 -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
case (runCpu_imSw mem2_soTp mem3_soTs) `cast` <Co:1> of
{ I# dt1_imTS ->
case (runMem_imSx mem2_soTp mem3_soTs) `cast` <Co:1> of
{ I# dt3_imTV ->
BuiltinResult
(ExBudget dt1_imTS dt3_imTV)
(case integerEq#
(x1_srq7 `cast` <Co:3>) $fToBuiltinMeaninguniDefaultFun5
of {
__DEFAULT ->
case integerEq# (x1_srq7 `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerQuot
(x_srq1 `cast` <Co:3>) (x1_srq7 `cast` <Co:3>)
of dt4_imU3
{ __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co16_imU9 ->
MakeKnownSuccess
(VCon
((ValueOf
($dContains17_rs2W `cast` <Co:8>) dt4_imU3)
`cast` <Co:13>))
}
};
1# -> case divZeroError of wild9_00 { }
};
1# -> lvl3_rs0N
})
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 16, coercions: 33, joins: 0/0}
lvl239_rs6t
= BuiltinMeaning
lvl234_rs6o (lvl55_rs1K `cast` <Co:33>) lvl238_rs6s
-- RHS size: {terms: 272, types: 238, coercions: 174, joins: 0/4}
lvl240_rs6u
= \ cost1_imQz ->
case paramDivideInteger cost1_imQz of
{ CostingFun cpu_imQC mem_imQD ->
case runTwoArgumentModel cpu_imQC of runCpu_imQF { __DEFAULT ->
case runTwoArgumentModel mem_imQD of runMem_imQG { __DEFAULT ->
BuiltinExpectArgument
(\ v_imQH ->
case v_imQH of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srqp x_srqq ->
case uniAct_srqp `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_imRm ->
case v1_imRm of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1A ->
case val1_X1A `cast` <Co:8> of { ValueOf uniAct1_srqv x1_srqw ->
case uniAct1_srqv `cast` <Co:8> of wild6_X1B {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild6_X1B `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_X1C ->
let {
mem2_soT5
= case integerEq# (x_srqq `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srqq `cast` <Co:3>) of {
IS i1_imRe ->
case <=# i1_imRe 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imRe))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imRh ->
case uncheckedIShiftRL# (sizeofByteArray# b_imRh) 3#
of wild9_imRj {
__DEFAULT ->
let {
i1_soTg
= minusWord# (int2Word# wild9_imRj) 1## } in
case indexWordArray# b_imRh (word2Int# i1_soTg)
of wild10_imRl
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soTg 6#)
(clz# wild10_imRl))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJ3 -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_soT8
= case integerEq# (x1_srqw `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x1_srqw `cast` <Co:3>) of {
IS i1_imRS ->
case <=# i1_imRS 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imRS))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imRV ->
case uncheckedIShiftRL# (sizeofByteArray# b_imRV) 3#
of wild9_imRX {
__DEFAULT ->
let {
i1_soTe
= minusWord# (int2Word# wild9_imRX) 1## } in
case indexWordArray# b_imRV (word2Int# i1_soTe)
of wild10_imRZ
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soTe 6#)
(clz# wild10_imRZ))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioJ1 -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
case (runCpu_imQF mem2_soT5 mem3_soT8) `cast` <Co:1> of
{ I# dt1_imS1 ->
case (runMem_imQG mem2_soT5 mem3_soT8) `cast` <Co:1> of
{ I# dt3_imS4 ->
BuiltinResult
(ExBudget dt1_imS1 dt3_imS4)
(case integerEq#
(x1_srqw `cast` <Co:3>) $fToBuiltinMeaninguniDefaultFun5
of {
__DEFAULT ->
case integerEq# (x1_srqw `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerDiv
(x_srqq `cast` <Co:3>) (x1_srqw `cast` <Co:3>)
of dt4_imSc
{ __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co16_imSi ->
MakeKnownSuccess
(VCon
((ValueOf
($dContains17_rs2W `cast` <Co:8>) dt4_imSc)
`cast` <Co:13>))
}
};
1# -> case divZeroError of wild9_00 { }
};
1# -> lvl3_rs0N
})
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 16, coercions: 33, joins: 0/0}
lvl241_rs6v
= BuiltinMeaning
lvl234_rs6o (lvl56_rs1L `cast` <Co:33>) lvl240_rs6u
-- RHS size: {terms: 257, types: 234, coercions: 168, joins: 0/4}
lvl242_rs6w
= \ cost1_imOM ->
case paramMultiplyInteger cost1_imOM of
{ CostingFun cpu_imOP mem_imOQ ->
case runTwoArgumentModel cpu_imOP of runCpu_imOS { __DEFAULT ->
case runTwoArgumentModel mem_imOQ of runMem_imOT { __DEFAULT ->
BuiltinExpectArgument
(\ v_imOU ->
case v_imOU of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srqO x_srqP ->
case uniAct_srqO `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_imPz ->
case v1_imPz of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1C ->
case val1_X1C `cast` <Co:8> of { ValueOf uniAct1_srqU x1_srqV ->
case uniAct1_srqU `cast` <Co:8> of wild6_X1D {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild6_X1D `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_X1E ->
let {
mem2_soSN
= case integerEq# (x_srqP `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srqP `cast` <Co:3>) of {
IS i1_imPr ->
case <=# i1_imPr 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imPr))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imPu ->
case uncheckedIShiftRL# (sizeofByteArray# b_imPu) 3#
of wild9_imPw {
__DEFAULT ->
let {
i1_soSW
= minusWord# (int2Word# wild9_imPw) 1## } in
case indexWordArray# b_imPu (word2Int# i1_soSW)
of wild10_imPy
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soSW 6#)
(clz# wild10_imPy))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioIZ -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_soSQ
= case integerEq# (x1_srqV `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x1_srqV `cast` <Co:3>) of {
IS i1_imQ5 ->
case <=# i1_imQ5 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imQ5))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imQ8 ->
case uncheckedIShiftRL# (sizeofByteArray# b_imQ8) 3#
of wild9_imQa {
__DEFAULT ->
let {
i1_soSU
= minusWord# (int2Word# wild9_imQa) 1## } in
case indexWordArray# b_imQ8 (word2Int# i1_soSU)
of wild10_imQc
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soSU 6#)
(clz# wild10_imQc))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioIX -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
case (runCpu_imOS mem2_soSN mem3_soSQ) `cast` <Co:1> of
{ I# dt1_imQe ->
case (runMem_imOT mem2_soSN mem3_soSQ) `cast` <Co:1> of
{ I# dt3_imQh ->
BuiltinResult
(ExBudget dt1_imQe dt3_imQh)
(case integerMul (x_srqP `cast` <Co:3>) (x1_srqV `cast` <Co:3>)
of vx_imQn
{ __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_imQp ->
MakeKnownSuccess
(VCon
((ValueOf ($dContains17_rs2W `cast` <Co:8>) vx_imQn)
`cast` <Co:13>))
}
})
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 6, coercions: 22, joins: 0/0}
lvl243_rs6x
= TypeSchemeResult
@~<Co:2>
($dTypeable71_rs1M `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniInteger_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn16_rs3N `cast` <Co:9>)
-- RHS size: {terms: 6, types: 13, coercions: 35, joins: 0/0}
lvl244_rs6y
= TypeSchemeArrow
@~<Co:6>
($dTypeable71_rs1M `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniInteger_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn16_rs3N `cast` <Co:9>)
($dReadKnownIn10_rs5D `cast` <Co:9>)
lvl243_rs6x
-- RHS size: {terms: 6, types: 21, coercions: 39, joins: 0/0}
lvl245_rs6z
= TypeSchemeArrow
@~<Co:10>
($dTypeable71_rs1M `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniInteger_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn16_rs3N `cast` <Co:9>)
($dReadKnownIn10_rs5D `cast` <Co:9>)
lvl244_rs6y
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl246_rs6A
= BuiltinMeaning
lvl245_rs6z (integerMul `cast` <Co:30>) lvl242_rs6w
-- RHS size: {terms: 257, types: 234, coercions: 168, joins: 0/4}
lvl247_rs6B
= \ cost1_imN6 ->
case paramSubtractInteger cost1_imN6 of
{ CostingFun cpu_imN9 mem_imNa ->
case runTwoArgumentModel cpu_imN9 of runCpu_imNc { __DEFAULT ->
case runTwoArgumentModel mem_imNa of runMem_imNd { __DEFAULT ->
BuiltinExpectArgument
(\ v_imNe ->
case v_imNe of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srrd x_srre ->
case uniAct_srrd `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_imNT ->
case v1_imNT of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1E ->
case val1_X1E `cast` <Co:8> of { ValueOf uniAct1_srrj x1_srrk ->
case uniAct1_srrj `cast` <Co:8> of wild6_X1F {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild6_X1F `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_X1G ->
let {
mem2_soSv
= case integerEq# (x_srre `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srre `cast` <Co:3>) of {
IS i1_imNL ->
case <=# i1_imNL 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imNL))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imNO ->
case uncheckedIShiftRL# (sizeofByteArray# b_imNO) 3#
of wild9_imNQ {
__DEFAULT ->
let {
i1_soSE
= minusWord# (int2Word# wild9_imNQ) 1## } in
case indexWordArray# b_imNO (word2Int# i1_soSE)
of wild10_imNS
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soSE 6#)
(clz# wild10_imNS))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioIV -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_soSy
= case integerEq# (x1_srrk `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x1_srrk `cast` <Co:3>) of {
IS i1_imOp ->
case <=# i1_imOp 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imOp))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imOs ->
case uncheckedIShiftRL# (sizeofByteArray# b_imOs) 3#
of wild9_imOu {
__DEFAULT ->
let {
i1_soSC
= minusWord# (int2Word# wild9_imOu) 1## } in
case indexWordArray# b_imOs (word2Int# i1_soSC)
of wild10_imOw
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soSC 6#)
(clz# wild10_imOw))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioIT -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
case (runCpu_imNc mem2_soSv mem3_soSy) `cast` <Co:1> of
{ I# dt1_imOy ->
case (runMem_imNd mem2_soSv mem3_soSy) `cast` <Co:1> of
{ I# dt3_imOB ->
BuiltinResult
(ExBudget dt1_imOy dt3_imOB)
(case integerSub (x_srre `cast` <Co:3>) (x1_srrk `cast` <Co:3>)
of vx_imOH
{ __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_imOJ ->
MakeKnownSuccess
(VCon
((ValueOf ($dContains17_rs2W `cast` <Co:8>) vx_imOH)
`cast` <Co:13>))
}
})
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl248_rs6C
= BuiltinMeaning
lvl245_rs6z (integerSub `cast` <Co:30>) lvl247_rs6B
-- RHS size: {terms: 257, types: 234, coercions: 168, joins: 0/4}
lvl249_rs6D
= \ cost1_imKy ->
case paramAddInteger cost1_imKy of
{ CostingFun cpu_imKD mem_imKE ->
case runTwoArgumentModel cpu_imKD of runCpu_imKG { __DEFAULT ->
case runTwoArgumentModel mem_imKE of runMem_imKH { __DEFAULT ->
BuiltinExpectArgument
(\ v_imKM ->
case v_imKM of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srrC x_srrD ->
case uniAct_srrC `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_imLJ ->
case v1_imLJ of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1G ->
case val1_X1G `cast` <Co:8> of { ValueOf uniAct1_srrI x1_srrJ ->
case uniAct1_srrI `cast` <Co:8> of wild6_X1H {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild6_X1H `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_X1I ->
let {
mem2_soPE
= case integerEq# (x_srrD `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srrD `cast` <Co:3>) of {
IS i1_imLB ->
case <=# i1_imLB 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imLB))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imLE ->
case uncheckedIShiftRL# (sizeofByteArray# b_imLE) 3#
of wild9_imLG {
__DEFAULT ->
let {
i1_soSm
= minusWord# (int2Word# wild9_imLG) 1## } in
case indexWordArray# b_imLE (word2Int# i1_soSm)
of wild10_imLI
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soSm 6#)
(clz# wild10_imLI))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioIR -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_soSa
= case integerEq# (x1_srrJ `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x1_srrJ `cast` <Co:3>) of {
IS i1_imMf ->
case <=# i1_imMf 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_imMf))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_imMi ->
case uncheckedIShiftRL# (sizeofByteArray# b_imMi) 3#
of wild9_imMk {
__DEFAULT ->
let {
i1_soSe
= minusWord# (int2Word# wild9_imMk) 1## } in
case indexWordArray# b_imMi (word2Int# i1_soSe)
of wild10_imMm
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_soSe 6#)
(clz# wild10_imMm))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioIP -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
case (runCpu_imKG mem2_soPE mem3_soSa) `cast` <Co:1> of
{ I# dt1_imMo ->
case (runMem_imKH mem2_soPE mem3_soSa) `cast` <Co:1> of
{ I# dt3_imMy ->
BuiltinResult
(ExBudget dt1_imMo dt3_imMy)
(case integerAdd (x_srrD `cast` <Co:3>) (x1_srrJ `cast` <Co:3>)
of vx_imME
{ __DEFAULT ->
case unsafeEqualityProof of { UnsafeRefl co14_imN3 ->
MakeKnownSuccess
(VCon
((ValueOf ($dContains17_rs2W `cast` <Co:8>) vx_imME)
`cast` <Co:13>))
}
})
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 15, coercions: 30, joins: 0/0}
lvl250_rs6E
= BuiltinMeaning
lvl245_rs6z (integerAdd `cast` <Co:30>) lvl249_rs6D
-- RHS size: {terms: 126, types: 283, coercions: 120, joins: 0/2}
lvl251_rs6F
= \ cost1_ioE7 ->
case paramMkPairData cost1_ioE7 of
{ CostingFun cpu_ioEa mem_ioEb ->
case runTwoArgumentModel cpu_ioEa of runCpu_ioEd { __DEFAULT ->
case runTwoArgumentModel mem_ioEb of runMem_ioEe { __DEFAULT ->
BuiltinExpectArgument
(\ v_ioEf ->
case v_ioEf of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srs5 x_srs6 ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct_srs5 `cast` <Co:8>)
of {
Nothing ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct_srs5)
`cast` <Co:2>)))
});
Just ds1_ioEx ->
case ds1_ioEx of { Refl co8_ioEA ->
BuiltinExpectArgument
(\ v1_ioEJ ->
case v1_ioEJ of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1I ->
case val1_X1I `cast` <Co:8> of { ValueOf uniAct1_srsb x1_srsc ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct1_srsb `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct1_srsb)
`cast` <Co:2>)))
};
Just ds2_ioF1 ->
case ds2_ioF1 of { Refl co11_ioF4 ->
let {
mem2_sp8h
= case $wsizeData (x_srs6 `cast` <Co:3>) of ww_imwz
{ __DEFAULT ->
(I# ww_imwz) `cast` <Co:5>
} } in
let {
mem3_sp8k
= case $wsizeData (x1_srsc `cast` <Co:3>) of ww_imwz
{ __DEFAULT ->
(I# ww_imwz) `cast` <Co:5>
} } in
case (runCpu_ioEd mem2_sp8h mem3_sp8k) `cast` <Co:1> of
{ I# dt1_ioFd ->
case (runMem_ioEe mem2_sp8h mem3_sp8k) `cast` <Co:1> of
{ I# dt3_ioFg ->
BuiltinResult
(ExBudget dt1_ioFd dt3_ioFg)
(case unsafeEqualityProof of { UnsafeRefl co14_ioFn ->
MakeKnownSuccess
(VCon
((ValueOf
($dContains2_rs2N `cast` <Co:10>)
(x_srs6 `cast` <Co:3>, x1_srsc `cast` <Co:3>))
`cast` <Co:13>))
})
}
}
}
}
}
})
}
}
}
})
}
}
}
-- RHS size: {terms: 3, types: 5, coercions: 23, joins: 0/0}
$dMakeKnownIn8_rs6G
= $fMakeKnownInDefaultUniterm(,)
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
($dContains2_rs2N `cast` <Co:8>)
-- RHS size: {terms: 4, types: 8, coercions: 28, joins: 0/0}
lvl252_rs6H
= TypeSchemeResult
@~<Co:2>
($dTypeable38_rs2w `cast` <Co:6>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUni(,)_$ctoTypeAst
`cast` <Co:9>)
($dMakeKnownIn8_rs6G `cast` <Co:11>)
-- RHS size: {terms: 6, types: 15, coercions: 35, joins: 0/0}
lvl253_rs6I
= TypeSchemeArrow
@~<Co:6>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl252_rs6H
-- RHS size: {terms: 6, types: 19, coercions: 52, joins: 0/0}
lvl254_rs6J
= TypeSchemeArrow
@~<Co:23>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl253_rs6I
-- RHS size: {terms: 4, types: 13, coercions: 67, joins: 0/0}
lvl255_rs6K
= BuiltinMeaning lvl254_rs6J (lvl2_rs0L `cast` <Co:67>) lvl251_rs6F
-- RHS size: {terms: 315, types: 227, coercions: 102, joins: 0/1}
lvl256_rs6L
= \ cost1_ionT ->
case paramBData cost1_ionT of { CostingFun cpu_ionW mem_ionX ->
case runOneArgumentModel cpu_ionW of runCpu_ionZ { __DEFAULT ->
case runOneArgumentModel mem_ionX of runMem_ioo0 { __DEFAULT ->
BuiltinExpectArgument
(\ v_ioo1 ->
case v_ioo1 of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srsu x_srsv ->
case uniAct_srsu `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co_ipYf ->
case x_srsv `cast` <Co:3> of wild5_srsx
{ BS dt_srsy dt1_srsz dt2_srsA ->
let {
mem2_sp6L
= case lvl10_rs0U `cast` <Co:1> of { I# x1_ioot ->
case x1_ioot of wild6_ioox {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srsA) of ww_imCq { __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_iooF ->
case subIntC# ww_imCq y#_iooF of { (# r#_iooQ, ds2_iooR #) ->
case ds2_iooR of {
__DEFAULT ->
case andI# (>=# ww_imCq 0#) (<# y#_iooF 0#) of {
__DEFAULT ->
case andI# (<=# ww_imCq 0#) (># y#_iooF 0#) of {
__DEFAULT -> case overflowError of wild10_00 { };
1# ->
case wild6_ioox of wild10_iop3 {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_iop3
of wild11_iop4
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_iop4 v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_iop4 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_iop4 0#) (<# v2_B2 0#)
of {
__DEFAULT ->
case overflowError of wild14_00 { };
1# ->
(I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt# 9223372036854775807# wild6_ioox of wild10_iop2
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_iop2 v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_iop2 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_iop2 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_iooQ of wild9_iop1 {
__DEFAULT ->
case quotInt# wild9_iop1 wild6_ioox of wild10_iop2
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild10_iop2 v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild10_iop2 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild10_iop2 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild6_ioox of wild10_iop3 {
__DEFAULT ->
case quotInt# -9223372036854775808# wild10_iop3
of wild11_iop4
{ __DEFAULT ->
case lvl11_rs0V of { I# v2_B2 ->
case addIntC# wild11_iop4 v2_B2 of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI# (># wild11_iop4 0#) (># v2_B2 0#) of {
__DEFAULT ->
case andI# (<# wild11_iop4 0#) (<# v2_B2 0#) of {
__DEFAULT -> case overflowError of wild14_00 { };
1# -> (I# -9223372036854775808#) `cast` <Co:2>
};
1# -> (I# 9223372036854775807#) `cast` <Co:2>
};
0# -> (I# r#1_iooV) `cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# -> case divZeroError of wild7_00 { }
}
} } in
case (runCpu_ionZ (mem2_sp6L `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt5_iop9 ->
case (runMem_ioo0 (mem2_sp6L `cast` <Co:2>)) `cast` <Co:1> of
{ I# dt3_iopc ->
BuiltinResult
(ExBudget dt5_iop9 dt3_iopc)
(case unsafeEqualityProof of { UnsafeRefl co11_iopj ->
MakeKnownSuccess
(VCon
((ValueOf ($dContains1_rs2L `cast` <Co:8>) (B wild5_srsx))
`cast` <Co:13>))
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 6, coercions: 22, joins: 0/0}
lvl257_rs6M
= TypeSchemeResult
@~<Co:2>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
-- RHS size: {terms: 6, types: 10, coercions: 38, joins: 0/0}
lvl258_rs6N
= TypeSchemeArrow
@~<Co:9>
($dTypeable62_rs1R `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniByteString_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn21_rs3t `cast` <Co:9>)
($dReadKnownIn11_rs5h `cast` <Co:9>)
lvl257_rs6M
-- RHS size: {terms: 4, types: 8, coercions: 29, joins: 0/0}
lvl259_rs6O
= BuiltinMeaning
lvl258_rs6N (lvl13_rs0X `cast` <Co:29>) lvl256_rs6L
-- RHS size: {terms: 3, types: 4, coercions: 22, joins: 0/0}
$dReadKnownIn6_rs6P
= $fReadKnownInDefaultUniterm[]
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
($dContains11_rs2P `cast` <Co:7>)
Rec {
-- RHS size: {terms: 52, types: 21, coercions: 5, joins: 0/0}
$wgo2_rs6Q
= \ w_sqVd ww_sqVh ->
case w_sqVd of {
[] -> (I# ww_sqVh) `cast` <Co:5>;
: y_ipv1 ys_ipv2 ->
case $wsizeData y_ipv1 of ww1_imwz { __DEFAULT ->
case addIntC# ww1_imwz ww_sqVh of { (# r#_iomx, ds3_iomy #) ->
case ds3_iomy of {
__DEFAULT ->
case andI# (># ww1_imwz 0#) (># ww_sqVh 0#) of {
__DEFAULT ->
case andI# (<# ww1_imwz 0#) (<# ww_sqVh 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo2_rs6Q ys_ipv2 -9223372036854775808#
};
1# -> $wgo2_rs6Q ys_ipv2 9223372036854775807#
};
0# -> $wgo2_rs6Q ys_ipv2 r#_iomx
}
}
}
}
end Rec }
-- RHS size: {terms: 81, types: 178, coercions: 68, joins: 0/1}
lvl260_rs6R
= \ cost1_iolM ->
case paramListData cost1_iolM of { CostingFun cpu_iolP mem_iolQ ->
case runOneArgumentModel cpu_iolP of runCpu_iolS { __DEFAULT ->
case runOneArgumentModel mem_iolQ of runMem_iolT { __DEFAULT ->
BuiltinExpectArgument
(\ v_iolU ->
case v_iolU of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srsW x_srsX ->
case $fGCompareTYPEDefaultUni_$cgeq
$dContains11_rs2P (uniAct_srsW `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($dContains11_rs2P `cast` <Co:9>)
uniAct_srsW)
`cast` <Co:2>)))
};
Just ds1_iomc ->
case ds1_iomc of { Refl co8_iomf ->
let {
mem2_sp6t
= case lvl18_rs12 `cast` <Co:1> of { I# ww1_sqVh ->
$wgo2_rs6Q (x_srsX `cast` <Co:3>) ww1_sqVh
} } in
case (runCpu_iolS mem2_sp6t) `cast` <Co:1> of { I# dt1_iomE ->
case (runMem_iolT mem2_sp6t) `cast` <Co:1> of { I# dt3_iomH ->
BuiltinResult
(ExBudget dt1_iomE dt3_iomH)
(case unsafeEqualityProof of { UnsafeRefl co11_iomO ->
MakeKnownSuccess
(VCon
((ValueOf
($dContains1_rs2L `cast` <Co:8>) (List (x_srsX `cast` <Co:3>)))
`cast` <Co:13>))
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 12, coercions: 44, joins: 0/0}
lvl261_rs6S
= TypeSchemeArrow
@~<Co:11>
($dTypeable46_rs2r `cast` <Co:5>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUni[]_$ctoTypeAst1
`cast` <Co:8>)
($dMakeKnownIn35_rs3c `cast` <Co:10>)
($dReadKnownIn6_rs6P `cast` <Co:10>)
lvl257_rs6M
-- RHS size: {terms: 4, types: 9, coercions: 33, joins: 0/0}
lvl262_rs6T
= BuiltinMeaning
lvl261_rs6S (lvl19_rs13 `cast` <Co:33>) lvl260_rs6R
-- RHS size: {terms: 190, types: 260, coercions: 140, joins: 0/3}
lvl263_rs6U
= \ cost1_iohU ->
case paramConstrData cost1_iohU of
{ CostingFun cpu_iohX mem_iohY ->
case runTwoArgumentModel cpu_iohX of runCpu_ioi0 { __DEFAULT ->
case runTwoArgumentModel mem_iohY of runMem_ioi1 { __DEFAULT ->
BuiltinExpectArgument
(\ v_ioi2 ->
case v_ioi2 of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srtj x_srtk ->
case uniAct_srtj `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_ioiH ->
case v1_ioiH of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_X1O ->
case val1_X1O `cast` <Co:8> of { ValueOf uniAct1_srtp x1_srtq ->
case $fGCompareTYPEDefaultUni_$cgeq
$dContains11_rs2P (uniAct1_srtp `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($dContains11_rs2P `cast` <Co:9>)
uniAct1_srtp)
`cast` <Co:2>)))
};
Just ds1_ioiZ ->
case ds1_ioiZ of { Refl co11_ioj2 ->
let {
mem2_sp66
= case integerEq# (x_srtk `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srtk `cast` <Co:3>) of {
IS i1_ioiz ->
case <=# i1_ioiz 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz# (int2Word# i1_ioiz))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_ioiC ->
case uncheckedIShiftRL# (sizeofByteArray# b_ioiC) 3#
of wild10_ioiE {
__DEFAULT ->
let {
i1_sp6d
= minusWord# (int2Word# wild10_ioiE) 1## } in
case indexWordArray# b_ioiC (word2Int# i1_sp6d)
of wild11_ioiG
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_sp6d 6#)
(clz# wild11_ioiG))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds2_ioN4 -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>
} } in
let {
mem3_sp69
= case lvl18_rs12 `cast` <Co:1> of { I# ww1_sqVp ->
$wgo2_rs6Q (x1_srtq `cast` <Co:3>) ww1_sqVp
} } in
case (runCpu_ioi0 mem2_sp66 mem3_sp69) `cast` <Co:1> of
{ I# dt1_iojr ->
case (runMem_ioi1 mem2_sp66 mem3_sp69) `cast` <Co:1> of
{ I# dt3_ioju ->
BuiltinResult
(ExBudget dt1_iojr dt3_ioju)
(case unsafeEqualityProof of { UnsafeRefl co14_iojB ->
MakeKnownSuccess
(VCon
((ValueOf
($dContains1_rs2L `cast` <Co:8>)
(Constr (x_srtk `cast` <Co:3>) (x1_srtq `cast` <Co:3>)))
`cast` <Co:13>))
})
}
}
}
}
}
})
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 15, coercions: 40, joins: 0/0}
lvl264_rs6V
= TypeSchemeArrow
@~<Co:7>
($dTypeable46_rs2r `cast` <Co:5>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUni[]_$ctoTypeAst1
`cast` <Co:8>)
($dMakeKnownIn35_rs3c `cast` <Co:10>)
($dReadKnownIn6_rs6P `cast` <Co:10>)
lvl257_rs6M
-- RHS size: {terms: 6, types: 17, coercions: 49, joins: 0/0}
lvl265_rs6W
= TypeSchemeArrow
@~<Co:20>
($dTypeable71_rs1M `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniInteger_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn16_rs3N `cast` <Co:9>)
($dReadKnownIn10_rs5D `cast` <Co:9>)
lvl264_rs6V
-- RHS size: {terms: 4, types: 10, coercions: 59, joins: 0/0}
lvl266_rs6X
= BuiltinMeaning
lvl265_rs6W (lvl21_rs15 `cast` <Co:59>) lvl263_rs6U
-- RHS size: {terms: 85, types: 149, coercions: 45, joins: 0/2}
lvl267_rs6Y
= \ cost1_io3d ->
case paramIfThenElse cost1_io3d of
{ CostingFun cpu_io3g mem_io3h ->
case runThreeArgumentModel cpu_io3g of runCpu_io3j { __DEFAULT ->
case runThreeArgumentModel mem_io3h of runMem_io3k { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectArgument
(\ v_io3l ->
case v_io3l of {
__DEFAULT -> lvl134_rs4u;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srtQ x_srtR ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniBool (uniAct_srtQ `cast` <Co:8>)
of {
Nothing ->
BuiltinExpectArgument
(\ _ ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniBool `cast` <Co:8>)
uniAct_srtQ)
`cast` <Co:2>)))
}));
Just ds1_io3D ->
case ds1_io3D of { Refl co8_io3G ->
BuiltinExpectArgument
(\ v1_io3O ->
BuiltinExpectArgument
(\ v2_io3T ->
let {
mem2_sp4v
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v1_io3O } in
let {
mem3_sp4z
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v2_io3T } in
case (runCpu_io3j
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>)
mem2_sp4v
mem3_sp4z)
`cast` <Co:1>
of
{ I# dt1_io3X ->
case (runMem_io3k
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>)
mem2_sp4v
mem3_sp4z)
`cast` <Co:1>
of
{ I# dt3_io40 ->
BuiltinResult
(ExBudget dt1_io3X dt3_io40)
(case x_srtR `cast` <Co:3> of {
False -> $WMakeKnownSuccess v2_io3T;
True -> $WMakeKnownSuccess v1_io3O
})
}
}))
}
}
}
}))
}
}
}
-- RHS size: {terms: 4, types: 20, coercions: 53, joins: 0/0}
lvl268_rs6Z
= TypeSchemeResult
@~<Co:2>
($dTypeable43_rs2Z `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniOpaque_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn9_rs4j `cast` <Co:18>)
-- RHS size: {terms: 6, types: 49, coercions: 86, joins: 0/0}
lvl269_rs70
= TypeSchemeArrow
@~<Co:17>
($dTypeable43_rs2Z `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniOpaque_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn9_rs4j `cast` <Co:18>)
($dReadKnownIn8_rs4Z `cast` <Co:18>)
lvl268_rs6Z
-- RHS size: {terms: 6, types: 79, coercions: 101, joins: 0/0}
lvl270_rs71
= TypeSchemeArrow
@~<Co:32>
($dTypeable43_rs2Z `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniOpaque_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn9_rs4j `cast` <Co:18>)
($dReadKnownIn8_rs4Z `cast` <Co:18>)
lvl269_rs70
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dReadKnownIn5_rs72
= $fReadKnownInDefaultUnitermBool
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 6, types: 84, coercions: 65, joins: 0/0}
lvl271_rs73
= TypeSchemeArrow
@~<Co:36>
($dTypeable63_rs1P `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniBool_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn18_rs3z `cast` <Co:9>)
($dReadKnownIn5_rs72 `cast` <Co:9>)
lvl270_rs71
-- RHS size: {terms: 5, types: 57, coercions: 184, joins: 0/0}
lvl272_rs74
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
(lvl271_rs73 `cast` <Co:167>)
-- RHS size: {terms: 4, types: 54, coercions: 367, joins: 0/0}
lvl273_rs75
= BuiltinMeaning
lvl272_rs74 (lvl27_rs1b `cast` <Co:367>) lvl267_rs6Y
-- RHS size: {terms: 24, types: 42, coercions: 4, joins: 0/0}
$j4_rs76
= \ l_iohd ->
BuiltinExpectArgument
(\ _ ->
BuiltinExpectArgument
(\ _ ->
BuiltinExpectArgument
(\ _ ->
BuiltinExpectArgument
(\ _ ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(case l_iohd of dt2_X1X { __DEFAULT ->
MakeKnownFailure (id `cast` <Co:3>) dt2_X1X
})
})))))
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl274_rs77 = $j4_rs76 $fHasConstantCekValue3
-- RHS size: {terms: 116, types: 180, coercions: 45, joins: 0/6}
lvl275_rs78
= \ cost1_iogC ->
case paramChooseData cost1_iogC of
{ CostingFun cpu_iogF mem_iogG ->
case cpu_iogF of { ModelSixArgumentsConstantCost ww1_sruc ->
case mem_iogG of { ModelSixArgumentsConstantCost ww3_sruf ->
case $wrunSixArgumentModel ww1_sruc of runCpu_iogI { __DEFAULT ->
case $wrunSixArgumentModel ww3_sruf of runMem_iogJ { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectArgument
(\ v_iogK ->
case v_iogK of {
__DEFAULT -> lvl274_rs77;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srul x_srum ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniData (uniAct_srul `cast` <Co:8>)
of {
Nothing ->
$j4_rs76
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniData `cast` <Co:8>)
uniAct_srul)
`cast` <Co:2>));
Just ds1_ioh2 ->
case ds1_ioh2 of { Refl co8_ioh5 ->
BuiltinExpectArgument
(\ v1_iohi ->
BuiltinExpectArgument
(\ v2_iohl ->
BuiltinExpectArgument
(\ v3_ioho ->
BuiltinExpectArgument
(\ v4_iohr ->
BuiltinExpectArgument
(\ v5_iohu ->
let {
eta5_sp5U
= case $wsizeData (x_srum `cast` <Co:3>)
of ww4_imwz
{ __DEFAULT ->
(I# ww4_imwz) `cast` <Co:5>
} } in
let {
eta13_sp5T
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v1_iohi } in
let {
eta14_sp5S
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v2_iohl } in
let {
eta15_sp5R
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v3_ioho } in
let {
eta16_sp5Q
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v4_iohr } in
let {
mem6_sp5X
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v5_iohu } in
case (runCpu_iogI
eta5_sp5U
eta13_sp5T
eta14_sp5S
eta15_sp5R
eta16_sp5Q
mem6_sp5X)
`cast` <Co:1>
of
{ I# dt1_iohy ->
case (runMem_iogJ
eta5_sp5U
eta13_sp5T
eta14_sp5S
eta15_sp5R
eta16_sp5Q
mem6_sp5X)
`cast` <Co:1>
of
{ I# dt3_iohB ->
BuiltinResult
(ExBudget dt1_iohy dt3_iohB)
(case x_srum `cast` <Co:3> of {
Constr ds2_iohF ds3_iohG ->
$WMakeKnownSuccess v1_iohi;
Map ds2_iohI -> $WMakeKnownSuccess v2_iohl;
List ds2_iohK -> $WMakeKnownSuccess v3_ioho;
I ds2_iohM -> $WMakeKnownSuccess v4_iohr;
B ds2_iohO -> $WMakeKnownSuccess v5_iohu
})
}
})))))
}
}
}
}))
}
}
}
}
}
-- RHS size: {terms: 6, types: 109, coercions: 116, joins: 0/0}
lvl276_rs79
= TypeSchemeArrow
@~<Co:47>
($dTypeable43_rs2Z `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniOpaque_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn9_rs4j `cast` <Co:18>)
($dReadKnownIn8_rs4Z `cast` <Co:18>)
lvl270_rs71
-- RHS size: {terms: 6, types: 139, coercions: 131, joins: 0/0}
lvl277_rs7a
= TypeSchemeArrow
@~<Co:62>
($dTypeable43_rs2Z `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniOpaque_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn9_rs4j `cast` <Co:18>)
($dReadKnownIn8_rs4Z `cast` <Co:18>)
lvl276_rs79
-- RHS size: {terms: 6, types: 169, coercions: 146, joins: 0/0}
lvl278_rs7b
= TypeSchemeArrow
@~<Co:77>
($dTypeable43_rs2Z `cast` <Co:15>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEuniOpaque_$ctoTypeAst1
`cast` <Co:18>)
($dMakeKnownIn9_rs4j `cast` <Co:18>)
($dReadKnownIn8_rs4Z `cast` <Co:18>)
lvl277_rs7a
-- RHS size: {terms: 6, types: 174, coercions: 110, joins: 0/0}
lvl279_rs7c
= TypeSchemeArrow
@~<Co:81>
($dTypeable44_rs2q `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniData_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn30_rs38 `cast` <Co:9>)
($dReadKnownIn18_rs37 `cast` <Co:9>)
lvl278_rs7b
-- RHS size: {terms: 5, types: 93, coercions: 451, joins: 0/0}
lvl280_rs7d
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
(lvl279_rs7c `cast` <Co:434>)
-- RHS size: {terms: 4, types: 90, coercions: 979, joins: 0/0}
lvl281_rs7e
= BuiltinMeaning
lvl280_rs7d (lvl22_rs16 `cast` <Co:979>) lvl275_rs78
Rec {
-- RHS size: {terms: 342, types: 151, coercions: 6, joins: 0/0}
$wgo3_rs7f
= \ w_sqVw ww_sqVA ->
case w_sqVw of {
[] -> (I# ww_sqVA) `cast` <Co:5>;
: y_ipv1 ys_ipv2 ->
case y_ipv1 of { (a1_iokq, b1_iokr) ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# x#_iokp ->
case $wsizeData a1_iokq of ww1_imwz { __DEFAULT ->
case $wsizeData b1_iokr of ww2_X1T { __DEFAULT ->
case addIntC# ww1_imwz ww2_X1T of { (# r#_iokD, ds3_iokE #) ->
case ds3_iokE of {
__DEFAULT ->
case andI# (># ww1_imwz 0#) (># ww2_X1T 0#) of {
__DEFAULT ->
case andI# (<# ww1_imwz 0#) (<# ww2_X1T 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# ->
case addIntC# x#_iokp -9223372036854775808# of
{ (# r#1_iokR, ds5_iokS #) ->
case ds5_iokS of {
__DEFAULT ->
case andI# (<# x#_iokp 0#) 1# of {
__DEFAULT -> case overflowError of wild1_00 { };
1# ->
case addIntC# -9223372036854775808# ww_sqVA of
{ (# r#2_iokX, ds7_iokY #) ->
case ds7_iokY of {
__DEFAULT ->
case andI# 1# (<# ww_sqVA 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo3_rs7f ys_ipv2 -9223372036854775808#
};
0# -> $wgo3_rs7f ys_ipv2 r#2_iokX
}
}
};
0# ->
case addIntC# r#1_iokR ww_sqVA of { (# r#2_iokH, ds1_iokI #) ->
case ds1_iokI of {
__DEFAULT ->
case andI# (># r#1_iokR 0#) (># ww_sqVA 0#) of {
__DEFAULT ->
case andI# (<# r#1_iokR 0#) (<# ww_sqVA 0#) of {
__DEFAULT -> case overflowError of wild2_00 { };
1# -> $wgo3_rs7f ys_ipv2 -9223372036854775808#
};
1# -> $wgo3_rs7f ys_ipv2 9223372036854775807#
};
0# -> $wgo3_rs7f ys_ipv2 r#2_iokH
}
}
}
}
};
1# ->
case addIntC# x#_iokp 9223372036854775807# of
{ (# r#1_iol3, ds5_iol4 #) ->
case ds5_iol4 of {
__DEFAULT ->
case andI# (># x#_iokp 0#) 1# of {
__DEFAULT -> case overflowError of wild1_00 { };
1# ->
case addIntC# 9223372036854775807# ww_sqVA of
{ (# r#2_iol9, ds7_iola #) ->
case ds7_iola of {
__DEFAULT ->
case andI# 1# (># ww_sqVA 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo3_rs7f ys_ipv2 9223372036854775807#
};
0# -> $wgo3_rs7f ys_ipv2 r#2_iol9
}
}
};
0# ->
case addIntC# r#1_iol3 ww_sqVA of { (# r#2_iokH, ds1_iokI #) ->
case ds1_iokI of {
__DEFAULT ->
case andI# (># r#1_iol3 0#) (># ww_sqVA 0#) of {
__DEFAULT ->
case andI# (<# r#1_iol3 0#) (<# ww_sqVA 0#) of {
__DEFAULT -> case overflowError of wild2_00 { };
1# -> $wgo3_rs7f ys_ipv2 -9223372036854775808#
};
1# -> $wgo3_rs7f ys_ipv2 9223372036854775807#
};
0# -> $wgo3_rs7f ys_ipv2 r#2_iokH
}
}
}
}
};
0# ->
case addIntC# x#_iokp r#_iokD of { (# r#1_iolf, ds5_iolg #) ->
case ds5_iolg of {
__DEFAULT ->
case andI# (># x#_iokp 0#) (># r#_iokD 0#) of {
__DEFAULT ->
case andI# (<# x#_iokp 0#) (<# r#_iokD 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# ->
case addIntC# -9223372036854775808# ww_sqVA of
{ (# r#2_iolm, ds7_ioln #) ->
case ds7_ioln of {
__DEFAULT ->
case andI# 1# (<# ww_sqVA 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo3_rs7f ys_ipv2 -9223372036854775808#
};
0# -> $wgo3_rs7f ys_ipv2 r#2_iolm
}
}
};
1# ->
case addIntC# 9223372036854775807# ww_sqVA of
{ (# r#2_iols, ds7_iolt #) ->
case ds7_iolt of {
__DEFAULT ->
case andI# 1# (># ww_sqVA 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo3_rs7f ys_ipv2 9223372036854775807#
};
0# -> $wgo3_rs7f ys_ipv2 r#2_iols
}
}
};
0# ->
case addIntC# r#1_iolf ww_sqVA of { (# r#2_iokH, ds1_iokI #) ->
case ds1_iokI of {
__DEFAULT ->
case andI# (># r#1_iolf 0#) (># ww_sqVA 0#) of {
__DEFAULT ->
case andI# (<# r#1_iolf 0#) (<# ww_sqVA 0#) of {
__DEFAULT -> case overflowError of wild2_00 { };
1# -> $wgo3_rs7f ys_ipv2 -9223372036854775808#
};
1# -> $wgo3_rs7f ys_ipv2 9223372036854775807#
};
0# -> $wgo3_rs7f ys_ipv2 r#2_iokH
}
}
}
}
}
}
}
}
}
}
}
end Rec }
-- RHS size: {terms: 81, types: 190, coercions: 70, joins: 0/1}
lvl282_rs7g
= \ cost1_iojG ->
case paramMapData cost1_iojG of { CostingFun cpu_iojJ mem_iojK ->
case runOneArgumentModel cpu_iojJ of runCpu_iojM { __DEFAULT ->
case runOneArgumentModel mem_iojK of runMem_iojN { __DEFAULT ->
BuiltinExpectArgument
(\ v_iojO ->
case v_iojO of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sruN x_sruO ->
case $fGCompareTYPEDefaultUni_$cgeq
$dContains12_rs2O (uniAct_sruN `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($dContains12_rs2O `cast` <Co:11>)
uniAct_sruN)
`cast` <Co:2>)))
};
Just ds1_iok6 ->
case ds1_iok6 of { Refl co8_iok9 ->
let {
mem2_sp6j
= case lvl18_rs12 `cast` <Co:1> of { I# ww1_sqVA ->
$wgo3_rs7f (x_sruO `cast` <Co:3>) ww1_sqVA
} } in
case (runCpu_iojM mem2_sp6j) `cast` <Co:1> of { I# dt1_ioly ->
case (runMem_iojN mem2_sp6j) `cast` <Co:1> of { I# dt3_iolB ->
BuiltinResult
(ExBudget dt1_ioly dt3_iolB)
(case unsafeEqualityProof of { UnsafeRefl co11_iolI ->
MakeKnownSuccess
(VCon
((ValueOf
($dContains1_rs2L `cast` <Co:8>) (Map (x_sruO `cast` <Co:3>)))
`cast` <Co:13>))
})
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 3, types: 6, coercions: 24, joins: 0/0}
$dReadKnownIn3_rs7h
= $fReadKnownInDefaultUniterm[]
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
($dContains12_rs2O `cast` <Co:9>)
-- RHS size: {terms: 6, types: 16, coercions: 56, joins: 0/0}
lvl283_rs7i
= TypeSchemeArrow
@~<Co:15>
($dTypeable40_rs2x `cast` <Co:7>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUni[]_$ctoTypeAst
`cast` <Co:10>)
($dMakeKnownIn33_rs3i `cast` <Co:12>)
($dReadKnownIn3_rs7h `cast` <Co:12>)
lvl257_rs6M
-- RHS size: {terms: 4, types: 11, coercions: 41, joins: 0/0}
lvl284_rs7j
= BuiltinMeaning
lvl283_rs7i (lvl20_rs14 `cast` <Co:41>) lvl282_rs7g
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dReadKnownIn1_rs7k
= $fReadKnownInDefaultUniterm()
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 2, types: 3, coercions: 15, joins: 0/0}
$dMakeKnownIn1_rs7l
= $fMakeKnownInDefaultUniterm()
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning_$d(%,%)1
`cast` <Co:15>)
-- RHS size: {terms: 3, types: 11, coercions: 11, joins: 0/0}
lvl285_rs7m = ValueOf ($dContains12_rs2O `cast` <Co:11>) []
-- RHS size: {terms: 6, types: 59, coercions: 13, joins: 0/0}
lvl286_rs7n
= case unsafeEqualityProof of { UnsafeRefl co11_ioHb ->
MakeKnownSuccess (VCon (lvl285_rs7m `cast` <Co:13>))
}
-- RHS size: {terms: 66, types: 114, coercions: 43, joins: 0/0}
lvl287_rs7o
= \ cost1_ioGm ->
case paramMkNilPairData cost1_ioGm of
{ CostingFun cpu_ioGp mem_ioGq ->
case runOneArgumentModel cpu_ioGp of runCpu_ioGs { __DEFAULT ->
case runOneArgumentModel mem_ioGq of runMem_ioGt { __DEFAULT ->
BuiltinExpectArgument
(\ v_ioGu ->
case v_ioGu of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srva x_srvb ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniUnit (uniAct_srva `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniUnit `cast` <Co:8>)
uniAct_srva)
`cast` <Co:2>)))
};
Just ds1_ioGM ->
case ds1_ioGM of { Refl co8_ioGP ->
case (runCpu_ioGs
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt1_ioGZ ->
case (runMem_ioGt
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_ioH2 ->
BuiltinResult (ExBudget dt1_ioGZ dt3_ioH2) lvl286_rs7n
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 9, coercions: 31, joins: 0/0}
lvl288_rs7p
= TypeSchemeResult
@~<Co:2>
($dTypeable40_rs2x `cast` <Co:7>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUni[]_$ctoTypeAst
`cast` <Co:10>)
($dMakeKnownIn33_rs3i `cast` <Co:12>)
-- RHS size: {terms: 6, types: 16, coercions: 44, joins: 0/0}
lvl289_rs7q
= TypeSchemeArrow
@~<Co:15>
($dTypeable42_rs2v `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUni()_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn1_rs7l `cast` <Co:9>)
($dReadKnownIn1_rs7k `cast` <Co:9>)
lvl288_rs7p
-- RHS size: {terms: 4, types: 14, coercions: 44, joins: 0/0}
lvl290_rs7r
= BuiltinMeaning lvl289_rs7q (lvl_rs0J `cast` <Co:44>) lvl287_rs7o
-- RHS size: {terms: 145, types: 151, coercions: 96, joins: 0/2}
lvl291_rs7s
= \ cost1_iomS ->
case paramIData cost1_iomS of { CostingFun cpu_iomV mem_iomW ->
case runOneArgumentModel cpu_iomV of runCpu_iomY { __DEFAULT ->
case runOneArgumentModel mem_iomW of runMem_iomZ { __DEFAULT ->
BuiltinExpectArgument
(\ v_ion0 ->
case v_ion0 of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srvr x_srvs ->
case uniAct_srvr `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co_ipYk ->
let {
mem2_sp6B
= case integerEq# (x_srvs `cast` <Co:3>) lvl14_rs0Y of {
__DEFAULT ->
case integerAbs (x_srvs `cast` <Co:3>) of {
IS i1_ionw ->
case <=# i1_ionw 0# of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63## (clz# (int2Word# i1_ionw))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
};
1# -> lvl16_rs10 `cast` <Co:2>
};
IP b_ionz ->
case uncheckedIShiftRL# (sizeofByteArray# b_ionz) 3#
of wild6_ionB {
__DEFAULT ->
let { i1_sp6F = minusWord# (int2Word# wild6_ionB) 1## } in
case indexWordArray# b_ionz (word2Int# i1_sp6F) of wild7_ionD
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL# i1_sp6F 6#)
(clz# wild7_ionD))))
64#)
1#))
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
};
0# -> lvl16_rs10 `cast` <Co:2>
};
IN ds1_ioN6 -> lvl16_rs10 `cast` <Co:2>
};
1# ->
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2 `cast` <Co:2>
} } in
case (runCpu_iomY mem2_sp6B) `cast` <Co:1> of { I# dt1_ionF ->
case (runMem_iomZ mem2_sp6B) `cast` <Co:1> of { I# dt3_ionI ->
BuiltinResult
(ExBudget dt1_ionF dt3_ionI)
(case unsafeEqualityProof of { UnsafeRefl co11_ionP ->
MakeKnownSuccess
(VCon
((ValueOf
($dContains1_rs2L `cast` <Co:8>) (I (x_srvs `cast` <Co:3>)))
`cast` <Co:13>))
})
}
}
}
}
})
}
}
}
-- RHS size: {terms: 6, types: 10, coercions: 38, joins: 0/0}
lvl292_rs7t
= TypeSchemeArrow
@~<Co:9>
($dTypeable71_rs1M `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUniInteger_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn16_rs3N `cast` <Co:9>)
($dReadKnownIn10_rs5D `cast` <Co:9>)
lvl257_rs6M
-- RHS size: {terms: 4, types: 8, coercions: 29, joins: 0/0}
lvl293_rs7u
= BuiltinMeaning
lvl292_rs7t (lvl17_rs11 `cast` <Co:29>) lvl291_rs7s
-- RHS size: {terms: 3, types: 7, coercions: 9, joins: 0/0}
lvl294_rs7v = ValueOf ($dContains11_rs2P `cast` <Co:9>) []
-- RHS size: {terms: 6, types: 53, coercions: 13, joins: 0/0}
lvl295_rs7w
= case unsafeEqualityProof of { UnsafeRefl co11_ioGh ->
MakeKnownSuccess (VCon (lvl294_rs7v `cast` <Co:13>))
}
-- RHS size: {terms: 66, types: 114, coercions: 43, joins: 0/0}
lvl296_rs7x
= \ cost1_ioFs ->
case paramMkNilData cost1_ioFs of { CostingFun cpu_ioFv mem_ioFw ->
case runOneArgumentModel cpu_ioFv of runCpu_ioFy { __DEFAULT ->
case runOneArgumentModel mem_ioFw of runMem_ioFz { __DEFAULT ->
BuiltinExpectArgument
(\ v_ioFA ->
case v_ioFA of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult (ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srvG x_srvH ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniUnit (uniAct_srvG `cast` <Co:8>)
of {
Nothing ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniUnit `cast` <Co:8>)
uniAct_srvG)
`cast` <Co:2>)))
};
Just ds1_ioFS ->
case ds1_ioFS of { Refl co8_ioFV ->
case (runCpu_ioFy
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt1_ioG5 ->
case (runMem_ioFz
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_ioG8 ->
BuiltinResult (ExBudget dt1_ioG5 dt3_ioG8) lvl295_rs7w
}
}
}
}
}
})
}
}
}
-- RHS size: {terms: 4, types: 7, coercions: 25, joins: 0/0}
lvl297_rs7y
= TypeSchemeResult
@~<Co:2>
($dTypeable46_rs2r `cast` <Co:5>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUni[]_$ctoTypeAst1
`cast` <Co:8>)
($dMakeKnownIn35_rs3c `cast` <Co:10>)
-- RHS size: {terms: 6, types: 12, coercions: 40, joins: 0/0}
lvl298_rs7z
= TypeSchemeArrow
@~<Co:11>
($dTypeable42_rs2v `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUni()_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn1_rs7l `cast` <Co:9>)
($dReadKnownIn1_rs7k `cast` <Co:9>)
lvl297_rs7y
-- RHS size: {terms: 4, types: 10, coercions: 34, joins: 0/0}
lvl299_rs7A
= BuiltinMeaning lvl298_rs7z (lvl1_rs0K `cast` <Co:34>) lvl296_rs7x
-- RHS size: {terms: 70, types: 130, coercions: 42, joins: 0/1}
lvl300_rs7B
= \ cost1_io4c ->
case paramChooseUnit cost1_io4c of
{ CostingFun cpu_io4f mem_io4g ->
case runTwoArgumentModel cpu_io4f of runCpu_io4i { __DEFAULT ->
case runTwoArgumentModel mem_io4g of runMem_io4j { __DEFAULT ->
BuiltinExpectForce
(BuiltinExpectArgument
(\ v_io4k ->
case v_io4k of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srvZ x_srw0 ->
case $fGCompareTYPEDefaultUni_$cgeq
$WDefaultUniUnit (uniAct_srvZ `cast` <Co:8>)
of {
Nothing ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniUnit `cast` <Co:8>)
uniAct_srvZ)
`cast` <Co:2>)))
});
Just ds1_io4C ->
case ds1_io4C of { Refl co8_io4F ->
BuiltinExpectArgument
(\ v1_io4P ->
let {
mem2_sp4H
= $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning1
v1_io4P } in
case (runCpu_io4i
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>)
mem2_sp4H)
`cast` <Co:1>
of
{ I# dt1_io4T ->
case (runMem_io4j
($s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:2>)
mem2_sp4H)
`cast` <Co:1>
of
{ I# dt3_io4W ->
BuiltinResult
(ExBudget dt1_io4T dt3_io4W) ($WMakeKnownSuccess v1_io4P)
}
})
}
}
}
}))
}
}
}
-- RHS size: {terms: 6, types: 54, coercions: 50, joins: 0/0}
lvl301_rs7C
= TypeSchemeArrow
@~<Co:21>
($dTypeable42_rs2v `cast` <Co:4>)
($fToBuiltinMeaninguniDefaultFun_$s$fKnownTypeAstTYPEDefaultUni()_$ctoTypeAst
`cast` <Co:7>)
($dMakeKnownIn1_rs7l `cast` <Co:9>)
($dReadKnownIn1_rs7k `cast` <Co:9>)
lvl269_rs70
-- RHS size: {terms: 5, types: 45, coercions: 119, joins: 0/0}
lvl302_rs7D
= TypeSchemeAll
($stypeSymbolTypeRep_$dKnownSymbol `cast` <Co:7>)
($stypeNatTypeRep_$dKnownNat `cast` <Co:7>)
($WSingType `cast` <Co:3>)
(lvl301_rs7C `cast` <Co:102>)
-- RHS size: {terms: 4, types: 42, coercions: 217, joins: 0/0}
lvl303_rs7E
= BuiltinMeaning
lvl302_rs7D (lvl26_rs1a `cast` <Co:217>) lvl300_rs7B
-- RHS size: {terms: 1,022, types: 575, coercions: 382, joins: 0/7}
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning
= \ eta11_imDZ ->
let {
lvl319_sqaC
= case eta11_imDZ `cast` <Co:1> of {
DefaultFunV1 -> verifyEd25519Signature_V1 `cast` <Co:57>;
DefaultFunV2 -> verifyEd25519Signature_V2 `cast` <Co:57>
} } in
let {
lvl320_sqaD
= \ cost1_inDc ->
case paramVerifyEd25519Signature cost1_inDc of
{ CostingFun cpu_inDf mem_inDg ->
case runThreeArgumentModel cpu_inDf of runCpu_inDi { __DEFAULT ->
case runThreeArgumentModel mem_inDg of runMem_inDj { __DEFAULT ->
BuiltinExpectArgument
(\ v_inDk ->
case v_inDk of {
__DEFAULT -> lvl134_rs4u;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_sriP x_sriQ ->
case uniAct_sriP `cast` <Co:8> of wild2_ipYe {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild2_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
}));
DefaultUniByteString co_ipYf ->
case x_sriQ `cast` <Co:3> of { BS dt_srjh dt1_srji dt2_srjj ->
BuiltinExpectArgument
(\ v1_inEt ->
case v1_inEt of {
__DEFAULT -> lvl97_rs3B;
VCon val1_X18 ->
case val1_X18 `cast` <Co:8> of { ValueOf uniAct1_sriX x1_sriY ->
case uniAct1_sriX `cast` <Co:8> of wild7_X19 {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt5_ipUl ->
BuiltinResult
(ExBudget dt5_ipUl dt5_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString `cast` <Co:8>)
(wild7_X19 `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniByteString co1_X1a ->
case x1_sriY `cast` <Co:3> of wild8_srjb
{ BS dt4_srjc dt5_srjd dt6_srje ->
BuiltinExpectArgument
(\ v2_inFB ->
case v2_inFB of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of
{ I# dt8_ipUl ->
BuiltinResult
(ExBudget dt8_ipUl dt8_ipUl) lvl78_rs3a
};
VCon val2_X1c ->
case val2_X1c `cast` <Co:8> of
{ ValueOf uniAct2_srj3 x2_srj4 ->
case uniAct2_srj3 `cast` <Co:8> of wild11_X1d {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of
{ I# dt8_ipUl ->
BuiltinResult
(ExBudget dt8_ipUl dt8_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniByteString
`cast` <Co:8>)
(wild11_X1d `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co2_X1e ->
case x2_srj4 `cast` <Co:3> of wild12_srj6
{ BS dt7_srj7 dt8_srj8 dt9_srj9 ->
let {
mem2_sp1j
= case lvl10_rs0U `cast` <Co:1> of
{ I# x3_inDO ->
case x3_inDO of wild14_inDS {
__DEFAULT ->
case $w$cfromInteger (IS dt2_srjj)
of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inE0 ->
case subIntC# ww_imCq y#_inE0 of
{ (# r#_inEb, ds2_inEc #) ->
case ds2_inEc of {
__DEFAULT ->
case andI#
(>=# ww_imCq 0#)
(<# y#_inE0 0#)
of {
__DEFAULT ->
case andI#
(<=# ww_imCq 0#)
(># y#_inE0 0#)
of {
__DEFAULT ->
case overflowError
of wild17_00 {
};
1# ->
case wild14_inDS
of wild17_inEo {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild17_inEo
of wild18_inEp
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inEp
v5_B2
of
{ (# r#1_iooV,
ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inEp
0#)
(>#
v5_B2
0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inEp
0#)
(<#
v5_B2
0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807#
wild14_inDS
of wild17_inEn
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild17_inEn v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild17_inEn 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild17_inEn
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild19_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inEb of wild17_inEm {
__DEFAULT ->
case quotInt#
wild17_inEm
wild14_inDS
of wild18_inEn
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inEn v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inEn 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inEn
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild14_inDS
of wild18_inEo {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild18_inEo
of wild19_inEp
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild19_inEp v5_B2
of
{ (# r#1_iooV,
ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild19_inEp
0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild19_inEp
0#)
(<#
v5_B2
0#)
of {
__DEFAULT ->
case overflowError
of wild21_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# ->
case divZeroError of wild15_00 { }
}
} } in
let {
mem3_sp1g
= case lvl10_rs0U `cast` <Co:1> of
{ I# x3_inEW ->
case x3_inEW of wild14_inF0 {
__DEFAULT ->
case $w$cfromInteger (IS dt6_srje)
of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inF8 ->
case subIntC# ww_imCq y#_inF8 of
{ (# r#_inFj, ds2_inFk #) ->
case ds2_inFk of {
__DEFAULT ->
case andI#
(>=# ww_imCq 0#)
(<# y#_inF8 0#)
of {
__DEFAULT ->
case andI#
(<=# ww_imCq 0#)
(># y#_inF8 0#)
of {
__DEFAULT ->
case overflowError
of wild17_00 {
};
1# ->
case wild14_inF0
of wild17_inFw {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild17_inFw
of wild18_inFx
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inFx
v5_B2
of
{ (# r#1_iooV,
ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inFx
0#)
(>#
v5_B2
0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inFx
0#)
(<#
v5_B2
0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807#
wild14_inF0
of wild17_inFv
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild17_inFv v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild17_inFv 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild17_inFv
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild19_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inFj of wild17_inFu {
__DEFAULT ->
case quotInt#
wild17_inFu
wild14_inF0
of wild18_inFv
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inFv v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inFv 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inFv
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild14_inF0
of wild18_inFw {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild18_inFw
of wild19_inFx
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild19_inFx v5_B2
of
{ (# r#1_iooV,
ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild19_inFx
0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild19_inFx
0#)
(<#
v5_B2
0#)
of {
__DEFAULT ->
case overflowError
of wild21_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# ->
case divZeroError of wild15_00 { }
}
} } in
let {
mem4_sp1m
= case lvl10_rs0U `cast` <Co:1> of
{ I# x3_inG3 ->
case x3_inG3 of wild14_inG7 {
__DEFAULT ->
case $w$cfromInteger (IS dt9_srj9)
of ww_imCq
{ __DEFAULT ->
case $s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning2
`cast` <Co:1>
of
{ I# y#_inGf ->
case subIntC# ww_imCq y#_inGf of
{ (# r#_inGq, ds2_inGr #) ->
case ds2_inGr of {
__DEFAULT ->
case andI#
(>=# ww_imCq 0#)
(<# y#_inGf 0#)
of {
__DEFAULT ->
case andI#
(<=# ww_imCq 0#)
(># y#_inGf 0#)
of {
__DEFAULT ->
case overflowError
of wild17_00 {
};
1# ->
case wild14_inG7
of wild17_inGD {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild17_inGD
of wild18_inGE
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inGE
v5_B2
of
{ (# r#1_iooV,
ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inGE
0#)
(>#
v5_B2
0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inGE
0#)
(<#
v5_B2
0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
};
1# ->
case quotInt#
9223372036854775807#
wild14_inG7
of wild17_inGC
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild17_inGC v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild17_inGC 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild17_inGC
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild19_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
}
};
0# ->
case r#_inGq of wild17_inGB {
__DEFAULT ->
case quotInt#
wild17_inGB
wild14_inG7
of wild18_inGC
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild18_inGC v5_B2
of
{ (# r#1_iooV, ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild18_inGC 0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild18_inGC
0#)
(<# v5_B2 0#)
of {
__DEFAULT ->
case overflowError
of wild20_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case wild14_inG7
of wild18_inGD {
__DEFAULT ->
case quotInt#
-9223372036854775808#
wild18_inGD
of wild19_inGE
{ __DEFAULT ->
case lvl11_rs0V of
{ I# v5_B2 ->
case addIntC#
wild19_inGE v5_B2
of
{ (# r#1_iooV,
ds1_iooW #) ->
case ds1_iooW of {
__DEFAULT ->
case andI#
(>#
wild19_inGE
0#)
(># v5_B2 0#)
of {
__DEFAULT ->
case andI#
(<#
wild19_inGE
0#)
(<#
v5_B2
0#)
of {
__DEFAULT ->
case overflowError
of wild21_00 {
};
1# ->
(I#
-9223372036854775808#)
`cast` <Co:2>
};
1# ->
(I#
9223372036854775807#)
`cast` <Co:2>
};
0# ->
(I# r#1_iooV)
`cast` <Co:2>
}
}
}
};
-1# -> lvl12_rs0W
}
}
}
}
}
};
0# ->
case divZeroError of wild15_00 { }
}
} } in
case (runCpu_inDi
(mem2_sp1j `cast` <Co:2>)
(mem3_sp1g `cast` <Co:2>)
(mem4_sp1m `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt11_inGJ ->
case (runMem_inDj
(mem2_sp1j `cast` <Co:2>)
(mem3_sp1g `cast` <Co:2>)
(mem4_sp1m `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_inGM ->
BuiltinResult
(ExBudget dt11_inGJ dt3_inGM)
(case eta11_imDZ `cast` <Co:1> of {
DefaultFunV1 ->
case $wverifyEd25519Signature_V1
dt_srjh
dt1_srji
dt2_srjj
wild8_srjb
wild12_srj6
of
{ (# ww5_ipzP, ww6_ipzQ #) ->
$j3_rs5W ww5_ipzP ww6_ipzQ
};
DefaultFunV2 ->
case ($wverifyEd25519Signature_V2
dt_srjh
dt1_srji
dt2_srjj
wild8_srjb
wild12_srj6)
`cast` <Co:17>
of
{ (x3_inHi, logs_inHj) ->
$j3_rs5W x3_inHi logs_inHj
}
})
}
}
}
}
}
})
}
}
}
})
}
}
}
})
}
}
} } in
let {
lvl321_spnZ
= BuiltinMeaning lvl203_rs5S lvl319_sqaC lvl320_sqaD } in
let {
lvl322_spjW
= case eta11_imDZ `cast` <Co:1> of {
DefaultFunV1 -> lvl193_rs5H;
DefaultFunV2 -> lvl198_rs5M
} } in
(\ ds_imKh ->
case ds_imKh of {
AddInteger -> lvl250_rs6E;
SubtractInteger -> lvl248_rs6C;
MultiplyInteger -> lvl246_rs6A;
DivideInteger -> lvl241_rs6v;
QuotientInteger -> lvl239_rs6t;
RemainderInteger -> lvl237_rs6r;
ModInteger -> lvl235_rs6p;
EqualsInteger -> lvl231_rs6l;
LessThanInteger -> lvl229_rs6j;
LessThanEqualsInteger -> lvl227_rs6h;
AppendByteString -> lvl223_rs6d;
ConsByteString -> lvl322_spjW;
SliceByteString -> lvl185_rs5y;
LengthOfByteString -> lvl189_rs5C;
IndexByteString -> lvl179_rs5s;
EqualsByteString -> lvl220_rs6a;
LessThanByteString -> lvl218_rs68;
LessThanEqualsByteString -> lvl216_rs66;
Sha2_256 -> lvl212_rs62;
Sha3_256 -> lvl210_rs60;
Blake2b_256 -> lvl208_rs5Y;
VerifyEd25519Signature -> lvl321_spnZ;
VerifyEcdsaSecp256k1Signature -> lvl206_rs5V;
VerifySchnorrSecp256k1Signature -> lvl204_rs5T;
AppendString -> lvl171_rs5g;
EqualsString -> lvl165_rs5a;
EncodeUtf8 -> lvl161_rs56;
DecodeUtf8 -> lvl175_rs5m;
IfThenElse -> lvl273_rs75;
ChooseUnit -> lvl303_rs7E;
Trace -> lvl158_rs53;
FstPair -> lvl152_rs4S;
SndPair -> lvl147_rs4M;
ChooseList -> lvl142_rs4E;
MkCons -> lvl117_rs45;
HeadList -> lvl132_rs4q;
TailList -> lvl127_rs4i;
NullList -> lvl124_rs4e;
ChooseData -> lvl281_rs7e;
ConstrData -> lvl266_rs6X;
MapData -> lvl284_rs7j;
ListData -> lvl262_rs6T;
IData -> lvl293_rs7u;
BData -> lvl259_rs6O;
UnConstrData -> lvl90_rs3s;
UnMapData -> lvl86_rs3m;
UnListData -> lvl82_rs3g;
UnIData -> lvl111_rs3S;
UnBData -> lvl107_rs3M;
EqualsData -> lvl103_rs3H;
SerialiseData -> lvl95_rs3y;
MkPairData -> lvl255_rs6K;
MkNilData -> lvl299_rs7A;
MkNilPairData -> lvl290_rs7r
})
`cast` <Co:11>
Rec {
-- RHS size: {terms: 17, types: 5, coercions: 0, joins: 0/0}
go_rs7F
= \ addr_ipt6 z_ipt7 ->
case indexCharOffAddr# addr_ipt6 0# of ch_ipt8 {
__DEFAULT ->
: (C# ch_ipt8) (go_rs7F (plusAddr# addr_ipt6 1#) z_ipt7);
'\NUL'# -> z_ipt7
}
end Rec }
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
loc3_rs7G = go_rs7F loc15_rs1Y []
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
loc4_rs7H = go_rs7F loc14_rs20 []
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
loc5_rs7I = go_rs7F $trModule4 []
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
$dIP1_rs7J
= SrcLoc
loc5_rs7I
loc4_rs7H
loc3_rs7G
loc18_rs1W
loc17_rs1X
loc18_rs1W
loc19_rs1V
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
$dIP7_rs7K = go_rs7F lvl34_rs1k []
Rec {
-- RHS size: {terms: 29, types: 7, coercions: 0, joins: 0/0}
go3_rs7L
= \ x_iqnj ->
: (case >=# x_iqnj 0# of {
__DEFAULT -> $wlvl1 x_iqnj;
1# ->
case <=# x_iqnj 53# of {
__DEFAULT -> $wlvl1 x_iqnj;
1# -> tagToEnum# x_iqnj
}
})
(case x_iqnj of wild_XF {
__DEFAULT -> go3_rs7L (+# wild_XF 1#);
53# -> []
})
end Rec }
-- RHS size: {terms: 39, types: 13, coercions: 6, joins: 0/0}
$j5_rs7M
= \ x#1_in59 ->
case $w$cfromInteger
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning3
of ww_XL
{ __DEFAULT ->
case addIntC# x#1_in59 ww_XL of { (# r#1_in5h, ds1_in5i #) ->
case ds1_in5i of {
__DEFAULT ->
case andI# (># x#1_in59 0#) (># ww_XL 0#) of {
__DEFAULT ->
case andI# (<# x#1_in59 0#) (<# ww_XL 0#) of {
__DEFAULT -> overflowError;
1# -> minInt `cast` <Co:2>
};
1# -> maxInt `cast` <Co:2>
};
0# -> (I# r#1_in5h) `cast` <Co:2>
}
}
}
-- RHS size: {terms: 25, types: 11, coercions: 4, joins: 0/0}
lvl304_rs7N
= case $w$cfromInteger
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning3
of ww_XL
{ __DEFAULT ->
case addIntC# 9223372036854775807# ww_XL of
{ (# r#1_in5h, ds1_in5i #) ->
case ds1_in5i of {
__DEFAULT ->
case andI# 1# (># ww_XL 0#) of {
__DEFAULT -> overflowError;
1# -> maxInt `cast` <Co:2>
};
0# -> (I# r#1_in5h) `cast` <Co:2>
}
}
}
-- RHS size: {terms: 6, types: 1, coercions: 0, joins: 0/0}
lvl305_rs7O
= case $w$cfromInteger lvl9_rs0T of v_B2 { __DEFAULT -> I# v_B2 }
-- RHS size: {terms: 271, types: 102, coercions: 32, joins: 0/2}
costingFun_rs7P
= \ @a_in5O $dExMemoryUsage5_in5P x_in5Q ->
case paramConsByteString x_in5Q of
{ CostingFun cpu_in5U mem_in5V ->
case runTwoArgumentModel cpu_in5U of runCpu_in5X { __DEFAULT ->
case runTwoArgumentModel mem_in5V of runMem_in5Y { __DEFAULT ->
\ x1_in60 ->
let {
mem2_in61 = ($dExMemoryUsage5_in5P `cast` <Co:2>) x1_in60 } in
\ x2_in62 ->
let {
mem3_in63
= case lvl305_rs7O of { I# v1_B2 ->
case v1_B2 of ww_imCq {
__DEFAULT ->
case x2_in62 of { BS dt_in69 dt1_in6a dt2_in6b ->
case $w$cfromInteger (IS dt2_in6b) of ww1_XF { __DEFAULT ->
case lvl11_rs0V of { I# v3_XH ->
case subIntC# ww1_XF v3_XH of { (# r#_in6q, ds2_in6r #) ->
case ds2_in6r of {
__DEFAULT ->
case andI# (>=# ww1_XF 0#) (<# v3_XH 0#) of {
__DEFAULT ->
case andI# (<=# ww1_XF 0#) (># v3_XH 0#) of {
__DEFAULT -> case overflowError of wild_00 { };
1# ->
case ww_imCq of wild9_in6D {
__DEFAULT ->
case quotInt# -9223372036854775808# wild9_in6D of wild10_in6E
{ __DEFAULT ->
case $w$cfromInteger
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning3
of ww2_XL
{ __DEFAULT ->
case addIntC# wild10_in6E ww2_XL of
{ (# r#1_in5h, ds1_in5i #) ->
case ds1_in5i of {
__DEFAULT ->
case andI# (># wild10_in6E 0#) (># ww2_XL 0#) of {
__DEFAULT ->
case andI# (<# wild10_in6E 0#) (<# ww2_XL 0#) of {
__DEFAULT -> overflowError;
1# -> minInt `cast` <Co:2>
};
1# -> maxInt `cast` <Co:2>
};
0# -> (I# r#1_in5h) `cast` <Co:2>
}
}
}
};
-1# -> lvl304_rs7N
}
};
1# ->
case quotInt# 9223372036854775807# ww_imCq of wild9_in6C
{ __DEFAULT ->
case $w$cfromInteger
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning3
of ww2_XL
{ __DEFAULT ->
case addIntC# wild9_in6C ww2_XL of { (# r#1_in5h, ds1_in5i #) ->
case ds1_in5i of {
__DEFAULT ->
case andI# (># wild9_in6C 0#) (># ww2_XL 0#) of {
__DEFAULT ->
case andI# (<# wild9_in6C 0#) (<# ww2_XL 0#) of {
__DEFAULT -> overflowError;
1# -> minInt `cast` <Co:2>
};
1# -> maxInt `cast` <Co:2>
};
0# -> (I# r#1_in5h) `cast` <Co:2>
}
}
}
}
};
0# ->
case r#_in6q of wild8_in6B {
__DEFAULT ->
case quotInt# wild8_in6B ww_imCq of wild9_in6C { __DEFAULT ->
case $w$cfromInteger
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning3
of ww2_XL
{ __DEFAULT ->
case addIntC# wild9_in6C ww2_XL of { (# r#1_in5h, ds1_in5i #) ->
case ds1_in5i of {
__DEFAULT ->
case andI# (># wild9_in6C 0#) (># ww2_XL 0#) of {
__DEFAULT ->
case andI# (<# wild9_in6C 0#) (<# ww2_XL 0#) of {
__DEFAULT -> overflowError;
1# -> minInt `cast` <Co:2>
};
1# -> maxInt `cast` <Co:2>
};
0# -> (I# r#1_in5h) `cast` <Co:2>
}
}
}
};
-9223372036854775808# ->
case ww_imCq of wild9_in6D {
__DEFAULT ->
case quotInt# -9223372036854775808# wild9_in6D of wild10_in6E
{ __DEFAULT ->
case $w$cfromInteger
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning3
of ww2_XL
{ __DEFAULT ->
case addIntC# wild10_in6E ww2_XL of { (# r#1_in5h, ds1_in5i #) ->
case ds1_in5i of {
__DEFAULT ->
case andI# (># wild10_in6E 0#) (># ww2_XL 0#) of {
__DEFAULT ->
case andI# (<# wild10_in6E 0#) (<# ww2_XL 0#) of {
__DEFAULT -> overflowError;
1# -> minInt `cast` <Co:2>
};
1# -> maxInt `cast` <Co:2>
};
0# -> (I# r#1_in5h) `cast` <Co:2>
}
}
}
};
-1# -> lvl304_rs7N
}
}
}
}
}
}
};
0# -> case divZeroError of wild_00 { }
}
} } in
case (runCpu_in5X mem2_in61 (mem3_in63 `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt1_imMv ->
case (runMem_in5Y mem2_in61 (mem3_in63 `cast` <Co:2>))
`cast` <Co:1>
of
{ I# dt3_imMx ->
ExBudget dt1_imMv dt3_imMx
}
}
}
}
}
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
lvl306_rs7Q = go_rs7F lvl46_rs1w []
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
lvl307_rs7R = go_rs7F lvl43_rs1t []
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
lvl308_rs7S = go_rs7F lvl41_rs1r []
-- RHS size: {terms: 3, types: 1, coercions: 0, joins: 0/0}
lvl309_rs7T = go_rs7F lvl39_rs1p []
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl310_rs7U
= SrcLoc
lvl307_rs7R
lvl308_rs7S
lvl309_rs7T
lvl48_rs1y
lvl38_rs1o
lvl48_rs1y
lvl36_rs1m
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl311_rs7V = PushCallStack $dIP7_rs7K $dIP1_rs7J EmptyCallStack
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl312_rs7W = PushCallStack lvl306_rs7Q lvl310_rs7U lvl311_rs7V
-- RHS size: {terms: 38, types: 39, coercions: 4, joins: 0/2}
lvl313_rs7X
= \ wild6_inpX dt2_srHg ->
moduleError
(lvl312_rs7W `cast` <Co:4>)
$dIP7_rs7K
(go_rs7F
lvl59_rs26
(case $witos wild6_inpX [] of { (# ww1_ipv7, ww2_ipv8 #) ->
let {
z_ipuV
= go_rs7F
lvl60_rs27
(case $witos dt2_srHg [] of { (# ww5_X2, ww6_X3 #) ->
: ww5_X2 ww6_X3
}) } in
letrec {
go1_ipuX
= \ ds_ipuY ->
case ds_ipuY of {
[] -> z_ipuV;
: y_ipv1 ys_ipv2 -> : y_ipv1 (go1_ipuX ys_ipv2)
}; } in
go1_ipuX (: ww1_ipv7 ww2_ipv8)
}))
-- RHS size: {terms: 8, types: 0, coercions: 0, joins: 0/0}
lvl314_rs7Y
= SrcLoc
lvl307_rs7R
lvl308_rs7S
lvl309_rs7T
lvl37_rs1n
lvl38_rs1o
lvl37_rs1n
lvl36_rs1m
-- RHS size: {terms: 4, types: 0, coercions: 0, joins: 0/0}
lvl315_rs7Z = PushCallStack lvl306_rs7Q lvl314_rs7Y lvl311_rs7V
-- RHS size: {terms: 14, types: 13, coercions: 4, joins: 0/0}
lvl316_rs80
= \ wild6_inpX ->
moduleError
(lvl315_rs7Z `cast` <Co:4>)
$dIP7_rs7K
(go_rs7F
lvl62_rs2a
(case $witos wild6_inpX [] of { (# ww1_ipv7, ww2_ipv8 #) ->
: ww1_ipv7 ww2_ipv8
}))
Rec {
-- RHS size: {terms: 51, types: 22, coercions: 5, joins: 0/0}
$wgo4_rs81
= \ w_sqXn ww_sqXr ->
case w_sqXn of {
[] -> (I# ww_sqXr) `cast` <Co:5>;
: y_ipv1 ys_ipv2 ->
case lvl11_rs0V of { I# v1_B2 ->
case addIntC# v1_B2 ww_sqXr of { (# r#_inQS, ds3_inQT #) ->
case ds3_inQT of {
__DEFAULT ->
case andI# (># v1_B2 0#) (># ww_sqXr 0#) of {
__DEFAULT ->
case andI# (<# v1_B2 0#) (<# ww_sqXr 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo4_rs81 ys_ipv2 -9223372036854775808#
};
1# -> $wgo4_rs81 ys_ipv2 9223372036854775807#
};
0# -> $wgo4_rs81 ys_ipv2 r#_inQS
}
}
}
}
end Rec }
-- RHS size: {terms: 6, types: 1, coercions: 0, joins: 0/0}
lvl317_rs82
= case $w$cfromInteger lvl14_rs0Y of v_B2 { __DEFAULT -> I# v_B2 }
Rec {
-- RHS size: {terms: 51, types: 22, coercions: 5, joins: 0/0}
$wgo5_rs83
= \ w_sqXA ww_sqXE ->
case w_sqXA of {
[] -> (I# ww_sqXE) `cast` <Co:5>;
: y_ipv1 ys_ipv2 ->
case lvl11_rs0V of { I# v1_B2 ->
case addIntC# v1_B2 ww_sqXE of { (# r#_inQ9, ds3_inQa #) ->
case ds3_inQa of {
__DEFAULT ->
case andI# (># v1_B2 0#) (># ww_sqXE 0#) of {
__DEFAULT ->
case andI# (<# v1_B2 0#) (<# ww_sqXE 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo5_rs83 ys_ipv2 -9223372036854775808#
};
1# -> $wgo5_rs83 ys_ipv2 9223372036854775807#
};
0# -> $wgo5_rs83 ys_ipv2 r#_inQ9
}
}
}
}
end Rec }
Rec {
-- RHS size: {terms: 51, types: 22, coercions: 5, joins: 0/0}
$wgo6_rs84
= \ w_sqYl ww_sqYp ->
case w_sqYl of {
[] -> (I# ww_sqYp) `cast` <Co:5>;
: y_ipv1 ys_ipv2 ->
case lvl11_rs0V of { I# v1_B2 ->
case addIntC# v1_B2 ww_sqYp of { (# r#_inY0, ds3_inY1 #) ->
case ds3_inY1 of {
__DEFAULT ->
case andI# (># v1_B2 0#) (># ww_sqYp 0#) of {
__DEFAULT ->
case andI# (<# v1_B2 0#) (<# ww_sqYp 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo6_rs84 ys_ipv2 -9223372036854775808#
};
1# -> $wgo6_rs84 ys_ipv2 9223372036854775807#
};
0# -> $wgo6_rs84 ys_ipv2 r#_inY0
}
}
}
}
end Rec }
Rec {
-- RHS size: {terms: 51, types: 22, coercions: 5, joins: 0/0}
$wgo7_rs85
= \ w_sqYy ww_sqYC ->
case w_sqYy of {
[] -> (I# ww_sqYC) `cast` <Co:5>;
: y_ipv1 ys_ipv2 ->
case lvl11_rs0V of { I# v1_B2 ->
case addIntC# v1_B2 ww_sqYC of { (# r#_inXh, ds3_inXi #) ->
case ds3_inXi of {
__DEFAULT ->
case andI# (># v1_B2 0#) (># ww_sqYC 0#) of {
__DEFAULT ->
case andI# (<# v1_B2 0#) (<# ww_sqYC 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo7_rs85 ys_ipv2 -9223372036854775808#
};
1# -> $wgo7_rs85 ys_ipv2 9223372036854775807#
};
0# -> $wgo7_rs85 ys_ipv2 r#_inXh
}
}
}
}
end Rec }
Rec {
-- RHS size: {terms: 51, types: 22, coercions: 5, joins: 0/0}
$wgo8_rs86
= \ w_sqYL ww_sqYP ->
case w_sqYL of {
[] -> (I# ww_sqYP) `cast` <Co:5>;
: y_ipv1 ys_ipv2 ->
case lvl11_rs0V of { I# v1_B2 ->
case addIntC# v1_B2 ww_sqYP of { (# r#_inZr, ds3_inZs #) ->
case ds3_inZs of {
__DEFAULT ->
case andI# (># v1_B2 0#) (># ww_sqYP 0#) of {
__DEFAULT ->
case andI# (<# v1_B2 0#) (<# ww_sqYP 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo8_rs86 ys_ipv2 -9223372036854775808#
};
1# -> $wgo8_rs86 ys_ipv2 9223372036854775807#
};
0# -> $wgo8_rs86 ys_ipv2 r#_inZr
}
}
}
}
end Rec }
-- RHS size: {terms: 6, types: 1, coercions: 5, joins: 0/0}
mem1_rs87
= case $w$cfromInteger
$s$fToBuiltinMeaninguniDefaultFun_$ctoBuiltinMeaning3
of ww_imCq
{ __DEFAULT ->
(I# ww_imCq) `cast` <Co:5>
}
Rec {
-- RHS size: {terms: 51, types: 22, coercions: 5, joins: 0/0}
$wgo9_rs88
= \ w_sqZ0 ww_sqZ4 ->
case w_sqZ0 of {
[] -> (I# ww_sqZ4) `cast` <Co:5>;
: y_ipv1 ys_ipv2 ->
case lvl11_rs0V of { I# v1_B2 ->
case addIntC# v1_B2 ww_sqZ4 of { (# r#_io5R, ds3_io5S #) ->
case ds3_io5S of {
__DEFAULT ->
case andI# (># v1_B2 0#) (># ww_sqZ4 0#) of {
__DEFAULT ->
case andI# (<# v1_B2 0#) (<# ww_sqZ4 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo9_rs88 ys_ipv2 -9223372036854775808#
};
1# -> $wgo9_rs88 ys_ipv2 9223372036854775807#
};
0# -> $wgo9_rs88 ys_ipv2 r#_io5R
}
}
}
}
end Rec }
Rec {
-- RHS size: {terms: 342, types: 151, coercions: 5, joins: 0/0}
$wgo10_rs89
= \ w_sqZl ww_sqZp ->
case w_sqZl of {
[] -> (I# ww_sqZp) `cast` <Co:5>;
: y_ipv1 ys_ipv2 ->
case y_ipv1 of { (a1_iokq, b1_iokr) ->
case lvl11_rs0V of { I# v1_B2 ->
case $wsizeData a1_iokq of ww1_imwz { __DEFAULT ->
case $wsizeData b1_iokr of ww2_XG { __DEFAULT ->
case addIntC# ww1_imwz ww2_XG of { (# r#_iokD, ds3_iokE #) ->
case ds3_iokE of {
__DEFAULT ->
case andI# (># ww1_imwz 0#) (># ww2_XG 0#) of {
__DEFAULT ->
case andI# (<# ww1_imwz 0#) (<# ww2_XG 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# ->
case addIntC# v1_B2 -9223372036854775808# of
{ (# r#1_iokR, ds5_iokS #) ->
case ds5_iokS of {
__DEFAULT ->
case andI# (<# v1_B2 0#) 1# of {
__DEFAULT -> case overflowError of wild1_00 { };
1# ->
case addIntC# -9223372036854775808# ww_sqZp of
{ (# r#2_iokX, ds7_iokY #) ->
case ds7_iokY of {
__DEFAULT ->
case andI# 1# (<# ww_sqZp 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo10_rs89 ys_ipv2 -9223372036854775808#
};
0# -> $wgo10_rs89 ys_ipv2 r#2_iokX
}
}
};
0# ->
case addIntC# r#1_iokR ww_sqZp of { (# r#2_iokH, ds1_iokI #) ->
case ds1_iokI of {
__DEFAULT ->
case andI# (># r#1_iokR 0#) (># ww_sqZp 0#) of {
__DEFAULT ->
case andI# (<# r#1_iokR 0#) (<# ww_sqZp 0#) of {
__DEFAULT -> case overflowError of wild2_00 { };
1# -> $wgo10_rs89 ys_ipv2 -9223372036854775808#
};
1# -> $wgo10_rs89 ys_ipv2 9223372036854775807#
};
0# -> $wgo10_rs89 ys_ipv2 r#2_iokH
}
}
}
}
};
1# ->
case addIntC# v1_B2 9223372036854775807# of
{ (# r#1_iol3, ds5_iol4 #) ->
case ds5_iol4 of {
__DEFAULT ->
case andI# (># v1_B2 0#) 1# of {
__DEFAULT -> case overflowError of wild1_00 { };
1# ->
case addIntC# 9223372036854775807# ww_sqZp of
{ (# r#2_iol9, ds7_iola #) ->
case ds7_iola of {
__DEFAULT ->
case andI# 1# (># ww_sqZp 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo10_rs89 ys_ipv2 9223372036854775807#
};
0# -> $wgo10_rs89 ys_ipv2 r#2_iol9
}
}
};
0# ->
case addIntC# r#1_iol3 ww_sqZp of { (# r#2_iokH, ds1_iokI #) ->
case ds1_iokI of {
__DEFAULT ->
case andI# (># r#1_iol3 0#) (># ww_sqZp 0#) of {
__DEFAULT ->
case andI# (<# r#1_iol3 0#) (<# ww_sqZp 0#) of {
__DEFAULT -> case overflowError of wild2_00 { };
1# -> $wgo10_rs89 ys_ipv2 -9223372036854775808#
};
1# -> $wgo10_rs89 ys_ipv2 9223372036854775807#
};
0# -> $wgo10_rs89 ys_ipv2 r#2_iokH
}
}
}
}
};
0# ->
case addIntC# v1_B2 r#_iokD of { (# r#1_iolf, ds5_iolg #) ->
case ds5_iolg of {
__DEFAULT ->
case andI# (># v1_B2 0#) (># r#_iokD 0#) of {
__DEFAULT ->
case andI# (<# v1_B2 0#) (<# r#_iokD 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# ->
case addIntC# -9223372036854775808# ww_sqZp of
{ (# r#2_iolm, ds7_ioln #) ->
case ds7_ioln of {
__DEFAULT ->
case andI# 1# (<# ww_sqZp 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo10_rs89 ys_ipv2 -9223372036854775808#
};
0# -> $wgo10_rs89 ys_ipv2 r#2_iolm
}
}
};
1# ->
case addIntC# 9223372036854775807# ww_sqZp of
{ (# r#2_iols, ds7_iolt #) ->
case ds7_iolt of {
__DEFAULT ->
case andI# 1# (># ww_sqZp 0#) of {
__DEFAULT -> case overflowError of wild1_00 { };
1# -> $wgo10_rs89 ys_ipv2 9223372036854775807#
};
0# -> $wgo10_rs89 ys_ipv2 r#2_iols
}
}
};
0# ->
case addIntC# r#1_iolf ww_sqZp of { (# r#2_iokH, ds1_iokI #) ->
case ds1_iokI of {
__DEFAULT ->
case andI# (># r#1_iolf 0#) (># ww_sqZp 0#) of {
__DEFAULT ->
case andI# (<# r#1_iolf 0#) (<# ww_sqZp 0#) of {
__DEFAULT -> case overflowError of wild2_00 { };
1# -> $wgo10_rs89 ys_ipv2 -9223372036854775808#
};
1# -> $wgo10_rs89 ys_ipv2 9223372036854775807#
};
0# -> $wgo10_rs89 ys_ipv2 r#2_iokH
}
}
}
}
}
}
}
}
}
}
}
end Rec }
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
lvl318_rs8a = go3_rs7L 0#
-- RHS size: {terms: 11,520,
types: 14,161,
coercions: 6,859,
joins: 15/222}
mkMachineParametersFor
= \ @m_am0q $dMonadError_am0r eta_B0 ->
let {
$wlvl2_sqZN
= \ ww_sqZH ww1_sqZI ->
runRW#
(\ s_sr0g ->
case newArray# 54# arrEleBottom s_sr0g of
{ (# ipv_ioIm, ipv1_ioIn #) ->
let { lvl319_srYn = paramMkNilPairData ww1_sqZI } in
let { lvl320_srYa = paramMkNilData ww1_sqZI } in
let { lvl321_srXU = paramMkPairData ww1_sqZI } in
let { lvl322_srXM = paramSerialiseData ww1_sqZI } in
let { lvl323_srXw = paramEqualsData ww1_sqZI } in
let { lvl324_srXn = paramUnBData ww1_sqZI } in
let { lvl325_srXe = paramUnIData ww1_sqZI } in
let { lvl326_srX5 = paramUnListData ww1_sqZI } in
let { lvl327_srWW = paramUnMapData ww1_sqZI } in
let { lvl328_srWN = paramUnConstrData ww1_sqZI } in
let { lvl329_srWs = paramBData ww1_sqZI } in
let { lvl330_srWb = paramIData ww1_sqZI } in
let { lvl331_srVZ = paramListData ww1_sqZI } in
let { lvl332_srVL = paramMapData ww1_sqZI } in
let { lvl333_srVi = paramConstrData ww1_sqZI } in
let { lvl334_srV4 = paramChooseData ww1_sqZI } in
let { lvl335_srUN = paramNullList ww1_sqZI } in
let { lvl336_srUz = paramTailList ww1_sqZI } in
let { lvl337_srUl = paramHeadList ww1_sqZI } in
let { lvl338_srTV = paramMkCons ww1_sqZI } in
let { lvl339_srTE = paramChooseList ww1_sqZI } in
let { lvl340_srTm = paramSndPair ww1_sqZI } in
let { lvl341_srT4 = paramFstPair ww1_sqZI } in
let { lvl342_srSK = paramTrace ww1_sqZI } in
let { lvl343_srSy = paramChooseUnit ww1_sqZI } in
let { lvl344_srSk = paramIfThenElse ww1_sqZI } in
let { lvl345_srRS = paramDecodeUtf8 ww1_sqZI } in
let { lvl346_srRu = paramEncodeUtf8 ww1_sqZI } in
let { lvl347_srQD = paramEqualsString ww1_sqZI } in
let { lvl348_srPK = paramAppendString ww1_sqZI } in
let {
lvl349_srOD = paramVerifySchnorrSecp256k1Signature ww1_sqZI } in
let {
lvl350_srNw = paramVerifyEcdsaSecp256k1Signature ww1_sqZI } in
let { lvl351_srMi = paramVerifyEd25519Signature ww1_sqZI } in
let { lvl352_srLS = paramBlake2b_256 ww1_sqZI } in
let { lvl353_srLx = paramSha3_256 ww1_sqZI } in
let { lvl354_srL7 = paramSha2_256 ww1_sqZI } in
let { lvl355_srKe = paramLessThanEqualsByteString ww1_sqZI } in
let { lvl356_srJl = paramLessThanByteString ww1_sqZI } in
let { lvl357_srIo = paramEqualsByteString ww1_sqZI } in
let { lvl358_srGA = paramIndexByteString ww1_sqZI } in
let { lvl359_srGa = paramLengthOfByteString ww1_sqZI } in
let { lvl360_srEQ = paramSliceByteString ww1_sqZI } in
let {
lvl361_srEP
= case eta_B0 `cast` <Co:1> of {
DefaultFunV1 ->
case (costingFun_rs7P
($fExMemoryUsageInteger_$cmemoryUsage `cast` <Co:3>) ww1_sqZI)
`cast` <Co:18>
of nt_in85
{ __DEFAULT ->
BuiltinExpectArgument
(\ v_in86 ->
case v_in86 of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srEd x_srEe ->
case uniAct_srEd `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
case (nt_in85 (x_srEe `cast` <Co:3>)) `cast` <Co:6>
of nt1_in8z
{ __DEFAULT ->
BuiltinExpectArgument
(\ v1_in8A ->
case v1_in8A of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of
{ I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_XG ->
case val1_XG `cast` <Co:8> of
{ ValueOf uniAct1_srEj x1_srEk ->
case uniAct1_srEj `cast` <Co:8> of wild6_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of
{ I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn
`cast` <Co:6>)
($WDefaultUniByteString
`cast` <Co:8>)
(wild6_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co1_ipYf ->
case x1_srEk `cast` <Co:3> of wild7_srEm
{ BS dt_srEn dt1_srEo dt2_srEp ->
case (nt1_in8z wild7_srEm) `cast` <Co:3>
of nt2_in96
{ ExBudget ipv2_in97 ipv3_in98 ->
BuiltinResult
nt2_in96
(runRW#
(\ s1_sqCA ->
let { x2_in6R = +# dt2_srEp 1# } in
case <# x2_in6R 0# of {
__DEFAULT ->
case newPinnedByteArray#
x2_in6R s1_sqCA
of
{ (# ipv4_in6Z, ipv5_in70 #) ->
let {
ipv6_in6Y
= mutableByteArrayContents#
ipv5_in70 } in
let {
ipv7_in72
= PlainPtr ipv5_in70 } in
case keepAlive#
ipv7_in72
ipv4_in6Z
(\ s2_in7Q ->
case integerToWord#
(x_srEe
`cast` <Co:3>)
of wild8_in7R
{ __DEFAULT ->
case writeWord8OffAddr#
ipv6_in6Y
0#
(wordToWord8#
wild8_in7R)
s2_in7Q
of s3_in7S
{ __DEFAULT ->
case {__ffi_static_ccall_unsafe bytestring-0.11.3.1-3QerDoAWNKDFzx4R63X18a:memcpy :: Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State#
RealWorld,
Addr# #)}_in7T
(plusAddr#
ipv6_in6Y 1#)
dt_srEn
(int2Word#
dt2_srEp)
s3_in7S
of
{ (# ds4_in7V,
ds5_in7W #) ->
case touch#
dt1_srEo
ds4_in7V
of s'_in7Y
{ __DEFAULT ->
(# s'_in7Y, () #)
}
}
}
})
of
{ (# ipv8_in80, ipv9_in81 #) ->
case lazy
(BS
ipv6_in6Y
ipv7_in72
x2_in6R)
of vx_in9e
{ BS ipv10_in9f ipv11_in9g
ipv12_in9h ->
case unsafeEqualityProof of
{ UnsafeRefl co14_in9k ->
MakeKnownSuccess
(VCon
((ValueOf
(lvl91_rs3u
`cast` <Co:8>)
vx_in9e)
`cast` <Co:13>))
}
}
}
};
1# ->
case mallocPlainForeignPtrBytes2
of wild8_00 {
}
}))
}
}
}
}
})
}
}
}
})
};
DefaultFunV2 ->
case (costingFun_rs7P
($fExMemoryUsageWord1 `cast` <Co:9>) ww1_sqZI)
`cast` <Co:18>
of nt_in9p
{ __DEFAULT ->
BuiltinExpectArgument
(\ v_in9q ->
case v_in9q of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of { ValueOf uniAct_srEx x_srEy ->
case uniAct_srEx `cast` <Co:8> of wild2_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of { I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn `cast` <Co:6>)
($WDefaultUniInteger `cast` <Co:8>)
(wild2_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
case $fReadKnownInDefaultUnitermWord8_$stoIntegralSized
(x_srEy `cast` <Co:3>)
of {
Nothing -> $j1_rs1B;
Just w8_inh2 ->
case (nt_in9p w8_inh2) `cast` <Co:6> of nt1_inh4
{ __DEFAULT ->
BuiltinExpectArgument
(\ v1_inh5 ->
case v1_inh5 of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of
{ I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl) lvl78_rs3a
};
VCon val1_XG ->
case val1_XG `cast` <Co:8> of
{ ValueOf uniAct1_srEH x1_srEI ->
case uniAct1_srEH `cast` <Co:8>
of wild7_ipYe {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of
{ I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn
`cast` <Co:6>)
($WDefaultUniByteString
`cast` <Co:8>)
(wild7_ipYe `cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniByteString co1_ipYf ->
case x1_srEI `cast` <Co:3> of wild8_srEK
{ BS dt_srEL dt1_srEM dt2_srEN ->
case (nt1_inh4 wild8_srEK) `cast` <Co:3>
of nt2_inhx
{ ExBudget ipv2_inhy ipv3_inhz ->
BuiltinResult
nt2_inhx
(runRW#
(\ s1_inhG ->
let {
x2_inhH = +# dt2_srEN 1# } in
case <# x2_inhH 0# of {
__DEFAULT ->
case newPinnedByteArray#
x2_inhH s1_inhG
of
{ (# ipv4_inhP,
ipv5_inhQ #) ->
let {
ipv6_inhO
= mutableByteArrayContents#
ipv5_inhQ } in
let {
ipv7_inhS
= PlainPtr ipv5_inhQ } in
case keepAlive#
ipv7_inhS
ipv4_inhP
(\ s2_inhT ->
case w8_inh2 of
{ W8# x3_inhV ->
case writeWord8OffAddr#
ipv6_inhO
0#
x3_inhV
s2_inhT
of s3_inhX
{ __DEFAULT ->
case {__ffi_static_ccall_unsafe bytestring-0.11.3.1-3QerDoAWNKDFzx4R63X18a:memcpy :: Addr#
-> Addr#
-> Word#
-> State# RealWorld
-> (# State#
RealWorld,
Addr# #)}_inhY
(plusAddr#
ipv6_inhO
1#)
dt_srEL
(int2Word#
dt2_srEN)
s3_inhX
of
{ (# ds4_ini0,
ds5_ini1 #) ->
case touch#
dt1_srEM
ds4_ini0
of s'_ini3
{ __DEFAULT ->
(# s'_ini3, () #)
}
}
}
})
of
{ (# ipv8_ini5,
ipv9_ini6 #) ->
case lazy
(BS
ipv6_inhO
ipv7_inhS
x2_inhH)
of vx_ini8
{ BS ipv10_ini9 ipv11_inia
ipv12_inib ->
case unsafeEqualityProof of
{ UnsafeRefl co12_inie ->
MakeKnownSuccess
(VCon
((ValueOf
(lvl91_rs3u
`cast` <Co:8>)
vx_ini8)
`cast` <Co:13>))
}
}
}
};
1# ->
case mallocPlainForeignPtrBytes2
of wild9_00 {
}
}))
}
}
}
}
})
}
}
}
}
})
}
} } in
let { lvl362_srD7 = paramAppendByteString ww1_sqZI } in
let { lvl363_srCz = paramLessThanEqualsInteger ww1_sqZI } in
let { lvl364_srC1 = paramLessThanInteger ww1_sqZI } in
let { lvl365_srBt = paramEqualsInteger ww1_sqZI } in
let { lvl366_srAT = paramModInteger ww1_sqZI } in
let { lvl367_srAj = paramRemainderInteger ww1_sqZI } in
let { lvl368_srzJ = paramQuotientInteger ww1_sqZI } in
let { lvl369_srz9 = paramDivideInteger ww1_sqZI } in
let { lvl370_sryB = paramMultiplyInteger ww1_sqZI } in
let { lvl371_sry3 = paramSubtractInteger ww1_sqZI } in
let { lvl372_srxv = paramAddInteger ww1_sqZI } in
join {
$j6_ioIq wild4_ioIr
= case unsafeFreezeArray# ipv1_ioIn wild4_ioIr of
{ (# ipv2_ioIt, ipv3_ioIu #) ->
join {
exit_Xm
= (# ww_sqZH,
(Array AddInteger MkNilPairData 54# ipv3_ioIu)
`cast` <Co:6> #) } in
joinrec {
$wgo_sqW5 ww2_sqW3
= case ww2_sqW3 of wild_Xl {
__DEFAULT ->
case indexArray# ipv3_ioIu wild_Xl of { (# ipv4_iqo4 #) ->
case ipv4_iqo4 of { __DEFAULT -> jump $wgo_sqW5 (+# wild_Xl 1#) }
};
54# -> jump exit_Xm
}; } in
jump $wgo_sqW5 0#
} } in
joinrec {
go1_ioIy ds_ioIz eta5_ioIA eta6_ioIB
= case ds_ioIz of {
[] -> jump $j6_ioIq eta6_ioIB;
: y_ioIE ys_ioIF ->
case writeArray#
ipv1_ioIn
eta5_ioIA
(case y_ioIE of {
AddInteger ->
case lvl372_srxv of { CostingFun cpu_imKD mem_imKE ->
case runTwoArgumentModel cpu_imKD of runCpu_imKG
{ __DEFAULT ->
case runTwoArgumentModel mem_imKE of runMem_imKH
{ __DEFAULT ->
BuiltinExpectArgument
(\ v_imKM ->
case v_imKM of {
__DEFAULT -> lvl97_rs3B;
VCon val_ipY5 ->
case val_ipY5 `cast` <Co:8> of
{ ValueOf uniAct_srxC x_srxD ->
case uniAct_srxC `cast` <Co:8> of wild5_ipYj {
__DEFAULT ->
BuiltinExpectArgument
(\ _ ->
case $fMonoidExCPU2 `cast` <Co:1> of
{ I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn
`cast` <Co:6>)
($WDefaultUniInteger
`cast` <Co:8>)
(wild5_ipYj `cast` <Co:9>))
`cast` <Co:2>)))
});
DefaultUniInteger co_ipYk ->
BuiltinExpectArgument
(\ v1_imLJ ->
case v1_imLJ of {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1> of
{ I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
lvl78_rs3a
};
VCon val1_XG ->
case val1_XG `cast` <Co:8> of
{ ValueOf uniAct1_srxI x1_srxJ ->
case uniAct1_srxI `cast` <Co:8>
of wild8_XH {
__DEFAULT ->
case $fMonoidExCPU2 `cast` <Co:1>
of
{ I# dt1_ipUl ->
BuiltinResult
(ExBudget dt1_ipUl dt1_ipUl)
(MakeKnownFailure
(id `cast` <Co:3>)
(KnownTypeUnliftingError
(($dmreadKnown1
($fPrettySomeTypeIn
`cast` <Co:6>)
($WDefaultUniInteger
`cast` <Co:8>)
(wild8_XH
`cast` <Co:9>))
`cast` <Co:2>)))
};
DefaultUniInteger co1_XI ->
let {
mem2_imLv
= case integerEq#
(x_srxD
`cast` <Co:3>)
lvl14_rs0Y
of {
__DEFAULT ->
case integerAbs
(x_srxD
`cast` <Co:3>)
of {
IS i1_imLB ->
case <=# i1_imLB 0#
of {
__DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(minusWord#
63##
(clz#
(int2Word#
i1_imLB))))
64#)
1#))
of ww2_imCq
{ __DEFAULT ->
(I# ww2_imCq)
`cast` <Co:5>
};
1# ->
lvl191_rs5F
`cast` <Co:5>
};
IP b_imLE ->
case uncheckedIShiftRL#
(sizeofByteArray#
b_imLE)
3#
of wild11_imLG {
__DEFAULT ->
let {
i1_imLH
= minusWord#
(int2Word#
wild11_imLG)
1## } in
case indexWordArray#
b_imLE
(word2Int#
i1_imLH)
of wild12_imLI
{ __DEFAULT ->
case $w$cfromInteger
(IS
(+#
(quotInt#
(word2Int#
(plusWord#
63##
(minusWord#
(uncheckedShiftL#
i1_imLH
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment