X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2FgrafiteParser.ml;h=4da1d4477a405c92f7b42d22d10bdf4861ec0823;hb=164332b640d2c2e601350065b0074ba80426ea5c;hp=cf2a6f95b6336e2f5581e6abd8d0f8b51e46d8c7;hpb=bb1b8417c52c48d5c58df54c82182d00d40cdf77;p=helm.git

diff --git a/helm/software/components/grafite_parser/grafiteParser.ml b/helm/software/components/grafite_parser/grafiteParser.ml
index cf2a6f95b..4da1d4477 100644
--- a/helm/software/components/grafite_parser/grafiteParser.ml
+++ b/helm/software/components/grafite_parser/grafiteParser.ml
@@ -698,6 +698,8 @@ EXTEND
         let composites = match composites with None -> true | Some _ -> false in
         GrafiteAst.Coercion
          (loc, t, composites, arity, saturations)
+    | IDENT "prefer" ; IDENT "coercion"; t = tactic_term ->
+        GrafiteAst.PreferCoercion (loc, t)
     | IDENT "unification"; IDENT "hint"; t = tactic_term ->
         GrafiteAst.UnificationHint (loc, t)
     | IDENT "record" ; (params,name,ty,fields) = record_spec ->