diff options
| author | glondu | 2011-10-28 08:35:06 +0000 |
|---|---|---|
| committer | glondu | 2011-10-28 08:35:06 +0000 |
| commit | 97da8221e0097ed365f0a99e4960148424a59734 (patch) | |
| tree | 7a0d1b1bc8995dd456b38863674a65230ace957f /plugins/funind/indfun.ml | |
| parent | 7a10a8a17928df1da29b4f69a2b54ac83a3e1fc3 (diff) | |
Remove dynamic stuff from constr_expr and glob_constr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14621 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/funind/indfun.ml')
| -rw-r--r-- | plugins/funind/indfun.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/plugins/funind/indfun.ml b/plugins/funind/indfun.ml index 1ce6564c1c..8caeca57ab 100644 --- a/plugins/funind/indfun.ml +++ b/plugins/funind/indfun.ml @@ -189,7 +189,7 @@ let rec is_rec names = let check_id id names = Idset.mem id names in let rec lookup names = function | GVar(_,id) -> check_id id names - | GRef _ | GEvar _ | GPatVar _ | GSort _ | GHole _ | GDynamic _ -> false + | GRef _ | GEvar _ | GPatVar _ | GSort _ | GHole _ -> false | GCast(_,b,_) -> lookup names b | GRec _ -> error "GRec not handled" | GIf(_,b,_,lhs,rhs) -> @@ -764,7 +764,6 @@ let rec add_args id new_args b = | CGeneralization _ -> anomaly "add_args : CGeneralization" | CPrim _ -> b | CDelimiters _ -> anomaly "add_args : CDelimiters" - | CDynamic _ -> anomaly "add_args : CDynamic" exception Stop of Topconstr.constr_expr |