anchor.diff:              | None -> branch_guard
               | Some w -> Util.mk_conj branch_guard w in
   
  -          branch_guard 
  +          branch_guard
     in
   
     let guard = Rel.conj_guard g_when g_branch in
  
positive.code:   (*                                                                                                    *)
    (* (d) Strengthen 6 (c) with the when condition, if there is one                                      *)
    let branch_guard =
        if not (Env.should_verify env) 
        then Util.t_true 
        else (* 6 (a) *)
            let rec build_branch_guard scrutinee_tm pat_exp : list<typ> =
              let discriminate scrutinee_tm f =
  
negative.code: 
      (* (a) eqs are equalities between the scrutinee and the pattern *)
      let eqs =
          if not (Env.should_verify env)
          then None
          else disj_exps |> List.fold_left (fun fopt e ->
                  let e = SS.compress e in
                  match e.n with
  