diff options
| author | Pierre-Marie Pédrot | 2019-08-27 16:50:06 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-08-27 16:50:06 +0200 |
| commit | 1e1d5bf3879424688fa9231ba057b05d86674d22 (patch) | |
| tree | 168332da00b5f5b2faed3bae6ceeda03123cc126 /plugins/funind/indfun_common.ml | |
| parent | 0c6726655ee0ec06a40240cca44202d584506c9c (diff) | |
| parent | 1f972321c232b8e2445008af763fcae4ac4ea946 (diff) | |
Merge PR #10635: [funind] Port indfun to the new tactic engine.
Reviewed-by: ppedrot
Diffstat (limited to 'plugins/funind/indfun_common.ml')
| -rw-r--r-- | plugins/funind/indfun_common.ml | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/plugins/funind/indfun_common.ml b/plugins/funind/indfun_common.ml index 52a29fb559..7719705138 100644 --- a/plugins/funind/indfun_common.ml +++ b/plugins/funind/indfun_common.ml @@ -92,13 +92,6 @@ let list_union_eq eq_fun l1 l2 = let list_add_set_eq eq_fun x l = if List.exists (eq_fun x) l then l else x::l -let const_of_id id = - let princ_ref = qualid_of_ident id in - try Constrintern.locate_reference princ_ref - with Not_found -> - CErrors.user_err ~hdr:"IndFun.const_of_id" - (str "cannot find " ++ Id.print id) - [@@@ocaml.warning "-3"] let coq_constant s = UnivGen.constr_of_monomorphic_global @@ @@ -301,20 +294,16 @@ let find_or_none id = ) with Not_found -> None - - let find_Function_infos f = - Cmap_env.find f !from_function - + Cmap_env.find_opt f !from_function let find_Function_of_graph ind = - Indmap.find ind !from_graph + Indmap.find_opt ind !from_graph let update_Function finfo = (* Pp.msgnl (pr_info finfo); *) Lib.add_anonymous_leaf (in_Function finfo) - let add_Function is_general f = let f_id = Label.to_id (Constant.label f) in let equation_lemma = find_or_none (mk_equation_id f_id) |