]> matita.cs.unibo.it Git - helm.git/commitdiff
meta not considered before in outtype
authorEnrico Tassi <enrico.tassi@inria.fr>
Wed, 11 Jun 2008 09:24:08 +0000 (09:24 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Wed, 11 Jun 2008 09:24:08 +0000 (09:24 +0000)
helm/software/components/cic_unification/cicRefine.ml

index b5204de02f78baa2a6731d25c5e61bfe7aa11cef..a70fe03aedd0d975dee70fb169dc13bdba90edb4 100644 (file)
@@ -1623,8 +1623,8 @@ and type_of_aux' ?(clean_dummy_dependent_types=true) ?(localization_tbl = Cic.Ci
                      CicTypeChecker.type_of_aux' ~subst metasenv context m
                        CicUniv.oblivion_ugraph 
                    with
-                   | Cic.MutInd _ as mty,_ -> [], mty
-                   | Cic.Appl (Cic.MutInd _::args) as mty,_ ->
+                   | (Cic.MutInd _ | Cic.Meta _) as mty,_ -> [], mty
+                   | Cic.Appl ((Cic.MutInd _|Cic.Meta _)::args) as mty,_ ->
                        snd (HExtlib.split_nth leftno args), mty
                    | _ -> assert false
                  with CicTypeChecker.TypeCheckerFailure _ -> assert false