diff options
| author | Pierre-Marie Pédrot | 2018-06-13 10:25:20 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-06-13 10:25:20 +0200 |
| commit | c1d690443589a457b18b39b7003ccb762bcf401f (patch) | |
| tree | 723f70ee85dc2b646ea19d8afa03972d21c78820 /vernac/classes.ml | |
| parent | 573c6d76d343cadaa68b5851fdebba937153c24d (diff) | |
| parent | 1dd682b1cafd64dd902e1ae6ea738192eb9b26db (diff) | |
Merge PR #7677: [api] Remove Misctypes
Diffstat (limited to 'vernac/classes.ml')
| -rw-r--r-- | vernac/classes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index 946a7bb329..8cf3895fb5 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -145,7 +145,7 @@ let new_instance ?(abstract=false) ?(global=false) ?(refine= !refine_instance) (fun avoid (clname, _) -> match clname with | Some cl -> - let t = CAst.make @@ CHole (None, Misctypes.IntroAnonymous, None) in + let t = CAst.make @@ CHole (None, Namegen.IntroAnonymous, None) in t, avoid | None -> failwith ("new instance: under-applied typeclass")) cl @@ -255,7 +255,7 @@ let new_instance ?(abstract=false) ?(global=false) ?(refine= !refine_instance) k.cl_projs; c :: props, rest' with Not_found -> - ((CAst.make @@ CHole (None(* Some Evar_kinds.GoalEvar *), Misctypes.IntroAnonymous, None)) :: props), rest + ((CAst.make @@ CHole (None(* Some Evar_kinds.GoalEvar *), Namegen.IntroAnonymous, None)) :: props), rest else props, rest) ([], props) k.cl_props in |