anchor.diff:  
   
       let _, _, g_f = tc_tot_or_gtot_term env tm_subcomp_ascribed_f in
  -    let g_f = Env.imp_guard (Env.guard_of_guard_formula (NonTrivial p_t)) g_f in
  +    let g_f = Env.imp_guard (Env.guard_of_guard_formula (p_t |> U.b2t |> NonTrivial)) g_f in
       Rel.force_trivial_guard env g_f;
   
   
  
positive.code:     let g_bs, guard_g =
        let repr, g = fresh_repr r (Env.push_binders env bs) u_a (a |> fst |> S.bv_to_name) in
        S.gen_bv "g" None repr |> S.mk_binder, g in
      let p_b = S.gen_bv "p" None U.ktype0 |> S.mk_binder in
      let t_body, guard_body = fresh_repr r (Env.push_binders env (bs@[p_b])) u_a (a |> fst |> S.bv_to_name) in
      let k = U.abs (bs@[f_bs; g_bs; p_b]) t_body None in
      let guard_eq = Rel.teq env t k in
  
negative.code:     let g_g =
        let not_p = S.mk_Tm_app
          (S.lid_as_fv PC.not_lid S.delta_constant None |> S.fv_to_tm)
          [p_t |> U.b2t |> S.as_arg]
          r in
        Env.imp_guard (Env.guard_of_guard_formula (NonTrivial not_p)) g_g in
      Rel.force_trivial_guard env g_g in
  