]> matita.cs.unibo.it Git - helm.git/commitdiff
replace assert false with AssertFailure
authorEnrico Tassi <enrico.tassi@inria.fr>
Fri, 13 Jun 2008 12:01:37 +0000 (12:01 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Fri, 13 Jun 2008 12:01:37 +0000 (12:01 +0000)
helm/software/components/cic_unification/cicRefine.ml

index a70fe03aedd0d975dee70fb169dc13bdba90edb4..87b3f7f42a319f227f06ce9d9c7b3db5bfc85e53 100644 (file)
@@ -1627,7 +1627,8 @@ and type_of_aux' ?(clean_dummy_dependent_types=true) ?(localization_tbl = Cic.Ci
                    | Cic.Appl ((Cic.MutInd _|Cic.Meta _)::args) as mty,_ ->
                        snd (HExtlib.split_nth leftno args), mty
                    | _ -> assert false
-                 with CicTypeChecker.TypeCheckerFailure _ -> assert false
+                 with CicTypeChecker.TypeCheckerFailure _ -> 
+                    raise (AssertFailure(lazy "already ill-typed matched term"))
                in
                let new_outty =
                 keep_lambdas_and_put_expty context outty expty right_p m (rno+1)