let fpretty_term term pp_data fmt t = 
  if Wp_parameters.verbose_atleast 2 
  then fpp_term term pp_data fmt t
  else match t with

    | Tapp(("encode"|"decode"),[_;v]) ->
        Format.fprintf fmt "{%a}" term v

    | Tapp("access",[a;k]) ->
        Format.fprintf fmt "%a[%a]" term a term k

    | Tapp("update",[a;k;b]) ->
        Format.fprintf fmt "@[<hv 2>%a[%a@,->%a]@]" 
          term a term k term b

    | t -> 
        fpp_term term pp_data fmt t