diff options
| author | msozeau | 2008-09-03 14:47:14 +0000 |
|---|---|---|
| committer | msozeau | 2008-09-03 14:47:14 +0000 |
| commit | 73e85bb97b86c53f34b984d0193835c1d722c59f (patch) | |
| tree | b899bd39dae595bce1e0433d2dfb5c75bc73aae4 /contrib | |
| parent | d1372d531ff912fe726ed4a79ac556d378a37375 (diff) | |
Better handling of recursive Equations definitions... still not perfect.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11356 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/subtac/equations.ml4 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/contrib/subtac/equations.ml4 b/contrib/subtac/equations.ml4 index 4464d1ca63..14330e72eb 100644 --- a/contrib/subtac/equations.ml4 +++ b/contrib/subtac/equations.ml4 @@ -666,6 +666,7 @@ let define_by_eqs i l t nt eqs = let prob = (i, sign, arity) in let fixenv = nf_env_evar (Evd.evars_of !isevar) fixenv in let ce = check_evars fixenv Evd.empty !isevar in + List.iter (function (_, _, Program rhs) -> ce rhs | _ -> ()) equations; let is_recursive, env' = let occur_eqn (ctx, _, rhs) = match rhs with |