diff options
| author | filliatr | 1999-08-25 14:12:43 +0000 |
|---|---|---|
| committer | filliatr | 1999-08-25 14:12:43 +0000 |
| commit | 979451471e37a76ce15e45f7b174a49cbb73f9ae (patch) | |
| tree | 14ef4a6b2495e09c5f910fb65ffe136e5a15e3a0 /kernel/generic.ml | |
| parent | 14524e0b6ab7458d7b373fd269bb03b658dab243 (diff) | |
modules Instantiate, Constant et Inductive
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@22 85f007b7-540e-0410-9357-904b9bb8a0f7
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 = |