Commit f508c521 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan

Make to_mach_int more precise.

parent c1b55ac7
......@@ -42,7 +42,7 @@ Definition mach_int :=
{n : Z | bool_decide (mach_int_bounded n) }%Z.
Definition to_mach_int (n : Z) : option mach_int :=
match decide _ with
match decide (bool_decide (mach_int_bounded n)) with
| left H => Some (n H)
| right _ => None
end.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment