From 719506ef7a6629e582207fbebc5969c0e2724ca0 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 29 Nov 2004 18:09:30 +0000
Subject: Complétion commit précédent
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6381 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/class.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'toplevel')

diff --git a/toplevel/class.ml b/toplevel/class.ml
index 355cdbc9c..9d288c81e 100644
--- a/toplevel/class.ml
+++ b/toplevel/class.ml
@@ -94,6 +94,7 @@ let explain_coercion_error g = function
 
 let rec arity_sort (ctx,a) = match kind_of_term a with
   | Sort (Prop _ | Type _) -> List.length ctx
+  | _ -> raise Not_found
 
 let check_reference_arity ref =
   let t = Global.type_of_global ref in
-- 
cgit v1.2.3