diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-03-15 11:27:59 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-03-15 11:27:59 +0000 |
| commit | 6bfc052779929474cc18bf08da1c88319dddbffb (patch) | |
| tree | a60cb9f66faa44e6a47d0b4b9443984cf8687216 /contrib/funind/indfun.ml | |
| parent | 296fe375cefc6d3a9008201c235c3d73d5cbb049 (diff) | |
Adapt funind to the RLetPattern constructor.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10676 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/funind/indfun.ml')
| -rw-r--r-- | contrib/funind/indfun.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/contrib/funind/indfun.ml b/contrib/funind/indfun.ml index d3e18371b..7385bf652 100644 --- a/contrib/funind/indfun.ml +++ b/contrib/funind/indfun.ml @@ -227,6 +227,8 @@ let rec is_rec names = | RCases(_,_,el,brl) -> List.exists (fun (e,_) -> lookup names e) el || List.exists (lookup_br names) brl + | RLetPattern (_,(c,_),p) -> + lookup names c || lookup_br names p and lookup_br names (_,idl,_,rt) = let new_names = List.fold_right Idset.remove idl names in lookup new_names rt |