anchor.diff:    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), None) // Zoe: Leaving universe binder qualifier none for now; NS: makes sense
  +      | 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
   
  
positive.code:   (* Zoe : a recursive function definition together with its block of mutually recursive function definitions and its environment *)
  //IN F*: and t : Type0 =
  and t = //JUST FSHARP
    | Lam of (t -> t) * aqual //NS: * ((unit -> t) * aqual)
    | Accu of atom * args
    (* For simplicity represent constructors with fv as in F* *)
    | Construct of fv * list<universe> * args (* Zoe: This is used for both type and data constructors*)
  
negative.code:     | Type_t u ->
        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 body = readback env (f (mkAccuVar x)) in
        U.abs [(x, q)] body None
  
  