anchor.diff:      | _ ->
         failwith (BU.format1 "Not an embedded list: %s" (Print.term_to_string l))
   
  -let embed_binders l = embed_list embed_binder Data.fstar_refl_binder l
  +let embed_binders l = embed_list embed_binder fstar_refl_binder l
   let unembed_binders t = unembed_list unembed_binder t
   
   let embed_term (t:term) : term =
  -    protect_embedded_term Data.fstar_refl_term t
  +    protect_embedded_term fstar_refl_term t
   
   let unembed_term (t:term) : term =
       un_protect_embedded_term t
  
positive.code: let lid_tuple2   = U.mk_tuple_lid 2 Range.dummyRange
  
  let embed_binder (b:binder) : term =
      protect_embedded_term Data.fstar_refl_binder (S.bv_to_name (fst b))
  
  let unembed_binder (t:term) : binder =
      let t = un_protect_embedded_term t in
  
negative.code: module U = FStar.Syntax.Util
  module Print = FStar.Syntax.Print
  module Ident = FStar.Ident
  
  (* These file provides implementation for reflection primitives in F*.
   * 
  