diff options
| -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 c7af265ce8..15d33768ce 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 |