anchor.diff:              Err.log_issue t0.pos (Err.Warning_NotEmbedded, (BU.format1 "Not an embedded norm_step: %s" (Print.term_to_string t0)));
               None)
       in
  -    mk_emb em un S.t_norm_step
  +    mk_emb_with_printer em un S.t_norm_step printer
   
   
   let e_range =
  
positive.code:             Err.log_issue t0.pos (Err.Warning_NotEmbedded, (BU.format1 "Not an embedded string: %s" (Print.term_to_string t0)));
              None
      in
      mk_emb em un S.t_string
  
  let e_option (ea : embedding<'a>) =
      let t_option_a =
          let t_opt = U.fvar_const PC.option_lid in
          S.mk_Tm_app t_opt [S.as_arg ea.typ] None Range.dummyRange
      in
      let em (o:option<'a>) (rng:range) topt norm : term =
          lazy_embed rng t_option_a o (fun () ->
          match o with
          | None ->
            S.mk_Tm_app (S.mk_Tm_uinst (S.tdataconstr PC.none_lid) [U_zero])
  
negative.code: 
  let e_norm_step =
      let t_norm_step = U.fvar_const (Ident.lid_of_str "FStar.Syntax.Embeddings.norm_step") in
      let printer _ = "norm_step" in
      let em (n:norm_step) (rng:range) _topt norm : term =
          lazy_embed printer rng t_norm_step n (fun () ->
          match n with
          | Simpl ->
              steps_Simpl
  