anchor.diff:      flags = []
     }) in
   
  -  let m_c, g_lift = edge.mlift.mlift_wp env pure_c in
  -  let bind_c, g_bind = mk_bind env pure_c None c flags r in
  -  bind_c, Env.conj_guard g_lift g_bind
  +  mk_bind env pure_c None c flags r
   
   let weaken_flags flags =
       if flags |> BU.for_some (function SHOULD_NOT_INLINE -> true | _ -> false)
  
positive.code:            r
           in
  
           lift_wp_and_bind_with env pure_assert_wp c flags
  
  let strengthen_precondition
              (reason:option<(unit -> string)>)
  
negative.code:     else mk_non_layered_bind env m ct1 b ct2 flags r1, Env.trivial_guard in
    c, Env.conj_guard g_lift g_bind
  
  let bind_pure_wp_with env (wp1:typ) (c:comp) (flags:list<cflag>) : comp * guard_t =
    let r = Env.get_range env in
  
    let pure_c = S.mk_Comp ({
      comp_univs = [S.U_zero];
  