diff options
| author | mohring | 2002-01-31 13:07:40 +0000 |
|---|---|---|
| committer | mohring | 2002-01-31 13:07:40 +0000 |
| commit | d3ca56683d0977ed4cb7acc0d61c5d83ecc939c1 (patch) | |
| tree | afb628657007ff33cdc2db21e769da76fe6c3d19 /kernel | |
| parent | 4fef76aefe06938fc724e66c08ff51b501cf0dfa (diff) | |
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
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/indtypes.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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 = |