diff options
author | 2008-06-21 17:10:28 +0000 | |
---|---|---|
committer | 2008-06-21 17:10:28 +0000 | |
commit | 8874a5916bc43acde325f67a73544a4beb65c781 (patch) | |
tree | dc87ed564b07fd3901d33f3e570d42df501654f7 /contrib/subtac/subtac_classes.mli | |
parent | 15682aeca70802dba6f7e13b66521d4ab9e13af9 (diff) |
Code cleanup in typeclasses, remove dead and duplicated code.
Change from named_context to rel_context for class params and fields.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11163 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/subtac_classes.mli')
-rw-r--r-- | contrib/subtac/subtac_classes.mli | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/subtac/subtac_classes.mli b/contrib/subtac/subtac_classes.mli index 99231f585..1cb03385b 100644 --- a/contrib/subtac/subtac_classes.mli +++ b/contrib/subtac/subtac_classes.mli @@ -26,11 +26,11 @@ open Classes val type_ctx_instance : Evd.evar_defs ref -> Environ.env -> - (Names.identifier * 'a * Term.constr) list -> + ('a * Term.constr option * Term.constr) list -> Topconstr.constr_expr list -> - (Names.identifier * Term.constr) list -> - (Names.identifier * Term.constr) list * - (Names.identifier * Term.constr option * Term.constr) list + Term.constr list -> + Term.constr list * + ('a * Term.constr option * Term.constr) list val new_instance : ?global:bool -> |