diff options
author | 2006-01-28 23:07:59 +0000 | |
---|---|---|
committer | 2006-01-28 23:07:59 +0000 | |
commit | 35180e3a927d4450406ebeb0e89fdcde1341650a (patch) | |
tree | 7fe926a33569320b25c1fa972904354b067061ea /contrib/subtac/rewrite.ml | |
parent | adadd8db0e9eb1e5161057a7064426b84a3d2605 (diff) |
Réorganisation de la structure interne des types de déclarations (decl_kinds)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7941 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/rewrite.ml')
-rw-r--r-- | contrib/subtac/rewrite.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/subtac/rewrite.ml b/contrib/subtac/rewrite.ml index 201f2d48b..afbbd18af 100644 --- a/contrib/subtac/rewrite.ml +++ b/contrib/subtac/rewrite.ml @@ -539,8 +539,8 @@ and rewrite_term prog_info ctx (t : dterm_loc) : Term.constr * Term.types = in aux ctx t -let global_kind : Decl_kinds.global_kind = Decl_kinds.IsDefinition -let goal_kind = Decl_kinds.IsGlobal Decl_kinds.DefinitionBody +let global_kind = Decl_kinds.IsDefinition Decl_kinds.Definition +let goal_kind = Decl_kinds.Global, Decl_kinds.DefinitionBody Decl_kinds.Definition let make_fixpoint t id term = let term' = mkLambda (Name id, t.f_fulltype, term) in |