anchor.diff:        S.mk (Tm_type u) None Range.dummyRange
   
       | Lam (f, t, q) ->
  -      let x = S.new_bv None (readback env t) in (* (readback env t) is the type of the binder *)
  +      let x = S.new_bv None (readback env (t ())) in (* (readback env t) is the type of the binder *)
         let body = readback env (f (mkAccuVar x)) in
         U.abs [(x, q)] body None
   
  
positive.code:   let rec make_univ_abst (us:list<univ_name>) (bs:list<t>) (def:term) : t =
      match us with
      | [] -> translate env bs def
        | u :: us' -> Lam ((fun u -> make_univ_abst us' (u :: bs) def), Constant Unit, None) // Zoe: Bogus type! The idea is that we will never readback these lambdas
    in
    make_univ_abst lb.lbunivs bs lb.lbdef
  
  
negative.code:           | [] -> head
            | _ -> U.mk_app head args)
  
  let normalize (env : Env.env) (e:term) : term =
    //debug_sigmap env.sigtab;
    readback env (translate env [] e)
  