diff options
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/glob_term_to_relation.ml | 2 | ||||
| -rw-r--r-- | plugins/funind/invfun.ml | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/plugins/funind/glob_term_to_relation.ml b/plugins/funind/glob_term_to_relation.ml index 490d52555c..b820489f53 100644 --- a/plugins/funind/glob_term_to_relation.ml +++ b/plugins/funind/glob_term_to_relation.ml @@ -1238,7 +1238,7 @@ let compute_params_name relnames (args : (Names.name * Glob_term.glob_constr * b let l = ref [] in let _ = try - List.iter_i + List.iteri (fun i ((n,nt,is_defined) as param) -> if Array.for_all (fun l -> diff --git a/plugins/funind/invfun.ml b/plugins/funind/invfun.ml index d8255e8342..bbc9ff93b3 100644 --- a/plugins/funind/invfun.ml +++ b/plugins/funind/invfun.ml @@ -122,10 +122,11 @@ let generate_type g_to_f f graph i = | _ -> let j = !i in incr i;mkRel (nb_args - j + 1) in (*i We need to name the vars [res] and [fv] i*) + let filter = function (Name id,_,_) -> Some id | (Anonymous,_,_) -> None in let res_id = Namegen.next_ident_away_in_goal (id_of_string "res") - (map_succeed (function (Name id,_,_) -> id | (Anonymous,_,_) -> failwith "") fun_ctxt) + (List.map_filter filter fun_ctxt) in let fv_id = Namegen.next_ident_away_in_goal |