anchor.diff:      || env.lax
       then e
       else if lcomp_has_trivial_postcondition lc
  -         && Option.isSome (Env.try_lookup_lid env C.with_type_lid) //and we're not very early in prims
  +         && Option.isSome (Env.try_lookup_lid env C.with_type_lid) //we have with_type in the environment
       then let u = match uopt with
                    | Some u -> u
                    | None -> env.universe_of env lc.res_typ
  
positive.code: let maybe_assume_result_eq_pure_term_in_m env (m_opt:option<lident>) (e:term) (lc:lcomp) : lcomp =
    let should_return =
        not (env.lax)
     && Env.lid_exists env C.effect_GTot_lid //we're not too early in prims
     && should_return env (Some e) lc
     && not (TcComm.is_lcomp_partial_return lc)
    in
  
negative.code:                       mk_bind c1 b c2 g
                   else if Options.vcgen_optimize_bind_as_seq()
                        && lcomp_has_trivial_postcondition lc1
                        && Option.isSome (Env.try_lookup_lid env C.with_type_lid) //and we have with_type in the environment
                   then // case (b)
                        let e1' =
                          if Options.vcgen_decorate_with_type()
  