diff options
| author | msozeau | 2008-04-11 12:33:08 +0000 |
|---|---|---|
| committer | msozeau | 2008-04-11 12:33:08 +0000 |
| commit | df77da121b86c64a91ea729f39afc92f10676893 (patch) | |
| tree | 9a2ce7ef77d064a56e666c387e79957a4aaafe70 /contrib | |
| parent | 2d30abfc8961b55e5a50671029b94a46a43b0026 (diff) | |
Check that no evars remain in instance types earlier at Instance
declarations.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10779 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/subtac/subtac_classes.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/contrib/subtac/subtac_classes.ml b/contrib/subtac/subtac_classes.ml index 0bff421383..4b4a6458b9 100644 --- a/contrib/subtac/subtac_classes.ml +++ b/contrib/subtac/subtac_classes.ml @@ -194,6 +194,7 @@ let new_instance ctx (instid, bk, cl) props pri = Evarutil.nf_isevar !isevars t in isevars := undefined_evars !isevars; + Evarutil.check_evars env Evd.empty !isevars termtype; (* let imps = *) (* Util.list_map_i *) (* (fun i binder -> *) |