diff options
| author | herbelin | 2001-01-24 16:24:23 +0000 |
|---|---|---|
| committer | herbelin | 2001-01-24 16:24:23 +0000 |
| commit | 9995a348f823bfcc0b36b105016c0457cc747121 (patch) | |
| tree | 9ac75364c65b09dc6fdd997d7f27d0ddd7430241 /kernel/term.ml | |
| parent | 2678739dcac301102dfeba7dfb9958d67f1cce0e (diff) | |
Ajout global_vars_decl
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1269 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index 7a3c7e0533..ee98a70549 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -1375,7 +1375,11 @@ let rec global_varsl l constr = match kind_of_term constr with | IsVar id -> id::l | _ -> fold_constr global_varsl l constr -let global_vars constr = global_varsl [] constr +let global_vars = global_varsl [] + +let global_vars_decl = function + | (_, None, t) -> global_vars t + | (_, Some c, t) -> (global_vars c)@(global_vars t) let global_vars_set constr = let rec filtrec acc c = match kind_of_term c with |