diff options
Diffstat (limited to 'kernel/generic.ml')
| -rw-r--r-- | kernel/generic.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/generic.ml b/kernel/generic.ml index 9adc53ce68..3e33dca7b7 100644 --- a/kernel/generic.ml +++ b/kernel/generic.ml @@ -570,6 +570,9 @@ let rel_list n m = in reln [] 1 +let rec count_dlam = function + | DLAM (_,c) -> 1 + (count_dlam c) + | _ -> 0 (* Hash-consing *) let comp_term t1 t2 = |