diff options
| author | Maxime Dénès | 2017-11-06 22:52:20 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-11-06 22:52:20 +0100 |
| commit | 0d81e80a09db7d352408be4dfc5ba263f6ed98ef (patch) | |
| tree | 2754ab2c5b6fb039b02fbe096940b112039f4e50 /vernac | |
| parent | e029cf5b417b22ebc65a8193469bbbe450f725ce (diff) | |
| parent | c71e69a9be2094061e041d60614b090c8381f0b7 (diff) | |
Merge PR #6064: [api] Deprecate all legacy uses of Name.Id in core.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/auto_ind_decl.ml | 2 | ||||
| -rw-r--r-- | vernac/lemmas.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/vernac/auto_ind_decl.ml b/vernac/auto_ind_decl.ml index 7af391758d..66a4a2e492 100644 --- a/vernac/auto_ind_decl.ml +++ b/vernac/auto_ind_decl.ml @@ -190,7 +190,7 @@ let build_beq_scheme mode kn = match EConstr.kind sigma c with | Rel x -> mkRel (x-nlist+ndx), Safe_typing.empty_private_constants | Var x -> - let eid = id_of_string ("eq_"^(string_of_id x)) in + let eid = Id.of_string ("eq_"^(Id.to_string x)) in let () = try ignore (Environ.lookup_named eid env) with Not_found -> raise (ParameterWithoutEquality (VarRef x)) diff --git a/vernac/lemmas.ml b/vernac/lemmas.ml index 9ab89c8832..dbf7fec660 100644 --- a/vernac/lemmas.ml +++ b/vernac/lemmas.ml @@ -506,7 +506,7 @@ let save_proof ?proof = function let env = Global.env () in let ids_typ = Environ.global_vars_set env typ in let ids_def = Environ.global_vars_set env pproof in - Some (Environ.keep_hyps env (Idset.union ids_typ ids_def)) + Some (Environ.keep_hyps env (Id.Set.union ids_typ ids_def)) | _ -> None in let decl = Proof_global.get_universe_decl () in let evd = Evd.from_ctx universes in |