anchor.diff:        EBufCreate (Eternal, translate_expr env init, EConstant (UInt32, "1"))
   
     | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) }, [ _e0; e1; e2 ])
  -    when (string_of_mlpath p = "FStar.Buffer.rcreate") ->
  +    when (string_of_mlpath p = "FStar.Buffer.rcreate" || string_of_mlpath p = "LowStar.Buffer.rcreate") ->
         EBufCreate (Eternal, translate_expr env e1, translate_expr env e2)
   
     | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) } , [ _rid; init ])
  
positive.code:          ESequence [t; EAbort])
  
    | 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" ->
        EBufRead (translate_expr env e1, translate_expr env e2)
  
    | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) }, [ e ])
  
negative.code:     ->
        TBuf (translate_type env arg)
    | MLTY_Named ([arg], p) when
      Syntax.string_of_mlpath p = "LowStar.Buffer.buffer" ||
      Syntax.string_of_mlpath p = "FStar.Buffer.buffer" ||
      Syntax.string_of_mlpath p = "FStar.HyperStack.reference" ||
      Syntax.string_of_mlpath p = "FStar.HyperStack.stackref" ||
  