fact: Definition DigitToString (n: {n | n < 10}) := match n with | exist 0 _ => "0" | exist 1 _ => "1" | exist 2 _ => "2" | exist 3 _ => "3" | exist 4 _ => "4" | exist 5 _ => "5" | exist 6 _ => "6" | exist 7 _ => "7" | exist 8 _ => "8" | exist 9 _ => "9" | exist n pr => False_rect _ (digitLtBase 10 pr) end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Numbers.Natural.Peano.NPeano Coq.Strings.String Coq.Arith.Lt Coq.Arith.Compare_dec Coq.Lists.List Coq.ZArith.ZArith