fact: Fixpoint N_of_hex_uint_acc (d : Hexadecimal.uint) (acc : N) : N := match d with | Hexadecimal.Nil => acc | Hexadecimal.D0 d => N_of_hex_uint_acc d (acc * 16) | Hexadecimal.D1 d => N_of_hex_uint_acc d (acc * 16 + 1) | Hexadecimal.D2 d => N_of_hex_uint_acc d (acc * 16 + 2) | Hexadecimal.D3 d => N_of_hex_uint_acc d (acc * 16 + 3) | Hexadecimal.D4 d => N_of_hex_uint_acc d (acc * 16 + 4) | Hexadecimal.D5 d => N_of_hex_uint_acc d (acc * 16 + 5) | Hexadecimal.D6 d => N_of_hex_uint_acc d (acc * 16 + 6) | Hexadecimal.D7 d => N_of_hex_uint_acc d (acc * 16 + 7) | Hexadecimal.D8 d => N_of_hex_uint_acc d (acc * 16 + 8) | Hexadecimal.D9 d => N_of_hex_uint_acc d (acc * 16 + 9) | Hexadecimal.Da d => N_of_hex_uint_acc d (acc * 16 + 10) | Hexadecimal.Db d => N_of_hex_uint_acc d (acc * 16 + 11) | Hexadecimal.Dc d => N_of_hex_uint_acc d (acc * 16 + 12) | Hexadecimal.Dd d => N_of_hex_uint_acc d (acc * 16 + 13) | Hexadecimal.De d => N_of_hex_uint_acc d (acc * 16 + 14) | Hexadecimal.Df d => N_of_hex_uint_acc d (acc * 16 + 15) end.
imports: elpi(elpi) Coq(QArith) Coq.micromega(OrderedRing RingMicromega) mathcomp(all_ssreflect ssralg ssrnum ssrint) mathcomp.zify(ssrZ zify)