fact: Definition parse_int (x : Number.int) : int := match x with | Number.IntDecimal (Decimal.Pos u) => Posz (Nat.of_uint u) | Number.IntDecimal (Decimal.Neg u) => Negz (Nat.of_uint u).-1 | Number.IntHexadecimal (Hexadecimal.Pos u) => Posz (Nat.of_hex_uint u) | Number.IntHexadecimal (Hexadecimal.Neg u) => Negz (Nat.of_hex_uint u).-1 end.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat choice seq) mathcomp(fintype finfun bigop order ssralg countalg ssrnum) mathcomp(poly)