From 7e6ce51bf1a7beea6fa7818d2e5447ade79c30e7 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 27 Apr 2008 21:39:08 +0000
Subject: Quelques bricoles autour de l'unification: - Un patch pour le bug de
 non vérification du typage de Stéphane L. - Changement du fameux message
 "cannot solve a second-order matching problem"   en espérant, à défaut de
 savoir résoudre plus souvent le problème, que   le message est plus
 explicite. - Divers changements cosmétiques.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10860 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/pretype_errors.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'pretyping/pretype_errors.ml')

diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml
index cd32ac450a..06d1aa533b 100644
--- a/pretyping/pretype_errors.ml
+++ b/pretyping/pretype_errors.ml
@@ -32,6 +32,7 @@ type pretype_error =
   | CannotUnifyBindingType of constr * constr
   | CannotGeneralize of constr
   | NoOccurrenceFound of constr * identifier option
+  | CannotFindWellTypedAbstraction of constr * constr list
   (* Pretyping *)
   | VarNotFound of identifier
   | UnexpectedType of constr * constr
@@ -166,6 +167,9 @@ let error_cannot_unify_local env sigma (m,n,sn) =
 let error_cannot_coerce env sigma (m,n) =
   raise (PretypeError (env_ise sigma env,CannotUnify (m,n)))
 
+let error_cannot_find_well_typed_abstraction env sigma p l =
+  raise (PretypeError (env_ise sigma env,CannotFindWellTypedAbstraction (p,l)))
+
 (*s Ml Case errors *)
 
 let error_cant_find_case_type_loc loc env sigma expr =
-- 
cgit v1.2.3