fact: Fixpoint split_string (s : string) : (string * string) := match s with | EmptyString => ("", "") | String a s' => if Ascii.ascii_dec a "." then ("", s') else (let (s1, s2) := split_string s' in (String a s1, s2)) end%string.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Coq.Arith.PeanoNat Coq.Strings.Ascii Coq.Strings.String Fiat.Common.List.Operations Fiat.Common.StringOperations