]> matita.cs.unibo.it Git - helm.git/commitdiff
unification hint
authorEnrico Tassi <enrico.tassi@inria.fr>
Fri, 19 Dec 2008 10:07:15 +0000 (10:07 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Fri, 19 Dec 2008 10:07:15 +0000 (10:07 +0000)
helm/software/components/grafite_parser/grafiteParser.ml

index 51c7d07b267b8bb33d1b9432612a728ffe7c032d..cf2a6f95b6336e2f5581e6abd8d0f8b51e46d8c7 100644 (file)
@@ -698,6 +698,8 @@ EXTEND
         let composites = match composites with None -> true | Some _ -> false in
         GrafiteAst.Coercion
          (loc, t, composites, arity, saturations)
+    | IDENT "unification"; IDENT "hint"; t = tactic_term ->
+        GrafiteAst.UnificationHint (loc, t)
     | IDENT "record" ; (params,name,ty,fields) = record_spec ->
         GrafiteAst.Obj (loc, Ast.Record (params,name,ty,fields))
     | IDENT "default" ; what = QSTRING ; uris = LIST1 URI ->
@@ -743,7 +745,8 @@ EXTEND
     [ ex = executable ->
        fun ?(never_include=false) ~include_paths status -> status,LSome(GrafiteAst.Executable (loc,ex))
     | com = comment ->
-       fun ?(never_include=false) ~include_paths status -> status,LSome (GrafiteAst.Comment (loc, com))
+       fun ?(never_include=false) ~include_paths status -> 
+               status,LSome (GrafiteAst.Comment (loc, com))
     | (iloc,fname,mode) = include_command ; SYMBOL "."  ->
        !out fname;       
        fun ?(never_include=false) ~include_paths status ->