diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-10-11 17:27:20 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-10-11 17:27:20 +0000 |
commit | 301a70e45eac43f034077c95bce04edbcf2ab4ad (patch) | |
tree | d61c92f0d7a46203618a4610301c64d65c9c03ad /toplevel/command.ml | |
parent | 1d5b3f16e202af2874181671abd86a47fca37cd7 (diff) |
Suppression option immediate_discharge; nettoyage de Declare et conséquences
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2109 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
-rw-r--r-- | toplevel/command.ml | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index b93cc8b6a..51af38e20 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -308,7 +308,7 @@ let build_recursive lnameargsardef = let lrefrec = Array.mapi declare namerec in if_verbose pPNL (recursive_message lrefrec); (* The others are declared as normal definitions *) - let var_subst id = (id, global_reference CCI id) in + let var_subst id = (id, global_reference id) in let _ = List.fold_left (fun subst (f,def) -> @@ -370,7 +370,7 @@ let build_corecursive lnameardef = in let lrefrec = Array.mapi declare namerec in if_verbose pPNL (corecursive_message lrefrec); - let var_subst id = (id, global_reference CCI id) in + let var_subst id = (id, global_reference id) in let _ = List.fold_left (fun subst (f,def) -> @@ -385,17 +385,12 @@ let build_corecursive lnameardef = in () -let inductive_of_ident id = - let c = - try global_reference CCI id - with Not_found -> - errorlabstrm "inductive_of_ident" - [< 'sTR ((string_of_id id) ^ " not found") >] - in - match kind_of_term (global_reference CCI id) with - | IsMutInd ind -> ind - | _ -> errorlabstrm "inductive_of_ident" - [< 'sTR (string_of_id id); 'sPC; 'sTR "is not an inductive type" >] +let inductive_of_ident qid = + match Nametab.global dummy_loc qid with + | IndRef ind -> ind + | ref -> errorlabstrm "inductive_of_ident" + [< 'sTR (Global.string_of_global ref); + 'sPC; 'sTR "is not an inductive type">] let build_scheme lnamedepindsort = let lrecnames = List.map (fun (f,_,_,_) -> f) lnamedepindsort |