fact: Definition parse (x : Number.int) : Inatmul := match x with | Number.IntDecimal (Decimal.Pos u) => INatmul IOne (Nat.of_uint u) | Number.IntDecimal (Decimal.Neg u) => IOpp (INatmul IOne (Nat.of_uint u)) | Number.IntHexadecimal (Hexadecimal.Pos u) => INatmul IOne (Nat.of_hex_uint u) | Number.IntHexadecimal (Hexadecimal.Neg u) => IOpp (INatmul IOne (Nat.of_hex_uint u)) end.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq) mathcomp(choice fintype finfun bigop prime binomial)