X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=components%2Fgrafite_parser%2FgrafiteDisambiguate.ml;h=0c64bbb0794ece3e80c68de116ce640dfbfde413;hb=3f38b6dc5e48855b7a2170de5a5ccb30aded766c;hp=7d110e2df6a5e4844d894d4ab96f2afb5ee92691;hpb=673e954b37f3a23e73208c67267c7e9d31e3916d;p=helm.git

diff --git a/components/grafite_parser/grafiteDisambiguate.ml b/components/grafite_parser/grafiteDisambiguate.ml
index 7d110e2df..0c64bbb07 100644
--- a/components/grafite_parser/grafiteDisambiguate.ml
+++ b/components/grafite_parser/grafiteDisambiguate.ml
@@ -148,24 +148,8 @@ let disambiguate_tactic
     | GrafiteAst.Cut (loc, ident, term) -> 
         let metasenv,cic = disambiguate_term context metasenv term in
         metasenv,GrafiteAst.Cut (loc, ident, cic)
-    | GrafiteAst.Decompose (loc, types, what, names) ->
-        let disambiguate (metasenv,types) = function
-           | GrafiteAst.Type _   -> assert false
-           | GrafiteAst.Ident id ->
-              (match
-                disambiguate_term context metasenv
-                 (CicNotationPt.Ident(id, None))
-               with
-                | metasenv,Cic.MutInd (uri, tyno, _) ->
-                    metasenv,(GrafiteAst.Type (uri, tyno) :: types)
-                | _ ->
-                  raise (GrafiteDisambiguator.DisambiguationError
-                   (0,[[[],[],None,lazy "Decompose works only on inductive types",true]])))
-        in
-        let metasenv,types =
-         List.fold_left disambiguate (metasenv,[]) types
-        in
-         metasenv,GrafiteAst.Decompose (loc, types, what, names)
+    | GrafiteAst.Decompose (loc, names) ->
+         metasenv,GrafiteAst.Decompose (loc, names)
     | GrafiteAst.Demodulate loc ->
         metasenv,GrafiteAst.Demodulate loc
     | GrafiteAst.Destruct (loc,term) ->