diff options
| author | herbelin | 2012-03-20 08:02:11 +0000 |
|---|---|---|
| committer | herbelin | 2012-03-20 08:02:11 +0000 |
| commit | 541ff113562c62381100caea84bf58ce5b2cd3ce (patch) | |
| tree | 5e194ce12f2a98843bb0a39818715838e1905bd7 /kernel/term.ml | |
| parent | 0a59c2e537040d3e74fd65cd738fa617cbd4f1e2 (diff) | |
Reorganizing the structure of evarutil.ml (only restructuration, no
change of semantics).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15060 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index 0a4782d8c1..ab676f0e9a 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -323,6 +323,7 @@ let isCast c = match kind_of_term c with Cast _ -> true | _ -> false (* Tests if a de Bruijn index *) let isRel c = match kind_of_term c with Rel _ -> true | _ -> false +let isRelN n c = match kind_of_term c with Rel n' -> n = n' | _ -> false (* Tests if a variable *) let isVar c = match kind_of_term c with Var _ -> true | _ -> false |