fact: Fixpoint pos_of_uint (d : Decimal.uint) : option Pos := match d with | Decimal.Nil => None | Decimal.D0 l => pos_of_uint l | Decimal.D1 l => Some (pos_of_uint_acc l 1) | Decimal.D2 l => Some (pos_of_uint_acc l 1~0) | Decimal.D3 l => Some (pos_of_uint_acc l 1~1) | Decimal.D4 l => Some (pos_of_uint_acc l 1~0~0) | Decimal.D5 l => Some (pos_of_uint_acc l 1~0~1) | Decimal.D6 l => Some (pos_of_uint_acc l 1~1~0) | Decimal.D7 l => Some (pos_of_uint_acc l 1~1~1) | Decimal.D8 l => Some (pos_of_uint_acc l 1~0~0~0) | Decimal.D9 l => Some (pos_of_uint_acc l 1~0~0~1) end.
imports: Basics.Overture Basics.Tactics Basics.Decidable Spaces.Nat.Core