diff options
| author |  jforest <jforest@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-06 16:12:54 +0000 |
|---|---|---|
| committer | jforest <jforest@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-06 16:12:54 +0000 |
| commit | ad9b938817dc53f03a1e1af0b81ec372294d3450 (patch) | |
| tree | 73fa092a0fce44bcd17f18c03ea27051ef24fc70 | |
| parent | eed31762296482499ae843e030249b50761e4a5e (diff) | |
this time it's good
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8904 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/funind/functional_principles_types.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/funind/functional_principles_types.ml b/contrib/funind/functional_principles_types.ml index 00009d74e..8ef132648 100644 --- a/contrib/funind/functional_principles_types.ml +++ b/contrib/funind/functional_principles_types.ml @@ -453,7 +453,7 @@ let make_scheme fas = (fun (_,f,_) -> try id_to_constr f with Not_found -> - Util.error ("Cannot find "^ string_of_id id) + Util.error ("Cannot find "^ string_of_id f) ) fas in |