anchor.diff:  
     | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) }, [ e1; e2; e3 ])
       when string_of_mlpath p = "FStar.Buffer.upd" || string_of_mlpath p = "FStar.Buffer.op_Array_Assignment"
  -    || string_of_mlpath p = "LowStar.Monotonic.Buffer.upd'" ->
  +    || string_of_mlpath p = "LowStar.Monotonic.Buffer.upd'"
  +    || string_of_mlpath p = "LowStar.UninitializedBuffer.uupd" ->
         EBufWrite (translate_expr env e1, translate_expr env e2, translate_expr env e3)
     | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) }, [ e1; e2 ])
       when string_of_mlpath p = "FStar.HyperStack.ST.op_Colon_Equals" ->
  
positive.code: 
    | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) }, [ e1; e2 ])
      when string_of_mlpath p = "FStar.Buffer.index" || string_of_mlpath p = "FStar.Buffer.op_Array_Access"
        || string_of_mlpath p = "LowStar.Monotonic.Buffer.index" ->
        EBufRead (translate_expr env e1, translate_expr env e2)
  
    | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) }, [ e ])
  
negative.code:       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.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") ->
  