fact: Fixpoint special_tokens (rev_buf:string) (acc:list token) {struct rev_buf}: option (list token) := match rev_buf with "" => Some acc | String ";" tl => special_tokens tl (T_semicolon::acc) | String "=" (String ":" tl) => special_tokens tl (T_assign::acc) | String "<" tl => special_tokens tl (T_lt::acc) | String "+" tl => special_tokens tl (T_plus::acc) | String "(" tl => special_tokens tl (T_open::acc) | String ")" tl => special_tokens tl (T_close::acc) | String "{" tl => special_tokens tl (T_open_B::acc) | String "}" tl => special_tokens tl (T_close_B::acc) | String "[" tl => special_tokens tl (T_open_S::acc) | String "]" tl => special_tokens tl (T_close_S::acc) | String "-" tl => special_tokens tl (T_minus::acc) | String "," tl => special_tokens tl (T_comma::acc) | String "\" (String "/" tl) => special_tokens tl (T_conj::acc) | String "!" tl => special_tokens tl (T_bang::acc) | _ => None end.
imports: String Ascii List ZArith little_w_string