diff options
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") - |