diff options
| author | jforest | 2007-11-26 20:19:02 +0000 |
|---|---|---|
| committer | jforest | 2007-11-26 20:19:02 +0000 |
| commit | 37e86a68a1fface68b9eb05b9304b44e89ba8c06 (patch) | |
| tree | 07e5a733e694a618e57b7de23aa364a2b5a87ef1 /contrib/recdef/recdef.ml4 | |
| parent | d13613ca7e9a986b94c39b1226619e254f7def29 (diff) | |
minor bug correction in Function
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10338 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/recdef/recdef.ml4')
| -rw-r--r-- | contrib/recdef/recdef.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/recdef/recdef.ml4 b/contrib/recdef/recdef.ml4 index 8dc0705988..a948dd4d64 100644 --- a/contrib/recdef/recdef.ml4 +++ b/contrib/recdef/recdef.ml4 @@ -199,7 +199,7 @@ let rec (find_call_occs : int -> constr -> constr -> | Var(id) -> (fun l -> expr), [] | Meta(_) -> error "find_call_occs : Meta" | Evar(_) -> error "find_call_occs : Evar" - | Sort(_) -> error "find_call_occs : Sort" + | Sort(_) -> (fun l -> expr), [] | Cast(b,_,_) -> find_call_occs nb_lam f b | Prod(_,_,_) -> error "find_call_occs : Prod" | Lambda(na,t,b) -> |