anchor.diff:        EPopFrame
     | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) }, [ e1; e2; e3; e4; e5 ]) when (
         string_of_mlpath p = "FStar.Buffer.blit" ||
  -      string_of_mlpath p = "LowStar.Monotonic.Buffer.blit"
  +      string_of_mlpath p = "LowStar.Monotonic.Buffer.blit" ||
  +      string_of_mlpath p = "LowStar.UninitializedBuffer.ublit"
       ) ->
         EBufBlit (translate_expr env e1, translate_expr env e2, translate_expr env e3, translate_expr env e4, translate_expr env e5)
     | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) }, [ e1; e2; e3 ]) when (string_of_mlpath p = "FStar.Buffer.fill") ->
  
positive.code:           string_of_mlpath p = "LowStar.ImmutableBuffer.igcmalloc") ->
        EBufCreate (Eternal, translate_expr env e1, translate_expr env e2)
  
    | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) } , [ _rid; init ])
      when (string_of_mlpath p = "FStar.HyperStack.ST.ralloc_mm") ->
        EBufCreate (ManuallyManaged, translate_expr env init, EConstant (UInt32, "1"))
  
negative.code:   | MLTY_Named ([arg], p) when
      Syntax.string_of_mlpath p = "FStar.Buffer.buffer" ||
      Syntax.string_of_mlpath p = "LowStar.Buffer.buffer" ||
      Syntax.string_of_mlpath p = "LowStar.ImmutableBuffer.ibuffer" ||
      Syntax.string_of_mlpath p = "LowStar.UninitializedBuffer.ubuffer" ||
      Syntax.string_of_mlpath p = "FStar.HyperStack.reference" ||
      Syntax.string_of_mlpath p = "FStar.HyperStack.stackref" ||
      Syntax.string_of_mlpath p = "FStar.HyperStack.ref" ||
  