diff options
Diffstat (limited to 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/3344.v (renamed from test-suite/bugs/opened/3344.v) | 0 | ||||
| -rw-r--r-- | test-suite/bugs/closed/HoTT_coq_111.v (renamed from test-suite/bugs/opened/HoTT_coq_111.v) | 13 |
2 files changed, 5 insertions, 8 deletions
diff --git a/test-suite/bugs/opened/3344.v b/test-suite/bugs/closed/3344.v index 8255fd6cce..8255fd6cce 100644 --- a/test-suite/bugs/opened/3344.v +++ b/test-suite/bugs/closed/3344.v diff --git a/test-suite/bugs/opened/HoTT_coq_111.v b/test-suite/bugs/closed/HoTT_coq_111.v index deb8e61235..3b43f31df1 100644 --- a/test-suite/bugs/opened/HoTT_coq_111.v +++ b/test-suite/bugs/closed/HoTT_coq_111.v @@ -1,5 +1,6 @@ + Module X. - Set Universe Polymorphism. + (*Set Universe Polymorphism.*) Inductive paths A (x : A) : forall _ : A, Type := idpath : paths A x x. Notation "x = y" := (@paths _ x y) (at level 70, no associativity) : type_scope. @@ -7,13 +8,11 @@ Module X. Axiom P : A = B. Definition foo : A = B. abstract (rewrite <- P; reflexivity). - (* Error: internal_paths_rew already exists. *) - Fail Fail Defined. (* Anomaly: Uncaught exception Not_found(_). Please report. *) - Admitted. + Defined. End X. Module Y. - Set Universe Polymorphism. + (*Set Universe Polymorphism.*) Inductive paths A (x : A) : forall _ : A, Type := idpath : paths A x x. Notation "x = y" := (@paths _ x y) (at level 70, no associativity) : type_scope. @@ -21,7 +20,5 @@ Module Y. Axiom P : A = B. Definition foo : (A = B) * (A = B). split; abstract (rewrite <- P; reflexivity). - (* Error: internal_paths_rew already exists. *) - Fail Fail Defined. (* Anomaly: Uncaught exception Not_found(_). Please report. *) - Admitted. + Defined. End Y. |
