- Level-1: some fixes to the extraction procedure

[helm.git] / components / grafite / grafiteAst.ml

diff --git a/components/grafite/grafiteAst.ml b/components/grafite/grafiteAst.ml
index dc7db34bc24b480d7de31bd918f410041882135e..efcd210713db9c3f2bafa06733f47d3108975883 100644 (file)
--- a/components/grafite/grafiteAst.ml
+++ b/components/grafite/grafiteAst.ml
@@ -83,6 +83,7 @@ type ('term, 'lazy_term, 'reduction, 'ident) tactic =
   | Right of loc
   | Ring of loc
   | Split of loc
+  | Subst of loc * string
   | Symmetry of loc
   | Transitivity of loc * 'term
   (* Costruttori Aggiunti *)