diff options
Diffstat (limited to 'test-suite/bugs/closed')
| -rw-r--r-- | test-suite/bugs/closed/3043.v | 3 | ||||
| -rw-r--r-- | test-suite/bugs/closed/3044.v | 11 |
2 files changed, 2 insertions, 12 deletions
diff --git a/test-suite/bugs/closed/3043.v b/test-suite/bugs/closed/3043.v index 12885987f..70c93ab1f 100644 --- a/test-suite/bugs/closed/3043.v +++ b/test-suite/bugs/closed/3043.v @@ -1,3 +1,4 @@ -Goal (fun A (P : A -> Prop) (X : sigT P) => proj1_sig X) = (fun A (P : A -> Prop) (X : sigT P) => projT1 X). +Goal (fun A (P : A -> Prop) + (X : sigT P) => proj1_sig (sig_of_sigT X)) = (fun A (P : A -> Prop) (X : sigT P) => projT1 X). reflexivity. Qed. diff --git a/test-suite/bugs/closed/3044.v b/test-suite/bugs/closed/3044.v deleted file mode 100644 index 2e6fd6ad2..000000000 --- a/test-suite/bugs/closed/3044.v +++ /dev/null @@ -1,11 +0,0 @@ -Goal (fun A (P Q : A -> Prop) (X : sigT2 P Q) => proj1_sig X) = (fun A (P Q : A -> Prop) (X : sigT2 P Q) => projT1 X). - reflexivity. -Qed. - -Goal (fun A (P Q : A -> Prop) (X : sigT2 P Q) => proj2_sig X) = (fun A (P Q : A -> Prop) (X : sigT2 P Q) => projT2 X). - reflexivity. -Qed. - -Goal (fun A (P Q : A -> Prop) (X : sigT2 P Q) => proj3_sig X) = (fun A (P Q : A -> Prop) (X : sigT2 P Q) => projT3 X). - reflexivity. -Qed. |