def Health.pick
import gralha-bendquest@0.1.0.0/health.bend as Healthimport Base
173# These implementations use Base arithmetic, which the native compiler
174# implements with big integers. The refinement proofs below tie the fast
175# implementations to the inductive specification above.
176def Health.pick(+order: Cmp, +a: Nat, +b: Nat) -> Nat:
177 match order:
178 case LT{}:
179 a
180 case EQ{}:
181 a
182 case GT{}:
183 b