Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

fix subvalue check

Browse source
This commit is contained in:
Hongrui Fang 2023-04-05 22:22:45 +08:00
parent 9e2b3e0cd3
commit df48c12f6e
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
agora/Agora/Utils.hs
View file

@ -176,13 +176,13 @@ psubtractSortedValue = phoistAcyclic $ plam $ \a b ->
# (pfmap # pnegate)
# pto b
pisPositiveValue ::
pisNonNegativeValue ::
forall (kg :: KeyGuarantees) (am :: AmountGuarantees) (s :: S).
Term s (PValue kg am :--> PBool)
pisPositiveValue =
pisNonNegativeValue =
phoistAcyclic $
plam $
(AssocMap.pall # (AssocMap.pall # plam (0 #<)) #)
(AssocMap.pall # (AssocMap.pall # plam (0 #<=)) #)
. pto
pisSubValueOf ::
@ -194,7 +194,7 @@ pisSubValueOf ::
:--> PBool
)
pisSubValueOf = phoistAcyclic $ plam $ \vl vr ->
pisPositiveValue
pisNonNegativeValue
#$ psubtractSortedValue
# vl
# vr