anchor.diff:      opt_value: Options.option_val;
       opt_default: Options.option_val;
       opt_type: Options.opt_type;
  -    opt_snippet: string;
  +    opt_snippets: list<string>;
       opt_documentation: option<string>;
       opt_permission_level: fstar_option_permission_level }
   
  
positive.code:   | Options.ReverseAccumulated typ
    | Options.WithSideEffect (_, typ) -> kind_of_fstar_option_type typ
  
  let rec snippet_of_fstar_option name typ =
    "--" ^
    (match typ with
     | Options.Const _ -> name
     | typ -> String.concat "" [name; " ${"; (Options.desc_of_opt_type typ); "}"])
  
  let json_of_fstar_option opt =
    JsonAssoc [("name", JsonStr opt.opt_name);
  
negative.code: 
    run_autocomplete' st search_term filter
  
  let candidates_of_fstar_option match_len is_reset opt =
    let may_set, explanation =
      match opt.opt_permission_level with
      | OptSet -> true, ""
      | OptReset -> is_reset, "#reset-only"
      | OptReadOnly -> false, "read-only" in
    let opt_kind =
      kind_of_fstar_option_type opt.opt_type in
    let annot =
      if may_set then opt_kind else "(" ^ explanation ^ " " ^ opt_kind ^ ")" in
    opt.opt_snippets
    |> List.map (fun snippet ->
          { CompletionTable.completion_match_length = match_len;
            CompletionTable.completion_candidate = snippet;
            CompletionTable.completion_annotation = annot })
  
  let run_option_autocomplete st search_term is_reset =
    let opt_prefix = "--" in
    if Util.starts_with search_term opt_prefix then
      let __len = String.length opt_prefix in
      let search_term = Util.substring_from search_term __len in
      let matcher opt = Util.starts_with opt.opt_name search_term in
      let options = collect_fstar_options matcher in
  
      let match_len = __len + String.length search_term in
      let collect_candidates = candidates_of_fstar_option match_len is_reset in
      let results = List.concatMap collect_candidates options in
  
      let json = List.map CompletionTable.json_of_completion_result results in
      ((QueryOK, JsonList json), Inl st)
    else
      ((QueryNOK, JsonStr "Options should start with '--'"), Inl st)
  
  let run_autocomplete st search_term kind =
    match kind with
  