anchor.diff:         | [] -> head
          | _ -> U.mk_app head args)
   
  -    | Accu (Rec(lb, bs), ts) ->
  +    | Accu (Rec(lb, lbs, bs), ts) ->
          let rec curry hd args =
          match args with
          | [] -> hd
  
positive.code:   | Var of var
    | Match of t * (* the scutinee *)
               (t -> t) (* the closure that pattern matches the scrutiny *)
    | Rec of letbinding * list<t> (* Danel: This wraps a unary F* rec. def. as a thunk in F# *)
  //IN F*: and t : Type0 =
  and t = //JUST FSHARP
    | Lam of (t -> t) * aqual
  
negative.code:                    | BU.Inl bv -> S.bv_to_name bv
                     | BU.Inr fv -> failwith "Not yet implemented"
             in
             S.mk (Tm_let((true, lbs), f)) None Range.dummyRange
           in
           let args = map_rev (fun (x, q) -> (readback env x, q)) ts in
           (match ts with
  