fact: Fixpoint index (s : string) : positive := match s with | EmptyString => 1 | String a s' => positive_of_digits (list_bool_of_ascii a) (index s') end.
imports: Coq(ZArith) Coq(FMapInterface FMapPositive) Coq(FMapList FMapFacts) Coq(String Ascii List) StructTact(StructTactics StringOrders)