From 691d37218de76b0bf8084653ee85ddae43ff74a8 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Tue, 7 Sep 1999 12:51:05 +0000
Subject: mise en place commandes minicoq

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

(limited to 'kernel/typeops.ml')

diff --git a/kernel/typeops.ml b/kernel/typeops.ml
index 7e81618654..325d9fff37 100644
--- a/kernel/typeops.ml
+++ b/kernel/typeops.ml
@@ -32,6 +32,7 @@ let typed_type_of_judgment env j =
     | DOP0(Sort s) -> { body = j.uj_val; typ = s }
     | _ -> error_not_type CCI env j.uj_val
 
+(* same function, but with a different error message *)
 let assumption_of_judgement env j =
   match whd_betadeltaiota env j.uj_type with
     | DOP0(Sort s) -> { body = j.uj_val; typ = s }
-- 
cgit v1.2.3