added letin, still broken

[helm.git] / helm / software / components / grafite_parser / grafiteParser.ml

diff --git a/helm/software/components/grafite_parser/grafiteParser.ml b/helm/software/components/grafite_parser/grafiteParser.ml
index dacdc28bdb936f9035d6fc27f5633f0530c38134..56da062e87a3b3d9087002e55c826a02f991774b 100644 (file)
--- a/helm/software/components/grafite_parser/grafiteParser.ml
+++ b/helm/software/components/grafite_parser/grafiteParser.ml
@@ -190,6 +190,9 @@ EXTEND
         GrafiteAst.NElim (loc, what, where)
     | IDENT "ngeneralize"; p=pattern_spec ->
         GrafiteAst.NGeneralize (loc, p)
+    | IDENT "nletin"; name = IDENT ; SYMBOL <:unicode<def>> ; t = tactic_term;
+        where = pattern_spec ->
+        GrafiteAst.NLetIn (loc,where,t,name)
     | IDENT "nrewrite"; dir = direction; what = tactic_term ; where = pattern_spec ->
         GrafiteAst.NRewrite (loc, dir, what, where)
     | IDENT "nwhd"; delta = OPT [ IDENT "nodelta" -> () ];