diff options
| author | herbelin | 2000-10-01 13:30:40 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-01 13:30:40 +0000 |
| commit | 3608aa2e376bf7ed1ad7d04ffe99ffde06e9775b (patch) | |
| tree | 58350429e2ef19c696842c2bdd395475b76872db | |
| parent | cec135641a08f8cdfae32aedbbc450008d9746cf (diff) | |
renommage map_constr_with_named_binders
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@622 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/minicoq.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/minicoq.ml b/toplevel/minicoq.ml index 4305b61ce7..171f31dae4 100644 --- a/toplevel/minicoq.ml +++ b/toplevel/minicoq.ml @@ -33,7 +33,7 @@ let rec globalize bv c = match kind_of_term c with let mib = lookup_mind sp !env in mkMutInd (spi, args mib.mind_hyps) | IsMutConstruct ((sp,_),_ as spc, _) -> let mib = lookup_mind sp !env in mkMutConstruct (spc, args mib.mind_hyps) - | _ -> map_constr_with_binders (fun na l -> na::l) globalize bv c + | _ -> map_constr_with_named_binders (fun na l -> na::l) globalize bv c let check c = let c = globalize [] c in |