diff options
| author | jforest | 2006-05-23 16:37:15 +0000 |
|---|---|---|
| committer | jforest | 2006-05-23 16:37:15 +0000 |
| commit | 67d9bf01b77bf479126dee6b47318618831ef3fc (patch) | |
| tree | 16a49f6c171e762cf53acf84248a8a093e010ee7 /contrib/funind | |
| parent | 1ab5ab37724864b1d4fbe1ad4777b24093235270 (diff) | |
Error during last commit (coq didn't compile)
Bug correction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8851 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/funind')
| -rw-r--r-- | contrib/funind/functional_principles_proofs.ml | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/contrib/funind/functional_principles_proofs.ml b/contrib/funind/functional_principles_proofs.ml index 06f8673d06..2dbf1d107a 100644 --- a/contrib/funind/functional_principles_proofs.ml +++ b/contrib/funind/functional_principles_proofs.ml @@ -177,18 +177,6 @@ let isAppConstruct t = let nf_betaiotazeta = Reductionops.local_strong Reductionops.whd_betaiotazeta -let rec subst_rel_map sub t = - match kind_of_term t with - | Rel k -> - begin - try - Intmap.find (k+1) sub - with Not_found -> - t - end - | _ -> map_constr (subst_rel_map sub) t - - let change_eq env sigma hyp_id (context:Sign.rel_context) x t end_of_type = let nochange msg = begin @@ -237,11 +225,11 @@ let change_eq env sigma hyp_id (context:Sign.rel_context) x t end_of_type = (* Ugly hack to prevent Map.fold order change between ocaml-3.08.3 and ocaml-3.08.4 Can be safely replaced by the next comment for Ocaml >= 3.08.4 *) - let sub' = Intmap.fold (fun i t acc = (i,t)::acc) sub [] in + let sub' = Intmap.fold (fun i t acc -> (i,t)::acc) sub [] in let sub'' = List.sort (fun (x,_) (y,_) -> Pervasives.compare x y) sub' in List.fold_left (fun end_of_type (i,t) -> lift 1 (substnl [t] (i-1) end_of_type)) end_of_type_with_pop - sub + sub'' in (* let new_end_of_type = *) (* Intmap.fold *) |