diff options
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 = |