diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-03-11 08:16:51 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-03-11 08:16:51 +0000 |
| commit | b3dd470c8f2bc8f604ef818dae52aa87884e50c9 (patch) | |
| tree | 4092fc44f3277313688c5bc2546036988dbacc04 | |
| parent | 77091f657e7393fc9d83a414542d2e2e2dd1e735 (diff) | |
Typo commit 10653
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10654 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/reductionops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index c7af265ce..15d33768c 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -931,7 +931,7 @@ let meta_reducible_instance evd b = let metas = List.fold_left (fun l mv -> match (try meta_opt_fvalue evd mv with Not_found -> None) with | Some (g,(_,s)) -> (mv,(g.rebus,s))::l - | None -> l) [] in + | None -> l) [] fm in let rec irec u = let u = whd_betaiota u in match kind_of_term u with |