diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-04-15 16:35:54 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-04-15 16:35:54 +0000 |
commit | f907cc977bb80e3654174de03aeaed2cb4aa4a7e (patch) | |
tree | 4df4871b13560cb50476185ab8ef16dabcc8cdac | |
parent | a81f52f601c9851d59d0a9f53f0a46c7444fcab1 (diff) |
Mises à jour bugs, CHANGES, code mort
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10801 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | CHANGES | 6 | ||||
-rw-r--r-- | pretyping/clenv.ml | 1 | ||||
-rw-r--r-- | test-suite/bugs/closed/shouldsucceed/1774.v (renamed from test-suite/bugs/opened/shouldnotfail/1774.v) | 0 | ||||
-rw-r--r-- | test-suite/bugs/closed/shouldsucceed/1775.v (renamed from test-suite/bugs/opened/shouldnotfail/1775.v) | 0 |
4 files changed, 3 insertions, 4 deletions
@@ -21,16 +21,16 @@ Commands - Added option Global to "Arguments Scope" for section surviving. (DOC TODO) - Added option "Unset Elimination Schemes" to deactivate the automatic - generation of elimination schemes. (DOC TODO) + generation of elimination schemes. - Modification of the Scheme command so you can ask for the name to be - automatically computed (e.g. Scheme Induction for nat Sort Set). (DOC TODO?) + automatically computed (e.g. Scheme Induction for nat Sort Set). - New command "Combined Scheme" to build combined mutual induction principles from existing mutual induction principles. - New command "Scheme Equality" to build a decidable (boolean) equality for simple inductive datatypes and a decision property over this equality (e.g. Scheme Equality for nat). - Added option "Set Equality Scheme" to make automatic the declaration - of the boolean equality when possible. (DOC TODO?) + of the boolean equality when possible. - Source of universe inconsistencies now printed when option "Set Printing Universes" is activated, - Support for option "[id1 ... idn]", and "-[id1 ... idn]", for the diff --git a/pretyping/clenv.ml b/pretyping/clenv.ml index 072d664fc..ed9d779ad 100644 --- a/pretyping/clenv.ml +++ b/pretyping/clenv.ml @@ -231,7 +231,6 @@ let dependent_metas clenv mvs conclmetas = mvs conclmetas let clenv_dependent hyps_only clenv = - let mvs = collect_metas (clenv_value clenv) in let mvs = undefined_metas clenv.evd in let ctyp_mvs = (mk_freelisted (clenv_type clenv)).freemetas in let deps = dependent_metas clenv mvs ctyp_mvs in diff --git a/test-suite/bugs/opened/shouldnotfail/1774.v b/test-suite/bugs/closed/shouldsucceed/1774.v index 4c24b481b..4c24b481b 100644 --- a/test-suite/bugs/opened/shouldnotfail/1774.v +++ b/test-suite/bugs/closed/shouldsucceed/1774.v diff --git a/test-suite/bugs/opened/shouldnotfail/1775.v b/test-suite/bugs/closed/shouldsucceed/1775.v index dab4120b9..dab4120b9 100644 --- a/test-suite/bugs/opened/shouldnotfail/1775.v +++ b/test-suite/bugs/closed/shouldsucceed/1775.v |