anchor.diff:  module D = FStar.Parser.ToDocument
   
   let bv_as_unique_ident (x:S.bv) : I.ident =
  -  let unique_name =  
  +  let unique_name =
       if starts_with reserved_prefix x.ppname.idText then
         x.ppname.idText ^ (string_of_int x.index)
       else
  
positive.code:       let pat = mk (A.PatVar(bv_as_unique_ident bv, None)) in
        mk (A.PatAscribed(pat, resugar_term term))
    in
      aux p
  
negative.code: 
  let filter_imp a = a |> List.filter (function (_, Some (S.Implicit _)) -> false | _ -> true)
  
  (* If resugar_arg_qual returns None, the corresponding binder should *not* be resugared *)
  let resugar_arg_qual (q:option<S.arg_qualifier>) : option<(option<A.arg_qualifier>)> =
    match q with
    | None -> Some None
    | Some (S.Implicit b) ->
      (* TODO : set an option to print these inaccessible patterns *)
      if b then None
      else Some (Some A.Implicit)
    | Some S.Equality -> Some (Some A.Equality)
  
  let rec universe_to_int n u =
    match u with
    | U_succ u -> universe_to_int (n+1) u
    | _ -> (n, u)
  
  let rec resugar_universe (u:S.universe) r: A.term =
    let mk (a:A.term') r: A.term =
      //augment `a` an Unknown level (the level is unimportant ... we should maybe remove it altogether)
      A.mk_term a r A.Un
    in
    begin match u with
      | U_zero ->
  