diff options
| author | Enrico Tassi | 2018-06-19 16:48:12 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2018-06-19 16:48:12 +0200 |
| commit | 6715e6801c1d285a12eeca55dd8b831d7efb8c0d (patch) | |
| tree | 2b8925708d85f7cef5fb222d551cf809704f8ebd /vernac/classes.ml | |
| parent | c37881f3d64a6db0d7414eb18adfa4de6b64d4b1 (diff) | |
| parent | 133ac4fbb9a8b4213cb3f8ca2f7c2568931209ce (diff) | |
Merge PR #7797: Remove reference name type.
Diffstat (limited to 'vernac/classes.ml')
| -rw-r--r-- | vernac/classes.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index 8cf3895fb5..382d18b095 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -229,10 +229,7 @@ let new_instance ?(abstract=false) ?(global=false) ?(refine= !refine_instance) let sigma, c = interp_casted_constr_evars env' sigma term cty in Some (Inr (c, subst)), sigma | Some (Inl props) -> - let get_id = CAst.map (function - | Ident id' -> id' - | Qualid id' -> snd (repr_qualid id')) - in + let get_id qid = CAst.make ?loc:qid.CAst.loc @@ qualid_basename qid in let props, rest = List.fold_left (fun (props, rest) decl -> |