]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/ocaml/cic_transformations/tacticAstPp.ml
pretty printed Absurd's term
[helm.git] / helm / ocaml / cic_transformations / tacticAstPp.ml
index 089f8b896073a256682a0b6428e94295ae9f385d..75977662bf3e29b638bf93c397ba6ed5fd35a0b6 100644 (file)
@@ -38,7 +38,7 @@ let pp_reduction_kind = function
 
 let rec pp_tactic = function
   | LocatedTactic (loc, tac) -> pp_tactic tac
-  | Absurd -> "absurd"
+  | Absurd term -> "absurd" ^ pp_term term
   | Apply term -> "apply " ^ pp_term term
   | Assumption -> "assumption"
   | Change (t1, t2, where) ->