From 35180e3a927d4450406ebeb0e89fdcde1341650a Mon Sep 17 00:00:00 2001 From: herbelin Date: Sat, 28 Jan 2006 23:07:59 +0000 Subject: Réorganisation de la structure interne des types de déclarations (decl_kinds) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7941 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/subtac/rewrite.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'contrib/subtac/rewrite.ml') 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 -- cgit v1.2.3