anchor.diff:      | None ->
         mk (A.Construct(C.effect_Tot_lid, [(t, A.Nothing)]))
       | Some u ->
  -      // where should we put the resugared universe? Add to the
  -      // list for now.
  +      // add the universe as the first argument
         let u = resugar_universe u c.pos in 
  -      mk (A.Construct(C.effect_Tot_lid, [(t, A.Nothing);(u, A.Nothing)]))
  +      mk (A.Construct(C.effect_Tot_lid, [(u, A.UnivApp);(t, A.Nothing)]))
       end
   
     | GTotal (typ, u) ->
  
positive.code:     | None ->
        mk (A.Construct(C.effect_GTot_lid, [(t, A.Nothing)]))
      | Some u ->
        // where should we put the resugared universe? Add to the
        // list for now.
        let u = resugar_universe u c.pos in 
        mk (A.Construct(C.effect_GTot_lid, [(t, A.Nothing);(u, A.Nothing)]))
      end
  
    | Comp c ->
  
negative.code:   | "op_String_Access" -> Some ".[]"
    | "op_Array_Access" -> Some ".()"
    | _ -> 
      if BU.starts_with s "op_" then
        let s = String.split ['_'] (BU.substring_from s (String.length "op_")) in
        match s with 
        | [op] -> name_of_op op
        | _ ->
          let op = List.fold_left(fun acc x -> match x with 
                                    | Some op -> acc ^ op 
                                    | None -> failwith "wrong composed operator format") 
                                    "" (List.map name_of_op s)  in
          Some op
      else
        None
  
  