Got rid of a few warnings.

[helm.git] / helm / ocaml / cic_transformations / tacticAstPp.ml

diff --git a/helm/ocaml/cic_transformations/tacticAstPp.ml b/helm/ocaml/cic_transformations/tacticAstPp.ml
index 9882aa0e92b0335f0aef7467116c87e5c14e9c0a..822618eb4a18d0c70616086f287ccb21d4f438fb 100644 (file)
--- a/helm/ocaml/cic_transformations/tacticAstPp.ml
+++ b/helm/ocaml/cic_transformations/tacticAstPp.ml
@@ -85,6 +85,9 @@ let rec pp_tactic = function
   | Reduce (_, kind, Some (terms, `Everywhere)) ->
       sprintf "%s in hyp %s" (pp_reduction_kind kind)
         (String.concat ", " (List.map pp_term_ast terms))
+  | ReduceAt (_, kind, id, term) ->
+      sprintf "%s %s at %s" (pp_reduction_kind kind) id
+       (pp_term_ast term)
   | Reflexivity _ -> "reflexivity"
   | Replace (_, t1, t2) ->
       sprintf "replace %s with %s" (pp_term_ast t1) (pp_term_ast t2)