diff options
| author | letouzey | 2007-07-11 21:48:04 +0000 |
|---|---|---|
| committer | letouzey | 2007-07-11 21:48:04 +0000 |
| commit | 5f2b3fd5c17c29ffc734eef05bdb22b44d015edf (patch) | |
| tree | 9b03e7a9800355412e364e0528c5214b622d4888 /contrib/funind | |
| parent | 2ed747a81ed14d91112b9b3360c6e5ab4ff897eb (diff) | |
Slight cleanup of refl_omega.ml : in particular it uses now list
utilities from Util. Some additions in Util, and simplifications
in various files.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9969 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/funind')
| -rw-r--r-- | contrib/funind/indfun.ml | 2 | ||||
| -rw-r--r-- | contrib/funind/indfun_main.ml4 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/funind/indfun.ml b/contrib/funind/indfun.ml index dc1dc2cfb2..0fa73f0963 100644 --- a/contrib/funind/indfun.ml +++ b/contrib/funind/indfun.ml @@ -516,7 +516,7 @@ let do_generate_principle on_error register_built interactive_proof fixpoint_exp (Topconstr.names_of_local_assums args) in let annot = - try Some (list_index (Name id) names - 1), Topconstr.CStructRec + try Some (list_index0 (Name id) names), Topconstr.CStructRec with Not_found -> raise (UserError("",str "Cannot find argument " ++ Ppconstr.pr_id id)) diff --git a/contrib/funind/indfun_main.ml4 b/contrib/funind/indfun_main.ml4 index 169542e3cd..b6398a3291 100644 --- a/contrib/funind/indfun_main.ml4 +++ b/contrib/funind/indfun_main.ml4 @@ -169,7 +169,7 @@ VERNAC ARGUMENT EXTEND rec_definition2 | Struct id -> id | Wf(_,Some id,_) -> id | Mes(_,Some id,_) -> id | Wf(_,None,_) | Mes(_,None,_) -> failwith "check_exists_args" in - (try ignore(Util.list_index (Name id) names - 1); annot + (try ignore(Util.list_index0 (Name id) names); annot with Not_found -> Util.user_err_loc (Util.dummy_loc,"Function", Pp.str "No argument named " ++ Nameops.pr_id id) |