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