diff options
| author | ppedrot | 2013-04-29 16:02:05 +0000 |
|---|---|---|
| committer | ppedrot | 2013-04-29 16:02:05 +0000 |
| commit | 4490dfcb94057dd6518963a904565e3a4a354bac (patch) | |
| tree | c35cdb94182d5c6e9197ee131d9fe2ebf5a7d139 /pretyping/typeclasses.ml | |
| parent | a188216d8570144524c031703860b63f0a53b56e (diff) | |
Splitting Term into five unrelated interfaces:
1. sorts.ml: A small file utility for sorts;
2. constr.ml: Really low-level terms, essentially kind_of_constr, smart
constructor and basic operators;
3. vars.ml: Everything related to term variables, that is, occurences
and substitution;
4. context.ml: Rel/Named context and all that;
5. term.ml: derived utility operations on terms; also includes constr.ml
up to some renaming, and acts as a compatibility layer, to be deprecated.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16462 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/typeclasses.ml')
| -rw-r--r-- | pretyping/typeclasses.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml index 86ff2a28fe..53171d02cb 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -11,6 +11,8 @@ open Names open Globnames open Decl_kinds open Term +open Vars +open Context open Sign open Evd open Environ @@ -109,7 +111,7 @@ let dest_class_app env c = global_class_of_constr env cl, args let dest_class_arity env c = - let rels, c = Term.decompose_prod_assum c in + let rels, c = decompose_prod_assum c in rels, dest_class_app env c let class_of_constr c = |