anchor.diff:          mk (A.Ascribed(resugar_term e, mk (A.Construct(name,[resugar_term t, A.Nothing]))))
         end
       
  -    | Tm_unknown _ -> mk A.Wild
  +    | Tm_unknown -> mk A.Wild
   
   and resugar_comp (c:S.comp) : A.term =
     let mk (a:A.term') : A.term =
  
positive.code:           end
  
          | Some ref_read when (ref_read = C.sread_lid.str) ->
            let (t, _) = args.Head in
            begin match (SS.compress t).n with
              | Tm_fvar fv when (U.field_projector_contains_constructor fv.fv_name.v.str) ->
                let f = lid_of_path [fv.fv_name.v.str] t.pos in
  
negative.code:             | _ -> failwith "wrong args format to QForall"
            end
          | Some "alloc" ->
            let (e, _ ) = List.hd args in
            resugar_term e
  
          | Some op ->
  