anchor.diff:          let b = mkFreeV bb in
           let x = mkFreeV xx in
           let y = mkFreeV yy in
  -        let valid = mkApp("Valid", [mkApp(eq3, [a;b;x;y])]) in
  -        [Term.Assume(mkForall([[valid]], [aa;bb;xx;yy], mkIff(mkEq(x, y), valid)), Some "Eq3 interpretation", "eq3-interp")] in
  +        let eq3_x_y = mkApp(eq3, [a;b;x;y]) in
  +        let valid = mkApp("Valid", [eq3_x_y]) in
  +        [Term.Assume(mkForall([[eq3_x_y]], [aa;bb;xx;yy], mkIff(mkEq(x, y), valid)), Some "Eq3 interpretation", "eq3-interp")] in
       let mk_imp_interp : env -> string -> term -> decls_t = fun env imp tt ->
           let aa = ("a", Term_sort) in
           let bb = ("b", Term_sort) in
           let a = mkFreeV aa in
           let b = mkFreeV bb in
  -        let valid = mkApp("Valid", [mkApp(imp, [a;b])]) in
  +        let l_imp_a_b = mkApp(imp, [a;b]) in
  +        let valid = mkApp("Valid", [l_imp_a_b]) in
           let valid_a = mkApp("Valid", [a]) in
           let valid_b = mkApp("Valid", [b]) in
  -        [Term.Assume(mkForall([[valid]], [aa;bb], mkIff(mkImp(valid_a, valid_b), valid)), Some "==> interpretation", "l_imp-interp")] in
  +        [Term.Assume(mkForall([[l_imp_a_b]], [aa;bb], mkIff(mkImp(valid_a, valid_b), valid)), Some "==> interpretation", "l_imp-interp")] in
       let mk_iff_interp : env -> string -> term -> decls_t = fun env iff tt ->
           let aa = ("a", Term_sort) in
           let bb = ("b", Term_sort) in
           let a = mkFreeV aa in
           let b = mkFreeV bb in
  -        let valid = mkApp("Valid", [mkApp(iff, [a;b])]) in
  +        let l_iff_a_b = mkApp(iff, [a;b]) in
  +        let valid = mkApp("Valid", [l_iff_a_b]) in
           let valid_a = mkApp("Valid", [a]) in
           let valid_b = mkApp("Valid", [b]) in
  -        [Term.Assume(mkForall([[valid]], [aa;bb], mkIff(mkIff(valid_a, valid_b), valid)), Some "<==> interpretation", "l_iff-interp")] in
  +        [Term.Assume(mkForall([[l_iff_a_b]], [aa;bb], mkIff(mkIff(valid_a, valid_b), valid)), Some "<==> interpretation", "l_iff-interp")] in
       let mk_not_interp : env -> string -> term -> decls_t = fun env l_not tt ->
           let aa = ("a", Term_sort) in
           let a = mkFreeV aa in
  -        let valid = mkApp("Valid", [mkApp(l_not, [a])]) in
  +        let l_not_a = mkApp(l_not, [a]) in
  +        let valid = mkApp("Valid", [l_not_a]) in
           let not_valid_a = mkNot <| mkApp("Valid", [a]) in
  -        [Term.Assume(mkForall([[valid]], [aa], mkIff(not_valid_a, valid)), Some "not interpretation", "l_not-interp")] in
  +        [Term.Assume(mkForall([[l_not_a]], [aa], mkIff(not_valid_a, valid)), Some "not interpretation", "l_not-interp")] in
       let mk_forall_interp : env -> string -> term -> decls_t = fun env for_all tt ->
           let aa = ("a", Term_sort) in
           let bb = ("b", Term_sort) in
  
positive.code:         let a = mkFreeV aa in
          let b = mkFreeV bb in
          let x = mkFreeV xx in
          let valid = mkApp("Valid", [mkApp(for_some, [a;b])]) in
          let valid_b_x = mkApp("Valid", [mk_ApplyTT b x]) in
          [Term.Assume(mkForall([[valid]], [aa;bb], mkIff(mkExists([[mk_HasTypeZ x a]], [xx], mkImp(mk_HasTypeZ x a, valid_b_x)), valid)),
                       Some "exists interpretation",
                       "exists-interp")] in
     let mk_range_interp : env -> string -> term -> decls_t = fun env range tt ->
  
negative.code:        let tname, ttok, env = new_term_constant_and_tok_from_lid env b2t.fv_name.v in
         let xx = ("x", Term_sort) in
         let x = mkFreeV xx in
         let b2t_x = mkApp("Prims.b2t", [x]) in
         let valid_b2t_x = mkApp("Valid", [b2t_x]) in //NS: Explicitly avoid the Vaild(b2t t) inlining
         let decls = [Term.DeclFun(tname, [Term_sort], Term_sort, None);
                      Term.Assume(mkForall([[b2t_x]], [xx],
                                             mkEq(valid_b2t_x, mkApp("BoxBool_proj_0", [x]))),
                                  Some "b2t def",
                                  "b2t_def")] in
         decls, env
  