diff options
| author | Pierre-Marie Pédrot | 2014-11-21 16:00:04 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-11-21 16:00:04 +0100 |
| commit | 9a56644b05248d2068f1c5f804e581bc8a7f7275 (patch) | |
| tree | 1023cb2b372bdedb26eb443a799acc61557042b0 | |
| parent | 9fb8cc227279deb871fd3369f86f5bba8e3bee62 (diff) | |
Cleaning up closed bugs in test-suite.
| -rw-r--r-- | test-suite/bugs/closed/3686.v (renamed from test-suite/bugs/opened/3686.v) | 3 | ||||
| -rw-r--r-- | test-suite/bugs/closed/3804.v | 12 | ||||
| -rw-r--r-- | test-suite/bugs/opened/3684.v | 2 |
3 files changed, 2 insertions, 15 deletions
diff --git a/test-suite/bugs/opened/3686.v b/test-suite/bugs/closed/3686.v index 5f76fc9907..ee6b334ba2 100644 --- a/test-suite/bugs/opened/3686.v +++ b/test-suite/bugs/closed/3686.v @@ -53,9 +53,10 @@ Proof. (fun CD C'D' FG => pointwise (fst FG) (snd FG)) (fun _ _ => Pidentity_of _ _)) || fail "early". Include PointwiseCore. - Fail pose (let object_of := (fun CD => (((fst CD) -> (snd CD)))) + pose (let object_of := (fun CD => (((fst CD) -> (snd CD)))) in Build_Functor ((@sub_pre_cat P)^op * (@sub_pre_cat P)) (@sub_pre_cat P) object_of (fun CD C'D' FG => pointwise (fst FG) (snd FG)) (fun _ _ => Pidentity_of _ _)). +Abort. diff --git a/test-suite/bugs/closed/3804.v b/test-suite/bugs/closed/3804.v deleted file mode 100644 index 5dc0f72642..0000000000 --- a/test-suite/bugs/closed/3804.v +++ /dev/null @@ -1,12 +0,0 @@ -Set Universe Polymorphism. -Module Foo. - Definition T : sigT (fun x => x). - Proof. - exists Set. - abstract exact nat. - Defined. -End Foo. -Module Bar. - Include Foo. -End Bar. -Definition foo := eq_refl : Foo.T = Bar.T. (* Error: Conversion test raised an anomaly *)
\ No newline at end of file diff --git a/test-suite/bugs/opened/3684.v b/test-suite/bugs/opened/3684.v deleted file mode 100644 index e32a51223c..0000000000 --- a/test-suite/bugs/opened/3684.v +++ /dev/null @@ -1,2 +0,0 @@ -Definition foo : Set. - Fail refine ($(abstract admit)$). |