@@ -27,7 +27,7 @@ Source
28 ++ add :: add
28 ++ add :: add
30− |= [a/@ b/@]
30+ |= [a=@ b=@]
32 ?: =(0 a) b
32 ?: =(0 a) b
33 $(a (dec a), b +(b))
33 $(a (dec a), b +(b))
@@ -64,7 +64,469 @@ Source
65 ++ dec :: decrement
65 ++ dec :: decrement
68+ ~_ leaf+"decrement-underflow"
81+ ! decrement-underflow
91+Computes `a` divided by `b`.
113+ ~_ leaf+"divide-by-zero"
118+ $(a (sub a b), c +(c))
137+Tests whether `a` is greater than a number `b`.
154+ ++ gte :: greater-equal
178+Tests whether `a` is greater than `b`.
195+ ++ gth :: greater-than
218+Tests whether `a` is less than or equal to `b`.
235+ ++ lte :: less-equal
261+Tests whether `a` is less than `b`.
286+ $(a (dec a), b (dec b))
307+Computes the greater of `a` and `b`.
348+Computes the lesser of `a` and `b`.
389+Computes the remainder of dividing `a` by `b`.
411+ (sub a (mul b (div a b)))
429+Multiplies `a` by `b`.
453+ $(a (dec a), c (add b c))
470+Subtracts `b` from `a`.
490+ ~| %subtract-underflow
493+ $(a (dec a), b (dec b))
505+ ! subtract-underflow
512+Decrements `a` by `1`.
68 ~| %decrement-underflow
530 ~| %decrement-underflow
69 ?< =(0 a)
531 ?< =(0 a)
@@ -107,7 +569,7 @@ Source
108 ++ div :: divide
570 ++ div :: divide
110− |= [a/@ b/@]
572+ |= [a=@ b=@]
113 ?< =(0 b)
575 ?< =(0 b)
@@ -152,7 +614,7 @@ Source
153 ++ gte :: greater-equal
615 ++ gte :: greater-equal
155− |= {a/@ b/@}
617+ |= [a=@ b=@]
157 !(lth a b)
619 !(lth a b)
@@ -193,7 +655,7 @@ Source
194 ++ gth :: greater-than
656 ++ gth :: greater-than
196− |= {a/@ b/@}
658+ |= [a=@ b=@]
198 !(lte a b)
660 !(lte a b)
@@ -233,7 +695,7 @@ Source
234 ++ lte :: less-equal
696 ++ lte :: less-equal
236− |= {a/@ b/@}
698+ |= [a=@ b=@]
237 |(=(a b) (lth a b))
699 |(=(a b) (lth a b))
@@ -276,7 +738,7 @@ Source
277 ++ lth :: less-than
739 ++ lth :: less-than
279− |= {a/@ b/@}
741+ |= [a=@ b=@]
281 ?& !=(a b)
743 ?& !=(a b)
@@ -322,7 +784,7 @@ Source
323 ++ max :: maximum
785 ++ max :: maximum
325− |= {a/@ b/@}
787+ |= [a=@ b=@]
327 ?: (gth a b) a
789 ?: (gth a b) a
@@ -363,7 +825,7 @@ Source
364 ++ min :: minimum
826 ++ min :: minimum
366− |= {a/@ b/@}
828+ |= [a=@ b=@]
368 ?: (lth a b) a
830 ?: (lth a b) a
@@ -485,7 +947,7 @@ Source
486 ++ sub :: subtract
948 ++ sub :: subtract
488− |= [a/@ b/@]
950+ |= [a=@ b=@]
489 ~| %subtract-underflow
951 ~| %subtract-underflow
491 ?: =(0 b) a
953 ?: =(0 b) a