diff options
| author | herbelin | 2011-11-30 10:36:22 +0000 |
|---|---|---|
| committer | herbelin | 2011-11-30 10:36:22 +0000 |
| commit | 6bee8342c0a914376688fba3927352f826aa9942 (patch) | |
| tree | 9bb6bd70ca7b0841806daf9b8a17840a8d3bd4fe | |
| parent | b7033be417da7b84a2fe723e02bf3c4efc55e6b0 (diff) | |
Quick hack to avoid anomaly on using Program w/o having required JMeq.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14749 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | plugins/subtac/subtac_utils.ml | 2 | ||||
| -rw-r--r-- | test-suite/success/ProgramWf.v | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/plugins/subtac/subtac_utils.ml b/plugins/subtac/subtac_utils.ml index 546d720c4b..28bbdd35e9 100644 --- a/plugins/subtac/subtac_utils.ml +++ b/plugins/subtac/subtac_utils.ml @@ -73,7 +73,7 @@ let eqdep_ind_ref = init_reference [ "Logic";"Eqdep"] "eq_dep" let eqdep_intro_ref = init_reference [ "Logic";"Eqdep"] "eq_dep_intro" let jmeq_ind = - init_constant ["Logic";"JMeq"] "JMeq" + safe_init_constant ["Logic";"JMeq"] "JMeq" let jmeq_rec = init_constant ["Logic";"JMeq"] "JMeq_rec" diff --git a/test-suite/success/ProgramWf.v b/test-suite/success/ProgramWf.v index 81bdbc29f0..00a13aed0c 100644 --- a/test-suite/success/ProgramWf.v +++ b/test-suite/success/ProgramWf.v @@ -1,3 +1,9 @@ +(* Before loading Program, check non-anomaly on missing library Program *) + +Fail Program Definition f n (e:n=n): {n|n=0} := match n,e with 0, refl => 0 | _, _ => 0 end. + +(* Then we test Program properly speaking *) + Require Import Arith Program. Require Import ZArith Zwf. |