why/min.mlw
2008-08-05 16:49:17 +00:00

4 lines
No EOL
136 B
Text

logic min: int, int -> int
axiom min_ax: forall x,y:int. min(x,y) <= x
parameter r: int ref
let f (n:int) = {} r := min !r n { r <= r@ }