From d3ca56683d0977ed4cb7acc0d61c5d83ecc939c1 Mon Sep 17 00:00:00 2001
From: mohring
Date: Thu, 31 Jan 2002 13:07:40 +0000
Subject: changement generation de schema d'elimination, False_rec est
 primitif, Constructor tac

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

(limited to 'kernel')

diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml
index 4ab8d3cb53..2221fc111e 100644
--- a/kernel/indtypes.ml
+++ b/kernel/indtypes.ml
@@ -142,6 +142,7 @@ let is_unit constrsinfos =
   (* CP : relax this constraint which was related 
           to extraction 
           && is_logic_arity arinfos *)
+   | [] -> (* type without constructors *) true
    | _ -> false
 
 let rec infos_and_sort env t =
-- 
cgit v1.2.3