Procedural: we corrected two errors about the handling of mutcase (the "cases"

[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 db5fa1294383e2e60b35fc8cb3b5712922a81650..2a5d3c0b0777fe500bef007004befa0e436167c4 100644 (file)
--- a/helm/software/components/grafite_parser/grafiteParser.ml
+++ b/helm/software/components/grafite_parser/grafiteParser.ml
@@ -183,14 +183,15 @@ EXTEND
   ntactic: [
     [ IDENT "napply"; t = tactic_term -> GrafiteAst.NApply (loc, t)
     | IDENT "nassert";
+       seqs = LIST0 [
         hyps = LIST0
          [ id = IDENT ; SYMBOL ":" ; ty = tactic_term -> id,`Decl ty
          | id = IDENT ; SYMBOL ":" ; ty = tactic_term ;
                         SYMBOL <:unicode<def>> ; bo = tactic_term ->
             id,`Def (bo,ty)];
         SYMBOL <:unicode<vdash>>;
-        concl = tactic_term ->
-         GrafiteAst.NAssert (loc, hyps, concl)
+        concl = tactic_term -> (List.rev hyps,concl) ] ->
+         GrafiteAst.NAssert (loc, seqs)
     | IDENT "ncases"; what = tactic_term ; where = pattern_spec ->
         GrafiteAst.NCases (loc, what, where)
     | IDENT "nchange"; what = pattern_spec; "with"; with_what = tactic_term ->