diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-09 22:00:34 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-09 22:00:34 +0000 |
commit | 4d37bb49bbeb640661748edc90904d2f9b299a74 (patch) | |
tree | 1455338e56818d030325b6d2571b8ec2bd115fe1 /parsing/pcoq.ml4 | |
parent | 865c375dc799b284e99f0408da80aed27553a55b (diff) |
Suppression redondance coerce_to_id dans Pcoq et constrintern et déplacement dans Topconstr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7826 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pcoq.ml4')
-rw-r--r-- | parsing/pcoq.ml4 | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4 index 9fc833b4d..cb45a9f45 100644 --- a/parsing/pcoq.ml4 +++ b/parsing/pcoq.ml4 @@ -620,10 +620,3 @@ let coerce_reference_to_id = function str "This expression should be a simple identifier") let coerce_global_to_id = coerce_reference_to_id - -let coerce_to_id = function - | CRef (Ident (loc,id)) -> (loc,id) - | a -> user_err_loc - (constr_loc a,"coerce_to_id", - str "This expression should be a simple identifier") - |