fact: Fixpoint pos_to_little_uint p := match p with | 1 => Decimal.D1 Decimal.Nil | p~1 => Decimal.Little.succ_double (pos_to_little_uint p) | p~0 => Decimal.Little.double (pos_to_little_uint p) end.
imports: Basics.Overture Basics.Tactics Basics.Decidable Spaces.Nat.Core